Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • GEMVLDCCD

Ponto-de-Entrada: GEMVLDCCD
Abrangências: Microsiga Protheus 8.11 , Microsiga Protheus 10
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
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:
Nome Tipo Descrição Default Obrigatório Referência
cContrato Caracter Terá o valor do contrato original que será cessionado.
Retorno
    lPermite( )
  • Caso retorne valor .T. (True) o sistema continuará o processo de inclusão da cessão de direito, caso retorne .F., o sistema abortará o processo não fazendo a inclusão.
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
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não