ExecAuto FINA040

Rotina automática para criação e manipulação de Contas a Receber

Exemplo da Rotina:

MSExecAuto({|x,y| FINA040(x,y)}, aVetSE1, 3)

Exemplo 1- Incluindo um título financeiro a receber:

//Prepara o array para o execauto
aVetSE1 := {}
aAdd(aVetSE1, {"E1_FILIAL",  FWxFilial("SE1"),  Nil})
aAdd(aVetSE1, {"E1_NUM",     cNumero,           Nil})
aAdd(aVetSE1, {"E1_PREFIXO", cPrefixo,          Nil})
aAdd(aVetSE1, {"E1_PARCELA", cParcela,          Nil})
aAdd(aVetSE1, {"E1_TIPO",    cTipo,             Nil})
aAdd(aVetSE1, {"E1_NATUREZ", cNatureza,         Nil})
aAdd(aVetSE1, {"E1_CLIENTE", cCliente,          Nil})
aAdd(aVetSE1, {"E1_LOJA",    cLoja,             Nil})
aAdd(aVetSE1, {"E1_NOMCLI",  cNomCli,           Nil})
aAdd(aVetSE1, {"E1_EMISSAO", dEmissao,          Nil})
aAdd(aVetSE1, {"E1_VENCTO",  dVencto,           Nil})
aAdd(aVetSE1, {"E1_VENCREA", dVencReal,         Nil})
aAdd(aVetSE1, {"E1_VALOR",   nValor,            Nil})
aAdd(aVetSE1, {"E1_VALJUR",  nValJuros,         Nil})
aAdd(aVetSE1, {"E1_PORCJUR", nPorcJuros,        Nil})
aAdd(aVetSE1, {"E1_HIST",    cHist,             Nil})
aAdd(aVetSE1, {"E1_MOEDA",   1,                 Nil})
 
    //Chama a rotina automática
    lMsErroAuto := .F.
    MSExecAuto({|x,y| FINA040(x,y)}, aVetSE1, 3)
     
    //Se houve erro, mostra o erro ao usuário e desarma a transação
    If lMsErroAuto
        MostraErro()
        DisarmTransaction()
    EndIf

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;