home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / CLASSES / RCOLUMN.PRG < prev    next >
Text File  |  1994-06-09  |  4KB  |  91 lines
  1. /*
  2. ┌─ Programa ───────────────────────────────────────────────────────────────┐
  3. │   Aplicación: Clase TRcolumn                                             │
  4. │      Fichero: RCOLUMN.PRG                                                │
  5. │        Autor: Ignacio Ortiz de Zúñiga Echeverría                         │
  6. │        Fecha: 24/05/94                                                   │
  7. │         Hora: 17:20:39                                                   │
  8. │    Make File: None                                                       │
  9. │    Exec File: None                                                       │
  10. │    Copyright: 1994 by Ortiz de Zuñiga, S.L.                              │
  11. └──────────────────────────────────────────────────────────────────────────┘
  12. */
  13.  
  14. #include "FiveWin.ch"
  15. #include "common.ch"
  16.  
  17. /*
  18. ┌─ Clase ──────────────────────────────────────────────────────────────────┐
  19. │  Descripción: Clase Columnas de Report                                   │
  20. │        Autor: Ignacio Ortiz de Zúñiga Echeverría                         │
  21. │        Fecha: 24/05/94                                                   │
  22. │         Hora: 16:18:37                                                   │
  23. │    Copyright: Ortiz de Zuñiga, S.L.                                      │
  24. └──────────────────────────────────────────────────────────────────────────┘
  25. */
  26. CLASS TRColumn
  27.  
  28.    DATA nWidth     ,;        // ancho
  29.         aTitle     ,;        // matriz de bTitulos
  30.         aData      ,;        // matriz de bData
  31.         aPicture   ,;        // matriz de cPictures
  32.         bFont      ,;        // bloque->nId | nId => oReport:aFont[nId]
  33.         oReport    ,;        // Referencia Container Report
  34.         lTotal     ,;        // total (.T.|.F.)
  35.         nTotal     ,;        // valor total de la columna
  36.         aSubTotal  ,;        // matriz de subtotales por cada Grupo
  37.         bTotalExpr ,;        // Condición para totalizar bloque->lógico
  38.         bTotalPict ,;        // Picture de total y subtotal
  39.         nCol       ,;        // columna de impresión fijada por el usuario
  40.         cColUpChar ,;        // caracter para Columna Titulo Arriba
  41.         cColDnChar           // caracter para Columna Titulo Abajo
  42.  
  43.      METHOD New() CONSTRUCTOR
  44.  
  45. ENDCLASS
  46.  
  47. /*
  48. ┌─ Clase ──────────────────────────────────────────────────────────────────┐
  49. │  Descripción: Constructor de clase TRColumn                              │
  50. │        Autor: Ignacio Ortiz de Zúñiga Echeverría                         │
  51. │        Fecha: 24/05/94                                                   │
  52. │         Hora: 18:07:14                                                   │
  53. │    Copyright: Ortiz de Zuñiga, S.L.                                      │
  54. └──────────────────────────────────────────────────────────────────────────┘
  55. */
  56. METHOD New( aTitle     ,;
  57.             nCol       ,;
  58.             aData      ,;
  59.             nSize      ,;
  60.             aPicture   ,;
  61.             bFont      ,;
  62.             lTotal     ,;
  63.             bTotalExpr ,;
  64.             oReport     )  CLASS TRColumn
  65.  
  66.      DEFAULT aTitle      := {{|| ""} }                   ,;
  67.              aData       := {{|| ""} }                   ,;
  68.              nSize       := len(aTitle[1])               ,;
  69.              aPicture    := aFill(array(len(aData)),"")  ,;
  70.              nCol        := 0                            ,;
  71.              bFont       := {|| 1 }                      ,;
  72.              lTotal      := .F.                          ,;
  73.              bTotalExpr  := {|| .T. }
  74.  
  75.      ::aTitle     = aTitle
  76.      ::aData      = aData
  77.      ::nWidth     = nSize
  78.      ::aPicture   = aPicture
  79.      ::bFont      = bFont
  80.      ::lTotal     = lTotal
  81.      ::nTotal     = 0
  82.      ::oReport    = oReport
  83.      ::bTotalExpr = bTotalExpr
  84.      ::nCol       = nCol
  85.      ::cColUpChar = "="
  86.      ::cColDnChar = "="
  87.      ::bTotalPict = iif(len(aPicture)>0, aPicture[1], "")
  88.  
  89. Return NIL
  90.  
  91.