Histórico da Página

...

Não se aplica.

08. EXEMPLO

------

#INCLUDE"PROTHEUS.CH"
 
UserFunction WMSFIMPV()

Local aFinalizados := ParamIxb[1]
Local oObjeto      := ParamIxb[2]
Local lRet         := .T.
Local cAliasSC9    := GetNextAlias()
Local itemFinalizado := 1
Local cItem         := " "
Local cProduto      := " "
Local cPedido       := oObjeto:numeroDocumento
Local cSequenc      := " "
 
For itemFinalizado := 1to Len(aFinalizados)
    cItem    := aFinalizados[itemFinalizado]['item']
    cProduto := aFinalizados[itemFinalizado]['produto']
    cSequenc := aFinalizados[itemFinalizado]['sequencia']
       
    BeginSql Alias cAliasSC9
        SELECT SC9.C9_LOTECTL,
                SC9.C9_LOCAL,
                SC9.C9_NUMLOTE,
                SC9.C9_QTDLIB
        FROM %Table:SC9% SC9
        WHERE SC9.C9_FILIAL = %xFilial:SC9%
        AND SC9.C9_PEDIDO = %Exp:cPedido%
        AND SC9.C9_ITEM = %Exp:cItem%
        AND SC9.C9_PRODUTO = %Exp:cProduto%
        AND SC9.C9_SEQUEN = %Exp:cSequenc%            
        AND SC9.%NotDel%
    EndSql
    IF (cAliasSC9)->(Eof())
       lRet := .F. 
    EndIf
    (cAliasSC9)->(DbCloseArea())
 
Next itemFinalizado
 
If !lRet
   RestArea(aAreaSC6)
   RestArea(aAreaSC9)    return return {.F., 'Não foi possível localizar o registro relacionado ao pedido '+Alltrim(cPedido)+;
                                '| Item: '+Alltrim(cItem)+;
                                '| Produto: '+Alltrim(cProduto)} 

EndIF 

RestArea(aAreaSC6)
RestArea(aAreaSC9)

EndIF
 
Return { lRet, "Processamento ok"}