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
------
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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 |
...