Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


Punto de entrada: CTB120OK - Validación de prorrateos externos

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:

El punto de entrada CTB120OK permite la validación de los datos completados. Se ejecuta en el momento en el que se utiliza la opción ok en la pantalla de grabación/mantenimiento de prorrateos externos

Programa fuente

CTBA120.PRW

Sintaxis

CTB120OK - Validación de prorrateos externos ( [ nopc ] ) --> lRet

Parámetros:


Nombre



Tipo



Descripción



Estándar



Obligatorio



Referencia



nopc



Numérico



Número de la opción equivalente a la operación que se desea validar nopc 3 = Inclusãonopc 4 = Alteraçãonopc 5 = Borrado











Devolución

           lRet(logico)

           Devolución de la validación del punto de entrada

Observaciones

Se utiliza de la variable nopc para diferenciar entre las operaciones : nopc  3 = Inclusión nopc  4 = Modificación nopc  5 = Borrado  

Ejemplos

User Function CTB120OK()Local lRet := .T.       dbSelectArea("TMP")        dbGotop()While !Eof()          if paramixb[1] == 3            if TMP->CTJ_DEBITO == TMP->CTJ_CREDIT                    msgalert("Las cuentas de prorrateo no pueden ser las mismas en la inclusión")                             lRet := .F.                                   End if         Elseif paramixb[1] == 4              if TMP->CTJ_DEBITO == TMP->CTJ_CREDIT                 msgalert("Las cuentas de prorrateo no pueden ser las mismas en la modificación")                  lRet := .F.                                End if                 Elseif paramixb[1] == 5              if TMP->CTJ_DEBITO == TMP->CTJ_CREDIT                 msgalert("No se permiten borrados con la misma cuenta")                      lRet := .F.                                   End if                         Endif           dbSkip()                       EndDo   Return lRet