Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#DEFINE PULAR Chr(10) // SALTO DE LINHA User Function WMSA5052() Local cAliasSD4 := PARAMIXB[1] Local cMenssagem := "" Local lRet := .T. Local aAreaSD4 := (cAliasSD4)->(GetArea()) DbSelectArea(cAliasSD4) lRet := U_UWMS505Z((cAliasSD4)->D4_COD) If !lRet cMenssagem += "Produto: "+(cAliasSD4)->D4_COD+" "+ PULAR cMenssagem += "Descrição: "+(cAliasSD4)->D4_DESC+" "+ PULAR cMenssagem += "Lote: "+(cAliasSD4)->D4_LOTECTL+" "+ PULAR MsgAlert(cMenssagem,"Seu Titulo") EndIf RestArea(aAreaSD4) Return lRet User Function UWMS505Z(lProduto) //função para validação Local lRet := .F. If lProduto = 'WMSZN100A' lRet := .T. Else lRet := .F. EndIf Return lRet |
Card documentos | ||||
---|---|---|---|---|
|
04. ASSUNTOS RELACIONADOS
Templatedocumentos |
---|
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas