Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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

...