Exemplo de ExecAuto para Títulos a Pagar – Tabela SE2

💬 Ainda tá complicado resolver seu problema? Entre nos grupos de whatsapp que tá cheio de analistas top pra compatilhar ideias!

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:

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

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

Sobre
Últimos Posts

Siga na rede

Fernando Bueno

Consultor em FBSOLUTIONS

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Siga-me no Linked In

Siga na rede

Exemplo de ExecAuto para Títulos a Pagar – Tabela SE2 – FINA0501 minutos de leitura

Fernando Bueno

Últimos posts por Fernando Bueno (exibir todos)

Leave a Reply Cancelar resposta