home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / software / testsoft / vendo / VENDO.400 / pak / OFERTA.REP < prev    next >
Encoding:
Text File  |  1998-03-24  |  4.6 KB  |  181 lines
  1. * Wydruk oferty handlowej (opcja TOWARY)
  2. * ATI s.c. VAT 3.1 (c)
  3. *****************************************************************************
  4.  
  5. DECLARE DlaKogo[3]
  6. DECLARE LDlaKogo[3]
  7. DECLARE Tran[2]
  8. PRIVATE Podkr
  9. PRIVATE Dziel
  10. PRIVATE M_Kopia
  11. PRIVATE NAGL
  12. PRIVATE Filtr
  13.  
  14. LET Filtr = DBFILTER()
  15. LET Filtr = IF( EMPTY(Filtr), '.T.' , Filtr)
  16.  
  17. LET NAGL = '%%'
  18. LET DlaKogo[1] = ' ORYGINAâ      '
  19. LET DlaKogo[2] = ' Kopia 1       '
  20. LET DlaKogo[3] = ' Kopia 2       '
  21.  
  22. DO AFILL(LDlaKogo, .F.)
  23. LET LDlaKogo[1]=.T.
  24.  
  25. *IF !MarkAchoice( 10, 20, DlaKogo, LDlaKogo)
  26. *  RETURN
  27. *ENDIF
  28.  
  29. ****************************************************************
  30. PRIVATE Form
  31. PRIVATE OldForm
  32. PRIVATE LOutDev
  33. PRIVATE LOutFile
  34. PRIVATE FormChanged
  35.  
  36. LET LOutDev = _aOutDev[1]
  37. LET LOutFile = PADR('Beznazwy.prn',100)
  38.  
  39. IF .NOT. empty(OutDev)
  40.   PRIVATE TmpN
  41.   LET TmpN = ASCAN(_aOutDev, {|x| SUBSTR(x,1,4)==UPPER(OutDev) })
  42.   LET LOutDev = IF(TmpN==0, _aOutDev[5], _aOutDev[TmpN])
  43. ENDIF
  44.  
  45. LET Form = FormNew()
  46. DO FormAddList(Form, 1, 2,'Drukarka  :','LOutDev', _aOutDev, {|| empty(OutDev)})
  47. DO FormAddElem(Form, 2, 2,'Plik      :','LOutFile','@S24', {|| LOutDev==_aOutDev[5]})
  48. DO FormAddElem(Form, 3, 1,' ──────────────────────────────────────────-','')
  49. DO FormAddElem(Form, 4, 6,DlaKogo[1], 'LDlaKogo[1]')
  50. DO FormAddElem(Form, 5, 6,DlaKogo[2], 'LDlaKogo[2]')
  51. DO FormAddElem(Form, 6, 6,DlaKogo[3], 'LDlaKogo[3]')
  52. DO FormAddElem(Form, 7, 1,' ──────────────────────────────────────────-','')
  53. DO FormAddElem(Form, 8 ,2,'DîugoÅè strony wydruku: ','_Lines','999999')
  54.  
  55. LET OldForm = FormREAD('OFERTA')
  56.  
  57. DO FormChoice(@Form, @OldForm)
  58. LET Data_Od = DATE()
  59. LET Data_Do = DATE()
  60. DO FormRefrValue(@Form)
  61.  
  62. LET FormChanged = FormRun(Form,,,,,' Parametry wydruku ', '')
  63.  
  64. IF LASTKEY()==27
  65.   RETURN
  66. ENDIF
  67.  
  68. IF FormChanged
  69.   DO FormWrite(Form, 'OFERTA')
  70. ENDIF
  71.  
  72. IF empty(OutDev)
  73.   LET OutDev = SUBSTR(LOutDev,1,4)
  74.   IF OutDev == 'FILE'
  75.     LET OutDev = LOutFile
  76.   ENDIF
  77. ENDIF
  78.  
  79. LET AskLine = .F.
  80.  
  81. LET Form = NIL
  82. *************************************************************************
  83.  
  84.  
  85.  
  86. LET Tran[1] = Tran99( FieldLen( 'CENA')-3 ,CMiejscPP )
  87.  
  88. LET Podkr = ;
  89.       ' ╚═════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╝'
  90. LET Dziel = ;
  91.       ' ║─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────║'
  92. PAGEH ' ╔═════╦═════════════════╦══════════════════════════════╦═════╦═══════════════╦═══════════════╦═════╦══════════════════════╗'
  93. PAGEH ' ║  Lp.║ SYMBOL          ║ NAZWA                        ║ J.m.║ Cena netto.   ║ Cena brutto   ║ VAT ║ Uwagi                ║'
  94. PAGEH ' ╠═════╩═════════════════╩══════════════════════════════╩═════╩═══════════════╩═══════════════╩═════╩══════════════════════╣'
  95.  
  96. PAGEF ' ╚═════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════╝'
  97. PAGEF '  '+DTOC(DATE())+'  str.'+TRANSFORM(_PAGEno,'@B')+'                                                CDN -->'
  98.  
  99.  
  100.  
  101. * DO DBClearRel()
  102. FILE RODZAJE,RODZAJE
  103. SELECT TOWARY
  104. DO DBSETORDER(2)
  105. RELATION RODZAJ,RODZAJE
  106.  
  107. DO DBGOTOP()
  108.  
  109. FOR M_Kopia,1,Len(DlaKogo)
  110.   IF LDlaKogo[ M_Kopia ]
  111.     START
  112.  
  113.     ?
  114.     DO HiWi(.T.)
  115.     ?? _DStrikeON+_HIWION
  116.     ? '   OFERTA HANDLOWA  '
  117.     ?? _DStrikeOFF+_HIWIOFF
  118.     DO HiWi(.F.)
  119.     ?? ' z dnia '+DTOC(DATE())
  120.  
  121.     ?? _CondON
  122.     LET TmpStr = _PageH[1]
  123.     ? &TmpStr
  124.     LET TmpStr = _PageH[2]
  125.     ? &TmpStr
  126.     LET TmpStr = _PageH[3]
  127.     ? &TmpStr
  128.     DOWHILE .NOT. EOF()
  129.  
  130.     IF !EMPTY(SYMBOL) .AND. &Filtr
  131.       SELECT TOWARY
  132.  
  133.     IF NAGL<>RODZAJ
  134.            IF !EMPTY(RODZAJ)
  135.          IF _lp>1
  136.                ? dziel
  137.              ENDIF
  138.                ?  ' ║       '
  139.                ?? _DStrikeOn+RODZAJE->RODZAJ+' '
  140.                ?? PADR(RODZAJE->OPIS,30)+_DStrikeoff
  141.                ?? REPLICATE(' ',80)+'║'
  142.                ? dziel
  143.            ENDIF
  144.          ENDIF
  145.         ? ' ║'+STR(_Lp,4,0)+'.│ '
  146.         ?? SYMBOL+' │'
  147.         ?? NAZWA+'│ '
  148.         ?? ILOSC_JEDN+' │ '
  149.         ?? PADl(TRANSFORM( CENA, Tran[1]),13)
  150.  
  151.         ?? ' │ '
  152.         ?? PADL(TRANSFORM( CENA*(1+IF(VAT=-1,0,VAT/100)),TRAN[1]),13)
  153.         ?? ' │ '
  154.         ?? PADl(IF(VAT=-1,'zw.',VAT),3)
  155.         ?? ' │ '
  156.         ?? UWAGIC
  157.         ?? ' ║'
  158.         LET _Lp = _Lp + 1
  159.         LET NAGL = RODZAJ
  160.     ENDIF
  161.     SELECT TOWARY
  162.     SKIP
  163.  
  164.  
  165.       SKIPTEST 5, .NOT. EOF()
  166.     ENDDO
  167.     ? Podkr
  168.     ? '  '+DTOC(DATE())+'  str.'+TRANSFORM(_PAGEno,'@B')+'                                                KONIEC'
  169.     ?? _CondOFF
  170.     ?
  171.  
  172.     DO FF()
  173.  
  174.   ENDIF
  175. NEXT M_Kopia
  176. DO DBSETORDER(1)
  177. DO DBClearRel()
  178.  
  179. RETURN
  180. 
  181.