Modificar WIDTHS en XBROWSE en tiempo de ejecución.

29 views
Skip to first unread message

avazq...@gmail.com

unread,
Mar 20, 2024, 2:46:50 PM3/20/24
to ado-h...@googlegroups.com

Buenas.

Hay alguna forma de modificar el array en tiempo real (una vez definido el XBROWSE?

 

   @ 90, 2 XBROWSE BrwAlbaPed parent frmPedidos ;

        obj oBrwAlbaPed;

                            WIDTH nxbrowse ;

                            HEIGHT 290;

                            WORKAREA ( oRsAlbaPed ) ;      

        HEADERS { "Res", "PteAsig", "Código", "Artículo", "Referencia", "PVP", "Cantid", "P.Unid", "Dto1", "Tip", "Dto2", "Tip", "Dto3", "Tip","P.Descuen", "TotSin","Portes", "% Afor", "Otros G", "P Gast","Total"} ;

        HEADERCOLORS { RED, RED, RED, RED, RED, RED, RED, RED, RED, RED, RED, RED, RED, RED, RED, RED, RED, RED, RED} ;

        COLUMNCONTROLS { {'IMAGELIST'}, {'TEXTBOX','NUMERIC','@Z@E 999'}, {'TEXTBOX'}, {'TEXTBOX', }, {'TEXTBOX', }, {'TEXTBOX','NUMERIC','@ZE 99,999.99'}, {'TEXTBOX','NUMERIC','@Z 99999.99'},;

                                                                                   {'TEXTBOX','NUMERIC','@ZE 99,999.99'}, {'TEXTBOX','NUMERIC','@Z 999.99'}, {'TEXTBOX', }, {'TEXTBOX','NUMERIC','@Z 999.99'}, {'TEXTBOX', }, {'TEXTBOX','NUMERIC','@Z 999.99'}, {'TEXTBOX', },;

                                                                                   {'TEXTBOX','NUMERIC','@ZE 99,999.99'}, {'TEXTBOX','NUMERIC','@ZE 99,999.99'}, {'TEXTBOX','NUMERIC','@ZE 99,999.99'}, {'TEXTBOX','NUMERIC','@ZE 999.99'},{'TEXTBOX','NUMERIC','@ZE 99,999.99'},{'TEXTBOX','NUMERIC','@ZE 99,999.99'},{'TEXTBOX','NUMERIC','@ZE 99,999.99'} };

        WIDTHS { 30, 35, 57, 313, 100, 65, 65, 66, 50, 33, 50, 33, 50, 33, 68, 70, 65, 52, 70, 70, 70 } ;

 

Intento excribiendo

oBrwAlbaPed:WIDTHS:= { 20, 25, 67, 213, 0, 80, 65, 66, 50, 33, 50, 33, 50, 33, 68, 70, 65, 52, 70, 70, 70 }

 

pero no me funciona.

Qué estoy haciendo mal?

Alguna ayuda

 

Gracias

Saludos.

Antonio Vázquez

 

David Field

unread,
Mar 20, 2024, 4:21:56 PM3/20/24
to ADO Harbour
Usa  oBrwAlbaPed:ColumnWidth(<nColumn>, <nWidth>)
 Saludos,
David Field

avazq...@gmail.com

unread,
Mar 20, 2024, 6:15:33 PM3/20/24
to ado-h...@googlegroups.com

Qué burrito soy….

Se me había olvidado, ya lo usé antes.

Gracias como siempre y saludos.

Antonio Vázquez

--
Has recibido este mensaje porque estás suscrito al grupo "ADO Harbour" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a ado-harbour...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/ado-harbour/e9372e5e-e71d-42d6-995c-c0241ccfadd2n%40googlegroups.com.

Reply all
Reply to author
Forward
0 new messages