⭐ Gostou do tema? Salve este artigo para consultar depois
Olá pessoal,
Aqui segue um exemplo de ExecAuto de criação de Títulos a Pagar, na tabela SE2 do sistema. A função é a FINA050.
A partir de um ponto de entrada no sistema que desejar, você pode chamar esta função para gerar um novo título.
Veja o exemplo abaixo:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
User Function FBFIN07(_cFilial, cForn, cLoja, cNum, cPref, cParc, nValor, cAcao) Local aArray := {} Local lRet := .F. Local cTipo := "" Local cNatur := "" Private lMsErroAuto := .F. cNatur := "71233 " cTipo := "FT" aArray := { { "E2_PREFIXO" , cPref , NIL },; { "E2_NUM" , cNum , NIL },; { "E2_PARCELA" , cParc , NIL },; { "E2_TIPO" , cTipo , NIL },; { "E2_NATUREZ" , cNatur , NIL },; { "E2_FORNECE" , cForn , NIL },; { "E2_LOJA" , cLoja , NIL },; { "E2_EMISSAO" , dDataBase, NIL },; { "E2_VENCTO" , DataValida(dDataBase-10, .T.), NIL },; { "E2_VENCREA" , DataValida(dDataBase-10, .T.), NIL },; { "E2_VALOR" , nValor , NIL },; { "E2_HIST" , "ESCREVA AQUI UM HISTORICO" , NIL }} //Inicia o controle de transação Begin Transaction If cAcao == "I" //INCLUSAO _nAutoOpc := 3 ElseIf cAcao == "A" //ALTERACAO _nAutoOpc := 4 Else //EXCLUSAO _nAutoOpc := 5 EndIf MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, _nAutoOpc) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão If lMsErroAuto MostraErro() DisarmTransaction() Else lRet := .T. Endif End Transaction Return lRet |
