Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Renato Ferreira Campos

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
CTB110EXCL - Valida exclusão de diario
CTB110EXCL - Valida exclusão de diario

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