///OPENRSA
//
//*XPRINT USES FILTER CONDITION TO PROCESS INFO.
//
//xPrnVars("XPRINT_SETFILTER",.T.,"SET")
//
//rSysOpen("PREDSYS")
//PREDSYS->(rChgIndex( "PREDSYS1" ) )
//
//rSysOpen("PRTABLE")
//PRTABLE->(rChgIndex( "PRTABLE1" ) )
//
//rSysOpen("PREDEMP")
//PREDEMP->(rChgIndex( "PREDEMP1" ) )
//
//rSysOpen("PREMPLY")
//PREMPHST->(rChgIndex( "PREMPHS2" ) )
//
//xPrnAddCond(,,,"FILTER",[(PREMPHST->PERIOD0 # 0)] )
//
//xPrnVars("INIT.YEAR.",    YEAR(M_DATE)-1)
//xPrnVars("INIT.SUMMARY.", "N")
//
//rBox(17,00,23,79)
//xPrnMsg(18,01,"Year                        :",[],[N],04,"9999",".YEAR.",    1 )
//
//iif(xPrnMsgData(".YEAR.")=1999,xPrnVars("INIT.MAXBOXG.", 37400,  "SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=1999,xPrnVars("INIT.MAXBOXB.", 1186.50,"SET" ), "" )
//
//iif(xPrnMsgData(".YEAR.")=2000,xPrnVars("INIT.MAXBOXG.", 37600,  "SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2000,xPrnVars("INIT.MAXBOXB.", 1329.90,"SET" ), "" )
//
//iif(xPrnMsgData(".YEAR.")=2001,xPrnVars("INIT.MAXBOXG.", 38300,  "SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2001,xPrnVars("INIT.MAXBOXB.", 1496.40,"SET" ), "" )
//
//iif(xPrnMsgData(".YEAR.")=2002,xPrnVars("INIT.MAXBOXG.", 39100,  "SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2002,xPrnVars("INIT.MAXBOXB.", 1673.20,"SET" ), "" )
//
//iif(xPrnMsgData(".YEAR.")=2003,xPrnVars("INIT.MAXBOXG.", 39900,  "SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2003,xPrnVars("INIT.MAXBOXB.", 1801.80,"SET" ), "" )
//
//iif(xPrnMsgData(".YEAR.")=2004,xPrnVars("INIT.MAXBOXG.", 40500,  "SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2004,xPrnVars("INIT.MAXBOXB.", 1831.50,"SET" ), "" )
//
//iif(xPrnMsgData(".YEAR.")=2005,xPrnVars("INIT.MAXBOXG.", 41100,  "SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2005,xPrnVars("INIT.MAXBOXB.", 1861.20,"SET" ), "" )
//
//iif(xPrnMsgData(".YEAR.")=2006,xPrnVars("INIT.MAXBOXG.", 42100,  "SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2006,xPrnVars("INIT.MAXBOXB.", 1910.70,"SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2006,xPrnVars("INIT.MAXBOXI.", 57000,  "SET" ), "" )
//
//iif(xPrnMsgData(".YEAR.")=2007,xPrnVars("INIT.MAXBOXG.", 43700,  "SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2007,xPrnVars("INIT.MAXBOXB.", 1989.90,"SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2007,xPrnVars("INIT.MAXBOXI.", 59000,  "SET" ), "" )
//
//iif(xPrnMsgData(".YEAR.")=2008,xPrnVars("INIT.MAXBOXG.", 44900,  "SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2008,xPrnVars("INIT.MAXBOXB.", 2049.30,"SET" ), "" )
//iif(xPrnMsgData(".YEAR.")=2008,xPrnVars("INIT.MAXBOXI.", 60500,  "SET" ), "" )
//
//xPrnMsg(19,01,"Max QPP  Contribution BOX B :",[],[N],10,"9999999.99",".MAXBOXB.", 1 )
//xPrnMsg(20,01,"Max QPP  Dollars      BOX G :",[],[N],10,"9999999.99",".MAXBOXG.", 1 )
//xPrnMsg(21,01,"Max QPIP Dollars      BOX I :",[],[N],10,"9999999.99",".MAXBOXI.", 1 )
//xPrnMsg(22,01,"Print Summary List Also     :",[],[L],1,"!",   ".SUMMARY.",1 )
//
//xPrnVars("bDataBlock","{|nRow,nCol,nValue|aDataArray[nRow,nCol] := aDataArray[nRow,nCol] + nValue}", "SET", "B" )
//
//xPrnVars("CONFIG_XPRINT","{||RSA_FORMSIZE(IIF(RSPRNTR->LASER,11,3.8),10)}","SET","B")
///ENDOPENRSA

