Printing an oBrw array

[hag]

I have a xBrowse display using an array. Works fine. Lost on how to figure out how to pint the array. Help please.

[Richard Chidiak]

Harvey

this is a sample ,

Hth

Richard

REPORT oREPORT ;
......
COLUMN TITLE "Date Visite" ;
DATA TVISU[nField][02];
FONT 2 ;
GRID 2
COLUMN TITLE "Heure" ;
DATA TVISU[nField][03];
GRID 2
COLUMN TITLE "Ouvrier" ;
DATA TVISU[nField][06];
SIZE 20 ;
FONT 1 ;
GRID 1
END REPORT

oReport:bSkip := {|| nField++}

ACTIVATE REPORT oREPORT WHILE nField <= len(TVISU)

[hag]

Thanks for the quick response. Tried it but I get a bound array access. Here is the code maybe you can tell me what I'm doing wrong.

Code: Select all | Expand

static function printIt()

   local oFont4 
   local oReport,oPen1, oPrn, oRep
     local nVar := 1, nField := 1
   local menucon3[3,03]


   for i = 1 to 3
      menucon3[i,1]  := "hag1"
      menucon3[i,2]  := "hag2"
      menucon3[i,3]  := "hag3"
   next i
                        
        
   if nVar == 1
      DEFINE FONT oFont4 NAME "Arial narrow" SIZE 0,-5.85 BOLD //of oRep:oDevice        
   else 
      DEFINE FONT oFont4 NAME "Arial narrow" SIZE 0,-6.25 BOLD //of oRep:oDevice        
   endif    
   define pen oPen1 width 1
   PRINT oPrn NAME "Profit and Loss"

  prnlandscape()
        
  ENDPRINT

     REPORT oReport ;
              TITLE rtrim(mcompname);
              FONT  oFont4,oFont4;
              PEN oPen1  ;
              HEADER "date";
              LEFT                      ;
              FOOTER OemtoAnsi("Footer");
              CENTERED                                ;
              PREVIEW                   ;
              CAPTION "Previewing Profit & Loss"
                            
              oReport:nTitleUpLine := RPT_NOLINE


   oReport:aFont[1] :=  oFont4
                        
   COLUMN TITLE "No." ;
   DATA menucon3[nField],[01];
   FONT oFont4 ;
   GRID 

   COLUMN TITLE "Name" ;
   DATA menucon3[nField],[02];
   FONT oFont4  ;
   GRID 

   COLUMN TITLE "Total" ;
   DATA menucon3[nField],[03];
   SIZE 20 ;
   FONT oFont4  ;
   GRID 

END REPORT

oReport:bSkip := {|| nField++}

ACTIVATE REPORT oReport WHILE nField <= len(menucon3)


[Richard Chidiak]

Harvey

try it this way

DATA menucon3[nField][01]

Richard

[hag]

Bound array error

[Richard Chidiak]

Harvey

i am refering to this in particular

DATA menucon3[nField],[01]

should be replaced with DATA menucon3[nField][01]

The comma in the data syntax will specify a second data value

Richard

[hag]

I took out the comma. Still get the error.

[hag]

the error is at the activate line.

[Richard Chidiak]

Harvey

there are several errors in your report definitions

i have made some changes and it compiles and run ok

the code is below

Richard

Code: Select all | Expand

menucon3 := {}

AADD(MENUCON3,{"hag1",1,100})
AADD(MENUCON3,{"hag2",2,200})
AADD(MENUCON3,{"hag3",3,300})

   DEFINE FONT oFont4 NAME "Arial narrow" SIZE 0,-5.85 BOLD //of oRep:oDevice
   define pen oPen1 width 1

     REPORT oReport ;
              TITLE "This is a test";
              FONT  oFont4 ;
              PEN oPen1  ;
              HEADER "date";
              LEFT                      ;
              FOOTER OemtoAnsi("Footer");
              CENTERED                                ;
              PREVIEW                   ;
              CAPTION "Previewing Profit & Loss"


   COLUMN TITLE "Name" ;
   DATA menucon3[nField][02];
   FONT 1  ;
   GRID 1

   COLUMN TITLE "No." ;
   DATA menucon3[nField][01];
   FONT 1 ;
   GRID 1

   COLUMN TITLE "Total" ;
   DATA menucon3[nField][03];
   SIZE 20 ;
   FONT 1  ;
   GRID 1

END REPORT

oReport:bSkip := {|| nField++}

ACTIVATE REPORT oReport WHILE nField <= len(menucon3)

 

[nageswaragunupudi]

I have a xBrowse display using an array. Works fine. Lost on how to figure out how to pint the array. Help please.

If you are already browsing the array, the simplest way to print is to call

Code: Select all | Expand

oBrw:Report()

[hag]

Thanks for all the help. oBrw:report( ) worked








0