Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CTB110EXCL - Valida exclusão de diario
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: 
Esse P.E verifica se e possivel a exclusão do diario
Eventos

Ocorre dentro da fun;'ao que deleta registro de diario

Programa Fonte 
CTBA110.PRW
Sintaxe

CTB110EXCL - Valida exclusão de diario ( [ cCod ] ) --> lOk

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cCod Caracter Código do diario
Retorno
    lOk(logico)
  • Indicador de validade da esculsao dos diarios
Exemplos 
IF lOk .And. lCtb110Excl	lOk := ExecBlock("CTB110EXCL" , .F. , .F. , {cCod} )EndifIF lOk .And. ! Empty( cCod )	DbSelectArea( "CT2" )	DbSetOrder(14)    IF CT2->( FieldPos( "CT2_DIACTB" ) > 0 )         	IF MsSeek( xFilial( "CT2" ) + cCod )	 		lOk := .F. 			MsgAlert( "Código do diario já utilizado" )  		EndIf 	Else 		MsgAlert( "O Controle de Exclusão do Diario está desabilitado! Verifique se realmente está exclusão pode ser efetuada." )  	EndifENDIF