Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • GM120APROV

Ponto-de-Entrada: GM120APROV
Versões: 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)
Idiomas: Espanhol , Inglês
Descrição: 
O ponto de entrada GM120APROV tem como finalidade validar o número do contrato que será informado na rotina de distrato do template GEM. Se faz necessário somente o retorno de uma variável do tipo lógica(.T. ou .F.) indicando se poderá ou não incluir um distrato para o contrato em questão, conforme exemplo.
Eventos


Programa Fonte 
GEMA120.PRW
Sintaxe

GM120APROV ( ) --> .T. ou .F.

Retorno
    .T. ou .F.(logico)
  • Variavel logica
Observações


Exemplos 
#INCLUDE "PROTHEUS.CH"#INCLUDE "RWMAKE.CH"USER FUNCTION GM120APROV() Local cContr := PARAMIXB[1]Local lRetorno:= .F.dbSelectArea("LIT")LIT->(dbSetOrder(2)) // LIT_FILIAL+LIT_NCONTRIf dbSeek(xFilial("LIT")+cContr )        If LIT->LIT_STATUS == "2"  //Status de um contrato quitado		lRetorno := .T. 	EndIfEndIf               Return lRetorno