home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / software / testsoft / vendo / VENDO.400 / pak / KPKW.REP < prev    next >
Encoding:
Text File  |  1998-03-24  |  4.3 KB  |  193 lines
  1. * Wydruk pokwitowaì: Kasa Przyjeîa (KP) i Kasa wydaîa (KW)
  2. * ATI s.c. VAT 3.1 (c)
  3. *****************************************************************************
  4.  
  5. PRIVATE M_Slownie
  6. PRIVATE M_SlownieN
  7. PRIVATE i
  8. PRIVATE ii
  9. PRIVATE PoleTMP
  10. PRIVATE NumerKP
  11. PRIVATE SAVSEL
  12. PRIVATE DOC
  13. LET AskLine = .F.
  14. LET _Lines  = _LinesDefault
  15.  
  16. ****************************************************************
  17. PRIVATE Form
  18. PRIVATE OldForm
  19. PRIVATE LOutDev
  20. PRIVATE LOutFile
  21. PRIVATE FormChanged
  22. PRIVATE M_Kwota1
  23.  
  24. LET LOutDev = _aOutDev[1]
  25. LET LOutFile = PADR('Beznazwy.prn',100)
  26.  
  27. IF .NOT. empty(OutDev)
  28.   PRIVATE TmpN
  29.   LET TmpN = ASCAN(_aOutDev, {|x| SUBSTR(x,1,4)==UPPER(OutDev) })
  30.   LET LOutDev = IF(TmpN==0, _aOutDev[5], _aOutDev[TmpN])
  31. ENDIF
  32.  
  33. LET Form = FormNew()
  34. DO FormAddList(Form, 1, 2,'Drukarka  :','LOutDev', _aOutDev, {|| empty(OutDev)})
  35. DO FormAddElem(Form, 2, 2,'Plik      :','LOutFile','@S24', {|| LOutDev==_aOutDev[5]})
  36. DO FormAddElem(Form, 3,2,'DîugoÅè strony wydruku: ','_Lines','999999')
  37.  
  38. LET OldForm = FormREAD('KPKW')
  39.  
  40. DO FormChoice(@Form, @OldForm)
  41.  
  42. LET FormChanged = FormRun(Form,,,,,' Parametry wydruku ', '')
  43.  
  44. IF LASTKEY()==27
  45.   RETURN
  46. ENDIF
  47.  
  48. IF FormChanged
  49.   DO FormWrite(Form, 'KPKW')
  50. ENDIF
  51.  
  52. IF empty(OutDev)
  53.   LET OutDev = SUBSTR(LOutDev,1,4)
  54.   IF OutDev == 'FILE'
  55.     LET OutDev = LOutFile
  56.   ENDIF
  57. ENDIF
  58.  
  59. LET AskLine = .F.
  60.  
  61. LET Form = NIL
  62. *************************************************************************
  63.  
  64.  
  65.  
  66. *  IF Type( 'M_Kwota' ) != 'N'
  67. *    RETURN
  68. *  ENDIF
  69.   IF Kwota == 0
  70.     RETURN
  71.   ENDIF
  72.  
  73.   IF EMPTY(NRDOK)
  74.     LET NumerKP = '..........'
  75.   ENDIF
  76.   IF !EMPTY(NRDOK)
  77.     LET NumerKP = NRDOK
  78.   ENDIF
  79.  
  80.  
  81.   START
  82.  
  83.   FOR i,1,2
  84.  
  85.     ?
  86.     IF M_rodzaj="KP"
  87.       ? _HIWION + '     DOWàD WPâATY KP ' + NumerKP + _HIWIOFF + ' z dn. ' + DToC( DATA )
  88.       ? '         Pokwitowanie pobrania'
  89.       ?
  90.       ? '         Od kogo:  '
  91.     ENDIF
  92.  
  93.     IF M_rodzaj="KW"
  94.       ? _HIWION + '     DOWàD WYPâATY KW ' + NumerKP + _HIWIOFF + ' z dn. ' + DTOC( DATA )
  95.       ? '         Pokwitowanie wypîaty'
  96.       ?
  97.       ? '         Dla kogo: '
  98.     ENDIF
  99.  
  100.     LET Poletmp = PLAT_SKROT
  101.     LET  SAVSEL = SELECT()
  102.     LET Doc = DOK
  103.     IF Doc= "PZ"
  104.       FILE PROD
  105.       SELECT PROD
  106.       SEEK Poletmp
  107.       IF Found()
  108.         ?? NAZWA
  109.         ? '                   ul.' + ULICA
  110.         ? '                   ' + MIASTO_KOD
  111.       ENDIF
  112.       ?
  113.  
  114.     ENDIF
  115.  
  116.     IF Doc<>"PZ"
  117.       FILE KLIENT
  118.       SELECT KLIENT
  119.       SEEK Poletmp
  120.       IF Found()
  121.         ?? NAZWA
  122.         ? '                   ul.' + ULICA
  123.         ? '                   ' + KOD+' '+MIASTO
  124.       ENDIF
  125.       ?
  126.  
  127.     ENDIF
  128.  
  129.     DO DBSELECTAREA(savsel)
  130.  
  131.     IF M_rodzaj="KP"
  132.       ? '         Kwitujï pobranie kwoty ' + _HIWION + AllTrim( Transform( Kwota, Tran99( 12, WMiejscPP ))) + _HIWIOFF
  133.     ENDIF
  134.  
  135.     IF M_rodzaj="KW"
  136.       ? '         Kwitujï wydanie kwoty ' + _HIWION + AllTrim( Transform( Kwota, Tran99( 12, WMiejscPP ))) + _HIWIOFF
  137.     ENDIF
  138.  
  139.     ? '         ( sîownie : '
  140.     LET M_Slownie = Slownie( Int( IIF( Kwota > 0, Kwota, -Kwota ))) + ' zîotych i'
  141.     LET M_Slownie = M_Slownie + Slownie(( ABS(Kwota - INT( Kwota ))) * 100 ) + ' groszy.'
  142.  
  143.     LET M_SlownieN = 1
  144.     LET TmpStr = AllTrim( MemoLine( M_Slownie, 60, M_SlownieN ))
  145.  
  146.     DOWHILE .NOT. Empty( TmpStr )
  147.       ?? TmpStr
  148.       LET M_SlownieN = M_SlownieN + 1
  149.       LET TmpStr = AllTrim( Memoline( M_Slownie, 60, M_SlownieN ))
  150.       IF .NOT. Empty( TmpStr )
  151.         ? '                      '
  152.       ENDIF
  153.     ENDDO
  154.  
  155.     ?? ' )'
  156.     IF DOC="WZ"
  157.       IF M_rodzaj="KP"
  158.         ? '         tytuîem naleænoÅci za fakturï nr ' + NRDOK + ' z dnia ' + DToC( DATA_WYST ) + '.'
  159.       ENDIF
  160.  
  161.     ENDIF
  162.     IF DOC="ZS"
  163.       IF M_rodzaj="KP"
  164.         ? '         tytuîem naleænoÅci za korektï nr ' + NRDOK + ' z dnia ' + DToC( DATA_WYST ) + '.'
  165.       ENDIF
  166.       IF M_rodzaj="KW"
  167.         ? '         tytuîem zwrotu za korektï nr ' + NRDOK + ' z dnia ' + DToC( DATA_WYST ) + '.'
  168.       ENDIF
  169.     ENDIF
  170.     ?
  171.     ? '         ' + Uwagi
  172.  
  173.  
  174.  
  175.     ?
  176.     ?
  177.     ? '         .......................'
  178.     ? '               Otrzymaîem'
  179.  
  180.     IF i == 1
  181.       FOR ii,1,10
  182.         ?
  183.       NEXT ii
  184.       ? Replicate( '-', 79 )
  185.     ENDIF
  186.   NEXT i
  187.   DO FF()
  188.  
  189. RETURN                         < *** KONIEC *** >
  190.  
  191. 
  192. 
  193.