///OPENINDEX
//xPrnVars("DLL",     AccessDLL("L","SUMMARY"), "SET" )
//xPrnVars("DLLFUNC", AccessDLL("G","SumryLoadDll",xPrnVars("DLL") ), "SET" )
//AccessDLL( "C",,xPrnVars("DLLFUNC") )
//
//DBSELECTAREA("PREMPLY")
//DBGOTOP()
//
//&iif(.T.,M->M_TEMP := "PREMPHST->( DBSEEK( PREMPLY->NUMBER+[" + STR(xPrnMsgData("YEAR"),4) + PADR("EYTD",5) + "] ) )", "" )
//
//SumryInit()
//SumryInfo("FILTER",  cForExpr )
//SumryInfo("LOOKUP",  M_TEMP   )
//SumryInfo("DISPLAY",[NUMBER+" "+LNAME+" "+FNAME])
//
//SumryGroup("LNAME"   ,[C],20,0)
//SumryGroup("NUMBER"  ,[C],10,0)
//SumryBreak("LNAME+NUMBER"     )
//
//SumryField([0])
//
//xPrnVars( "ABORT_CLOSE", ! SumryExec() )
//iif( xPrnVars( "ABORT_CLOSE" ), xPrnAbort(), .T. )
//
//DBSELECTAREA("PREMPLY")
//DBCLEARREL()
//PREMPHST->(rChgIndex( "PREMPHS1" ) )
//
//DBSELECTAREA("SUMRYDBF")
//
//iif( xPrnMsgData(".SUMMARY."), DBAPPEND(), "" )
//iif( xPrnMsgData(".SUMMARY."), SUMRYDBF->GROUP1:=REPLICATE(CHR(255),20), "" )
//iif( xPrnMsgData(".SUMMARY."), SUMRYDBF->GROUP2:="SUM_TOTAL",            "" )
//
//&DBSETRELAT("PREMPLY",{||SUMRYDBF->GROUP2},"SUMRYDBF->GROUP2")
//DBGOTOP()
//
//xPrnVars("CRITERIA_CLEAR",.T.)
//
///ENDOPENINDEX

//SELECT FORM HEIGHT 3.8 WIDTH 10.0

BEGIN FILES
      USE SUMRYDBF
END FILES

PUBLIC xcYear

PUBLIC xnBOXA, xnBOXB, xnBOXC, xnBOXD, xnBOXE, xnBOXF
PUBLIC xnBOXG, xnBOXH, xnBOXI, xnBOXJ, xnBOXK, xnBOXL
PUBLIC xnBOXM, xnBOXN, xnBOXO, xnBOXP, xnBOXQ, xnBOXR
PUBLIC xnBOXS, xnBOXT, xnBOXU, xnBOXV, xnBOXW, xcCASEO

BEGIN WINDOW
      AREA 00,00 TO 00,90
      WINDOW TYPE PROGRAM

     @ 00,00 SAY CHR(0)
END WINDOW

BEGIN WINDOW
      AREA 01,00 TO 20,90
      WINDOW TYPE PROGRAM

LOCAL xxTmp, xcType, xcCode, xlFound, xlOk, xlEnd, xnCtr, xnRow, xnCol, xnAdjRow, xnAdjCol

