Perguntas Ponto de Entrada MTA650AC

Cara vc tentou este ultimo recurso ?

Me manda o seu ponto de entrada o fonte, compacta e anexa aqui.

Altera o Return para :

aComplCols := {{},}
Return aComplCols

Tenta assim: (COPIA E COLA NO FONTE DO JEITO QUE ESTA AQUI OK)

#DEFINE USADO CHR(0)+CHR(0)+CHR(1)

#INCLUDE "PROTHEUS.CH"

USER FUNCTION MTA650AC()
Local aComplCols := {{},}
Local xHeader := aClone(aHeader)

aTam:=TamSX3("B1_DESC") //14

aHeader[2,1] := 'Descricao'
aHeader[2,2] := 'B1_DESC'
aHeader[2,3] := PesqPict("SB1","B1_DESC" ,atam[1])
aHeader[2,4] := aTam[1]
aHeader[2,5] := aTam[2]
aHeader[2,7] := USADO
aHeader[2,8] := "C"
aHeader[2,9] := "SB1"

aTam:=TamSX3("D4_QUANT")//2

aHeader[14,1] := 'Quantidade Empenho'
aHeader[14,2] := 'D4_QUANT'
aHeader[14,3] := PesqPict("SD4","D4_QUANT",atam[1])
aHeader[14,4] := aTam[1]
aHeader[14,5] := aTam[2]
aHeader[14,6] := "A650ConvUM(2) .And. M->D4_QUANT # 0"
aHeader[14,7] := USADO
aHeader[14,8] := "N"
aHeader[14,9] := "SD4"


Return aComplCols