FiveTech Software tech support forums

Hola Antonio, te paso una función que tengo donde genero el dia de la fecha, espero y te sirva: FUNCTION Fecha( dFecha ) LOCAL cLeyenda, aDias, aMeses DEFAULT dFecha := Date() aDias := { "Domingo, ","Lunes, ","Martes, ","Miercoles, ","Jueves, ","Viernes, ...

Hola Antonio, te paso una función que tengo donde genero el dia de la fecha, espero y te sirva: FUNCTION Fecha( dFecha ) LOCAL cLeyenda, aDias, aMeses DEFAULT dFecha := Date() aDias := { "Domingo, ","Lunes, ","Martes, ","Miercoles, ","Jueves, ","Viernes, ...

... segui mirando en el foro y encontre algo que publico Antonio para el browse y anda de maravillas es asi: nOp++ (si sube) nOp-- (si baja) cMes := aMeses[nOp] oSay:SetText('MES: '+ cMes ) oSel := oTree:Scan( { | o | cMes $ o:cPrompt } ) oTree:Select( oSel ) el metodo Scan(bAction) del oTree te ...

... DATA lSelectOK AS LOGICAL INIT .T. DATA bCambioMes //Block a ejecutar cuando cambie el mes... DATA bFestivos //Bingen DATA nLanguage //Bingen DATA aMeses AS ARRAY INIT ARRAY(12) //Bingen DATA nLastDay AS NUMERIC INIT 1 // Datos relacionados con la fecha seleccionada. DATA dFechaControl DATA nMesNumero ...

local aMeses := {"Enero", "Febrero", "Marzo", ...}, oCbx, cMes := ""

REDEFINE COMBOBOX oCbx VAR cMes ITEMS aMeses ID ID_MES OF oDlg
...

if lSave
ARCHIVO->CAMPO := cMes

... Fil=nFila col=nColumna Page oPrint:Say(nFila*6,nColumna*40," Santiago, "+spac(8)+subs(a->fec_inf,1,2)+spac(11)+aMeses[val(subs(a->fec_inf,4,2))]+space(7); +subs(a->fec_inf,7,4),oFont1) oPrint:Say(nFila*7,nColumna*12,"Sr(a)DR(a) : "+OemToAnsi(trim(a->med_sol)),oFont2) ...

... Fil=nFila col=nColumna Page oPrint:Say(nFila*6,nColumna*40," Santiago, "+spac(8)+subs(a->fec_inf,1,2)+spac(11)+aMeses[val(subs(a->fec_inf,4,2))]+space(7); +subs(a->fec_inf,7,4),oFont1) oPrint:Say(nFila*7,nColumna*12,"Sr(a)DR(a) : "+OemToAnsi(trim(a->med_sol)),oFont2) ...

... "24", "25", ; "26", "27", "28", "29", "30", "31" } READONLY DATA aMeses AS ARRAY INIT { "" , "Enero", "Febrero", "Marzo", "Abril", ; "Mayo", "Junio", ...

... "24", "25", ; "26", "27", "28", "29", "30", "31" } READONLY DATA aMeses AS ARRAY INIT { "Enero", "Febrero", "Marzo", "Abril", ; "Mayo", "Junio", "Julio", ...

... neste exemplo a classe TGRAPH funciona muito bem, a não ser pelo tipo PIZZA, que me mostra JANEIRO com 4% mesmo estando zerado. É algum bug? aMeses:={0,100,0,0,0,0,0,0,0,0,0,0} oGraph:=TGraph():New(0,0,oWndGraf,oWndGraf:nWidth()-8,oWndGraf:nHeight()-30) oGraph:cPicture := "@E 999,999.99" ...

Amigos: El siguiente código LOCAL nMes := 1 LOCAL aMeses := {"Ene","Feb","Mzo","Abr","May","Jun",Jul",; "Ago","Sep","Oct","Nov","Dic"} REDEFINE COMBOBOX aGets[2] VAR nMes ID 102 OF oDlg UPDATE; PROMPTS aMeses En Harbour el valor retornado es la posición ...

... DEFINE FONT oFont NAME "Courier New" SIZE 0,-15 REPORT oReport Title " "," "," ",spac(32)+" Santiago "+spac(8)+subs(a->fec_inf,1,2)+spac(11)+aMeses[val(subs(a->fec_inf,4,2))]+space(7)+subs(a->fec_inf,7,4)," ",; "Sr(a)DR(a) : "+OemToAnsi(trim(a->med_sol))," "," ","Presente ",OemToAnsi(trim(a->tip_exa))," ...

... DEFINE FONT oFont NAME "Courier New" SIZE 0,-15 REPORT oReport Title " "," "," ",spac(32)+" Santiago "+spac(8)+subs(a->fec_inf,1,2)+spac(11)+aMeses[val(subs(a->fec_inf,4,2))]+space(7)+subs(a->fec_inf,7,4)," ",; "Sr(a)DR(a) : "+OemToAnsi(trim(a->med_sol))," "," ","Presente ",OemToAnsi(trim(a->tip_exa))," ...

... DATA oGet, vGet DATA oCmb, vCmb, aCmb DATA oDpk, vDpk DATA oCkb, vCkb DATA oRbt, vRbt DATA oBtn DATA aDbf, bLoc DATA cScope DATA aDatos, aLocal, aMeses, aAnos, aCmb, aTurnos DATA cMes, cAno, cLocal, cTurnos, cMesano DATA lBrw, lRbt METHOD Open() METHOD Init() METHOD New() Constructor METHOD Close() ...