Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CT105POS - Valida Lançamento Contábil
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
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: 
Ponto de Entrada que permite incluir novas validações de lançamento contábil. Recebe como parâmetro de entrada, a variável lRet que indica se o lançamento está consistente (.T.) ou não.
Programa Fonte 
CTBA105.PRW
Sintaxe

CT105POS - Valida Lançamento Contábil ( [ lRet ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
lRet Lógico .T. - Lançamento Ok.F. - Lançamento inconsistente
Retorno
    lRet(logico)
  • .T. - Lançamento Ok.F. - Lançamento inconsistente
Exemplos 
#include "RwMake.ch"User Function CT105POS()Local lRetorno := ParamIXB[1]If lRetorno	If Aviso("Atencao - PE CT105POS", "Confirma o Lançamento ", { "Sim", "Nao"} ) != 1		MsgInfo("Lancamento nao confirmado pelo Usuario")		lRetorno := .F.	EndIfElse	MsgAlert("PE CT105POS  --> Lancamento inconsistente - Verifique")EndIfReturn( lRetorno )
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não