Histórico da Página
...
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 com isso se poderá prosseguir.
03. DEMAIS INFORMAÇÕES
...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
If lRet .And. lCTBAPRTVLD
cResponse := ExecBlock("CTBAPRTVLD",.F.,.F.,{cEntCT1,cEntCTT,cEntCTD,cEntCTH})
lRet := Empty(cResponse)
If !lRet
cResponse := cPrefMsg + " - " + cResponse
EndIf
EndIf |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas