Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
User Function M926VlCpNF() Local cCpo := PARAMIXB[1] // Campo do grid Local cVal := PARAMIXB[2] // Valid do campo //Complemento de Exportação if alltrim(cCpo) == "CDL_NUMDE" if Empty(alltrim(cVal)) cVal := "M926ValCDLNUM(CDL_NUMDE)" else cVal += " .And. M926ValCDLNUM(CDL_NUMDE)" endif endif //Complemento de Ressarcimento if alltrim(cCpo) == "CD0_QUANT" if Empty(alltrim(cVal)) cVal := "M926ValCD0QDE(CD0_QUANT)" else cVal += " .And. M926ValCD0QDE(CD0_QUANT)" endif endif Return cVal //Funções para validação dos campos de Exportação Function M926ValCDLNUM(CDL_NUMDE) if Empty(Alltrim(CDL_NUMDE)) .or. Val(CDL_NUMDE) = 0 Alert ("Número do Documento Incorreto") return .f. endif return .t. //Funções para validação dos campos de Ressarcimento Function M926ValCD0QDE(CD0_QUANT) if CD0_QUANT = 0 Alert ("Quantidade Incorreta!") return .f. endif return .t. |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas