×
Linguagem de Programação ADVPL
Perguntas MSExecAuto CTBA102
- jefersontav
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 20
- Obrigados Recebidos: 0
10 anos 6 meses atrás #22240
por jefersontav
MSExecAuto CTBA102 foi criado por jefersontav
Pessoal, boa noite,
Estou tento um problema que já não sei mais onde procurar.
tenho o programa para a importação de lançamentos na ct2.
tenho no mesmo banco varias empresas e varias filiais.
Na empresa 01 filial 02 o programa importa corretamente, entretanto na empresa 60 filial 02 não importa, da erro:
Tabela CT2 16/04/2014 18:21:05
Erro no Item 2
Filial - CT2_FILIAL := 02
Numero Lote - CT2_LOTE := 000002
Sub Lote - CT2_SBLOTE := 001
Numero Doc - CT2_DOC := 100001
Data Lcto - CT2_DATA := 31/01/2014
Numero Linha - CT2_LINHA := 001
Moeda Lancto - CT2_MOEDLC := 01
Tipo Lcto - CT2_DC := 3
Cta Debito - CT2_DEBITO := 3201010008
Cta Credito - CT2_CREDIT := 2103030001
Valor - CT2_VALOR := 200
Hist Lanc - CT2_HIST := PROVISAO FERIAS MARCELO FORMOSINHO GUIM
Item Conta D - CT2_ITEMD := 303003
Empresa Orig - CT2_EMPORI := 60
Filial Orig - CT2_FILORI := 02
Tipo do Sld - CT2_TPSALD := 1
C Custo Deb - CT2_CCD := 307
Cod Cl Val C - CT2_CLVLCR := 101001
Aglutinado - CT2_AGLUT := 2
Erro --> Inconsistencia na Linha de Itens
segue abaixo parte do programa, se alguem puder me ajudar, muito obrigado
While !FT_FEOF()
aItens := {}
aCab := {}
cBuffer := FT_FREADLN()
nTam := Len( cBuffer )
aCab := { {'DDATALANC' ,CTOD(dDtLan) ,NIL},;
{'CLOTE' ,SubStr(cBuffer,13,6),NIL},;
{'CSUBLOTE' ,SubStr(cBuffer,19,3),NIL},;
{'CPADRAO' ,'' ,NIL},;
{'NTOTINF' ,0 ,NIL},;
{'NTOTINFLOT',0 ,NIL} }
Aadd (aItens, {{'CT2_FILIAL','02',NIL},;
{'CT2_LOTE',SubStr(cBuffer,13,6),NIL},;
{'CT2_SBLOTE',SubStr(cBuffer,19,3),NIL},;
{'CT2_DOC',SubStr(cBuffer,22,6),NIL},;
{'CT2_DATA',CTOD(dDtLan),NIL},;
{'CT2_LINHA',SubStr(cBuffer,28,3),NIL},;
{'CT2_MOEDLC',SubStr(cBuffer,31,2),NIL},;
{'CT2_DC',SubStr(cBuffer,33,1),NIL},;
{'CT2_DEBITO',SubStr(cBuffer,34,10),NIL},;
{'CT2_CREDIT',SubStr(cBuffer,44,10),NIL},;
{'CT2_VALOR',val(SubStr(cBuffer,54,9)),NIL},;
{'CT2_HIST',SubStr(cBuffer,63,40),NIL},;
{'CT2_ITEMD',SubStr(cBuffer,103,9),NIL},;
{'CT2_EMPORI',SubStr(cBuffer,112,2),NIL},;
{'CT2_FILORI',SubStr(cBuffer,114,2),NIL},;
{'CT2_TPSALD',SubStr(cBuffer,116,1),NIL},;
{'CT2_CCD','307',NIL},;
{'CT2_CLVLCR','101001',NIL},;
{'CT2_AGLUT',SubStr(cBuffer,117,2),NIL}})
MSExecAuto( {|X,Y,Z| CTBA102(X,Y,Z)} ,aCab ,aItens, 3)
Estou tento um problema que já não sei mais onde procurar.
tenho o programa para a importação de lançamentos na ct2.
tenho no mesmo banco varias empresas e varias filiais.
Na empresa 01 filial 02 o programa importa corretamente, entretanto na empresa 60 filial 02 não importa, da erro:
Tabela CT2 16/04/2014 18:21:05
Erro no Item 2
Filial - CT2_FILIAL := 02
Numero Lote - CT2_LOTE := 000002
Sub Lote - CT2_SBLOTE := 001
Numero Doc - CT2_DOC := 100001
Data Lcto - CT2_DATA := 31/01/2014
Numero Linha - CT2_LINHA := 001
Moeda Lancto - CT2_MOEDLC := 01
Tipo Lcto - CT2_DC := 3
Cta Debito - CT2_DEBITO := 3201010008
Cta Credito - CT2_CREDIT := 2103030001
Valor - CT2_VALOR := 200
Hist Lanc - CT2_HIST := PROVISAO FERIAS MARCELO FORMOSINHO GUIM
Item Conta D - CT2_ITEMD := 303003
Empresa Orig - CT2_EMPORI := 60
Filial Orig - CT2_FILORI := 02
Tipo do Sld - CT2_TPSALD := 1
C Custo Deb - CT2_CCD := 307
Cod Cl Val C - CT2_CLVLCR := 101001
Aglutinado - CT2_AGLUT := 2
Erro --> Inconsistencia na Linha de Itens
segue abaixo parte do programa, se alguem puder me ajudar, muito obrigado
While !FT_FEOF()
aItens := {}
aCab := {}
cBuffer := FT_FREADLN()
nTam := Len( cBuffer )
aCab := { {'DDATALANC' ,CTOD(dDtLan) ,NIL},;
{'CLOTE' ,SubStr(cBuffer,13,6),NIL},;
{'CSUBLOTE' ,SubStr(cBuffer,19,3),NIL},;
{'CPADRAO' ,'' ,NIL},;
{'NTOTINF' ,0 ,NIL},;
{'NTOTINFLOT',0 ,NIL} }
Aadd (aItens, {{'CT2_FILIAL','02',NIL},;
{'CT2_LOTE',SubStr(cBuffer,13,6),NIL},;
{'CT2_SBLOTE',SubStr(cBuffer,19,3),NIL},;
{'CT2_DOC',SubStr(cBuffer,22,6),NIL},;
{'CT2_DATA',CTOD(dDtLan),NIL},;
{'CT2_LINHA',SubStr(cBuffer,28,3),NIL},;
{'CT2_MOEDLC',SubStr(cBuffer,31,2),NIL},;
{'CT2_DC',SubStr(cBuffer,33,1),NIL},;
{'CT2_DEBITO',SubStr(cBuffer,34,10),NIL},;
{'CT2_CREDIT',SubStr(cBuffer,44,10),NIL},;
{'CT2_VALOR',val(SubStr(cBuffer,54,9)),NIL},;
{'CT2_HIST',SubStr(cBuffer,63,40),NIL},;
{'CT2_ITEMD',SubStr(cBuffer,103,9),NIL},;
{'CT2_EMPORI',SubStr(cBuffer,112,2),NIL},;
{'CT2_FILORI',SubStr(cBuffer,114,2),NIL},;
{'CT2_TPSALD',SubStr(cBuffer,116,1),NIL},;
{'CT2_CCD','307',NIL},;
{'CT2_CLVLCR','101001',NIL},;
{'CT2_AGLUT',SubStr(cBuffer,117,2),NIL}})
MSExecAuto( {|X,Y,Z| CTBA102(X,Y,Z)} ,aCab ,aItens, 3)
Por favor Acessar ou Registrar para participar da conversa.
- RCESAR
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 31
- Obrigados Recebidos: 0
- fabio.antunes_t.i
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 3
- Obrigados Recebidos: 0
7 anos 11 meses atrás #31357
por fabio.antunes_t.i
Respondido por fabio.antunes_t.i no tópico MSExecAuto CTBA102
Olá Jeferson, conseguiu resolveu esse problema?
Por favor Acessar ou Registrar para participar da conversa.
- gmanzalifernandes
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
5 anos 4 meses atrás #32731
por gmanzalifernandes
Respondido por gmanzalifernandes no tópico MSExecAuto CTBA102
Bom dia.
Alguém conseguiu solucionar, estou com o mesmo problema aqui!
Att;
Alguém conseguiu solucionar, estou com o mesmo problema aqui!
Att;
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.198 segundos