Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Viviane M Thomaz Mello Lavisio Flores

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Viviane M Thomaz Mello Lavisio Flores

Gravado em

Chave

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

Descrição

Rotina automática para inclusão de lançamentos contábeis no ambiente Contabilidade Gerencial (SIGACTB).

Exemplo

||#INCLUDE "PROTHEUS.CH"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³CargaCT2     ºAutor  ³Felipe Cunha     º Data ³  29/11/2013 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³ Inclusão Lanc Contabil Execauto                            º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³ AP                                                         º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function CargaCT2()
Local oRegua
Local lEnd := .T.
// --------------------------------------------------------------------------
// Na utilização de execAuto considerar os seguintes critérios:
// 1 - Passar o campo CT2_CONVER como 15555. As demais moedas
   devem ser feitas pela inclusão de um novo item.
// 2 - Na alteração de registro passe novamente o ACab.
// --------------------------------------------------------------------------
If MsgYesNo("Deseja realizar a carga dos dados ?")
oRegua := MsNewProcess():New({|lEnd| GravaCTB(oRegua,@lEnd) },"Processando","",.T.)
oRegua:Activate()
MsgAlert("Carga Finalizada")
EndIf
Return
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³ GravaCTB     ºAutor  ³Felipe Cunha    º Data ³  29/11/2013 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³ Programa para base de teste de Pedido de compras, NFE      º±±
±±º          ³                                                            º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³ AP                                                         º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function GravaCTB(oObj,lEnd)
Local nX
Local aArea := GetArea()
Local nDoc := 1
Local lRet := .T.
Local aCab := {}
Local aItens := {}
Local dDataLanc := ctod("28/11/2013") 
lOCAL nLinha := '001'
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
Private CTF_LOCK := 0
Private lSubLote := .T.
oObj:SetRegua1(5)
oObj:IncRegua1("Gerando Documentos")
oObj:SetRegua1(nDoc)
For nX:=1 To nDoc
If lEnd
Exit
EndIf
oObj:IncRegua2("Documento " + cValToChar(nX) + " de "+ cValToChar(nDoc))
aCab := {}
aItem := {}
//Inclusão de Lançamento Contábil para teste de atualização via execauto
aAdd(aCab,  {'DDATALANC' ,dDataBase ,NIL} )
aAdd(aCab,  {'CLOTE' ,'008800' ,NIL} )
aAdd(aCab,  {'CSUBLOTE' ,'001' ,NIL} )
aAdd(aCab,  {'CDOC' , "000033"  ,NIL} )
aAdd(aCab,  {'CPADRAO' ,'' ,NIL} )
aAdd(aCab,  {'NTOTINF' ,0 ,NIL} )
aAdd(aCab,  {'NTOTINFLOT' ,0 ,NIL} )
aAdd(aItens,{  {'CT2_FILIAL'  ,'0101   '   , NIL},;
               {'CT2_LINHA'  , nLinha  , NIL},;
               {'CT2_MOEDLC'  ,'01'   , NIL},;
               {'CT2_DC'   ,'3'   , NIL},;
               {'CT2_DEBITO'  ,'101010100' , NIL},;
               {'CT2_CREDIT'  ,'201010100' , NIL},;
               {'CT2_VALOR'  , 1000  , NIL},;
               {'CT2_ORIGEM' ,'MSEXECAUT' , NIL},;
               {'CT2_HP'   ,''   , NIL},;
               {'CT2_CONVER' ,'15'           , NIL},;
               {'CT2_HIST'   ,'MSEXECCT2' , NIL} } )
MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 3)
//ExecAuto de teste da atualização de registro 
aCab := {}
aItens := {}
aAdd(aCab,  {'DDATALANC' ,dDataBase ,NIL} )
aAdd(aCab,  {'CLOTE' ,'008800' ,NIL} )
aAdd(aCab,  {'CSUBLOTE' ,'001' ,NIL} )
aAdd(aCab,  {'CDOC' ,"000033"   ,NIL} )
aAdd(aCab,  {'CPADRAO' ,'' ,NIL} )
aAdd(aCab,  {'NTOTINF' ,0 ,NIL} )
aAdd(aCab,  {'NTOTINFLOT' ,0 ,NIL} )
aAdd(aItens,{  {'CT2_FILIAL'  ,'0101   '   , NIL},;
               {'CT2_LINHA'  , nLinha  , NIL},;
               {'CT2_MOEDLC'  ,'01'   , NIL},;
               {'CT2_DC'  ,'3'   , NIL},;
               {'CT2_DEBITO'  ,'101010100' , NIL},;
               {'CT2_CREDIT'  ,'201010100' , NIL},;
               {'CT2_VALOR'  , 1000  , NIL},;
               {'CT2_ORIGEM' ,'MSEXECAUT' , NIL},;
               {'CT2_HP'  ,''   , NIL},;
                  {'CT2_CONVER' ,'15'           , NIL},;                                                   
               {'CT2_HIST'   ,'MSEXECCT2-A' , NIL}})
MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 4)
If lMsErroAuto
lMsErroAuto := .F.
MsgAlert("ERRO Lançamento" , "Teste Carga CT2")
lRet := .F.
Exit
Endif
Next nX
cFileLog := NomeAutoLog()
cPath := ""
If !Empty(cFileLog) .And. !lRet
MostraErro(cPath,cFileLog)
Endif
RestArea(aArea)
Return

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10_e_Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Programa Fonte

CTBA102.PRW