// Disable compressed print form selected printer
//
     xcYear    = STR(xPrnMsgData(".YEAR."),4)

     xnBOXA    = 0
     xnBOXB    = 0
     xnBOXC    = 0
     xnBOXD    = 0
     xnBOXE    = 0
     xnBOXF    = 0
     xnBOXG    = 0
     xnBOXH    = 0
     xnBOXI    = 0
     xnBOXJ    = 0
     xnBOXK    = 0
     xnBOXL    = 0
     xnBOXM    = 0
     xnBOXN    = 0
     xnBOXO    = 0
     xnBOXP    = 0
     xnBOXQ    = 0
     xnBOXR    = 0
     xnBOXS    = 0
     xnBOXT    = 0
     xnBOXU    = 0
     xnBOXV    = 0
     xnBOXW    = 0
     xcCASEO   = ""

     xlEnd     = FIELD->GROUP2 = "SUM_TOTAL"

     xxTmp     = PRTABLE->( DBGOTOP() )

     DO WHILE ( ! PRTABLE->( EOF() ) )

        if ( PRTABLE->CODE = "E" )
           xcType     = PADR( "EDOL",       5)
           xcCode     = LEFT(PRTABLE->NAME,10)
           xxTmp      = PREMPHST->( DBSEEK( PREMPLY->NUMBER + xcType + xcCode + xcYear ) )
           xxTmp      = PREMPHST->PERIOD0
           xlFound    = .F.

           if ( PRTABLE->NUMBER = "A" )
              xnBOXA  = xnBOXA  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "B" )
              xnBOXB  = xnBOXB  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "C" )
              xnBOXC  = xnBOXC  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "D" )
              xnBOXD  = xnBOXD  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "E" )
              xnBOXE  = xnBOXE  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "F" )
              xnBOXF  = xnBOXF  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "G" )
              xxTmp   = - xxTmp
              xnBOXG  = xnBOXG  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "H" )
              xnBOXH  = xnBOXH  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "I" )
              xnBOXI  = xnBOXI  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "J" )
              xnBOXJ  = xnBOXJ  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "K" )
              xnBOXK  = xnBOXK  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "L" )
              xnBOXL  = xnBOXL  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "M" )
              xnBOXM  = xnBOXM  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "N" )
              xnBOXN  = xnBOXN  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "O" )
              xnBOXO  = xnBOXO  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "P" )
              xnBOXP  = xnBOXP  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "Q" )
              xnBOXQ  = xnBOXQ  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "R" )
              xnBOXR  = xnBOXR  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "S" )
              xnBOXS  = xnBOXS  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "T" )
              xnBOXT  = xnBOXT  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "U" )
              xnBOXU  = xnBOXU  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "V" )
              xnBOXV  = xnBOXV  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "W" )
              xnBOXW  = xnBOXW  + xxTmp
           endif
        endif

        if ( PRTABLE->CODE = "U" )
           // DEDUCTION AMOUNTS
           //
           if ( PRTABLE->NUMBER = "G" .or. PRTABLE->NUMBER = "I" )
              xcType  = PADR( "DDOL", 5)
           else
              xcType  = PADR( "D",    5)
           endif

           xcCode     = LEFT(PRTABLE->NAME,10)
           xxTmp      = PREMPHST->( DBSEEK( PREMPLY->NUMBER + xcType + xcCode + xcYear ) )
           xxTmp      = PREMPHST->(EmpHstSum(1,59))

           if ( PRTABLE->NUMBER = "A" )
              xnBOXA  = xnBOXA  - xxTmp
           endif
           if ( PRTABLE->NUMBER = "B" )
              xnBOXB  = xnBOXB  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "C" )
              xnBOXC  = xnBOXC  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "D" )
              xnBOXD  = xnBOXD  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "E" )
              xnBOXE  = xnBOXE  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "F" )
              xnBOXF  = xnBOXF  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "G" )
              if ( xxTmp # 0 ) .and. ;
                 ( rIsEqual( xnBOXB, xPrnMsgData(".MAXBOXB."), ">=" ) .or. ;
                   rIsEqual( xxTmp , xPrnMsgData(".MAXBOXG."), ">=" )      )
                 xxTmp     = xPrnMsgData(".MAXBOXG" )
              endif

              xnBOXG  = xnBOXG  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "H" )
              xnBOXH  = xnBOXH  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "I" )
              if ( xxTmp # 0 .and. ;
                   rIsEqual( xxTmp , xPrnMsgData(".MAXBOXI."), ">=" )  )
                   xxTmp = xPrnMsgData(".MAXBOXI" )
              endif
              xnBOXI  = xnBOXI  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "J" )
              xnBOXJ  = xnBOXJ  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "K" )
              xnBOXK  = xnBOXK  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "L" )
              xnBOXL  = xnBOXL  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "M" )
              xnBOXM  = xnBOXM  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "N" )
              xnBOXN  = xnBOXN  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "O" )
              xnBOXO  = xnBOXO  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "P" )
              xnBOXP  = xnBOXP  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "Q" )
              xnBOXQ  = xnBOXQ  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "R" )
              xnBOXR  = xnBOXR  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "S" )
              xnBOXS  = xnBOXS  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "T" )
              xnBOXT  = xnBOXT  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "U" )
              xnBOXU  = xnBOXU  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "V" )
              xnBOXV  = xnBOXV  + xxTmp
           endif
           if ( PRTABLE->NUMBER = "W" )
              xnBOXW  = xnBOXW  + xxTmp
           endif
        endif

        xxTmp = PRTABLE->( DBSKIP() )
     ENDDO

     if ( LEN(aDataArray)= 0 )
          xxTmp = AADD( aDataArray, { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} )
     endif

     if ( xlEnd )
        xnBOXA = aDataArray[1,01]
        xnBOXB = aDataArray[1,02]
        xnBOXC = aDataArray[1,03]
        xnBOXD = aDataArray[1,04]
        xnBOXE = aDataArray[1,05]
        xnBOXF = aDataArray[1,06]

        xnBOXG = aDataArray[1,07]
        xnBOXH = aDataArray[1,08]
        xnBOXI = aDataArray[1,09]
        xnBOXJ = aDataArray[1,10]
        xnBOXK = aDataArray[1,11]
        xnBOXL = aDataArray[1,12]

        xnBOXM = aDataArray[1,13]
        xnBOXN = aDataArray[1,14]
        xnBOXO = aDataArray[1,15]
        xnBOXP = aDataArray[1,16]
        xnBOXQ = aDataArray[1,17]
        xnBOXR = aDataArray[1,18]

        xnBOXS = aDataArray[1,19]
        xnBOXT = aDataArray[1,20]
        xnBOXU = aDataArray[1,21]
        xnBOXV = aDataArray[1,22]
        xnBOXW = aDataArray[1,23]
     else

         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 01, xnBOXA )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 02, xnBOXB )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 03, xnBOXC )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 04, xnBOXD )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 05, xnBOXE )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 06, xnBOXF )

         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 07, xnBOXG )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 08, xnBOXH )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 09, xnBOXI )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 10, xnBOXJ )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 11, xnBOXK )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 12, xnBOXL )

         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 13, xnBOXM )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 14, xnBOXN )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 15, xnBOXO )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 16, xnBOXP )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 17, xnBOXQ )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 18, xnBOXR )

         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 19, xnBOXS )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 20, xnBOXT )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 21, xnBOXU )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 22, xnBOXV )
         xxTmp = EVAL( xPrnVars("bDataBlock"), 1, 23, xnBOXW )
     endif

     xnCtr     = 1
     DO WHILE ( xnCtr <= IIF( RSPRNTR->LASER, 3, 1 ) )

        if ( RSPRNTR->LASER )
           xnRow    = iif(xnCtr=1,0,iif(xnCtr=2,24,48))
           xnCol    = 00
           xnAdjRow = 00
           xnAdjCol = 00
        else
           xnRow    = 03
           xnCol    = 00
           xnAdjRow = 00
           xnAdjCol = 00
        endif


        @ xnRow+xnAdjRow+00,xnCol+xnAdjCol+01 say rBlankZero( xnBOXA, 11, 2 )
        @ xnRow+xnAdjRow+00,xnCol+xnAdjCol+13 say rBlankZero( xnBOXB, 11, 2 )
        @ xnRow+xnAdjRow+00,xnCol+xnAdjCol+25 say rBlankZero( xnBOXC, 11, 2 )
        @ xnRow+xnAdjRow+00,xnCol+xnAdjCol+37 say rBlankZero( xnBOXD, 11, 2 )
        @ xnRow+xnAdjRow+00,xnCol+xnAdjCol+50 say rBlankZero( xnBOXE, 11, 2 )
        @ xnRow+xnAdjRow+00,xnCol+xnAdjCol+62 say rBlankZero( xnBOXF, 11, 2 )

        @ xnRow+xnAdjRow+02,xnCol+xnAdjCol+01 say rBlankZero( xnBOXG, 11, 2 )
        @ xnRow+xnAdjRow+02,xnCol+xnAdjCol+13 say rBlankZero( xnBOXH, 11, 2 )
        @ xnRow+xnAdjRow+02,xnCol+xnAdjCol+25 say rBlankZero( xnBOXI, 11, 2 )
        @ xnRow+xnAdjRow+02,xnCol+xnAdjCol+37 say rBlankZero( xnBOXJ, 11, 2 )
        @ xnRow+xnAdjRow+02,xnCol+xnAdjCol+50 say rBlankZero( xnBOXK, 11, 2 )
        @ xnRow+xnAdjRow+02,xnCol+xnAdjCol+62 say rBlankZero( xnBOXL, 11, 2 )

        @ xnRow+xnAdjRow+04,xnCol+xnAdjCol+01 say rBlankZero( xnBOXM, 11, 2 )
        @ xnRow+xnAdjRow+04,xnCol+xnAdjCol+13 say rBlankZero( xnBOXN, 11, 2 )
        @ xnRow+xnAdjRow+04,xnCol+xnAdjCol+25 say rBlankZero( xnBOXO, 11, 2 )
        @ xnRow+xnAdjRow+04,xnCol+xnAdjCol+37 say rBlankZero( xnBOXP, 11, 2 )
        @ xnRow+xnAdjRow+04,xnCol+xnAdjCol+50 say rBlankZero( xnBOXQ, 11, 2 )
        @ xnRow+xnAdjRow+04,xnCol+xnAdjCol+62 say rBlankZero( xnBOXR, 11, 2 )

        @ xnRow+xnAdjRow+06,xnCol+xnAdjCol+01 say rBlankZero( xnBOXS, 11, 2 )
        @ xnRow+xnAdjRow+06,xnCol+xnAdjCol+13 say rBlankZero( xnBOXT, 11, 2 )
        @ xnRow+xnAdjRow+06,xnCol+xnAdjCol+25 say rBlankZero( xnBOXU, 11, 2 )
        @ xnRow+xnAdjRow+06,xnCol+xnAdjCol+37 say rBlankZero( xnBOXV, 11, 2 )
        @ xnRow+xnAdjRow+06,xnCol+xnAdjCol+50 say rBlankZero( xnBOXW, 11, 2 )
        @ xnRow+xnAdjRow+06,xnCol+xnAdjCol+62 say xcCASEO

        xnAdjRow = xnAdjRow + 1

        if ( xlEnd )
        else
           @ xnRow+xnAdjRow+10,xnCol+xnAdjCol+04 say TRIM(PREMPLY->LNAME) +", "+ PREMPLY->FNAME

           if ( "-" $ PREMPLY->SIN )
              @ xnRow+xnAdjRow+10,xnCol+xnAdjCol+46 say PREMPLY->SIN
           else
              @ xnRow+xnAdjRow+10,xnCol+xnAdjCol+46 say SUBS(PREMPLY->SIN,1,3) +SPACE(3)+ SUBS(PREMPLY->SIN,4,3) +SPACE(3)+ SUBS(PREMPLY->SIN,7,3)
           endif

           @ xnRow+xnAdjRow+10,xnCol+xnAdjCol+63 say PREMPLY->NUMBER
           @ xnRow+xnAdjRow+11,xnCol+xnAdjCol+04 say PREMPLY->ADDRESS1
           @ xnRow+xnAdjRow+12,xnCol+xnAdjCol+04 say PREMPLY->ADDRESS2

           if ( PREMPLY->( FIELDPOS("CITY") ) # 0 )
           @ xnRow+xnAdjRow+13,xnCol+xnAdjCol+04 say TRIM(PREMPLY->CITY) +" "+ PREMPLY->STATE +" "+ PREMPLY->POSTAL
           else
           @ xnRow+xnAdjRow+13,xnCol+xnAdjCol+04 say PREMPLY->ADDRESS3
           endif
        endif

        if ( RSPRNTR->LASER .and. xnCtr > 1 )
           xnAdjRow = xnAdjRow - IIF( xnCtr = 2, 0, 1 )
        endif

        @ xnRow+xnAdjRow+13,xnCol+xnAdjCol+44 say CnfgGet(,001,,M_SY_CNFG)  // COMPANY NAME
        @ xnRow+xnAdjRow+14,xnCol+xnAdjCol+44 say CnfgGet(,002,,M_SY_CNFG)  // ADDRESS1
        @ xnRow+xnAdjRow+15,xnCol+xnAdjCol+44 say CnfgGet(,003,,M_SY_CNFG)  // ADDRESS2
        @ xnRow+xnAdjRow+16,xnCol+xnAdjCol+44 say CnfgGet(,004,,M_SY_CNFG)  // ADDRESS3
        xnAdjRow = 0

        @ xnRow+xnAdjRow+18,00 say IIF(RSPRNTR->LASER,"",CHR(12))

        xnCtr = xnCtr + 1
     ENDDO

END WINDOW

//------------------------ Code section -----------------------------

///CLOSERSA
//SumryErase()
//
//AccessDLL("F",,xPrnVars("DLL") )
//xPrnVars("DLL",-1,"SET")
//
//iif(.T.,M->M_TEMP := NIL, "" )
//
///ENDCLOSERSA

///OPENPRINTER
//DEVOUT(IIF(RSPRNTR->LASER,CHR(27)+"&l7.27C"+CHR(27)+"&a3L",CHR(27)+CHR(67)+CHR(24)) )
///ENDOPENPRINTER

///CLOSEPRINTER
//DEVOUT(CHR(27)+CHR(64))
///ENDCLOSEPRINTER