Perguntas Função remover reserva

Cara vc pode usar o execauto com a opção de alteração Mata410 ai ele elimina a SC9 e exclui as reservas.

_aCabPed := {}
_aItemsPed := {}

aAdd( _aCabPed,{"C5_NUM" ,QRY_ELIM->C5_NUM ,Nil} )
aAdd( _aCabPed,{"C5_TIPO" ,QRY_ELIM->C5_TIPO ,Nil} )
aAdd( _aCabPed,{"C5_CLIENTE",QRY_ELIM->C5_CLIENTE ,Nil} )
aAdd( _aCabPed,{"C5_LOJACLI",QRY_ELIM->C5_LOJACLI ,Nil} )
aAdd( _aCabPed,{"C5_LOJAENT",QRY_ELIM->C5_LOJAENT ,Nil} )
aAdd( _aCabPed,{"C5_CONDPAG",QRY_ELIM->C5_CONDPAG ,Nil} )

_aLinPed := {}

aAdd( _aLinPed,{"LINPOS" ,"C6_ITEM",QRY_ELIM->C6_ITEM})
aAdd( _aLinPed,{"AUTDELETA" ,"N" ,Nil})
aAdd( _aLinPed,{"C6_PRODUTO",QRY_ELIM->C6_PRODUTO ,Nil})
aAdd( _aLinPed,{"C6_QTDVEN" ,QRY_ELIM->C6_QTDVEN ,Nil})
aAdd( _aLinPed,{"C6_PRCVEN" ,QRY_ELIM->C6_PRCVEN ,Nil})
aAdd( _aLinPed,{"C6_PRUNIT" ,QRY_ELIM->C6_PRUNIT ,Nil})
aAdd( _aLinPed,{"C6_VALOR" ,QRY_ELIM->C6_VALOR ,Nil})
aAdd( _aLinPed,{"C6_TES" ,QRY_ELIM->C6_TES ,Nil})

aAdd( _aItemsPed,_aLinPed )

lMSErroAuto:= .F.

If !_lJob

LjMsgRun( "Aguarde, Estornando Liberacoes de Pedido de Venda/Item: " + Alltrim( QRY_ELIM->( C5_NUM+C6_ITEM ) + " - Cliente: "+ QRY_ELIM->( C5_CLIENTE+C5_LOJACLI ) ),,{|| MsExecAuto({|x,y,z|MATA410(x,y,z)},_aCabPed,_aItemsPed,4) } )

Else

Conout("Estornando Liberacoes de Pedido de Venda/Item: " + Alltrim( QRY_ELIM->( C5_NUM+C6_ITEM ) + " - Cliente: "+ QRY_ELIM->( C5_CLIENTE+C5_LOJACLI ) ) )
MsExecAuto({|x,y,z|MATA410(x,y,z)},_aCabPed,_aItemsPed,4)

EndIf

If lMSErroAuto