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.
|