Histórico da Página

:= .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