Perguntas bloqueio automatico de lotes vencido

tdn.totvs.com/pages/releaseview.action;j...23F47?pageId=6087462


User Function RMATA275()
Local aVetor := {}
lMsErroAuto := .F.
RpcSetEnv( "99","01",,,,,,,,,)//--- Exemplo: Bloqueio --- //
aVetor := {;
{"DD_DOC" ,"1 " ,NIL},;
{"DD_PRODUTO" ,"LOTE ",NIL},;
{"DD_LOCAL" ,"01",NIL},;
{"DD_LOTECTL" ,"A " ,NIL},;
{"DD_QUANT",10 ,NIL},;
{"DD_MOTIVO","VV",NIL}}

MSExecAuto({|x, y| mata275(x, y)},aVetor, 3)

//--- Exemplo: Liberação --- //

aVetor := {;
{"DD_DOC","1 " ,NIL}}

MSExecAuto({|x, y| mata275(x, y)},aVetor, 4)

If lMsErroAuto
Mostraerro()
else
Alert("Ok")
Endif
Return