Tempo aproximado para leitura: 00:06:00 min
Dúvida
Exemplos de ExecAuto da rotina Contas a Receber (FINA040) para inclusão de recebimento antecipado.
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - Financeiro - Todas as versões
Solução
Nos exemplos abaixo, demonstraremos como informar corretamente os campos necessários para inclusão de títulos a receber do tipo Recebimento Antecipado (RA).
Os campos de Banco, Agência e Conta devem ser informados obrigatoriamente pelos rótulos CBCOAUTO, CAGEAUTO e CCTAAUTO, presentes no array utilizado na chamada da Execauto.
Se essas variáveis não estiverem presentes no array, o título não será incluído.
Se forem informadas vazias ou com conteúdos que não existem na tabela de cadastro de bancos (SA6), o título será invalidado e também não será incluído no sistema.
/* Exemplo 01: Forma correta para informar os campos para Inclusão de um título de tipo RA que gera movimentação bancária.*/
//Teste de inclusão
#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" , "AUT" , NIL },;
{ "E1_NUM" , "000004" , NIL },;
{ "E1_TIPO" , "RA" , NIL },;
{ "E1_NATUREZ" , "000001" , NIL },;
{ "E1_CLIENTE" , "000001" , NIL },;
{ "E1_LOJA" , "01" , NIL },;
{ "E1_EMISSAO" , CtoD("06/07/2018"), NIL },;
{ "E1_VENCTO" , CtoD("06/07/2018"), NIL },;
{ "E1_VENCREA" , CtoD("06/07/2018"), NIL },;
{ "CBCOAUTO" , "341" , NIL },;
{ "CAGEAUTO" , "0001" , NIL },;
{ "CCTAAUTO" , "00001" , NIL },;
{ "E1_VALOR" , 600 , 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
/* Exemplo 02: Forma incorreta para informar os campos para Inclusão de um título de tipo RA que invalidará a inclusão do título.*/
//Teste de inclusão
#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" , "AUT" , NIL },;
{ "E1_NUM" , "000006" , NIL },;
{ "E1_TIPO" , "RA" , NIL },;
{ "E1_NATUREZ" , "000001" , NIL },;
{ "E1_CLIENTE" , "000001" , NIL },;
{ "E1_LOJA" , "01" , NIL },;
{ "E1_EMISSAO" , CtoD("06/07/2018"), NIL },;
{ "E1_VENCTO" , CtoD("06/07/2018"), NIL },;
{ "E1_VENCREA" , CtoD("06/07/2018"), NIL },;
{ "CBCOAUTO" , "" , NIL },;
{ "CAGEAUTO" , "" , NIL },;
{ "CCTAAUTO" , "" , NIL },;
{ "E1_VALOR" , 600 , 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
Saiba mais: FINA040_ExecAuto_Inclusao_de_RA_por_rotina_automatica
0 Comentários