Alcances: | Microsiga Protheus 10, Microsiga Protheus 11 |
Versiones: | Microsiga Protheus 10, Microsiga Protheus 11 |
Compatible países: | Todos |
Sistemas operativos: | Todos |
Compatible con las bases de datos: | Todas |
Idiomas: | Portugués (Brasil) , Portugués (Portugal) , Español , Inglés |
Descripción:
Este P.E. verifica si es posible el borrado del diario
Eventos
Ocurre dentro de la función que borra registro de diario
Programa fuente
CTBA110.PRW
Sintaxis
CTB110EXCL - Valida borrado de diario ( [ cCod ] ) --> lOk
Parámetros:
Nombre | Tipo | Descripción | Estándar | Obligatorio | Referencia | ||||||||||||
cCod | Carácter | Código del diario |
Devolución
lOk(logico)
Indicador de validez del borrado de los diarios
Ejemplos
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 del diario utilizado" ) EndIf Else MsgAlert( "¡El Control de borrado del diario está deshabilitado! Verifique si realmente este borrado puede efectuarse." ) EndifENDIF