| 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, contanto que esteja tudo correto com as validações padrão e com isso retornando um cResponse vazio ou não das entidades e se poderá prosseguir.
Caso no ambiente esteja utilizando entidades adicionais, a partir da 5ª posição será enviado o conteúdo das mesmas conforme exemplos
If lRet .And. lCTBAPRTVLD
cResponse := ExecBlock("CTBAPRTVLD",.F.,.F.,{cEntCT1,cEntCTT,cEntCTD,cEntCTH,If(lEnt05,cEnt05,Nil),If(lEnt06,cEnt06,Nil),If(lEnt07,cEnt07,Nil),If(lEnt08,cEnt08,Nil), If(lEnt09,cEnt09,Nil)})
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 cResponse |
|