Histórico da Página
...
Propriedades de página |
---|
CONTEÚDO
|
01. VISÃO GERAL
...
Aviso | ||
---|---|---|
| ||
A Execução automática está disponível apenas para Inclusão e Alteração de lançamentos contábeis. |
Informações | ||
---|---|---|
| ||
Na utilização de execAuto 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 - Passar o campo CT2_CRITER, para as demais moedas apenas inclui como conversão, não permitindo a inclusão do CT2_VALOR zerado. - Para alteração de registro passe novamente o aCab |
Inclusão:
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "PROTHEUS.CH" //------------------------------------------------------------------- /*/{Protheus.doc} MyCTBA102Inc Inclusão de Lançamento Automático CTBA102 @author Totvs @since 23/06/2022 @version 2.0 /*/ //------------------------------------------------------------------- User Function MyCTBA102Inc() Local aArea := GetArea() Local aCab := {} Local aItens := {} Private lMsErroAuto := .F. Private lMsHelpAuto := .T. Private CTF_LOCK := 0 Private lSubLote := .T. RpcSetType(3) RpcSetEnv( 'T1', 'D MG 01 ',,,'CTB') aAdd(aCab, {'DDATALANC' ,dDataBase ,NIL} ) aAdd(aCab, {'CLOTE' ,'333333' ,NIL} ) aAdd(aCab, {'CSUBLOTE' ,'001' ,NIL} ) aAdd(aCab, {'CPADRAO' ,'' ,NIL} ) aAdd(aCab, {'NTOTINF' ,0 ,NIL} ) aAdd(aCab, {'NTOTINFLOT' ,0 ,NIL} ) aAdd(aItens,{ {'CT2_FILIAL' ,xFilial('CT2'), NIL},; {'CT2_LINHA' , '001' , 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. MostraErro() Endif RestArea(aArea) Return |
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
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") 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#INCLUDE "PROTHEUS.CH" //------------------------------------------------------------------- /*/{Protheus.doc} MyCTBA102Inc Inclusão de Lançamento Automático CTBA102 @author Totvs @since 23/06/2022 @version 2.0 /*/ //------------------------------------------------------------------- User Function MyCTBA102Inc() Local aArea := GetArea() Local aCab := {} Local aItens := {} 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} ) Local nLinha := 2 Local nX := 0 Private lMsErroAuto := .F. Private lMsHelpAuto := .T. Private CTF_LOCK := 0 Private lSubLote := .T. RpcSetType(3) RpcSetEnv( 'T1', 'D MG 01 ',,,'CTB') aAdd(aCab, {'NTOTINFLOTDDATALANC' ,0dDataBase ,NIL} ) //lançamento 1 aAdd(aItensaCab, { {'CT2_FILIALCLOTE' ,'0101 333333' , NIL},; {'CT2_LINHA ) aAdd(aCab, {'CSUBLOTE' , '001' , NIL},; {'CT2_MOEDLC' ,'01' , NIL},; {'CT2_DC ) aAdd(aCab, {'CPADRAO' ,'3' , NIL},; {'CT2_DEBITO ) aAdd(aCab, {'NTOTINF' ,'101010100'0 , NIL},; {'CT2_CREDIT' ,'201010100' , NIL},; {'CT2_VALOR' , 3000 , NIL},; {'CT2_ORIGEM' ,'MSEXECAUT' , NIL},; {'CT2_HP' ,'' ) aAdd(aCab, {'NTOTINFLOT' ,0 ,NIL} ) For nX := 1 To nLinha aAdd(aItens, {; {'CT2_FILIAL' , xFilial('CT2') , NIL},; {'CT2_CONVER' ,'11' , NIL},; {'CT2_HISTLINHA' ,'MSEXECCT2' StrZero(nX, NIL} } ) //lançamento 2 aAdd(aItens, { {'CT2_FILIAL' ,'0101 '3) , NIL},; {'CT2_LINHAMOEDLC' , '002' , NIL},; {'CT2_MOEDLC' ,'01' , NIL},; {'CT2_DC' ,'3' , NIL},; {'CT2_DEBITO' ,'101010100' , NIL},; {'CT2_CREDIT' ,'201010100' , NIL},; {'CT2_VALOR' , 4000 , NIL},; {'CT2_ORIGEM' ,'MSEXECAUT' , NIL},; {'CT2_HP' ,'' , NIL},; {'CT2_CONVER' ,'11' , NIL},; {'CT2_HIST' ,'MSEXECCT2LINHA2' , NIL} }) //adicionar ao array aItens a quantidade necessária de lançamentos que deseja efetuar 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 /*/ //------------------------------------------------------------------- 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}}) MSExecAuto01' , 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' ,'MSEXECCT LANCAMENTO '+cValtoChar(nX) , NIL} }) Next nX MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 43) If If lMsErroAuto lMsErroAuto lMsErroAuto := .F. MsgAlert("ERRO Lançamento" , "Teste Carga CT2"MostraErro() ExitEndIf Endif RestArea(aArea) RESET ENVIRONMENT Return |
03. TABELAS UTILIZADAS
- CT2- Lançamentos Contábeis
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas