FiveTech Software tech support forums

... ; ON RIGHT CLICK (MENUCIA(NROW,NCOL,obRW,"COMPANIA",OLOGO)) ; OF odl FONT OFONT10 COLOR LETRAS,FONDO OBRW:BKEYDOWN:={ | NKEY | IF(NKEY#13, ; (BUSCA_TIPO("COMPANIA", NKEY, OBRW),COGE_COMPANIA(),REFRESCA_COMPANIA(),CAPTURALOGO(odl,oLOGO,"COMPANIA"),osayc:Refresh()),) ...

... pues utilizo variable de texto, con la cláusula NUMBER y limitando el texto a 5 caracteres @ 20, 85 EDIT oEditNum1 VAR cNum1 SIZE 45, 21 FONT oFont10 PIXEL RIGHT NUMBER LIMITTEXT BY 5 CHARS OF oWnd luego, solo es custion de pasar el valor del texto de oEditNum1 a Val() y tema solucionado!!! ...

Perfecto, Cristóbal!!!

Ahora queda el tema pendiente de limitación o longitud total, si se refiere a una variable numérica, que no le hace caso.

nNum1 := 555
@ 20, 85 EDIT oEditNum1 VAR nNum1 SIZE 45, 21 FONT oFont10 PIXEL RIGHT LIMITTEXT BY 5 CHARS OF oWnd


Gracias.

... ayuda, se me había olvidado crear el objeto. @ 103, 194 CHECKBOX olCostos VAR lCostos PROMPT "con Costos Calculados" SIZE 100, 10 FONT oFont10 PIXEL OF oDlg10 COLOR nRGB ( 240, 240, 008 ), nRGB ( 008, 008, 240 ) ; ON CHANGE ( sTitulo := IIF ( lCostos, "sin Costos Calculados" ...

Pedro:

lo tengo de la forma siguiente:

@ 091, 194 CHECKBOX lCostos PROMPT "Resumen por Material" SIZE 100, 10 FONT oFont10 PIXEL OF oDlg10 COLOR nRGB ( 240, 240, 008 ), nRGB ( 008, 008, 240 )

... cuenta contable #'+ALLTRIM(CODIFIC->COD_CUENT)+' '+ALLTRIM(CODIFIC->NOM_CUENT),'Desde :'+DTOC(dF1)+' Hasta: '+DTOC(dF2) PREVIEW FONT oFont8,oFont10,oFont12,oFont14 PEN oPen1 HEADER "Pagina No. "+STR(oReport:nPage,3) RIGHT CAPTION 'Cuenta contable' FOOTER WHO() COLUMN TITLE "#DOCUMENTO" ...

... la paciencia de Daniel Garcia-Gil pude hacer las modificaciones necesarias. Esta fue la solución: If EMPTY(oWndMain:oWndClient:cargo) DEFINE FONT oFont10 NAME "Arial" SIZE 0, -10 DEFINE BRUSH oBrush FILE oApp:PathBmp+"\brick.bmp" DEFINE WINDOW oWndAlu MDICHILD FROM 0,0 TO MAXROW(), ...

Hola Manuel, Ojala sea esto lo que andas buscando, como poner con treport un dato vertical, prueba esto : Local oFnt,oFnt2,oPen1,oReport,oFont9,oFont10 DEFINE FONT oFnt NAME "Arial" SIZE 0,-10 DEFINE FONT oFnt2 NAME "Arial" SIZE 0,-8 NESCAPEMENT 900 DEFINE FONT oFont9 NAME "Arial" SIZE 0,-14 UNDERLINE ...

... oSay7, oSay8 local oSay9, oSay10, oSay11 local oGet1, oGet2, oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9, oGet LOCAL oFont9, oBtm, oBtm2, oFont10 LOCAL oBmp, oBmp1, oBmp2 local oTbmp local oTbmp1 local oBtnBmp local oBtnBmp2 local oBtnBmp3 local oBtnBmp4 local oNlab local oIcono3 public ...

... osay12, oSay13, oSay14, oSay15, oSay16 local oGet1, oGet2, oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9, oGet LOCAL oFont9, oBtm, oBtm2, oFont10 LOCAL oBmp, oBmp1, oBmp2, oBarrbtm local oLbx local oTbmp local oTbmp1 local oBtnBmp local oBtnBmp2 local oBtnBmp3 local oBtnBmp4 local oNlab ...

... oSay13, oSay14, oSay15, oSay16, oSay17 local oGet1, oGet2, oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9, oGet LOCAL oFont9, oBtm, oBtm2, oFont10 LOCAL oBmp, oBmp1, oBmp2, oBarrbtm local oTbmp local oTbmp1 local oBtnBmp local oBtnBmp2 local oBtnBmp3 local oBtnBmp4 local oNlab local oIcono3 ...

... oSay13, oSay14, oSay15, oSay16, oSay17 local oGet1, oGet2, oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9, oGet LOCAL oFont9, oBtm, oBtm2, oFont10 LOCAL oBmp, oBmp1, oBmp2, oBarrbtm local oTbmp local oTbmp1 local oBtnBmp local oBtnBmp2 local oBtnBmp3 local oBtnBmp4 local oNlab local oIcono3 ...

... la hora de la hora, así lo puse y funciona perfectamente para cualquier resolución de la impresora. ::oPrn:CmSay(5,0,"TEXTO EN CUALQUIER TAMAÑO",::oFont10 ,::oPrn:nHorzRes ,,,2 ) Gracias por la información. :D Francisco

... 8 pulgadas de ancho, y para no tener sorpresas a la hora de la hora, así lo puse y funciona perfectamente. ::oPrn:CmSay(9,0,"TEXTO A CENTRAR",::oFont10 ,::oPrn:nHorzRes ,,,2 ) Gracias por su informacion. Francisco

... ancho que le di fue de 5000,no se si sean pixels o que, y en el ultimo parametro el de centrar, asi me quedo: ::oPrn:CmSay(9,0,"TEXTO A CENTRAR",::oFont10,5000,,,2 ) // 1 para otra fuente pues hay que buscarle con otro ancho, espero que te sirva de algo. si alguien me puede ampliar mi poco entendiiento ...