Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Problema en enviar null x"00" a impresora termica drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 10 17 de noviembre de 2017 21:37
[Sintaxis] Filtro con CmEdit y evento "change" Roger PowerCOBOL (ActiveX, v4 - v11) 4 26 de febrero de 2017 14:09
Libeado el mítico "Return to Castle Wolfenstein" Kuk Espacio "Offtop" 0 14 de febrero de 2017 10:25
[Aporte] Añadir evento "Resized" al SHEET Kuk Cocina PowerCOBOL V3L10 0 22 de diciembre de 2015 16:32
[Información] Evento "Resized" del Form (Sheet) Kuk PowerCOBOL V3L10 (Win32) 4 27 de julio de 2015 17:09
Respuesta
 
Herramientas

  #1
Antiguo 1 de agosto de 2017, 02:51
IDENTIFICATION DIVISION
dmosca
 Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
marzo 2017
Mendoza
05.11.2021 17:43
PROCEDURE DIVISION
Posts: 68
Enviado: 32
Recibido: 4
Soluciones: 1
Reputación: 5
dmosca is an unknown quantity at this point
Form Problema en el evento "Return" en TextBox (CmEdit)

Hola Foro:

sigo teniendo consultas: tengo un textbox, el evento return ejecuta bien, pero se repite 1 vez.
copio el codigo.
como hago para salir?, está mal el exit program?.
powercobol V9
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  77 CARTEL PIC X(200) VALUE SPACES.
  5.  PROCEDURE       DIVISION.
  6.      MOVE "Text" OF CLAVE TO WTEXT.
  7.      IF WTEXT NOT = WCLAVE GO ERROR-1.
  8.      MOVE WNOMAPE TO "Text" OF CartelOK.
  9.      Move "Bienvenido:" To "Caption" of CmStatic3.
  10.      MOVE 1 TO "Enabled" OF ButtonOK.
  11.      INVOKE ButtonOK "SetFocus".
  12.      EXIT PROGRAM.
  13.  ERROR-1.
  14.      MOVE "Clave no habilitada..." TO "TEXT" OF CartelOK.
  15.      ADD POW-DMICONERROR POW-DMOK GIVING ESTILO.
  16.      STRING "Error: Clave no corresponde..."
  17.                SALTO
  18.                "[" WTEXT (1:I) "]"
  19.                SALTO DELIMITED BY SIZE INTO CARTEL.
  20.      INVOKE POW-SELF "DisplayMessage" USING CARTEL WS-ATENCION ESTILO.
  21.      MOVE "Password..." TO POW-TEXT OF CLAVE.
  22.      INVOKE ButtonFin "SetFocus".
  23.      EXIT PROGRAM.
dmosca no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 2
  #2
Antiguo 1 de agosto de 2017, 16:24
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
26.11.2021 19:14
PROCEDURE DIVISION
Posts: 1.892
Enviado: 613
Recibido: 800
Soluciones: 99
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

dmosca, ¿qué intentas hacer y qué es lo que no te convence del EXIT PROGRAM?

Por cierto, el código debe meterse en el tag COBOL para el resalto de sintaxis.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 1 de agosto de 2017, 20:19
IDENTIFICATION DIVISION
dmosca
 Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
marzo 2017
Mendoza
05.11.2021 17:43
PROCEDURE DIVISION
Posts: 68
Enviado: 32
Recibido: 4
Soluciones: 1
Reputación: 5
dmosca is an unknown quantity at this point
Predeterminado evento se repite

Kuk

en un textbox ingreso el password, en el evento "return" está el código que valida si corresponde...

funciona bien, pero se repite, ejecutando paso a paso con el debug, veo que se repite un vez y recién sale.

cuando llega al exit program vuelve al principio, ejecuta toda la rutina y sale.

por eso pregunto si está bien usado el exit program...
dmosca no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 2 de agosto de 2017, 01:27
IDENTIFICATION DIVISION
jotica
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de jotica
DATA DIVISION
mayo 2017
Colombia
69 años
11.10.2021 18:59
PROCEDURE DIVISION
Posts: 21
Enviado: 17
Recibido: 5
Soluciones: 1
Reputación: 0
jotica is an unknown quantity at this point
Predeterminado

Eso es clasico de como has definido en el textbox los eventos automaticos del return

Lo que pasa es que por alguna condicion definida alli se genera automaticamente el evento return
jotica no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 2 de agosto de 2017, 10:58
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
26.11.2021 20:15
PROCEDURE DIVISION
Posts: 605
Enviado: 278
Recibido: 303
Soluciones: 41
Reputación: 31
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

dmosca, a ver si puedes poner una captura de pantalla de las propiedades del campo que te da problemas, por si tienes algo mal definido ahí.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 2 de agosto de 2017, 15:27
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
26.11.2021 19:14
PROCEDURE DIVISION
Posts: 1.892
Enviado: 613
Recibido: 800
Soluciones: 99
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

dmosca, yo nunca uso el evento "Return". Usa el el evento "KeyPress" y dentro pones:

Código COBOL:
  1.      IF  POW-ARG-KEYASCII = 13 *> = Enter
  2.         *> EL CÓDIGO QUE QUIERES EJECUTAR
  3.      END-IF



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 3 de agosto de 2017, 01:13
IDENTIFICATION DIVISION
dmosca
 Junior
ENVIRONMENT DIVISION
Avatar de dmosca
DATA DIVISION
marzo 2017
Mendoza
05.11.2021 17:43
PROCEDURE DIVISION
Posts: 68
Enviado: 32
Recibido: 4
Soluciones: 1
Reputación: 5
dmosca is an unknown quantity at this point
Predeterminado evento

Josber

al tildar "Editable Label" ya no repite el evento "Return"....

copio imagen.

tiene explicación?

muchas gracias.
Miniatura de Adjuntos
Pulsar la imagen para la versión amplia
Nombre:  TextBox.JPG
Vistas: 39
Tamaño:  32,5 KB  
dmosca no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 3 de agosto de 2017, 08:54
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
26.11.2021 20:15
PROCEDURE DIVISION
Posts: 605
Enviado: 278
Recibido: 303
Soluciones: 41
Reputación: 31
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Cita del post de dmosca Ver Mensaje
Josber
al tildar "Editable Label" ya no repite el evento "Return"....
copio imagen.
tiene explicación?
muchas gracias.
Pues no tengo ni idea, la verdad, ahora recuerdo que tuve muchos problemas al principio con esa cuestión, sobre todo, porque acostumbrado al RM-Cobol, en que, cuando introducías los textos por pantalla, los números se alineaban a la derecha y los textos a la izquierda, quería que en las pantallas nuevas pasase lo mismo y el programa se me "volvía loco" él solo.

Me alegro que lo hayas solucionado.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
dmosca ( 3 de agosto de 2017)
  #9
Antiguo 3 de agosto de 2017, 23:40
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 20:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 225
Soluciones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

dmosca,

O problema pode vir de "decisionmaxstring" que pode provocar um "enter".
Ao colocar código no evento "return" este é executado duas vezes.

No manual de FujitsuCobol:

DecisionMaxString Property

Description:
Indicates whether input is completed when the input character string reaches the field length defined by the RenderText object.

Used in controls: Table TextBox

Used in objects: None.

Value (with constants):
True - Fixed input. - Focus moves to the next cell. (POW-TRUE)
False - Not fixed input. - Focus does not move. (POW-FALSE)

When it is true, and a cell is filled, the focus moves to the next cell to the right, or the first cell of the next line. If there are no cells to move to, the focus does not move.

When it is False, the focus remains in the cell, but attempts to extend the data beyond the maximum length are ignored.
Un saludo,
Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
dmosca ( 4 de agosto de 2017), Josber ( 4 de agosto de 2017)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 10:43.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.