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.

Image

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

Code: Select all | Expand

SIZE 5 FONT oFont
Ó:
SIZE 9 FONT oFont 
etc...
 
Mira,

Code: Select all | Expand

c:\fwh\samples\report\rep15.prg
 
Regards, saludos.

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

Image

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.

Image

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

karinha wrote: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 ... 50#p240713

Regards, saludos.

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.