Histórico da Página
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas