Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | PCOA481 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46030 |
O ponto de entrada PCOA4812 permite a validação personalizada de uma linha na rotina de GetDados. Esse ponto de entrada é chamado dentro da função A481Lok e pode ser utilizado para incluir regras adicionais de validação, retornando um valor lógico que indicará se a linha é válida ou não.
If ExistBlock( "PCOA4812" ) //P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //P_E³ Ponto de entrada utilizado para validação da linha da GetDados ³ //P_E³ ³ //P_E³ Parametros : Validação Padrão ³ //P_E³ Retorno : Logico ³ //P_E³ Ex. : User Function PCOA4812 ³ //P_E³ Return {.T.) ³ //P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If ValType( lOk := ExecBlock( "PCOA4812", .F., .F. , lRet ) ) == "L" lRet := lOk EndIf EndIf |
User Function PCOA4812() Local lRet := PARAMIB[1] Local nPosPerc := aScan(aHeader , {|x| ALLTRIM(x[2])== "AM9_PERC" }) // Implementa a lógica de validação aqui // Exemplo: Validar se um campo específico contém um valor válido For nX := 1 To Len(aCols) If aCols[nX,nPosPerc] > 0 lRet := .F. // Caso a condição de validação falhe EndIf Next nX Return lRet |
|