In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

oReport

Foro público de Xailer en español
Responder
Rolando
Mensajes: 191
Registrado: Lun May 08, 2006 2:10 pm

oReport

Mensaje por Rolando »

Hola foro: estoy tratando de poner un cartel en el total de la columna
módulos y no lo logro, despues de la defición de las columnas están las
pruebas que hice con oReport:..., a lo mejor alguno ve el error, Gracias.
FUNCTION ListaProf(oData)
Local oReport, oFont1, oFont2, cProf := oData:Profesion, oDa := oData:Clone
oDa:seek(oData:Profesion+dtos(oData:fechatur))
With Object oFont1 := TFont():New()
:cName := "Arial"
:nSize := 12
:lBold := .T.
END WITH
With Object oFont2 := TFont():New()
:cName := "Arial"
:nSize := 10
:lBold := .f.
:lItalic := .t.
END WITH
REPORT oReport ;
TITLE "Profesional: "+cProf+" Fecha: "+dtoc(oData:fechatur) ;
FOOTER "Impreso el: "+ DtoC( Date() ) + " a las " + Time() ALIGN taRIGHT;
PREVIEW ;
FONT oFont1, oFont2 ;
JobName "Turnos 2.0"
COLUMN OF oReport ;
TITLE "Pacientes" ALIGN taCENTER;
DATA oDa:Paciente ALIGN taLEFT ;
FONT 2
COLUMN OF oReport ;
TITLE "Hora" ;
DATA oDa:hora ;
FONT 2
COLUMN OF oReport ;
TITLE "Módulos" ;
DATA oDa:modulos ALIGN taRIGHT;
PICTURE "9999999" ;
TOTAL ;
FONT 2
// Todo lo que empieza con oReport: no hace nada
oReport:aColumns[3]:OnPrintTotal := {|o,ct|ct := "Total: "+ct}
oReport:cPageTotal := "Total: "
oReport:lPageTotal := .t. // es el default, como .f. tampoco hace nada
//oReport:cJobName := "Turnos 2.0" //No funciona, Si funciona como clausula
de REPORT oReport
RUN REPORT oReport while oDa:fechatur == oData:fechatur
oFont1:Destroy()
oFont2:Destroy()
--
Rolando Sarrailh
Teléfono,
int. +54-221-489-1480
nac. 0221-489-1480
loc. 489-1480
rsarrailh@gmail.com
Arriba
jrcpoli
Mensajes: 240
Registrado: Mié Oct 25, 2006 8:55 pm

oReport

Mensaje por jrcpoli »

Saludos:
Según la ayuda de Xailer despues de la clausula While se espera un bloque de
codigo, mira la ayuda.
Expresión WHILE del informe, es decir, imprimir mientras que se
produzca una determinada condición. Puede ser cualquier expresión en forma
de bloque de código (code-block) que devuelva un valor lógico. Dicha
expresión será evaluada en cada iteración del bucle de impresión y en el
caso de que la expresión indicada devuelva alguna vez falso dicha iteración
será descartada y el informe terminará inmediatamente. Por defecto esta
propiedad está inicializada a un simple !EOF() sobre la tabla DBF activa.
Ámbito:
Asignable
Tipo:
Code-block
Valor inicial:
{|| !EOF() }
José Ramón Castro Polinio.
"Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
news:[email=44e5b4c4@news.xailer.com...]44e5b4c4@news.xailer.com...[/email]
> Hola foro: estoy tratando de poner un cartel en el total de la columna
> módulos y no lo logro, despues de la defición de las columnas están las
> pruebas que hice con oReport:..., a lo mejor alguno ve el error, Gracias.
>
> FUNCTION ListaProf(oData)
> Local oReport, oFont1, oFont2, cProf := oData:Profesion, oDa :=
> oData:Clone
>
> oDa:seek(oData:Profesion+dtos(oData:fechatur))
>
> With Object oFont1 := TFont():New()
> :cName := "Arial"
> :nSize := 12
> :lBold := .T.
> END WITH
>
> With Object oFont2 := TFont():New()
> :cName := "Arial"
> :nSize := 10
> :lBold := .f.
> :lItalic := .t.
> END WITH
>
> REPORT oReport ;
> TITLE "Profesional: "+cProf+" Fecha: "+dtoc(oData:fechatur) ;
> FOOTER "Impreso el: "+ DtoC( Date() ) + " a las " + Time() ALIGN
> taRIGHT;
> PREVIEW ;
> FONT oFont1, oFont2 ;
> JobName "Turnos 2.0"
>
>
> COLUMN OF oReport ;
> TITLE "Pacientes" ALIGN taCENTER;
> DATA oDa:Paciente ALIGN taLEFT ;
> FONT 2
>
>
> COLUMN OF oReport ;
> TITLE "Hora" ;
> DATA oDa:hora ;
> FONT 2
>
> COLUMN OF oReport ;
> TITLE "Módulos" ;
> DATA oDa:modulos ALIGN taRIGHT;
> PICTURE "9999999" ;
> TOTAL ;
> FONT 2
>
> // Todo lo que empieza con oReport: no hace nada
> oReport:aColumns[3]:OnPrintTotal := {|o,ct|ct := "Total: "+ct}
> oReport:cPageTotal := "Total: "
> oReport:lPageTotal := .t. // es el default, como .f. tampoco hace nada
> //oReport:cJobName := "Turnos 2.0" //No funciona, Si funciona como
> clausula
> de REPORT oReport
>
> RUN REPORT oReport while oDa:fechatur == oData:fechatur
>
> oFont1:Destroy()
> oFont2:Destroy()
>
>
> --
> Rolando Sarrailh
> Teléfono,
> int. +54-221-489-1480
> nac. 0221-489-1480
> loc. 489-1480
> rsarrailh@gmail.com
>
>
José Ramón Castro.
Arriba
Rolando
Mensajes: 191
Registrado: Lun May 08, 2006 2:10 pm

