FiveTech Software tech support forums

... While b->Nro_bon=cFolio.and.!eof() ON END Finsc(oReport) oFont:End() Sele b Seek cFolio Return Static FUNCTION Busca_fol() local oDlgPa local oLbx1,oFont cFolio:=0 oFolio:=0 Sele a go bott aa=nro_bon-10 Dbseek(aa) Define Dialog oDlgPa ResName "Listado_paci" Title "Paciente Ingresados" Redefine ...

Elias,

REDEFINE LISTBOX oLbx1 ... ALIAS Clientes

REDEFINE LISTBOX oLbx2 ... ALIAS Articulos

... Called from _FWH(3109) Called from WINRUN(0) Called from TWINDOW:ACTIVATE(878) Called from MAIN(76) este es mi codigo: @ 10,00 LISTBOX oLbx1 FIELDS oRecordSet:Fields(0):value,; oRecordSet:Fields(1):value; ON DBLCLICK (odlgbus:end(),wr:=.t.) ; SIZE 258,68 OF oDlgbus PIXEL olbx1:aheaders ...

el problema quedo resuelto, gracias...
respuesta:

oLbx1:SetColor( { 1}, {{ || if( tot_fac>0,rgb(0,0,255),if(tot_fac<0,rgb(255,0,0),rgb(0,0,0)))}})

Luis,

Pruébalo así:

oLbx1:SetColor( {|| If( Tot_Fac > 0, {C_FONDO,C_TEXTA},{C_FONDO,C_TEXTR})} )

... salgan Azul/Amarillo y de lo contrario Rojo/Amarillo, lo he intentado, y es mas me han ayudado (A.A.), y no lo consigo, que estoy haciendo mal... oLbx1:SetColor( {1, 2}, {|| If( Tot_Fac > 0, {C_FONDO,C_TEXTA},{C_FONDO,C_TEXTR})},) c_fondo=amarillo c_texta=azul c_textr=rojo es mas ni funciona ...

... in line data entry - with validation on each cell if required. oLbx5:bKeyChar := {|nKey| iif(nKey == VK_RETURN,EditLab(oLbx5:nColAct,oLbx5,oTmsht,oLbx1,oTmsht:keyno()),)} oLbx5:lCellStyle = TRUE oLbx5:lAutoEdit = TRUE oLbx5:lAutoSkip = TRUE static function EditLab(nCol,oLbx5,oTmsht,oLbx1,nRow) ...

... SBUTTON b2 of oDLgd Cancel FILENAME "NEW1.BMP" size 24,24 pixels TEXT ON_BOTTOM NOBOX COLOR CLR_NBLUE,CLR_6 action local(xtelefo,Odlgd,otelefo,olbx1) @ 34, 275 SAY "Procesado" OF oDlgD SIZE 35,10 PIXEL ; FONT oFontC COLOR CLR_BLACK,CLR_6

... SBUTTON b2 of oDLgd Cancel FILENAME "NEW1.BMP" size 24,24 pixels TEXT ON_BOTTOM NOBOX COLOR CLR_NBLUE,CLR_6 action local(xtelefo,Odlgd,otelefo,olbx1) @ 34, 275 SAY "Procesado" OF oDlgD SIZE 35,10 PIXEL ; FONT oFontC COLOR CLR_BLACK,CLR_6

@ 0.8 , 16+20 sbutton b2 FILENAME "ok1.bmp" size 24,24 OF oDlgd ;
TEXT ON_BOTTOM NO BOX action local( (xtelefo,Odlgd,otelefo,olbx1), oDlgD:End() ) CANCEL

@ 0.8 , 16+20 sbutton b2 FILENAME "ok1.bmp" size 24,24 OF oDlgd ;
TEXT ON_BOTTOM NO BOX action local( (xtelefo,Odlgd,otelefo,olbx1), oDlgD:End() ) CANCEL

... @ 0.8 , 16+20 sbutton b2 FILENAME "ok1.bmp" size 24,24 OF oDlgd cancel TEXT ON_BOTTOM NO BOX action local(xtelefo,Odlgd,otelefo,olbx1)

... && update @ 0.8 , 16+20 sbutton b2 FILENAME "ok1.bmp" size 24,24 OF oDlgd cancel TEXT ON_BOTTOM NO BOX action local(xtelefo,Odlgd,otelefo,olbx1)

... saber es cómo podría recoger una lista de todos los controles (objetos) que presenta esa ventana. Por ejemplo: {oBtn1, oBtn2, oGet1, oGet2, oGet3, oLbx1....} La idea es que a partir de esa lista debiera ser posible leer, entre ortras cosas, las coordenadas y contenido de Botones o campos Get. Más ...

amigos, tengo esto y me sale el sgte error, quien me puede ayudar : Add Column To Browse oLbx1; DATA FieldWBlock("Can_Art",Select("&(Archi)")); EDITABLE; 3DLOOK TRUE MOVE DT_MOVE_RIGHT; PICTURE "9999.99"; Head "Cantidad" Width 70 Align 2,1; COLORS nRgb(0,0,0),nRgb(160,235,170); ...