Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: GEMVLDCCD
Descrição: O ponto de entrada GEMVLDCCD possibilitará a validação do contrato que sofrerá cessão de direito. A função de usuário será chamada no momento da escolha do novo cliente para o contrato a ser gerado. Programa Fonte GEMA160.PRW Sintaxe GEMVLDCCD ( [ cContrato ] ) --> lPermite Parâmetros:
Retorno
Exemplos User Function GEMVLDCCD()Local cContrato := PARAMIXB[1]Local lPermite := .T.dbSelectArea("LIT")dbSetOrder(2) // LIT_FILIAL+LIT_NCONTRdbSeek(xFilial("LIT")+cContrato)If LIT->LIT_STATUS <> "1" lPermite := .F.EndIfReturn lPermite Updates undefined Variáveis
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas