Perguntas Geração de Fatura

Bom dia Senhores!

Estou com um problema na geração de fatura.. é a primeira vez que utilizo essa rotina automatica, FINA290.



Está acusando um erro assim que chamo a função.. acredito que seja algo simples.. poderiam me dar uma força ?

Obrigado, segue o fonte

Static Function zGrFtFr(aTits, oTits, oDlg, oOk, oNo, cSetor, dInicial, dFinal, cFIltro)


Local aFatPag := {}
Local aPrei := {}
Local aTitss := {}
Local nOpc := 3
Local cNatureza := ""


Private lMsErroAuto := .F.



For i:=1 to Len(aTits)
IF aTits[i, 1] == .T.

cQryi := "SELECT ZZU.ZZU_TIPO AS TIPO, ZZU.ZZU_DOC AS DOC, ZZU.ZZU_SERIE AS SERIE, ZZU.ZZU_DATA AS DDATA, "
cQryi += "ZZU.ZZU_FORNEC AS FORNEC, ZZU.ZZU_LOJA AS LOJA, A2.A2_EST AS EST, ZZU.ZZU_CHAVE AS CHAVE, ZZU.ZZU_FILIAL AS FILIAL, ZZU.ZZU_VALOR AS VALOR, Z5.Z5_CODFEC AS FECHAMENTO"
cQryi += "FROM SZ5010 Z5 "
cQryi += "LEFT JOIN DAK010 DAK ON DAK.DAK_COD = Z5.Z5_CARGA AND DAK.D_E_L_E_T_ <> '*' "
cQryi += "LEFT JOIN SA2010 A2 ON A2.A2_TRANSP = DAK.DAK_ZZTRAN AND A2.D_E_L_E_T_ <> '*' "
cQryi += "INNER JOIN ZZU010 ZZU ON Z5.Z5_CHAVCTE = ZZU.ZZU_CHAVE AND ZZU.D_E_L_E_T_ <> '*' "
cQryi += "WHERE Z5.Z5_CODFEC = '"+aTits[i, 4]+"' AND Z5.Z5_DTFECH = '"+DTOS(aTits[i, 6])+"' AND Z5.D_E_L_E_T_ <> '*' "

cQryi := ChangeQuery(cQryi)
TcQuery cQryi New Alias "QRYI"

TcSetField("QRYI", "DDATA" ,"D",08,0)

DbSelectArea("QRYI")
Count to nTot
QRYI->(DbGoTop())

aAdd(aPrei, {QRYI->TIPO, 'N', QRYI->DOC, QRYI->SERIE , QRYI->DDATA, QRYI->FORNEC, QRYI->LOJA, QRYI->EST, QRYI->CHAVE, QRYI->VALOR, QRYI->FILIAL, QRYI->FECHAMENTO } )
// 1 2 3 4 5 6 7 8 9 10 11 12 13


EndIf
Next i



DO CASE

CASE SF1->F1_FILIAL == '02'

cNatureza := "0304020004"

CASE SF1->F1_FILIAL = '07'

cNatureza := "0304010004"

ENDCASE


Do While QRYI->(!Eof())
Aadd(aTitss, {"1" ,QRYI->DOC , , QRYI->TIPO , .F. } )
QRYI->(dbSkip())
EndDo


Aadd(aFatPag, "FAT") //-- Prefixo 1
Aadd(aFatPag, "FT") //-- Tipo 2
Aadd(aFatPag, "999998") //-- Numero da Fatura (se o numero estiver em branco obtem pelo FINA290) 3
Aadd(aFatPag, cNatureza) //-- Natureza 4
Aadd(aFatPag, CToD("01/04/14")) //-- Data de 5
Aadd(aFatPag, CToD("25/04/14")) //-- Data Ate 6
Aadd(aFatPag, aPrei[1,6]) //-- Fornecedor 7
Aadd(aFatPag, aPrei[1,7]) //-- Loja 8
Aadd(aFatPag, "") //-- Fornecedor para geracao 9
Aadd(aFatPag, "") //-- Loja do fornecedor para geracao 10
Aadd(aFatPag, "A01") //-- Condicao de pagto 11
Aadd(aFatPag, 1) //-- Moeda 12
Aadd(aFatPag, aTitss)
Aadd(aFatPag, 0) //-- Valor de decrescimo 14
Aadd(aFatPag, 0) //-- Valor de acrescimo 15

QRYI->(DbCloseArea())

ConOut("Inicio Fatura Frete: " + Time())

lMsErroAuto := .F.

MsExecAuto( { |x,y| FINA290(x,y)},3,aFatPag,)

IF lMsErroAuto

MostraErro()

EndIF

ConOut("Fim: " + Time())

Return

Angelo

Bom dia,

Você envio o fonte porem qual o erro que ocorre a chamar a função?

Se puder passar fica melhor.

Abrs

Claro Mestre, perdão esqueci do principal hehe

Muito obrigado pela ajuda !!

Agora sim.

So mais uma pergunta qual release esta utilizando?

Já esta na 11.8?

Eduardo, estou sim.. com a nova build, será que é isso ? Mudou alguma coisa ?

Você chegou a aplicar os compatibilizador?

Caso não tenta aplicar, pois o meu também esta e não estou tendo este problema.