Histórico da Página
...
User Function OMSCPLQAT() As Numeric
Local cSeqInt As Character
Local cPedido As Character
Local cItem As Character
Local cProduto As Character
Local cQuebraId As Character
Local nQtdAlt As Numeric
Local aAreaCB8 As Array
Local aAreaDK3 As Array
Local oModel As Object
cSeqInt := PARAMIXB[1]
cPedido := SC5->C5_NUM
cItem := PARAMIXB[2]
cProduto := PARAMIXB[3]
cQuebraId := PARAMIXB[4]
nQtdAlt := PARAMIXB[5]
oModel := FWModelActive()
If FwIsInCallStack('U_FAT005') .And. FwIsInCallStack('OMSXADDSC5')
aAreaCB8 := CB8->(GetArea())
aAreaDK3 := DK3->(GetArea()) BeginSQL Alias "TMPDK3"
SELECT DK3.R_E_C_N_O_ AS DK3RECNO
FROM %Table:DK3% DK3
WHERE DK3.%NotDel%
AND DK3.DK3_FILIAL = %xFilial:DK3%
AND DK3.DK3_SEQUEN = %Exp:cSeqInt%
AND DK3.DK3_PEDIDO = %Exp:cPedido%
AND DK3.DK3_ITEMPE = %Exp:cItem%
AND DK3.DK3_PRODUT = %Exp:cProduto%
EndSQL
...
TMPDK3->(DbCloseArea()) RestArea(aAreaCB8)
RestArea(aAreaDK3)
EndIf
Return nQtdAlt
Templatedocumentos |
---|
...