Otra petición a la TREPORT

Armando · Post by **Armando** » Tue Aug 06, 2024 6:16 pm

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

Post by **karinha** » Tue Aug 06, 2024 6:46 pm

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.

Post by **karinha** » Tue Aug 06, 2024 7:28 pm

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.

Armando · Post by **Armando** » Tue Aug 06, 2024 9:13 pm

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

Armando · Post by **Armando** » Tue Aug 06, 2024 11:11 pm

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.

Post by **karinha** » Wed Aug 07, 2024 12:34 pm

Buen dia Armando,

https://imgur.com/NrnPLCf

Regards, saludos.

Post by **karinha** » Wed Aug 07, 2024 12:36 pm

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.

Armando · Post by **Armando** » Wed Aug 07, 2024 5:41 pm

Karinha:

En tu código veo que utilizas GROUPTITLE, existe lo mismo para las líneas de detalle?

Saludos

Armando · Post by **Armando** » Wed Aug 07, 2024 5:56 pm

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

Armando · Post by **Armando** » Fri Aug 09, 2024 1:40 am

Master Antonio:

No hay solución? o alternativa?

Saludos

Post by **karinha** » Fri Aug 09, 2024 1:53 pm

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.

Armando · Post by **Armando** » Fri Aug 09, 2024 5:17 pm

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.

Post by **karinha** » Fri Aug 09, 2024 6:16 pm

Armando, 1000 disculpas, la intención no era lastimar a mi querido amigo. ¡Perdón!

Regards, saludos.

Armando · Post by **Armando** » Fri Aug 09, 2024 6:28 pm

Joao:

No es necesario pedir disculpas, por el contrario agradezco y alabo tu interés en apoyar a los ñoños como yo.

Abrazos.

FiveTech Software tech support forums

Otra petición a la TREPORT

Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT

Re: Otra petición a la TREPORT