Page 1 of 1
Otra petición a la TREPORT
Posted: Tue Aug 06, 2024 6:16 pm
by Armando
Estimado amigos y Antonio:
La imagen adjunta es producto de un reporte con la clase TREPORT, en la columna T
hay valores que se truncan porque la columna no es lo suficientemente ancha, pero
así debe ser, entiendo que con ampliar la columna se soluciona, pero insisto así de
angosta la necesito.
La pregunta o petición es cómo puedo hacer que el valor invada la columna de la
izquierda (Gastado S/Iva)
Saludos
Re: Otra petición a la TREPORT
Posted: Tue Aug 06, 2024 6:46 pm
by karinha
Re: Otra petición a la TREPORT
Posted: Tue Aug 06, 2024 7:28 pm
by karinha
Code: Select all | Expand
// C:\FWH\SAMPLES\ARMANRPT.PRG
#include "Fivewin.ch"
#include "Report.ch"
FUNCTION Main()
LOCAL oPen1, oPen2
LOCAL oFont1, oFont2, oFont3
LOCAL oReport
USE CUSTOMER
GO TOP
DEFINE PEN oPen1 WIDTH 2
DEFINE PEN oPen2 WIDTH 1
DEFINE FONT oFont1 NAME "Arial" SIZE 0, -11
DEFINE FONT oFont2 NAME "Arial" SIZE 0, -11
DEFINE FONT oFont3 NAME "Courier New" SIZE 0, 10
REPORT oReport TITLE "Listagem da AGENDA" ;
CAPTION "Catálogo: AGENDA" ;
HEADER "AGENDA", ;
"Data: " + DTOC( DATE() ), ;
"Página: " + STR( oReport:nPage, 3 ) ;
FOOTER "- AGENDA -" CENTER ;
FONT oFont1, oFont2, oFont3 ;
PEN oPen1, oPen2 ; //-> Tipo de linha a usar no cabe‡alho
PREVIEW //-> Ativa o Preview - Listagem
oReport:oDevice:lPrvModal := .T.
oReport:oDevice:SetPage(9) //-> Formato A4
COLUMN TITLE "SlNo" DATA FIELD->ID GRID
COLUMN TITLE "First" GROUPTITLE "NAME" DATA FIELD->FIRST SIZE 15 FONT 3
COLUMN TITLE "Last" GROUPTITLE "NAME" DATA FIELD->LAST SIZE 15 FONT 3
COLUMN TITLE "Age" DATA FIELD->AGE GRID
COLUMN TITLE "City" GROUPTITLE "ADDRESS" DATA FIELD->CITY SIZE 15 FONT 3
COLUMN TITLE "Zip" GROUPTITLE "ADDRESS" DATA FIELD->ZIP SIZE 15 FONT 3
COLUMN TITLE "State" GROUPTITLE "ADDRESS" DATA FIELD->STATE SIZE 25 FONT 3
COLUMN TITLE "SALARY" DATA FIELD->SALARY GRID
END REPORT
/*
oReport:SetTxtColor(CLR_HBLUE,1)
oReport:SetTxtColor(CLR_HRED,2)
oReport:SetTxtColor(CLR_YELLOW,3)
oReport:SetPenColor(CLR_HCYAN)
oReport:SetShdColor(CLR_GREEN)
*/
IF !oReport:lCreated
RETURN NIL
ENDIF
oReport:CellView()
ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }
oPen1:End()
oPen2:End()
oFont1:End()
oFont2:End()
oFont3:End()
RETURN NIL
// FIN / END - kapiabafwh@gmail.com
Regards, saludos.
Re: Otra petición a la TREPORT
Posted: Tue Aug 06, 2024 9:13 pm
by Armando
Karinha y amigos:
El código que tengo es así:
Code: Select all | Expand
COLUMN TITLE "Concepto" DATA Left(oRsCie:Fields("CIE_DES"):Value,40) SIZE 30 Left FONT DameFont()
COLUMN TITLE "Presupuesto" DATA oRsCie:Fields("CIE_PRE"):Value SIZE 12 RIGHT PICTURE "@Z 999,999,999.99" TOTAL FOR oRsCie:Fields("CIE_SUP"):Value
COLUMN TITLE "Gastado S/Iva" DATA "" SIZE 12 RIGHT
COLUMN TITLE "T" DATA oRsCie:Fields("CIE_GAS"):Value SIZE 05 RIGHT PICTURE "@Z 999,999,999.99" FONT 1
COLUMN TITLE "Diferencia" DATA oRsCie:Fields("CIE_DIF"):Value SIZE 12 RIGHT PICTURE "@Z 999,999,999.99" TOTAL FOR oRsCie:Fields("CIE_NI1"):Value > 0 .AND. oRsCie:Fields("CIE_NI2"):Value = 0
//
El resultado es el mismo
Saludos
Re: Otra petición a la TREPORT
Posted: Tue Aug 06, 2024 11:11 pm
by Armando
Karinha:
Puedes mostrar una imagen del resultado de tu ejemplo?.
Saludos
karinha wrote:Code: Select all | Expand
// C:\FWH\SAMPLES\ARMANRPT.PRG
#include "Fivewin.ch"
#include "Report.ch"
FUNCTION Main()
LOCAL oPen1, oPen2
LOCAL oFont1, oFont2, oFont3
LOCAL oReport
USE CUSTOMER
GO TOP
DEFINE PEN oPen1 WIDTH 2
DEFINE PEN oPen2 WIDTH 1
DEFINE FONT oFont1 NAME "Arial" SIZE 0, -11
DEFINE FONT oFont2 NAME "Arial" SIZE 0, -11
DEFINE FONT oFont3 NAME "Courier New" SIZE 0, 10
REPORT oReport TITLE "Listagem da AGENDA" ;
CAPTION "Catálogo: AGENDA" ;
HEADER "AGENDA", ;
"Data: " + DTOC( DATE() ), ;
"Página: " + STR( oReport:nPage, 3 ) ;
FOOTER "- AGENDA -" CENTER ;
FONT oFont1, oFont2, oFont3 ;
PEN oPen1, oPen2 ; //-> Tipo de linha a usar no cabe‡alho
PREVIEW //-> Ativa o Preview - Listagem
oReport:oDevice:lPrvModal := .T.
oReport:oDevice:SetPage(9) //-> Formato A4
COLUMN TITLE "SlNo" DATA FIELD->ID GRID
COLUMN TITLE "First" GROUPTITLE "NAME" DATA FIELD->FIRST SIZE 15 FONT 3
COLUMN TITLE "Last" GROUPTITLE "NAME" DATA FIELD->LAST SIZE 15 FONT 3
COLUMN TITLE "Age" DATA FIELD->AGE GRID
COLUMN TITLE "City" GROUPTITLE "ADDRESS" DATA FIELD->CITY SIZE 15 FONT 3
COLUMN TITLE "Zip" GROUPTITLE "ADDRESS" DATA FIELD->ZIP SIZE 15 FONT 3
COLUMN TITLE "State" GROUPTITLE "ADDRESS" DATA FIELD->STATE SIZE 25 FONT 3
COLUMN TITLE "SALARY" DATA FIELD->SALARY GRID
END REPORT
/*
oReport:SetTxtColor(CLR_HBLUE,1)
oReport:SetTxtColor(CLR_HRED,2)
oReport:SetTxtColor(CLR_YELLOW,3)
oReport:SetPenColor(CLR_HCYAN)
oReport:SetShdColor(CLR_GREEN)
*/
IF !oReport:lCreated
RETURN NIL
ENDIF
oReport:CellView()
ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }
oPen1:End()
oPen2:End()
oFont1:End()
oFont2:End()
oFont3:End()
RETURN NIL
// FIN / END - kapiabafwh@gmail.com
Regards, saludos.
Re: Otra petición a la TREPORT
Posted: Wed Aug 07, 2024 12:34 pm
by karinha
Buen dia Armando,
https://imgur.com/NrnPLCf
Regards, saludos.
Re: Otra petición a la TREPORT
Posted: Wed Aug 07, 2024 12:36 pm
by karinha
Armando, mejorado:
Code: Select all | Expand
// C:\FWH\SAMPLES\ARMANRPT.PRG - version 2
#include "Fivewin.ch"
#include "Report.ch"
FUNCTION Main()
LOCAL oPen1, oPen2
LOCAL oFont1, oFont2, oFont3
LOCAL oReport
USE CUSTOMER
GO TOP
DEFINE PEN oPen1 WIDTH 2
DEFINE PEN oPen2 WIDTH 1
DEFINE FONT oFont1 NAME "Arial" SIZE 0, -11 BOLD
DEFINE FONT oFont2 NAME "Arial" SIZE 0, -11 BOLD
DEFINE FONT oFont3 NAME "Courier New" SIZE 0, 10 BOLD
REPORT oReport TITLE "Informe General" ;
CAPTION "Catálogo: AGENDA" ;
HEADER "AGENDA", ;
"Data: " + DTOC( DATE() ), ;
"Página: " + STR( oReport:nPage, 3 ) ;
FOOTER "- AGENDA -" CENTER ;
FONT oFont1, oFont2, oFont3 ;
PEN oPen1, oPen2 ; //-> Tipo de linha a usar no cabe‡alho
PREVIEW //-> Ativa o Preview - Listagem
oReport:oDevice:lPrvModal := .T.
oReport:oDevice:SetPage(9) //-> Formato A4
COLUMN TITLE "SlNo" DATA FIELD->ID SIZE 05 FONT 3 RIGHT GRID
COLUMN TITLE "First" GROUPTITLE "NAME" DATA FIELD->FIRST SIZE 15 FONT 3
COLUMN TITLE "Last" GROUPTITLE "NAME" DATA FIELD->LAST SIZE 15 FONT 3
COLUMN TITLE "Age" DATA FIELD->AGE SIZE 05 FONT 3 GRID
COLUMN TITLE "City" GROUPTITLE "ADDRESS" DATA FIELD->CITY SIZE 15 FONT 3
COLUMN TITLE "Zip" GROUPTITLE "ADDRESS" DATA FIELD->ZIP SIZE 10 FONT 3 RIGHT
COLUMN TITLE "State" GROUPTITLE "ADDRESS" DATA FIELD->STATE SIZE 07 FONT 3 RIGHT
COLUMN TITLE "SALARY" DATA FIELD->SALARY SIZE 15 FONT 3 RIGHT GRID
END REPORT
/*
oReport:SetTxtColor(CLR_HBLUE,1)
oReport:SetTxtColor(CLR_HRED,2)
oReport:SetTxtColor(CLR_YELLOW,3)
oReport:SetPenColor(CLR_HCYAN)
oReport:SetShdColor(CLR_GREEN)
*/
IF !oReport:lCreated
RETURN NIL
ENDIF
oReport:CellView()
ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }
oPen1:End()
oPen2:End()
oFont1:End()
oFont2:End()
oFont3:End()
RETURN NIL
// FIN / END - kapiabafwh@gmail.com
Regards, saludos.
Re: Otra petición a la TREPORT
Posted: Wed Aug 07, 2024 5:41 pm
by Armando
Karinha:
En tu código veo que utilizas GROUPTITLE, existe lo mismo para las líneas de detalle?
Saludos
Re: Otra petición a la TREPORT
Posted: Wed Aug 07, 2024 5:56 pm
by Armando
Amigos:
Por si no fui claro en mi primer post, adjunto imagen de lo que necesito, en la imagen el texto "Total concepto:"
abarca dos columnas, lo que en excel es combinar celdas, desde luego el ejemplo que muestro es en la línea
de totales por grupo, necesito el mismo efecto en los importes de la línea de detalle.
Saludos y muchas gracias por su aporte
Re: Otra petición a la TREPORT
Posted: Fri Aug 09, 2024 1:40 am
by Armando
Master Antonio:
No hay solución? o alternativa?
Saludos
Re: Otra petición a la TREPORT
Posted: Fri Aug 09, 2024 1:53 pm
by karinha
Armando, es difícil entender lo que necesitas, ya que no publicas ningún código completo.
Mira se és esto:
https://forums.fivetechsupport.com/view ... 3c#p240713
Regards, saludos.
Re: Otra petición a la TREPORT
Posted: Fri Aug 09, 2024 5:17 pm
by Armando
Querido João, agradeço e elogio a sua intenção de ajudar, mas, com todo o respeito, que o seu desejo de ajudar não o leve a fornecer soluções para problemas que você não entende, "para resolver um problema você deve primeiro entender o problema. "
Um abraço
Google Tradutor
Re: Otra petición a la TREPORT
Posted: Fri Aug 09, 2024 6:16 pm
by karinha
Armando, 1000 disculpas, la intención no era lastimar a mi querido amigo. ¡Perdón!
Regards, saludos.
Re: Otra petición a la TREPORT
Posted: Fri Aug 09, 2024 6:28 pm
by Armando
Joao:
No es necesario pedir disculpas, por el contrario agradezco y alabo tu interés en apoyar a los ñoños como yo.
Abrazos.