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 |