Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   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] Trasladar el foco a la ultima linea de un Listview dmosca PowerCOBOL (ActiveX, v4 - v11) 4 10 de agosto de 2019 15:47
[Sintaxis] Cargar la lista por columnas ctList de DBI-Tech Breew PowerCOBOL (ActiveX, v4 - v11) 5 25 de febrero de 2018 21:59
[Sintaxis] Guardar/cargar jerarquía de nodos en TreeView dmosca PowerCOBOL (ActiveX, v4 - v11) 8 28 de agosto de 2017 22:53
[Sintaxis] Error al cargar imagen en Innovasys Button Josber PowerCOBOL (ActiveX, v4 - v11) 9 26 de junio de 2017 14:47
[Sintaxis] Pasar parametros por linea de Comandos Joseg PowerCOBOL (ActiveX, v4 - v11) 6 19 de abril de 2016 22:07
Respuesta
 
Herramientas

  #1
Antiguo 25 de enero de 2021, 15:47
IDENTIFICATION DIVISION
Breew
Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Breew
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Barcelona
Edad56 años
Última Actividad26.02.2021 07:51
PROCEDURE DIVISION
PostsPosts: 121
Ha dicho GraciasEnviado: 103
Ha recibido agradecimientosRecibido: 9
Mejores respuestasSoluiones: 0
ReputaciónReputación: 8
Breew is on a distinguished road Breew is on a distinguished road
Predeterminado Cargar un combo en linea

Hola.
Me encuentro con un probema que no se como lo solventais.

Al Iniciar, cargo los combos con la posibilidades.
Código COBOL:
  1.  combo1.
  2.  
  3.      INVOKE Combo-Mecanismo     "ClearList"
  4.      INVOKE Combo-Mecanismo "AddString" USING "Opcion A"   returning IDX-Combo  MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
  5.      INVOKE Combo-Mecanismo "AddString" USING "Opcion B"   returning IDX-Combo  MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
  6.      
  7.  combo2.
  8.      INVOKE Combo-Color-Mecanismo     "ClearList"
  9.      INVOKE Combo-Color-Mecanismo "AddString" USING "mecanismo Beige"   returning IDX-Combo  MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
  10.      INVOKE Combo-Color-Mecanismo "AddString" USING "mecanismo Gris"    returning IDX-Combo  MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
  11.      INVOKE Combo-Color-Mecanismo "AddString" USING "mecanismo Negro"   returning IDX-Combo  MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
  12.      INVOKE Combo-Color-Mecanismo "AddString" USING "mecanismo Blanco"  returning IDX-Combo  MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
Pero si pongo alguna condicion en SelChange que ejecute algun aviso, me lo dispara tambien en la carga.
Es como si el AddString, antes de ponerlo en la lista lo pase por el "SelString" con lo cual dispara el aviso
Código COBOL:
  1.      IF "SelString" OF Combo-Mecanismo = "Opcion B" THEN
  2.      display "color unico Beige"
  3.      INVOKE Combo-Color-Mecanismo     "ClearList"
  4.      INVOKE Combo-Color-Mecanismo "AddString" USING "mecanismo Beige"   returning IDX-Combo  MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo
  5.      END-IF.

No se si me he explicado bien

Como deberia cargarlo para que no me pase eso??
Breew no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 25 de enero de 2021, 19:26
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad36 años
Última Actividad28.02.2021 22:33
PROCEDURE DIVISION
PostsPosts: 1.705
Ha dicho GraciasEnviado: 516
Ha recibido agradecimientosRecibido: 693
Mejores respuestasSoluiones: 92
ReputaciónReputació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
1 usuarios han marcado este post como "Solución"

@Breew, te lo hace por estas líneas:

Código COBOL:
  1. MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo

No lo hagas al cargar


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Breew (19 de febrero de 2021)
  #3
Antiguo 26 de enero de 2021, 15:28
IDENTIFICATION DIVISION
Fito
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Córdoba, Villa María
Edad50 años
Última Actividad25.02.2021 23:50
PROCEDURE DIVISION
PostsPosts: 253
Ha dicho GraciasEnviado: 127
Ha recibido agradecimientosRecibido: 113
Mejores respuestasSoluiones: 13
ReputaciónReputación: 17
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

Hola:

Es como dice KUK. El evento SelChange se corre cuando movés el indice del combo y vos lo estas haciendo en cada linea de la carga.

Lo que podés hace para asegurarte de que el SelChange no se ejecute es tenerlo deshabilitado al acargarlo y habilitarlo al terminar de hacerlo, y en el método del SelChage preguntas if "Enabled" of combo = true y ahi metés todo el código. O por false con un go que salte al final.

Saludos.

Fito
Fito no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Breew (19 de febrero de 2021)
  #4
Antiguo 19 de febrero de 2021, 07:51
IDENTIFICATION DIVISION
Breew
Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Breew
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Barcelona
Edad56 años
Última Actividad26.02.2021 07:51
PROCEDURE DIVISION
PostsPosts: 121
Ha dicho GraciasEnviado: 103
Ha recibido agradecimientosRecibido: 9
Mejores respuestasSoluiones: 0
ReputaciónReputación: 8
Breew is on a distinguished road Breew is on a distinguished road
Predeterminado

Hola.

Ahora si que es otra cosa.
Me habeis quitado un peso de encima .

Gracias
Breew no ha iniciado sesión   Responder Con Cita
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 04:11.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.