oReport

Mensaje por Rolando »

Hola: el reporte funciona perfectamente, lo que quiero es ponerle una
leyenda en el total "Total: ",
el while acepta expresiones, Gracias igual.
"José R.Castro" <jrcpoli@terra.es> escribió en el mensaje
news:[email=44e60b29@news.xailer.com...]44e60b29@news.xailer.com...[/email]
> Saludos:
>
> Según la ayuda de Xailer despues de la clausula While se espera un bloque
> de
> codigo, mira la ayuda.
>
> Expresión WHILE del informe, es decir, imprimir mientras que se
> produzca una determinada condición. Puede ser cualquier expresión en forma
> de bloque de código (code-block) que devuelva un valor lógico. Dicha
> expresión será evaluada en cada iteración del bucle de impresión y en el
> caso de que la expresión indicada devuelva alguna vez falso dicha
> iteración
> será descartada y el informe terminará inmediatamente. Por defecto esta
> propiedad está inicializada a un simple !EOF() sobre la tabla DBF activa.
>
>
>
> Ámbito:
> Asignable
>
> Tipo:
> Code-block
>
> Valor inicial:
> {|| !EOF() }
>
>
>
> José Ramón Castro Polinio.
>
> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
> news:[email=44e5b4c4@news.xailer.com...]44e5b4c4@news.xailer.com...[/email]
>> Hola foro: estoy tratando de poner un cartel en el total de la columna
>> módulos y no lo logro, despues de la defición de las columnas están las
>> pruebas que hice con oReport:..., a lo mejor alguno ve el error, Gracias.
>>
>> FUNCTION ListaProf(oData)
>> Local oReport, oFont1, oFont2, cProf := oData:Profesion, oDa :=
>> oData:Clone
>>
>> oDa:seek(oData:Profesion+dtos(oData:fechatur))
>>
>> With Object oFont1 := TFont():New()
>> :cName := "Arial"
>> :nSize := 12
>> :lBold := .T.
>> END WITH
>>
>> With Object oFont2 := TFont():New()
>> :cName := "Arial"
>> :nSize := 10
>> :lBold := .f.
>> :lItalic := .t.
>> END WITH
>>
>> REPORT oReport ;
>> TITLE "Profesional: "+cProf+" Fecha: "+dtoc(oData:fechatur) ;
>> FOOTER "Impreso el: "+ DtoC( Date() ) + " a las " + Time() ALIGN
>> taRIGHT;
>> PREVIEW ;
>> FONT oFont1, oFont2 ;
>> JobName "Turnos 2.0"
>>
>>
>> COLUMN OF oReport ;
>> TITLE "Pacientes" ALIGN taCENTER;
>> DATA oDa:Paciente ALIGN taLEFT ;
>> FONT 2
>>
>>
>> COLUMN OF oReport ;
>> TITLE "Hora" ;
>> DATA oDa:hora ;
>> FONT 2
>>
>> COLUMN OF oReport ;
>> TITLE "Módulos" ;
>> DATA oDa:modulos ALIGN taRIGHT;
>> PICTURE "9999999" ;
>> TOTAL ;
>> FONT 2
>>
>> // Todo lo que empieza con oReport: no hace nada
>> oReport:aColumns[3]:OnPrintTotal := {|o,ct|ct := "Total: "+ct}
>> oReport:cPageTotal := "Total: "
>> oReport:lPageTotal := .t. // es el default, como .f. tampoco hace nada
>> //oReport:cJobName := "Turnos 2.0" //No funciona, Si funciona como
>> clausula
>> de REPORT oReport
>>
>> RUN REPORT oReport while oDa:fechatur == oData:fechatur
>>
>> oFont1:Destroy()
>> oFont2:Destroy()
>>
>>
>> --
>> Rolando Sarrailh
>> Teléfono,
>> int. +54-221-489-1480
>> nac. 0221-489-1480
>> loc. 489-1480
>> rsarrailh@gmail.com
>>
>>
>
>
Arriba
Responder

Volver a “Xailer Spanish”