OFMT230A - Carrega dados antes da inclusão do Pedido de Compras.

O Ponto de Entrada é chamado antes da inclusão do Pedido de Compras, para possibilitar a alteração dos itens antes da chamada do ExecAuto do MATA120.

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³OFMT230A ºAutor ³MIL º Data ³ 13/08/15 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³Carrega dados antes da inclusao do pedido º±±
User Function OFMT230A()
SAK->(dbsetorder(1))
If SAK->(dbseek(xFilial("SAK")+"000001"))//APROVADORES DE COMPRA PARA PECAS

If Type("aItem") # "U" .And. Len(aItem) # 0

aAdd(aItem[len(aItem)],\{"C7_APROV" ,"999999" ,Nil\})

endif
endif

Return(aItem)

Português(Brasil)

Todas

Todos

Todas

aItem - Matriz de itens para inclusão do Pedido

matriz passada no parâmetro

cItemSC7 := SOMA1( cItemSC7 )

aAdd(aItem,\{\{"C7_ITEM" , cItemSC7 ,Nil\} ,; // Numero do Item
\{"C7_PRODUTO",SB1->B1_COD ,Nil\} ,; // Codigo do Produto
\{"C7_UM" ,SB1->B1_UM ,Nil\} ,; // Unid. Medida
\{"C7_QUANT" ,VID->VID_QTDADE ,Nil\} ,; // Quantidade
\{"C7_PRECO" ,SB5->B5_PRV2 ,Nil\} ,; // Preco
\{"C7_DATPRF" ,dDataBAse ,Nil\} ,; // Data DE Entrega
\{"C7_TES" ,FM_PRODSBZ(SB1->B1_COD,"SB1->B1_TE") ,Nil\} ,; // TES
\{"C7_FLUXO" ,"S" ,Nil\} ,; // Fluxo de Caixa (S/N)
\{"C7_LOCAL" ,VE4->VE4_ALMPAD ,Nil\} ,; // Almoxarifado
\{"C7_PENDEN" ,"N" ,Nil\} ,; // Pendencia
\{"C7_CODGRP" ,SB1->B1_GRUPO ,Nil\} ,; // Grupo
\{"C7_CODITE" ,SB1->B1_CODITE ,Nil\}\}) // CodItem

If ( ExistBlock("OFMT230A") )
aItem:= ExecBlock("OFMT230A",.f.,.f.,\{aItem\})
EndIf

If !lAuto
IncProc(OemtoAnsi(STR0006))
Endif

dbselectArea("VID")
dbskip()
EndDo

OFIIA230.PRW