... REDEFINE GET oG_D[02] VAR nSegNg ID 106 OF oDlg2 BITMAP "AYUDA" PICT "9999" WHEN lAP_SN REDEFINE GET oG_D[03] VAR cRefe ID 107 OF oDlg2 PICT "@K!" REDEFINE GET oG_D[04] VAR cObserva ID 108 OF oDlg2 PICT "@K!" REDEFINE GET oG_D[05] VAR cConcept2 ...
Buenos días a los componentes del foro. Tengo un cuadro de dialogo con varios gets de la siguiente forma REDEFINE GET cRefe ID 10 COLOR "W/B" WHEN .F. El problema es que el color no soy capaz de modificarlo, ya que siempre se queda en un gris claro. Me interesa que no se pueda modicar ...
... Ahí va la función donde se declara la variable y el indice (marcado en rojo). FUNCTION ModiSini(oBrw) // Varios LOCAL cCiaAseg := SPACE(25) LOCAL cRefe := SPACE(7) LOCAL nRefe := 0 LOCAL cNumPoliza := SPACE(15) LOCAL cNumSini := SPACE(18) LOCAL cClaveCia := SPACE(12) LOCAL cRamo := SPACE(20) LOCAL ...
... hecho. ///////////////////////////////////////////////// DEFINE DIALOG oDlg RESOURCE "Dialog_1" TITLE "Altas siniestros" BRUSH oBrush REDEFINE GET cRefe ID 10 OF oDlg REDEFINE DbCombo oCbx VAR cClaveCia ID 11 OF oDlg; alias "Compa"; ITEMFIELD "ClaveCia"; LISTFIELD "ClaveCia"; update REDEFINE GET ...
... hecho. ///////////////////////////////////////////////// DEFINE DIALOG oDlg RESOURCE "Dialog_1" TITLE "Altas siniestros" BRUSH oBrush REDEFINE GET cRefe ID 10 OF oDlg REDEFINE DbCombo oCbx VAR cClaveCia ID 11 OF oDlg; alias "Compa"; ITEMFIELD "ClaveCia"; LISTFIELD "ClaveCia"; update REDEFINE GET ...