Perguntas mata261 via acd

Olá, bom dia!
Por gentileza, estamos desenvolvendo uma rotina de transferência no ACD e usando a rotina do Protheus mata261, porem ao executar ocorre a mensagem:
[ existem produtos controlados via ACD, utilize o coletor].
No TDS não encontrei nada que fale sobre alguma variável ou parâmetro que precise alterar.

Desde já muito obrigado.

Sim segue a chamada ocorre após finalizado o endereçamento do ponto de entrada:

Após chamar a execauto ocorre a mensagem e não executa a transferencia.


ACD060OK()


Local aEtiqueta
Local aSave
Local aTransf :={}
Local aNumSeqSD3 :={}
Local cArmOri2 := "03"
Local cDoc := GetSxeNum("SD3","D3_DOC")
Local cEndOri2 := "SG"
Local dValid
Local nI,nX
Local nPos := 0
Local aHiseti :={}
Local cArmDes :="SG"
Local cEndDes :="SG"

Local nQtd := aDist[1,3]/Len(aDist[1,5])

aHiseti := aDist[1][5]

aSave := VTSAVE()
VTClear()
VTMsg("Aguarde a transf Aramazem...") //'Aguarde...'
Begin Transaction
lMsErroAuto := .F.
lMsHelpAuto := .T.
aTransf :=Array(len(aDist)+1)
aTransf[1] := {"",dDataBase}

For nI := 1 to Len(aDist)
SB1->(DbSetOrder(1))
If !SB1->(dbSeek(xFilial("SB1")+aDist[nI,2]))
VTALERT("Produto"+aDist[nI,2]+R0053,"Aviso",.T.,NIL,3) //'Produto "'###'" nao localizado no cadastro de produtos.'
DisarmTransaction()
Break
EndIf
dValid := dDatabase+SB1->B1_PRVALID
If Rastro(aDist[nI,2])
SB8->(DbSetOrder(3))
// B8_FILIAL , B8_PRODUTO ,B8_LOCAL , B8_LOTECTL , B8_NUMLOTE , B8_DTVALID, R_E_C_N_O_, D_E_L_E_T_
SB8->(DbSeek(xFilial("SB8")+aDist[nI,2]+"03"+aDist[nI,6]+" "))
dValid := SB8->B8_DTVALID
EndIf
aTransf[nI+1]:= {{"D3_COD" , SB1->B1_COD ,NIL}}
aAdd(aTransf[nI+1],{"D3_DESCRI" , SB1->B1_DESC ,NIL})
aAdd(aTransf[nI+1],{"D3_UM" , SB1->B1_UM ,NIL})
aAdd(aTransf[nI+1],{"D3_LOCAL" , "03" ,NIL})
aAdd(aTransf[nI+1],{"D3_LOCALIZ" , "SG" ,NIL})
aAdd(aTransf[nI+1],{"D3_COD" , SB1->B1_COD ,NIL})
aAdd(aTransf[nI+1],{"D3_DESCRI" , SB1->B1_DESC ,NIL})
aAdd(aTransf[nI+1],{"D3_UM" , SB1->B1_UM ,NIL})
aAdd(aTransf[nI+1],{"D3_LOCAL" , "SG" ,NIL})
aAdd(aTransf[nI+1],{"D3_LOCALIZ" , "SG" ,NIL})
aAdd(aTransf[nI+1],{"D3_NUMSERI" , "" ,NIL})//numserie
aAdd(aTransf[nI+1],{"D3_LOTECTL" , aDist[nI,6] ,NIL})//lote
aAdd(aTransf[nI+1],{"D3_NUMLOTE" , "" ,NIL})//sublote
aAdd(aTransf[nI+1],{"D3_DTVALID" , dValid ,NIL})
aAdd(aTransf[nI+1],{"D3_POTENCI" , criavar("D3_POTENCI") ,NIL})
aAdd(aTransf[nI+1],{"D3_QUANT" , nQtd ,NIL})
aAdd(aTransf[nI+1],{"D3_QTSEGUM" , criavar("D3_QTSEGUM") ,NIL})
aAdd(aTransf[nI+1],{"D3_ESTORNO" , criavar("D3_ESTORNO") ,NIL})
aAdd(aTransf[nI+1],{"D3_NUMSEQ" , criavar("D3_NUMSEQ") ,NIL})
aAdd(aTransf[nI+1],{"D3_LOTECTL" , aDist[nI,6] ,NIL})
aAdd(aTransf[nI+1],{"D3_DTVALID" , dValid ,NIL})

If ! UsaCB0("01")
CBLog("02",{SB1->B1_COD ,aDist[nI,2] ,aDist[nI,6] , ,"03" ,"SG" ,"SG" ,"SG"})
// CBG_CODPRO" ,"CBG_QTDE" ,"CBG_LOTE" ,"CBG_SLOTE" ,"CBG_ARM" ,"CBG_END" ,"CBG_ARMDES","CBG_ENDDES","CBG_CODETI","CBG_OBS"}}
EndIf
Next
MSExecAuto({|x| MATA261(x)},aTransf)

If lMsErroAuto
VTALERT("Falha na gravacao da transferencia","Erro",.T.,4000,3) //"Falha na gravacao da transferencia"###"ERRO"
DisarmTransaction()
Break
EndIf


End Transaction