Estou desenvolvendo uma rotina a qual realizara a inclusão de uma op de produto via MsExecAuto.
Fiz uma função basica com dados mockados para testar a execauto, porem ao executar a rotina a mesma para na execução e retorna o erro:
ERROR: invalid macro source (SSYacc0105e: Error token failed, no valid token):(M-> )
ENCHAUTO - MSAUTOPR.PRW(341) - Params: CALIAS:SC2,@AFIELD:,UTUDOOK:{|| OBRIGATORIO(AGETS,ATELA) .AND. EVAL(BOK) .AND. EVAL(BOK2,NOPC)},NOPC:3,@ACPOS: )
AXINCLUI - MATXATU.PRX(676) - Params: CALIAS:SC2,NREG:4,NOPC:3,AACHO:NIL,CFUNC:NIL,@ACPOS:,CTUDOOK:A650TudoOK(),LF3:.F.,CTRANSACT:A650AtuInc(),@ABUTTONS:,@APARAM:,@AAUTO:,LVIRTUAL:.F.,LMAXIMIZED:NIL,CTELA:NIL,LPANELFIN:.F.,OFATHER:NIL,ADIM:NIL,UAREA:NIL,LFLAT:.F.,LSUBST:.F. )
A650INCLUI - MATA650.PRX(954) - Params: CALIAS:SC2,NREG:4,NOPCX:3,ACPO:NIL,AX:.F.,CCPOPROJ:NIL,CTPOP:NIL )
MBROWSEAUTO - MSAUTOPR.PRW(86) - Params: NOPCAUTO:3,@AAUTO:,CALIAS:SC2,LSEEK:.F.,LPOS:.F. )
MATA650 - MATA650.PRX(273) - Params: @AROTAUTO:,NOPCAUTO:3,LGERAINTER:.T. )
{|X,Y| MATA650(X,Y)} - CADOP.PRW(23) - Params: @X:,Y:3 )
MSEXECAUTO - MATXFUNB.PRX(3148) - Params: BROTINA:{|X,Y| MATA650(X,Y)},@UPAR1:,UPAR2:3,UPAR3:NIL,UPAR4:NIL,UPAR5:NIL,UPAR6:NIL,UPAR7:NIL,UPAR8:NIL,UPAR9:NIL,UPAR10:NIL,UPAR11:NIL,UPAR12:NIL,UPAR13:NIL,UPAR14:NIL,UPAR15:NIL )
Verifiquei se estava preenchendo todos os campos obrigatórios da rotina para inclusão de uma ordem de produção e todos os campos estão sendo preenchidos corretamente.
Segue a parte do codigo que chama o exec auto:
local aQuerySC2 := {}
private lMsErroAuto := .F.
aAdd(aQuerySC2, {"C2_FILIAL", xFilial("SC2"), NIL})
aAdd(aQuerySC2, {"C2_ITEM", "01", NIL})
aAdd(aQuerySC2, {"C2_SEQUEN", "001", NIL})
aAdd(aQuerySC2, {"C2_DATAPRI", Date(), NIL})
aAdd(aQuerySC2, {"C2_DATAPRF", Date(), NIL})
aAdd(aQuerySC2, {"C2_PRODUTO", "CT1FHMACN3N", NIL})
aAdd(aQuerySC2, {"C2_QUANT", 1, NIL})
aAdd(aQuerySC2, {"C2_LOCAL", "39", NIL})
aAdd(aQuerySC2, {"C2_TPOP", "F", NIL})
aAdd(aQuerySC2, {"C2_TPPR", "I", NIL})
msExecAuto({|x,Y| MATA650(x,Y)}, aQuerySC2, 3)
If !lMsErroAuto
ConOut("Ordem de producao "+jOp['C2_PRODUTO']+" cadastrada com sucesso!")
Else
ConOut("Erro ao cadastrar ordem de producao "+jOp['C2_PRODUTO'])
MostraErro()
endif