× Linguagem de Programação ADVPL

Perguntas MSExecAuto CTBA102

Mais
10 anos 2 semanas atrás #22240 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)

Por favor Acessar ou Registrar para participar da conversa.

Mais
8 anos 8 meses atrás #28908 por RCESAR
Respondido por RCESAR no tópico MSExecAuto CTBA102
Bom dia, estou com o mesmo problema, como você resolveu?

Por favor Acessar ou Registrar para participar da conversa.

Mais
7 anos 5 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.

Mais
4 anos 10 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;

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.118 segundos
Joomla templates by a4joomla