Perguntas ExecAuto

aCabPV:={ {"C5_FILIAL" ,XFILIAL("SC5") ,Nil},;
{"C5_TIPO" ,"N" ,Nil},; // Tipo de pedido
{"C5_CLIENTE",SA1->A1_COD ,Nil},; // Codigo do cliente
{"C5_LOJACLI",SA1->A1_LOJA ,Nil},; // Loja do cliente
{"C5_EMISSAO",dDatabase ,Nil},; // 'Data de emissao
{"C5_CONDPAG","001" ,Nil},; // Codigo da condicao de pagamanto*
{"C5_DESC1" ,0 ,Nil},; // Percentual de Desconto
{"C5_TIPLIB" ,"1" ,Nil},; // Tipo de Liberacao
{"C5_PBRUTO" ,0 ,Nil},; // Tipo de Liberacao
{"C5_PESOL" ,0 ,Nil},; // Tipo de Liberacao
{"C5_MENNOTA" ,"Nota Fiscal de Devolucao Ref Sua NF: " + cDoc + '/' + cSer + ' de ' + DtoC(dEmi),Nil},; // Tipo de Liberacao + ' OV:' + cOV
{"C5_MENPAD" ,"010",Nil},; // Tipo de Liberacao
{"C5_LIBEROK","S" ,Nil}}//,;

aItemPV := {}

For nItem := 1 To Len(PedItens)

cIdentB6 := Posicione("SD1",1,xFilial("SD1")+SF1->F1_DOC+SF1->F1_SERIE+SF1->F1_FORNECE+SF1->F1_LOJA+PadR(PedItens[nItem,1],15)+StrZero(nItem,4),"D1_IDENTB6")

// {"C6_NUM" ,cNumPed ,Nil},;
AAdd(aItemPV,{ {"C6_FILIAL" ,XFILIAL("SC6") ,Nil},;
{"C6_ITEM" ,StrZero(nItem,2) ,Nil},; // Numero do Item no Pedido
{"C6_PRODUTO",PedItens[nItem,1] ,Nil},; // Codigo do Produto
{"C6_DESCRI" ,PedItens[nItem,2] ,Nil},; // Codigo do Produto
{"C6_QTDVEN" ,PedItens[nItem,4] ,Nil},; // Quantidade Vendida
{"C6_PRUNIT" ,PedItens[nItem,6] ,NIL},; // PRECO DE LISTA
{"C6_PRCVEN" ,PedItens[nItem,6] ,Nil},; // Preco Unitario Liquido
{"C6_VALOR" ,Round(PedItens[nItem,4]*PedItens[nItem,6],2) ,Nil},; // Valor Total do Item
{"C6_ENTREG" ,dDataBase ,Nil},; // Data da Entrega
{"C6_TES" ,PedItens[nItem,10] ,Nil},; // Tipo de Entrada/Saida do Item
{"C6_IDENTB6" ,cIdentB6 ,Nil},; // Percentual de Desconto
{"C6_NFORI" ,cDoc ,Nil},; // Percentual de Desconto
{"C6_SERIORI",cSer ,Nil},; // Comissao Vendedor
{"C6_ITEMORI",StrZero(nItem,4),Nil}}) // Quantidade Liberada

Next


MSExecAuto({|x,y| Mata410(x,y)},aCabPv,aItemPV,3)

IF lMSErroAuto
MostraErro() // VI
cNota += ' Erro Pedido ' + cDoc + ' - ' + Chr(13)+Chr(10)
// RollBackSX8()
ELSE
// ConfirmSX8()
U_LiberaPedido(SC5->C5_NUM)
EndIf