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

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)