[Componente] Bug de mostrado de líneas en CtList

[Ciro]

Solicito ayuda con el comando CtList de DBI- TECH.

Al digitar un comprobante de Contabilidad, voy llenando el CtList, para mostrar los registros.
Tengo un problema, cuando se hace click por error en el área vacia del CtList, principalmente cuando no tiene ningún registro o tiene uno solo, se daña la visualización, muestra toda la información recogida en la primera columna. Para que muestre bien, hay que salir de TODA la aplicación.

El único evento que tengo programado en el CtList es el doble click en un registro, para eliminarlo, y esto lo hace bien.

Adjunto las imágenes de cuando muestra bien y mal. Muchas gracias.

[Hrmcobol]

Hola Amigo, fijate si en los textos no tienes un ";" (caracter punto y coma). Ya que el mismo es separador de campos. O algun otro caracter extraño.
saludos

[Ciro]

Hola Hrmcobol, gracias, inicialmente pensé en el "punto y coma", pero ya revisé y no lo es. Además hice pruebas con diferentes datos y ocurre lo mismo.

[Fito]

hola:

Cuando armes el registro para cargar, ponele campos a los punto y coma y volvé a cargarlos siempre, seguramente en algún lado esos punto y coma se están blanqueando.

Ejemplo.

Working ....
01  registro.
     02 cuenta        pic z(6).
     02 separador     pic x value ";".
     02 nombre        pic x(50).
 
Procedure...
 
     move campo-cuenta      to cuenta.
     move ";"               to separador.
     move campos-nombre     to nombre.
     invoke ctList "AddItem" using registro.

Saludos.

Fito.

[Roger]

Hola Ciro
Tenia ese mismo problema eso se da cuando tienes un campo alfabetico y esa variable esta en blanco para solucionar pon

01  registro.
     02 cuenta        pic z(6).
     02 separador     pic x value ";".
     02 nombre        pic x(50) value "  ".

mueve " " a todos los campo alfabeticos.

[Ciro]

Fito y Roger gracias por sus respuestas, hice lo que indican, pero sigue visualizando mal.

Este es el código.

01 REGISTRO-ITE GLOBAL.
    02 CUENTA-TITE PIC X(12) VALUE " ".
    02 FILLER      PIC X(01) VALUE ";".
    02 NOMCUE-TITE PIC X(30) VALUE " ".
    02 FILLER      PIC X(01) VALUE ";".
    02 NITTER-TITE PIC X(15) VALUE " ".
    02 FILLER      PIC X(01) VALUE ";".
    02 CENCOS-TITE PIC X(08) VALUE " ".
    02 FILLER      PIC X(01) VALUE ";".
    02 TIPREF-TITE PIC X(02) VALUE " ".
    02 FILLER      PIC X(01) VALUE ";".
    02 NROREF-TITE PIC X(08) VALUE " ".
    02 FILLER      PIC X(01) VALUE ";".
    02 DEBITO-TITE PIC ZZ,ZZZ,ZZZ,ZZZ.ZZ.
    02 FILLER      PIC X(01) VALUE ";".
    02 CREDIT-TITE PIC ZZ,ZZZ,ZZZ,ZZZ.ZZ.
    02 FILLER      PIC X(01) VALUE ";".
    02 BASMOV-TITE PIC ZZ,ZZZ,ZZZ,ZZZ.ZZ.
    02 FILLER      PIC X(01) VALUE ";".
    02 DETAL1-TITE PIC X(30) VALUE " ".
    02 FILLER      PIC X(01) VALUE ";".
    02 CONSEC-TITE PIC X(06) VALUE " ".

[Kuk]

Amigos, nunca he usado este control y no entiendo cual es su funcionamiento. ¿No se rellena campo por campo sino se indica todo el churro de string separando los campos por ";"? Si es así, pues vaya castaña...

Entonces Roger, dices que el problema viene cuando un campo alfa no está inicializado?

Ciro, intenta poner como delimitadores el nulo, porque en Windows es el que indica fin de campo:

     02 FILLER      PIC X(01) VALUE X"00".

A ver qué tal...

Si por el contrario ese control no se rellena con un sólo churro de datos sino campo por campo, cuando lago esté vacío, aún así haz MOVE SPACES al campo de CtList. En plan:

     IF  MI-DATO NOT = SPACES
         MOVE MI-DATO TO "Text"(Col Row) OF CtList1
          
     ELSE
         MOVE SPACES TO "Text"(Col Row) OF CtList1
     END-IF

También si no funciona podrías probar con nulos:

     IF  MI-DATO NOT = SPACES
         MOVE MI-DATO TO "Text"(Col Row) OF CtList1
          
     ELSE
         MOVE X"00" TO "Text"(Col Row) OF CtList1
     END-IF

La sintaxis de CtList no la conozco, es más bien pseudo-código.

[Hrmcobol]

Hola Ciro, prueba con estas lineas. En el evento ItemCick

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 LINKAGE         SECTION.
 01  POW-NINDEX  PIC S9(9) COMP-5.
 01  POW-NCOLUMN PIC S9(4) COMP-5.
 PROCEDURE       DIVISION USING POW-NINDEX POW-NCOLUMN.
 
  
     IF   "CellText"(POW-NINDEX  1) OF CT-REGISTRO-ITe = SPACES EXIT PROGRAM.
     

[Armando]

Ciro, también puedes tener un Null x"00".


No deberían tener dentro los campos ni ; ni null.


ejemplo nuestro:

 01 LINEA-CT GLOBAL.
           02 MARCA-CT         PIC XXX.
           02 SEPARA1-CT       PIC X VALUE ";".
           02 CORREL-CT        PIC Z(6).
           02 SEPARA2-CT       PIC X VALUE ";".
           02 FILLER           PIC X VALUE " ".
           02 ETAPA-CT         PIC X(7).
           02 SEPARA3-CT       PIC X VALUE ";".
           02 FILLER           PIC X VALUE " ".
           02 NOMBRE-CT        PIC X(50).
           02 SEPARA4-CT       PIC X VALUE ";".
           02 FILLER           PIC X VALUE " ".
           02 ORIGEN-CT        PIC X(20).
           02 SEPARA5-CT       PIC X VALUE ";".
 
        MOVE ";" TO SEPARA1-CT SEPARA2-CT SEPARA3-CT SEPARA4-CT EPARA5-CT.
        INSPECT LINEA-CT REPLACING ALL X"00" BY " ".
        INVOKE ctList1 "AddItem" USING LINEA-CT.

cuando tenés ; por ejemplo en el campo NOMBRE-CT, normalmente se corre todo porque identifica que es una nueva columna,

espero te sirva.


ADMIN: Armando, usa el bloque de resalto de sintaxis.

[Hrmcobol]

Yo también creo que es un problema de datos.