Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


Punto de entrada: CTB110EXCL - Valida borrado de diario

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