Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Tatiana Cristina Villar Neri Segatelli

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
CTB120OK - Validação Rateios externos
CTB120OK - Validação Rateios externos

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
nopcNuméricoNumero 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