Histórico da Página

...

Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.

08. EXEMPLO

------

#INCLUDE 'APVT100.CH'

User Function WMSV030E()
Local nQtde := PARAMIXB[1] //Quantidade da movimentação
Local cOrigem := PARAMIXB[2] //Origem da movimentação
Local cProduto := PARAMIXB[3] //Produto
Local cLoteCtl := PARAMIXB[4] //Lote
Local cNumLote := PARAMIXB[5] //Sub-lote
Local cUnitiz := PARAMIXB[6] //Unitizador
Local cRecHum := PARAMIXB[7] //Recurso Humano
Local cIdDCF := PARAMIXB[8] //Id da Ordem de Serviço
Local lUltiAti := PARAMIXB[9] //Indica se é a última atividade da tarefa
Local cKit := " "

If cOrigem == "SD4"
       WMSVTCabec("Informe o codigo do kit",.F.,.F.,.T.)
       @ 01, 00 VTSay PadR("KIT", VTMaxCol())
       @ 02, 00 VTGet cKit Pict '@!'
       VTRead

       If (VTLastKey()==27)
              return
      EndIf

      If lUltiAti
             //Grava tabela específica
             Reclock("XAA",.T.)
             XAA->XAA_QUANTI := nQtde
             XAA->XAA_PRODUT := cProduto
             XAA->XAA_LOTECT := cLoteCtl
             XAA->XAA_NUMLOT := cNumLote
             XAA->XAA_UNITIZ := cUnitiz
             XAA->XAA_RECHUM := cRecHum
             XAA->XAA_IDDCF := cIdDCF
             XAA->XAA_KIT := cKit
             XAA->(MsUnlock())
      EndIf 
EndIf

Return

------

#INCLUDE 'APVT100.CH'

User Function WMSV030E()
Local nQtde := PARAMIXB[1] //Quantidade da movimentação
Local cOrigem := PARAMIXB[2] //Origem da movimentação
Local cProduto := PARAMIXB[3] //Produto
Local cLoteCtl := PARAMIXB[4] //Lote
Local cNumLote := PARAMIXB[5] //Sub-lote
Local cUnitiz := PARAMIXB[6] //Unitizador
Local cRecHum := PARAMIXB[7] //Recurso Humano
Local cIdDCF := PARAMIXB[8] //Id da Ordem de Serviço
Local lUltiAti := PARAMIXB[9] //Indica se é a última atividade da tarefa
Local cKit := " "

If cOrigem == "SD4"
    WMSVTCabec("Informe o codigo do kit",.F.,.F.,.T.) 
    @ 01, 00 VTSay PadR("KIT", VTMaxCol())
    @ 02, 00 VTGet cKit Pict '@!'
    VTRead
    If (VTLastKey()==27)
        return
    EndIf
    If lUltiAti
        //Grava tabela específica
        Reclock("XAA",.T.)
        XAA->XAA_QUANTI := nQtde
        XAA->XAA_PRODUT := cProduto
        XAA->XAA_LOTECT := cLoteCtl
        XAA->XAA_NUMLOT := cNumLote
        XAA->XAA_UNITIZ := cUnitiz
        XAA->XAA_RECHUM := cRecHum
        XAA->XAA_IDDCF := cIdDCF
        XAA->XAA_KIT := cKit
        XAA->(MsUnlock())
    EndIf
EndIf

Return

...