Árvore de páginas

Versões comparadas

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