Versão atual:

Execauto ATFA012

Qual a principal causa do erro de variável não ser um Array?

Chamada: MSExecAuto({|x,y,z| Atfa012(x,y,z)},aCab,aItens,3,aParam)

ERROR: variable is not array - Type [C] AF012AUTROT - ATFA012.PRW(11965) - Params: @XCAB:,@XITENS:,NOPCAUTO:3,@APARAM:,APADPCO:,ARATEIO:,ARECBAIXA:,@ACTB: ) ATFA012 - ATFA012.PRW(135) - Params: @XCAB:,@XITENS:,NOPCAUTO:3,APARAM:,ACTB: ) {|X,Y,Z| ATFA012(X,Y,Z)} - GRAP025.TLPP(189) - Params: @X:,@Y:,Z:3 ) MSEXECAUTO - MATXFUNB.PRX(3136) - Params: BROTINA:{|X,Y,Z| ATFA012(X,Y,Z)},@UPAR1:,@UPAR2:,UPAR3:3,@UPAR4:,UPAR5:NIL,UPAR6:NIL,UPAR7:NIL,UPAR8:NIL,UPAR9:NIL,UPAR10:NIL,UPAR11:NIL,UPAR12:NIL,UPAR13:NIL,UPAR14:NIL,UPAR15:NIL ) U_GRAP025B_SCHEDULEATIVO - GRAP025.TLPP(189) U_CHAMSCHEDDDD - GRAP025.TLPP(78)

Adicionando mais informações:

Esses são os arrays que tenho passado, o array aParam apenas criei ele sendo um array vazio.

aCab := {}

AAdd(aCab,{"N1_CBASE" , cBase ,NIL})

AAdd(aCab,{"N1_ITEM" , "0001" ,NIL})

AAdd(aCab,{"N1_AQUISIC" , (cAliasPRENFE)->F1_DTDIGIT ,NIL})

AAdd(aCab,{"N1_DESCRIC" , cDescriAtivo ,NIL})

AAdd(aCab,{"N1_QUANTD" , 1 ,NIL})

// AAdd(aCab,{"N1_CHAPA" , cChapa ,NIL})

// AAdd(aCab,{"N1_PATRIM" , cPatrim ,NIL})

AAdd(aCab,{"N1_GRUPO" , SNG->NG_GRUPO ,NIL})

aItens := {}

AAdd(aItens,{"N3_CBASE" , cBase ,NIL})

AAdd(aItens,{"N3_ITEM" , "0001" ,NIL})

AAdd(aItens,{"N3_TIPO" , "01" ,NIL})

AAdd(aItens,{"N3_BAIXA" , "0" ,NIL})

AAdd(aItens,{"N3_HISTOR" , cDescriAtivo ,NIL})

AAdd(aItens,{"N3_CCONTAB" , SNG->NG_CCONTAB ,NIL})

AAdd(aItens,{"N3_CUSTBEM" , (cAliasPRENFE) ->D1_CC ,NIL})

AAdd(aItens,{"N3_CCDEPR" , SNG->NG_CCDEPR ,NIL})

AAdd(aItens,{"N3_CDEPREC" , SNG->NG_CDEPREC ,NIL})

AAdd(aItens,{"N3_CLVLCON" , (cAliasPRENFE) ->D1_CLVL ,NIL})

// AAdd(aItens,{"N3_CDESP" , cContab ,NIL})

// AAdd(aItens,{"N3_CCORREC" , cContab ,NIL})

AAdd(aItens,{"N3_CCUSTO" , (cAliasPRENFE) ->D1_CC ,NIL})

AAdd(aItens,{"N3_DINDEPR" , (cAliasPRENFE) ->CTH_XDEPRE ,NIL})

AAdd(aItens,{"N3_VORIG1" , (cAliasPRENFE) ->D1_TOTAL ,NIL})

AAdd(aItens,{"N3_TXDEPR1" , SNG->NG_TXDEPR1 ,NIL})

// AAdd(aItens,{"N3_VORIG2" , nValor ,NIL})

// AAdd(aItens,{"N3_TXDEPR2" , nTaxa ,NIL})

// AAdd(aItens,{"N3_VORIG3" , nValor ,NIL})

// AAdd(aItens,{"N3_TXDEPR3" , nTaxa ,NIL})

// AAdd(aItens,{"N3_VORIG4" , nValor ,NIL})

// AAdd(aItens,{"N3_TXDEPR4" , nTaxa ,NIL})

// AAdd(aItens,{"N3_VORIG5" , nValor ,NIL})

Versões (3):

Ver a versão formatada

Execauto ATFA012

Comentário

new question