Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CTB120OK - Validação Rateios externos
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
O ponto de entrada CTB120OK permite validação dos dados preenchidos.Executado no momento em que é utilizado a opção ok na tela de gravação/manutenção de rateios externos
Programa Fonte 
CTBA120.PRW
Sintaxe

CTB120OK - Validação Rateios externos ( [ nopc ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
nopc Numérico Numero da opção equivalente a operação que se deseja validar nopc 3 = Inclusãonopc 4 = Alteraçãonopc 5 = Exclusão
Retorno
    lRet(logico)
  • Retorno da validação do ponto de entrada
Observações
Utiliza-se da variavel nopc para diferenciar entre as operações : nopc  3 = Inclusão nopc  4 = Alteração nopc  5 = Exclusão  
Exemplos 
User Function CTB120OK()Local lRet := .T.       dbSelectArea("TMP")        dbGotop()While !Eof()		if paramixb[1] == 3		if TMP->CTJ_DEBITO == TMP->CTJ_CREDIT			msgalert("As contas de rateio nao podem ser as mesmas na inclusão")        			lRet := .F.					End if         	Elseif paramixb[1] == 4		if TMP->CTJ_DEBITO == TMP->CTJ_CREDIT			msgalert("As contas de rateio nao podem ser as mesmas na alteração")			lRet := .F.					End if         		Elseif paramixb[1] == 5		if TMP->CTJ_DEBITO == TMP->CTJ_CREDIT			msgalert("Não é permitido exclusões com a mesma conta")			lRet := .F.					End if         			Endif   	dbSkip()           		EndDo	Return lRet