Otra petición a la TREPORT

[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

[karinha]

Code: Select all  Expand view  RUN

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

Mira,

Code: Select all  Expand view  RUN

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

Regards, saludos.

[karinha]

Code: Select all  Expand view  RUN

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

Karinha y amigos:

El código que tengo es así:

Code: Select all  Expand view  RUN

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]

Karinha:

Puedes mostrar una imagen del resultado de tu ejemplo?.

Saludos

Code: Select all  Expand view  RUN

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

[karinha]

Buen dia Armando,

https://imgur.com/NrnPLCf



Regards, saludos.

[karinha]

Armando, mejorado:

Code: Select all  Expand view  RUN

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

Karinha:

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

Saludos

[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

[Armando]

Master Antonio:

No hay solución? o alternativa?

Saludos

[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/viewtopic.php?f=6&t=40303&p=240713&hilit=concepto&sid=36d1f8fec359ee48e2ed776bf4effca0&sid=eb9291f68349ce952884e6b160f5313c#p240713

Regards, saludos.

[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

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.

[karinha]

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

Regards, saludos.

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