Histórico da Página
Propriedades de página |
---|
CONTEÚDO
|
01. VISÃO GERAL
Exemplos de execução via rotina automática na rotina de lançamentos contábeis automáticos(CTBA102), mostrando exemplos de utilização e tabelas relacionadas.
02. EXEMPLO DE UTILIZAÇÃO
Abaixo mostraremos exemplos de utilização.
...
Descrição
...
Opções da Rotina automática de lançamentos contábeis no ambiente Contabilidade Gerencial (SIGACTB).
...
Exemplo
...
#INCLUDE "PROTHEUS.CH"
//-------------------------------------------------------------------
/*/{Protheus.doc} CargaCT2
...
/*/
//-------------------------------------------------------------------
User Function CargaCT2()
Local oRegua
Local lEnd := .T.
//-------------------------------------------------------------------
...
Informações | ||
---|---|---|
|
Na utilização de execAuto considerar os seguintes critérios: |
...
- Passar o campo CT2_CONVER como 15555, demais moedas devem ser feitos |
...
pela inclusão de um novo aItens |
...
- |
...
Para alteração de registro passe novamente o |
...
aCab |
Aviso | ||
---|---|---|
| ||
A Execução automática está disponível apenas para Inclusão e Alteração de lançamentos contábeis. |
Inclusão:
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.CH"
|
...
// --------------------------------------------------------------------------
If MsgYesNo("Deseja realizar a carga dos dados ?")
oRegua := MsNewProcess():New({|lEnd| GravaCTB(oRegua,@lEnd) },"Processando","",.T.)
oRegua:Activate()
MsgAlert("Carga Finalizada")
EndIf
Return
//------------------------------------------------------------------- |
...
/*/{Protheus.doc} |
...
MyCTBA102Inc Inclusão de Lançamento Automático CTBA102 @author Totvs @since 29/11/2013 |
...
@version 1.0 |
...
/*/ |
...
//------------------------------------------------------------------- |
...
Static Function GravaCTB(oObj,lEnd)
Local nX
Local aArea := GetArea()
Local nDoc := 1
Local lRet := .T.
Local aCab := {}
Local aItens := {}
Local aLinha := {}
...
User Function MyCTBA102Inc() Local nX Local aArea := GetArea() Local nDoc := 1 Local lRet := .T. Local aCab := {} Local aItens := {} Local aLinha := {} 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 := {}
/*-------------------------------------------------------------
// ExecAuto de teste para inclusão de lançamento
//----------------------------------------------------------*/
aAdd(aCab, {'DDATALANC' ,dDataBase ,NIL} )
aAdd(aCab, {'CLOTE' ,'333333' ,NIL} )
aAdd(aCab, {'CSUBLOTE' ,'001' ,NIL} )
aAdd(aCab, {'CDOC' ,'000001' ,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' , 3000 , NIL},;
{'CT2_ORIGEM' ,'MSEXECAUT' , NIL},;
{'CT2_HP' ,'' , NIL},;
{'CT2_CONVER' ,'11' , NIL},;
{'CT2_HIST' ,'MSEXECCT2' , NIL} } )
...
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "CTB" TABLES "CT2" aCab := {} aItem := {} aAdd(aCab, {'DDATALANC' ,dDataBase ,NIL} ) aAdd(aCab, {'CLOTE' ,'333333' ,NIL} ) aAdd(aCab, {'CSUBLOTE' ,'001' ,NIL} ) aAdd(aCab, {'CDOC' ,'000001' ,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' , 3000 , NIL},; {'CT2_ORIGEM' ,'MSEXECAUT' , NIL},; {'CT2_HP' ,'' , NIL},; {'CT2_CONVER' ,'11' , NIL},; {'CT2_HIST' ,'MSEXECCT2' , NIL} } ) MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 3) If lMsErroAuto lMsErroAuto := .F. MsgAlert("ERRO Lançamento" , "Teste Carga CT2") |
...
mostraErro()
Exit
Endif
RestArea(aArea)
RESET ENVIRONMENT
Return |
Alteração:
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.CH"
//------ |
...
------------------------------------------------------------- |
...
/ |
...
*/{Protheus.doc} MyCTBA102Alt Inclusão de Lançamento Automático CTBA102 @author Totvs @since 29/11/2013 @version 1.0 /*/ //---------------------------------------------------------- |
...
aCab := {}
aItens := {}
aLinha := {}
aAdd(aCab, {'DDATALANC' ,dDataBase ,NIL} )
aAdd(aCab, {'CLOTE' ,'333333' ,NIL} )
aAdd(aCab, {'CSUBLOTE' ,'001' ,NIL} )
aAdd(aCab, {'CDOC' ,'000001' ,NIL} )
aAdd(aCab, {'CPADRAO' ,'' ,NIL} )
aAdd(aCab, {'NTOTINF' ,0 ,NIL} )
aAdd(aCab, {'NTOTINFLOT' ,0 ,NIL} )
...
--------- User Function MyCTBA102Alt() Local nX Local aArea := GetArea() Local nDoc := 1 Local lRet := .T. Local aCab := {} Local aItens := {} Local aLinha := {} Local dDataLanc := ctod("28/11/2013") Local nLinha := '001' Private lMsErroAuto := .F. Private lMsHelpAuto := .T. Private CTF_LOCK := 0 Private lSubLote := .T. PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "CTB" TABLES "CT2" aCab := {} aItens := {} aLinha := {} aAdd(aCab, {'DDATALANC' ,dDataBase ,NIL} ) aAdd(aCab, {'CLOTE' ,'333333' ,NIL} ) aAdd(aCab, {'CSUBLOTE' ,'001' ,NIL} ) aAdd(aCab, {'CDOC' ,'000001' ,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' , 6000 , NIL},; |
...
{'CT2_ORIGEM' ,'MSEXECAUT' , NIL},; |
...
{'CT2_HP' ,'' , NIL},; |
...
{'CT2_EMPORI' ,'01' , NIL},; |
...
{'CT2_FILORI' ,'0101001' , NIL},; |
...
{'CT2_HIST' ,'MSEXECCT2-1' , NIL},; |
...
{'LINPOS' ,'CT2_LINHA' ,nLinha}}) |
...
...
MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 4) |
...
If lMsErroAuto |
...
lMsErroAuto := .F. |
...
MsgAlert("ERRO Lançamento" , "Teste Carga CT2") |
...
...
Exit
Endif
Next nX
cFileLog := NomeAutoLog()
cPath := ""
If !Empty(cFileLog) .And. !lRet
MostraErro(cPath,cFileLog)
Endif
Exit Endif RestArea(aArea) |
...
Return
Informações | ||
---|---|---|
| ||
A Execução automática está disponível apenas para Inclusão e Alteração de lançamentos contábeis. |
...
Idioma
...
Português(Brasil)
...
Versões
...
Todas
...
Sistemas Operacionais Suportados
...
Todos
...
Compatível com as Bases de Dados
...
Todas
...
Programa Fonte
RESET ENVIRONMENT
Return
|
05. TABELAS UTILIZADAS
- CT2- Lançamentos Contábeis
HTML |
---|
<!-- esconder o menu -->
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style>
|
...