topic-44755

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Otra petición a la TREPORT
Posted: Tue Aug 06, 2024 06: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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Otra petición a la TREPORT
Posted: Tue Aug 06, 2024 06:46 PM

Code (fw): Select all Collapse

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

Mira,

Code (fw): Select all Collapse

c:\fwh\samples\report\rep15.prg

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Otra petición a la TREPORT
Posted: Tue Aug 06, 2024 07:28 PM

Code (fw): Select all Collapse

// 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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Otra petición a la TREPORT
Posted: Tue Aug 06, 2024 09:13 PM

Karinha y amigos:

El código que tengo es así:

Code (fw): Select all Collapse

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Otra petición a la TREPORT
Posted: Tue Aug 06, 2024 11:11 PM

Karinha:

Puedes mostrar una imagen del resultado de tu ejemplo?.

Saludos

karinha wrote:

Code (fw): Select all Collapse

// 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.

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Otra petición a la TREPORT
Posted: Wed Aug 07, 2024 12:34 PM

Buen dia Armando,

https://imgur.com/NrnPLCf

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Otra petición a la TREPORT
Posted: Wed Aug 07, 2024 12:36 PM

Armando, mejorado:

Code (fw): Select all Collapse

// 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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Otra petición a la TREPORT
Posted: Wed Aug 07, 2024 05:41 PM

Karinha:

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Otra petición a la TREPORT
Posted: Wed Aug 07, 2024 05: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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Otra petición a la TREPORT
Posted: Fri Aug 09, 2024 01:40 AM

Master Antonio:

No hay solución? o alternativa?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Otra petición a la TREPORT
Posted: Fri Aug 09, 2024 01: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/viewtopic.php?f=6&t=40303&p=240713&hilit=concepto&sid=36d1f8fec359ee48e2ed776bf4effca0&sid=eb9291f68349ce952884e6b160f5313c#p240713

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Otra petición a la TREPORT
Posted: Fri Aug 09, 2024 05: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/viewtopic.php?f=6&t=40303&p=240713&hilit=concepto&sid=eb9291f68349ce952884e6b160f5313c&sid=9e1e04b9154d6ecfb89fba65edc1ab50#p240713

Regards, saludos.

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Otra petición a la TREPORT
Posted: Fri Aug 09, 2024 06:16 PM

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

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Otra petición a la TREPORT
Posted: Fri Aug 09, 2024 06: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.

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion