| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | CTBA810 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46030 |
O ponto de entrada CTB810Grv é chamado após a gravação das amarrações de regras na tabela CTA, dentro do contexto do programa CTBA810Grava. Este ponto de entrada permite a execução de lógicas adicionais ou personalizadas após a conclusão do processo de gravação das amarrações, como ajustes em registros, atualizações de logs ou integração com outros módulos.
If lCtb810Grv
ExecBlock("CTB810Grv", .F., .F.,{nOpc})
EndIf |
User Function CTB810Grv()
Local nOpc := PARAMIXB[1]
If nOpc == 4
DbSelectArea("CTA")
DbSetOrder(1)
If DbSeek(FwXFilial("CTA") + CTA->CTA_ITREGR + CTA->CTA_ITREGR)
//validação do cliente
EndIf
EndIf
Return
|
|