EasyReport

[Otto]

Hello,
since some times I changed the way of filling the PRINTAREA of EasyReport.
I have now an array where I have the information. I the first column I have a description of the ID.
This way maintaining is easier.
Best regards,
Otto

Code: Select all  Expand view

METHOD prn_firma(oVRD) CLASS TQuitt

PRINTAREA 41 OF ::oVRD ;
   ITEMIDS    { 401, 402, 403, 404, 405 } ;
   ITEMVALUES { setup():cFirma, setup():cCompany, setup():cAddr1, setup():cAddr2, setup():cAtu }

return nil
 //----------------------------------------------------------------------------//      

Code: Select all  Expand view

METHOD prn_firma() CLASS TKopie
   local aID_Strings := {}
   local aID            := {}
   local aStrings    := {}    
   *----------------------------------------------------------

    aID_Strings := {;
            { "Firma",  401,    setup():cFirma }, ;
             { "Adr1",  402,    setup():cCompany }, ;
             { "Adr2",  403,    setup():cAddr1 }, ;
             { "Adr3",  404,    setup():cAddr2 }, ;
             { "ATU",   405,    setup():cAtu } }
       
            AEval( aID_Strings, { |a|  AADD( aID, a[2] ),  AADD( aStrings, a[3] ) } )
           
           PRINTAREA 41 OF ::oVrd ;
                ITEMIDS  aID;
                 ITEMVALUES aStrings

return nil
 

[Otto]

For those who are not familiar with EasyReport I forgot to mention that the values for the array are coming from the VRD-definition file.

[Items]

1=Text|Firma|401|1|1|1|2|1|68|6|10|3|2|2|0|0||0
2=Text|Adr1|402|1|1|1|8|1|68|4|10|3|2|2|0|0||0
3=Text|Adr2|403|1|1|1|13|1|68|4|7|3|2|2|0|0||0
5=Text|Adr3|404|1|1|1|18|1|68|4|7|3|2|2|0|0||0
401=TEXT|ATU|405|1|1|1|22|1|68|4|1|3|2|2|0|0||0||||||||||||