Perguntas Exclusão Pedidos Vendas Automáticos

Roda o execuato mata410 com a opção 5

//MONTA O CABECALHO DO PEDIDO PARA ALTERACAO

Begin Transaction

aCabec := {}
aItens := {}

aAdd(aCabec, { "C5_FILIAL" , xFilial("SC5") , Nil } )
aAdd(aCabec, { "C5_NUM" , SC5->C5_NUM , Nil } )
aAdd(aCabec, { "C5_TIPO" , "N" , Nil } )
aAdd(aCabec, { "C5_CLIENTE" , SC5->C5_CLIENTE , Nil } )
aAdd(aCabec, { "C5_LOJACLI" , SC5->C5_LOJACLI , Nil } )
aAdd(aCabec, { "C5_TRANSP" , SC5->C5_TRANSP , Nil } )
aAdd(aCabec, { "C5_TIPOCLI" , SC5->C5_TIPOCLI , Nil } )
aAdd(aCabec, { "C5_CONDPAG" , SC5->C5_CONDPAG , Nil } )
aAdd(aCabec, { "C5_TABELA" , SC5->C5_TABELA , Nil } )
aAdd(aCabec, { "C5_VEND1" , SC5->C5_VEND1 , Nil } )
aAdd(aCabec, { "C5_COMIS1" , SC5->C5_COMIS1 , Nil } )
aAdd(aCabec, { "C5_EMISSAO" , dDataBase , Nil } )
aAdd(aCabec, { "C5_MOEDA" , 1 , Nil } )
aAdd(aCabec, { "C5_TIPLIB" , "2" , Nil } )
aAdd(aCabec, { "C5_TXMOEDA" , 1 , Nil } )
aAdd(aCabec, { "C5_TPCARGA" , "2" , Nil } )
aAdd(aCabec, { "C5_GERAWMS" , "1" , Nil } )
aAdd(aCabec, { "C5_TPFRETE" , "F" , Nil } )
aAdd(aCabec, { "C5_TIPREC" , SC5->C5_TIPREC , Nil } )
aAdd(aCabec, { "C5_PVSALES" , SC5->C5_PVSALES , Nil } )
aAdd(aCabec, { "C5_PVSITE" , SC5->C5_PVSITE , Nil } )
aAdd(aCabec, { "C5_HORENT" , SC5->C5_HORENT , Nil } )
aAdd(aCabec, { "C5_IDEND" , SC5->C5_IDEND , Nil } )
aAdd(aCabec, { "C5_MENPAD" , SC5->C5_MENPAD , Nil } )
aAdd(aCabec, { "C5_MENNOTA" , SC5->C5_MENNOTA , Nil } )
aAdd(aCabec, { "C5_REDESP" , SC5->C5_REDESP , Nil } )
aAdd(aCabec, { "C5_TPFRETE" , SC5->C5_TPFRETE , Nil } )
aAdd(aCabec, { "C5_NATUREZ" , SC5->C5_NATUREZ , Nil } )

For nI := 1 To Len(aItSC6)
SC6->(dbSetOrder(1), dbSeek(xFilial("SC6")+SC5->C5_NUM+aItSC6[nI][1]))
SC9->(dbSetOrder(1), dbSeek(xFilial("SC9")+SC5->C5_NUM+aItSC6[nI][1]))

cDeleta := 'N'
If Empty(aItSC6[nI,3]) // Vazio Permanece no Pedido
nQuant := SC6->C6_QTDVEN
ElseIf !Empty(aItSC6[nI,3]) .And. aItSC6[nI,3]<SC6->C6_QTDVEN // Não Vazio Porem Menor que a Quantidade Original Altera
nQuant := SC6->C6_QTDVEN - aItSC6[nI,3]
ElseIf !Empty(aItSC6[nI,3]) .And. aItSC6[nI,3] = SC6->C6_QTDVEN // Nao Vazio mas Igual a Quantidade Original Deleta
nQuant := SC6->C6_QTDVEN
cDeleta := 'S'
Endif

//ESTORNA OS ITENS

aLinha := {}
aadd(aLinha,{"LINPOS","C6_ITEM" ,SC9->C9_ITEM})
aadd(aLinha,{"AUTDELETA" ,cDeleta,Nil})
aadd(aLinha,{"C6_PRODUTO" ,SC9->C9_PRODUTO ,Nil})
aadd(aLinha,{"C6_DESCRI" ,SC6->C6_DESCRI ,Nil})
aadd(aLinha,{"C6_UM" ,SC6->C6_UM ,NIL})
aadd(aLinha,{"C6_QTDVEN" ,nQuant ,Nil})
aadd(aLinha,{"C6_PRCVEN" ,SC6->C6_PRCVEN ,Nil})
aadd(aLinha,{"C6_VALOR" ,Round(nQuant * SC6->C6_PRCVEN,2) ,Nil})
aadd(aLinha,{"C6_QTDLIB" ,nQuant ,Nil})
aadd(aLinha,{"C6_TES" ,SC6->C6_TES ,Nil})
aadd(aLinha,{"C6_LOCAL" ,SC6->C6_LOCAL ,NIL})
aadd(aLinha,{"C6_PEDCLI" ,SC6->C6_PEDCLI ,NIL})
aadd(aLinha,{"C6_PRUNIT" ,SC6->C6_PRUNIT ,Nil})
aadd(aLinha,{"C6_COMIS1" ,SC6->C6_COMIS1 ,NIL})

aadd(aItens,aLinha)
Next

// Inicia Estorno

lMsErroAuto := .F.
MSExecAuto({|x,y,z|Mata410(x,y,z)},aCabec,aItens,4)

If lMsErroAuto
MsgInfo("Problema na Manutenção do Pedido Original para a Geração do Parcial ! ")
DisarmTransaction()
MostraErro()
Return .f.
EndIf