home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / software / testsoft / vendo / VENDO.400 / pak / KP.REP < prev    next >
Encoding:
Text File  |  1998-03-24  |  3.5 KB  |  160 lines
  1. * Wydruk pokwitowaì: Kasa Przyjeîa (KP)
  2. * ATI s.c. VAT 3.1 (c)
  3. *****************************************************************************
  4.  
  5.  
  6. PRIVATE M_Slownie
  7. PRIVATE M_SlownieN
  8. PRIVATE i
  9. PRIVATE ii
  10.  
  11. ****************************************************************
  12. PRIVATE Form
  13. PRIVATE OldForm
  14. PRIVATE LOutDev
  15. PRIVATE LOutFile
  16. PRIVATE FormChanged
  17.  
  18. LET LOutDev = _aOutDev[1]
  19. LET LOutFile = PADR('Beznazwy.prn',100)
  20.  
  21. IF .NOT. empty(OutDev)
  22.   PRIVATE TmpN
  23.   LET TmpN = ASCAN(_aOutDev, {|x| SUBSTR(x,1,4)==UPPER(OutDev) })
  24.   LET LOutDev = IF(TmpN==0, _aOutDev[5], _aOutDev[TmpN])
  25. ENDIF
  26.  
  27. LET Form = FormNew()
  28. DO FormAddList(Form, 1, 2,'Drukarka  :','LOutDev', _aOutDev, {|| empty(OutDev)})
  29. DO FormAddElem(Form, 2, 2,'Plik      :','LOutFile','@S24', {|| LOutDev==_aOutDev[5]})
  30. DO FormAddElem(Form, 3 ,2,'DîugoÅè strony wydruku: ','_Lines','999999')
  31.  
  32. LET OldForm = FormREAD('KP')
  33.  
  34. DO FormChoice(@Form, @OldForm)
  35. LET Data_Od = DATE()
  36. LET Data_Do = DATE()
  37. DO FormRefrValue(@Form)
  38.  
  39. LET FormChanged = FormRun(Form,,,,,' Parametry wydruku ', '')
  40.  
  41. IF LASTKEY()==27
  42.   RETURN
  43. ENDIF
  44.  
  45. IF FormChanged
  46.   DO FormWrite(Form, 'KP')
  47. ENDIF
  48.  
  49. IF empty(OutDev)
  50.   LET OutDev = SUBSTR(LOutDev,1,4)
  51.   IF OutDev == 'FILE'
  52.     LET OutDev = LOutFile
  53.   ENDIF
  54. ENDIF
  55.  
  56. LET AskLine = .F.
  57.  
  58. LET Form = NIL
  59. *************************************************************************
  60.  
  61.  
  62.  
  63.   IF TYPE( 'M_Kwota' ) != 'N'
  64.  
  65.     PRIVATE M_Kwota
  66.     PRIVATE M_Data
  67.  
  68.     LET M_Data  = ''
  69.     LET M_Kwota = KpPlat( @M_Data )
  70.  
  71.   ENDIF
  72.  
  73.   IF M_Kwota == 0
  74.     RETURN
  75.   ENDIF
  76.  
  77.   START
  78.   FILE KLIENT
  79.   for i,1,2
  80.   ?
  81.  
  82.   IF M_KWOTA > 0
  83.     ? _HIWION + '     DOWàD WPâATY ' + _HIWIOFF + 'dn.' + DTOC( M_Data )
  84.     ? '         Pokwitowanie'
  85.     ?
  86.     ? '         Od kogo: '
  87.   ENDIF
  88.  
  89.   IF M_KWOTA < 0
  90.     ? _HIWION + '     DOWàD WYPâATY ' + _HIWIOFF + 'dn.' + DTOC( M_Data )
  91.     ? '         Pokwitowanie'
  92.     ?
  93.     ? '       Dla kogo: '
  94.   ENDIF
  95.  
  96.   SELECT KLIENT
  97.   SEEK WZ->PLAT_SKROT
  98.  
  99.   IF FOUND()
  100.     ?? NAZWA
  101.     ? '                  ul.' + ULICA
  102.     ? '                  ' + MIASTO
  103.   ENDIF
  104.  
  105.   ?
  106.  
  107.   IF M_KWOTA > 0
  108.     ? '         Kwitujï pobranie kwoty ' + _HIWION + ALLTRIM( TRANSFORM( M_Kwota, TRAN99( 12, WMiejscPP ))) + _HIWIOFF
  109.   ENDIF
  110.  
  111.   IF M_KWOTA < 0
  112.     ? '         Kwitujï wydanie kwoty ' + _HIWION + ALLTRIM( TRANSFORM( -M_Kwota, TRAN99( 12, WMiejscPP ))) + _HIWIOFF
  113.     LET M_Kwota =-M_Kwota
  114.   ENDIF
  115.  
  116.   ? '         (sîownie: '
  117.   LET M_Slownie = Slownie( INT(M_KWOTA)) + ' zî.'
  118.  
  119.   IF WMiejscPP > 0
  120.     LET M_slownie = M_slownie + ' i' + Slownie(( M_kwota - INT( M_kwota )) * 100 ) + ' gr.'
  121.   ENDIF
  122.  
  123.   LET M_SlownieN = 1
  124.   LET TmpStr = ALLTRIM( MEMOLINE( M_Slownie, 60, M_SlownieN ))
  125.  
  126.   DOWHILE .NOT. EMPTY( TmpStr )
  127.     ?? TmpStr
  128.     LET M_SlownieN = M_SlownieN + 1
  129.     LET TmpStr = ALLTRIM( MEMOLINE( M_Slownie, 60, M_SlownieN ))
  130.     IF .NOT. EMPTY( TmpStr )
  131.       ? '                      '
  132.     ENDIF
  133.   ENDDO
  134.  
  135.   ?? ')'
  136.  
  137.   IF M_KWOTA > 0
  138.     ? '         tytuîem naleænoÅci za fakturï nr ' + ALLTRIM(WZ->Numer) + ' z dnia ' + DTOC( WZ->DATA_WYST ) + '.'
  139.   ENDIF
  140.  
  141.   IF M_KWOTA < 0
  142.     ? '         tytuîem nadpîaty za fakturï nr ' + ALLTRIM(WZ->Numer) + ' z dnia ' + DTOC( WZ->DATA_WYST ) + '.'
  143.   ENDIF
  144.  
  145.   ?
  146.   ?
  147.   ? '         .......................'
  148.   ? '               Otrzymaîem'
  149.   if i=1
  150.    for ii,1,11
  151.      ?
  152.    next ii
  153.    ? replicate('-',70)
  154.   endif
  155.   next i
  156.   DO FF()
  157.  
  158. RETURN                         < *** KONIEC *** >
  159.  
  160.