Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Rogerio Vaz Melonio

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Pedro Valerio Alencar Silva

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Exemplos de execauto da rotina Contas a Receber - FINA040 - para inclusão de RA

Produto:

Protheus

Versões:

12.1.17 e superiores

Ocorrência:

Seguem exemplos de ExecAuto da rotina Contas a Receber (FINA040) para inclusão de recebimento antecipado.

Ambiente:

Financeiro

Observações:

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 estas essas variáveis não estiverem presentes no array, o título não será incluído e não será gerado o movimento bancário do recebimento deste título.

Se forem informadas vazios 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.

Exemplos:

/* Exemplo 01: Forma correta para informar os campos

básicos

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"      , "

CX1

341"             , NIL },;

            { "CAGEAUTO"       , "

00001

0001"            , NIL },;

            { "CCTAAUTO"    , "

000001

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

correta

incorreta para informar os campos

básicos

para Inclusão de um título de tipo RA que

não 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"      , "000005"          , 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 },;

            { "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 03: Forma incorreta para informar os campos básicos para Inclusão de um título de tipo RA que não incluirá o

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


Resultados de inconsistências:

Se for passado um cadastro de banco inexistente:

Image Added


Se forem passados os campos de banco/agência e conta vazios:

Image Added