Histórico da Página

...

Este Ponto de Entrada permite realizar no momento da finalização da separação do WMS SaaS a manipulação dos registros liberados de quantidades liberadas na SC9 e Convergência itens da convergência (DBY), bem como validação  Este específica.  Este ponto de entrada será acionado antes do processamento da atualização das quantidade/lotes separados pelo processo padrão.

...

Local aFinalizados := ParamIxb[1]
Local oObjeto      := ParamIxb[2]
Local lRet         := .T.
Local cAliasSC9    := GetNextAlias()
Local lDelSC9      itemFinalizado := .F.1
Local aARREsp cItem         := {}" "
Local itemFinalizado cProduto      := 1" "
Local itemEsp cPedido         := 1oObjeto:numeroDocumento
Local aSequenciasAlteradas cSequenc      := {}conout( " CONOUT WMSFIMPV - Inicio ")

For itemFinalizado := 1 to Len(aFinalizados)
    cItem    := aFinalizados[itemFinalizado]['item']
    cProduto := aFinalizados[itemFinalizado]['produto']
    cLote    := aFinalizados[itemFinalizado]['lote']
    nQtde    := aFinalizados[itemFinalizado]['quantidade']
    cSequenc := aFinalizados[itemFinalizado]['sequencia']
    cTpEstoq := aFinalizados[itemFinalizado]['tipoEstoque']
    cPedido  := oObjeto:numeroDocumento
    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
    dbSelectAreaIF (cAliasSC9)
    dbGoTop()
    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

Next itemFinalizado

(cAliasSC9)->(DbCloseArea())EndIF 

RestArea(aAreaSC6)
RestArea(aAreaSC9)

...