Cross Segmentos - Backoffice Linha Protheus - SIGAFIN - FINA050 - Exemplo de Execauto de inclusão de titulo do tipo PA

Tempo aproximado para leitura: 00:05:00 min

Dúvida
Exemplo de Execauto de inclusão de titulo do tipo PA

Ambiente
Cross Segmentos - TOTVS Backoffice (Linha Protheus) - Financeiro - Todas as versões


Solução

Exemplo: Inclusão com PA com cheque

#INCLUDE "Protheus.ch"
USER FUNCTION FIN050INCPA()
   LOCAL aArray := {}
  
   PRIVATE lMsErroAuto := .F.
  
   aArray := { { "E2_PREFIXO", "PAG"             , NIL },;
             { "E2_NUM"      , "0001"            , NIL },;
             { "E2_TIPO"     , "PA"              , NIL },;
             { "E2_NATUREZ"  , "001"             , NIL },;
             { "E2_FORNECE"  , "0001"            , NIL },;
             { "E2_EMISSAO"  , CtoD("08/08/2026"), NIL },;
             { "E2_VENCTO"   , CtoD("08/08/2026"), NIL },;
             { "E2_VENCREA"  , CtoD("08/08/2026"), NIL },;
             { "E2_VALOR"    , 5000              , NIL },;
             { "AUTBANCO"    , "FIN"             , NIL },;
             { "AUTAGENCIA"  , "00015"           , NIL },;
             { "AUTCONTA"    , "0000000001"      , NIL },;
             { "AUTMOED"     , "1"               , NIL },;
             { "AUTCHEQUE"   , "124569"          , NIL }}
  
   MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3)  // 3 - Inclusão
   
   If lMsErroAuto
       MostraErro()
   Else
       Alert("Título incluído com sucesso!")
   Endif
  
Return

Saiba mais: Contas a Pagar - FINA050 - Financeiro - P12