Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
...
| Pagetitle | ||
|---|---|---|
|
...
|
...
|
...
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:
O ponto de entrada CTB120OK permite validação dos dados preenchidos.Executado no momento em que é utilizado a opção ok na tela de gravação/manutenção de rateios externos 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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas