| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | backoffice.apportionment.controller - Cadastro de Rateio |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-50086 |
O ponto de entrada CTBAPRTVLD possibilita a inclusão de validações após as padrões do sistema, com isso retornando um cResponse vazio ou não das entidades e com isso se poderá prosseguir.
If lRet .And. lCTBAPRTVLD
cResponse := ExecBlock("CTBAPRTVLD",.F.,.F.,{cEntCT1,cEntCTT,cEntCTD,cEntCTH})
lRet := Empty(cResponse)
If !lRet
cResponse := cPrefMsg+" - "+cResponse
EndIf
EndIf |
User Function CTBAPRTVLD() Local cEntidCT1 := ParamIXB[1] Local cEntidCTT := ParamIXB[2] Local cEntidCTD := ParamIXB[3] Local cEntidCTH := ParamIXB[4] Local cResponse := " " If cEntid <> 'XPTO123' cResponse := "Ok" Else cResponse := space(1) EndIf Return cRetorno |
|