Versão atual:

ExecAuto fina070

Bom dia Pessoal.

Fiz uma função de MsExecAuto fo Fina070, é chamado sem erros, porém não executa a baixa. Fiquei sem entender, pois o LmsErroAuto não é alterado, continua como .F. mas a baixa não é feita.

User Function MFIN03B(czFilBx, czPrefixo, czTitulo, czParcela, czTipo, nzValorRecebido, czBanco, czAgen, czConta, dTBaixa, DtMovi, czNossNum)

    Local aBaixa := {}
    Local cEmail := "email@email.com"
    Local cAssunto := "MFIN003 - Função MFIN03B"

    lMsErroAuto := .F.

    aBaixa :=   {{"E1_FILIAL",  czFilBx, Nil},;
                {"E1_PREFIXO",  czPrefixo, Nil},;
                {"E1_NUM",      czTitulo, Nil},;
                {"E1_PARCELA",  czParcela, Nil},;
                {"E1_TIPO" ,    czTipo, Nil},;
                {"AUTMOTBX",    'NOR', Nil},;
                {"AUTBANCO",    Padr(czBanco,3), Nil},;
                {"AUTAGENCIA",  Padr(czAgen, 5), Nil},;
                {"AUTCONTA",    Padr(czConta,12), Nil},;
                {"AUTDTBAIXA",  dTBaixa, Nil},;
                {"AUTDTCREDITO",DtMovi, Nil},;
                {"AUTVALREC",   nzValorRecebido, Nil }}

    AcessaPerg("FIN070", .F.)
    MsExecAuto({|x,y| Fina070(x,y)}, aBaixa, 3)
    aBaixa := {}

    If lMsErroAuto 
        MostraErro()
        AFAT046(cEmail, cAssunto, "Não foi possível baixar o título " + czPrefixo + '-' + czTitulo + ' Nosso Numero '+ czNossNum + ' Valor Recebido '+ nzValorRecebido)
    Else

        ZBS->(DbSelectArea("ZBS"))
        ZBS->(DbSetOrder(2))
        ZBS->(DbGoTop())

        If ZBS->(MsSeek(czFilBx + czNossNum))
            ZBS->(Reclock('ZBS',.F.))
            ZBS->ZBS_DTBAIX := dDataBase
            ZBS->(MsUnlock())
        EndIf

        ZBS->(DbCloseArea())
    EndIf

Return

Versões (3):

Ver a versão formatada

ExecAuto fina070

Comentário

new question