Tempo aproximado para leitura: 00:03:00 min
Duvida
Como efetuar um execauto de títulos no Contas a Receber - Inclusão?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – Financeiro – Todas as versões
Solução
Segue um exemplo do processo
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
User Function FIN040INC()
LOCAL aArray := {}
PRIVATE lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FIN" TABLES "SE1","SE5","SA1","SA2"
Conout("----Inicio da Rotina Automatica!------")
aArray := { { "E1_PREFIXO" , "MAN" , NIL },;
{ "E1_NUM" , "00002024 " , NIL },;
{ "E1_TIPO" , "NF " , NIL },;
{ "E1_NATUREZ" , "004 " , NIL },;
{ "E1_CLIENTE" , "000001" , NIL },;
{ "E1_LOJA" , "01" , NIL },;
{ "E1_EMISSAO" , CtoD("01/01/2024"), NIL },;
{ "E1_VENCTO" , CtoD("01/01/2024"), NIL },;
{ "E1_VENCREA" , CtoD("01/01/2024"), NIL },;
{ "E1_VALOR" , 500 , NIL }}
MsExecAuto( { |x,y| FINA040(x,y)} , aArray, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
MostraErro()
Else
Conout("Título incluído com sucesso!")
Endif
RESET ENVIRONMENT
Return
Importante
O teste deve ser efetuado conforme o exemplo publicado pelo Desenv. no TDN variáveis restritas em fontes customizados não estão previstas pelo suporte padrão, dado ao fato de que as mesmas não estão documentadas, assim sendo, podem ser descontinuadas ou sofrer alterações de comportamento sem aviso
0 Comentários