Eventos de chamada do Ponto de Entrada | aAdd(aIteTempPV,\{"C6_NUM" ,cNUMPED ,Nil\}) // Numero do Pedido
aAdd(aIteTempPV,\{"C6_ITEM" ,cCont ,Nil\}) // Numero do Item no Pedido
aAdd(aIteTempPV,\{"C6_PRODUTO",aVG6trb[i,5] ,Nil\}) // Codigo do Produto
aAdd(aIteTempPV,\{"C6_QTDVEN" ,aVG6trb[i,9] ,Nil\}) // Quantidade Vendida
aAdd(aIteTempPV,\{"C6_PRUNIT" ,nValIte10 ,Nil\}) // Preco Unitario Garantia
aAdd(aIteTempPV,\{"C6_PRCVEN" ,nValIte10 ,Nil\}) // Preco Unitario Liquido
aAdd(aIteTempPV,\{"C6_VALOR" ,nValIte10*aVG6trb[i,9] ,Nil\}) // Valor Total do Item
aAdd(aIteTempPV,\{"C6_ENTREG" ,dDataBase ,Nil\}) // Data da Entrega
aAdd(aIteTempPV,\{"C6_UM" ,"PC" ,Nil\}) // Unidade de Medida Primar.
aAdd(aIteTempPV,\{"C6_TES" ,cTes ,Nil\}) // Tipo de Entrada/Saida do Item
aAdd(aIteTempPV,\{"C6_LOCAL" ,SB1->B1_LOCPAD ,Nil\}) // Almoxarifado
// Nao passar o CFOP para que o Sistema se vire no momento de tratar cliente de Outro Estado
// aAdd(aIteTempPV,\{"C6_CF" ,SF4->F4_CF ,Nil\}) // CFO
// aAdd(aIteTempPV,\{"C6_VALDESC",0 ,Nil\}) // Valor do Desconto
// aAdd(aIteTempPV,\{"C6_COMIS1" ,0 ,Nil\}) // Comissao Vendedor
aAdd(aIteTempPV,\{"C6_DESCRI" ,SB1->B1_DESC ,Nil\}) // Descricao do Produto
aAdd(aIteTempPV,\{"C6_CLI" ,SA1->A1_COD ,Nil\}) // Cliente
aAdd(aIteTempPV,\{"C6_LOJA" ,SA1->A1_LOJA ,Nil\}) // Loja do Cliente
If GetVersao(.f.) == "P10"
aAdd(aIteTempPV,\{"C6_QTDEMP" ,aVG6trb[i,9] ,Nil\}) // Quantidade Empenhada
Endif
aAdd(aIteTempPV,\{"C6_QTDLIB" ,aVG6trb[i,9] ,Nil\}) // Quantidade Liberada
aAdd(aItePv,aIteTempPV)
Next
If ExistBlock("OGM100PED")
ExecBlock("OGM100PED",.f.,.f.)
EndIf
lMSHelpAuto := .t.
lMsErroAuto := .f.
FG_X3ORD("C",,aCabPv)
FG_X3ORD("I",,aItePv)
MsExecAuto(\{|x,y,z| mata410(x,y,z)\},aCabPV,aItePv,3) |
|---|
