Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | ATFA250 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46030 |
O ponto de entrada AF250TOK é acionado ao finalizar o processamento de uma tela de dados dentro da rotina ATFA250, responsável pela análise de valores e consistência das informações inseridas pelo usuário. Com ele é possível realizar validações adicionais de acordo com o critério da empresa permitindo ou não a gravação dos dados.
If ExistBlock('AF250TOK') If !ExecBlock( 'AF250TOK', .f., .f., {@aAF250Imp,@aAF250Desc,@aAF250DOri} ) Return .F. EndIf EndIf |
User Function AF250TOK() // Variáveis recebidas via PARAMIXB Local aAF250Imp := PARAMIXB[1] // Array com as informações de impostos Local aAF250Desc := PARAMIXB[2] // Array com as descrições Local aAF250DOri := PARAMIXB[3] // Array com as descrições originais Local i := 0 Local j := 0 Local lRet := .T. // Exemplo de uso For i := 1 to Len(aAF250Imp) // Aqui você pode implementar a lógica que valida as informações do array aAF250Imp If Empty(aAF250Imp[i][1]) lRet := .F. // Caso algum campo esteja vazio, retorna falso EndIf Next // Lógica para manipulação de aAF250Desc e aAF250DOri, se necessário For j := 1 to Len(aAF250DOri) // Exemplo de uma possível validação If aAF250DOri[j][7] == 0 lRet := .F. // Retorna falso se encontrar uma descrição não atribuída EndIf Next Return lRet |
|