MOBILE COBOL - RM -...
 
Avisos
Vaciar todo

MOBILE COBOL - RM - PICKER

7 Respuestas
2 Usuarios
0 Reactions
71 Visitas
Respuestas: 35
Topic starter
(@nchujfi)
Trusted Member
Registrado: hace 2 meses

Hola Juan Bue dia.

Estoy tratando de utilizar Picker (Lista Desplegable (Combobox) y me sale  error.

Items is not a witeable property for Picker.

 

He buscado el error y no logro obtener algura respuesta. Que podra ser? 

Mi codigo:

CALL MC USING ADDCHILD "Type=Picker;Name=combo1|".
CALL MC USING SETPROP "Items=Opcion 1, Opcion 2|".

Le agradeezco de antemano su colaboracion. 

 

Saludos

 

 

 


6 respuestas
Respuestas: 55
 Juan
Admin
(@juanprorm)
Miembro
Registrado: hace 7 años

Hola,

No se si el Picker esta implementado. Averiguo y te cuento.


Responder
1 respuesta
(@nchujfi)
Registrado: hace 2 meses

Trusted Member
Respuestas: 35

@juanprorm Hola Juan. Listo. Quedo pendiente. Gracias


Responder
Respuestas: 55
 Juan
Admin
(@juanprorm)
Miembro
Registrado: hace 7 años

Hola,

El Picker tiene que funcionar.

El problema es Items. El picker no tiene una propiedad items. En vez de eso vas a tener que usar la misma forma para cargarlo que usas con un collection view.

Estamos tomando nota porque quizás sea bueno implementar algo para crear un mecanismo más simple. Se podría agregar una propiedad items a todos estos tipos y resolver toda la carga detrás de escena por el cliente.

Saludos,


Responder
1 respuesta
(@nchujfi)
Registrado: hace 2 meses

Trusted Member
Respuestas: 35

@juanprorm Hola Juan. Listo. Gracias


Responder
Respuestas: 55
 Juan
Admin
(@juanprorm)
Miembro
Registrado: hace 7 años

Para usar CollectionView fijate en el ejemplo masterdetail.cbl

       ADD-LISTVIEW.
           CALL MC USING ADDCHILD 
              "Type=CollectionView;Name=FeaturesList|".
           CALL MC USING SETPROP  "Event=SelectionChanged|".
           CALL MC USING SETPROP "SelectionMode=Single|".
           CALL MC USING DOMETHODNORET
           "Name=Features;Method=SetRow;ObjName=FeaturesList;RowNum=1|".
 
       ADD-TEMPLATE-TO-LISTVIEW.
           CALL MC USING CREATETEMPLATE.
           CALL MC USING ADDCHILD  "Type=VerticalStackLayout|".
           CALL MC USING SETPROP    "Padding=10|".
           CALL MC USING ADDCHILD  "Type=Label;FontSize=20|".
           CALL MC USING SETPROP    "Binding=Text to Desc|".
           CALL MC USING ADDCHILD  "Type=Image|".
           CALL MC USING SETPROP    "Binding=Source to ImagePath|".
           PERFORM END-LAYOUT.
           PERFORM END-TEMPLATE.
 
       ADD-ITEMS-TO-LISTVIEW.
           PERFORM UPLOAD-IMAGES.
           PERFORM CREATE-ITEMS.
           
       UPLOAD-IMAGES.
           PERFORM VARYING ITEM-SUB FROM 1 BY 1
             UNTIL ITEM-SUB > NUM-OF-ITEMS
               MOVE SPACE TO ARG-VALUE
               STRING "FileName="
                      ITEM-IMAGE (ITEM-SUB) 
                      "|" 
                   DELIMITED BY SIZE INTO ARG-VALUE
               CALL MC USING UPLOADFILE ARG-VALUE
           END-PERFORM.
 
       CREATE-ITEMS.
           PERFORM VARYING ITEM-SUB FROM 1 BY 1
             UNTIL ITEM-SUB > NUM-OF-ITEMS
               MOVE SPACE TO ARG-VALUE
               STRING "Type=ExpandoObject;Name=Item"
                       ITEM-SUB
                      ";ImagePath="
                      ITEM-IMAGE (ITEM-SUB) 
                      ";Desc=" 
                      ITEM-SHORT-INFO (ITEM-SUB)  
                      "|" 
                   DELIMITED BY SIZE INTO ARG-VALUE
               CALL MC USING ADDITEM ARG-VALUE
           END-PERFORM.
 

Responder
1 respuesta
(@nchujfi)
Registrado: hace 2 meses

Trusted Member
Respuestas: 35

@juanprorm Hola Juan. En ese ma base como ejemplo pero no logre que funcionara. Seguire revisando. Gracias


Responder
Compartir: