Histórico da Página
...
02. EXEMPLO DE UTILIZAÇÃO
#Include "PROTHEUS.CH"
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH"
//-------------------------------------------------------------------
/*/ MaIntEst
Ponto de entrada para informar se o processo de cancelamento de compensação
via rotina automática (MAINTBXCR) irá gerar um estorno ou deleção dos
registros (padrão atual)
@Return lRet .T. = Gera estorno
.F. = Deleta os registros (padrão atual)
@since 27/07/2021
@version 1.0
/*/
//-------------------------------------------------------------------
USER FUNCTION CmpAutCR()
Local lRetOK |
...
:= .T. |
...
Local aArea := |
...
GetArea() |
...
Local nTaxaCM := |
...
5.2322 |
...
Local aTxMoeda := {} |
...
Local nSaldoComp:= |
...
1000. |
...
00 * |
...
nTaxaCM // Valor a ser compensado (Caso seja parcial Pode ser parcial) - Compensar apenas R$ 50,00 |
...
Private nRecnoNDF Private nRecnoE1 PREPARE ENVIRONMENT EMPRESA "TI" |
...
FILIAL "D MG 01 " |
...
MODULO "FIN" |
...
TABLES "SE2TI0","SE5TI0","SA6TI0","SEDTI0" |
...
Conout("----Inicio da Rotina Automatica!------") |
...
dbSelectArea("SE1") |
...
dbSetOrder(2) // E1_FILIAL, E1_CLIENTE, E1_LOJA, E1_PREFIXO, E1_NUM, E1_PARCELA, E1_TIPO, R_E_C_N_O_, D_E_L_E_T_ |
...
IF dbSeek(XFILIAL("SE1")+"000000"+"00"+"331"+"RA0001 "+" "+"RA ") |
...
nRecnoRA := |
...
RECNO() |
...
IF dbSeek(XFILIAL("SE1")+"000000"+"00"+"331"+"000001 "+" "+"DP ") |
...
nRecnoE1 := |
...
RECNO() |
...
PERGUNTE("FIN330",.F.) |
...
lContabiliza := (MV_ |
...
PAR09 == |
...
1) // Contabiliza On Line ? |
...
lDigita := (MV_ |
...
PAR07 == |
...
1) // Mostra Lanc Contab ? |
...
lAglutina := .F. |
...
/* |
...
==> Utilizar esse trecho se quiser simular o botão Taxas da tela inicial do FINA330 |
...
==> Verifique os parâmetros MV_CMP330 e MV_CMTXCON para tal. nTaxaCM := RecMoeda(dDataBase,SE1->E1_MOEDA) |
...
aAdd(aTxMoeda, {1, 1} ) |
...
aAdd(aTxMoeda, {2, nTaxaCM} ) |
...
*/ |
...
SE1->(dbSetOrder(1)) //E1_FILIAL+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO+E1_FORNECE+E1_LOJA |
...
//NF X RA |
...
aRecRA := { |
...
nRecnoRA } aRecSE1 := { |
...
nRecnoE1 } //RA X NF |
...
// aRecRA := { nRecnoE1 } |
...
// aRecSE1 := { nRecnoRA } |
...
If !MaIntBxCR(3, |
...
aRecSE1,,aRecRA,,{lContabiliza,lAglutina,lDigita,.F.,.F.,.F.},,,,,nSaldoComp,,,, |
...
nTaxaCM, |
...
aTxMoeda) Help("XAFCMPAD",1,"HELP","XAFCMPAD","Não foi possível a compensação"+CRLF+" do titulo do adiantamento",1,0) |
...
lRet := .F. |
...
ENDIF
ENDIF
ENDIF
RestArea(aArea)
RESET ENVIRONMENT
Return lRet |
03. TELA XXXXX
Outras Ações / Ações relacionadas
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas