home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / software / testsoft / vendo / VENDO.400 / pak / KPW.REP < prev    next >
Encoding:
Text File  |  1998-03-24  |  3.7 KB  |  163 lines
  1. * Wydruk pokwitowaì: KP KW dla korekt
  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.  
  10. LET AskLine = .F.
  11. LET _Lines  = _LinesDefault
  12.  
  13. ****************************************************************
  14. PRIVATE Form
  15. PRIVATE OldForm
  16. PRIVATE LOutDev
  17. PRIVATE LOutFile
  18. PRIVATE FormChanged
  19. PRIVATE M_Kwota1
  20.  
  21. LET LOutDev = _aOutDev[1]
  22. LET LOutFile = PADR('Beznazwy.prn',100)
  23.  
  24. IF .NOT. empty(OutDev)
  25.   PRIVATE TmpN
  26.   LET TmpN = ASCAN(_aOutDev, {|x| SUBSTR(x,1,4)==UPPER(OutDev) })
  27.   LET LOutDev = IF(TmpN==0, _aOutDev[5], _aOutDev[TmpN])
  28. ENDIF
  29.  
  30. LET Form = FormNew()
  31. DO FormAddList(Form, 1, 2,'Drukarka  :','LOutDev', _aOutDev, {|| empty(OutDev)})
  32. DO FormAddElem(Form, 2, 2,'Plik      :','LOutFile','@S24', {|| LOutDev==_aOutDev[5]})
  33. DO FormAddElem(Form, 3,2,'DîugoÅè strony wydruku: ','_Lines','999999')
  34.  
  35. LET OldForm = FormREAD('KP')
  36.  
  37. DO FormChoice(@Form, @OldForm)
  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.     RETURN
  66.  
  67.   ENDIF
  68.  
  69.   IF M_Kwota == 0
  70.     RETURN
  71.   ENDIF
  72.  
  73.   IF Type( 'M_NumerKP' ) != 'C'
  74.     PRIVATE M_NumerKP
  75.     LET M_NumerKP = '..........'
  76.   ENDIF
  77.   START
  78.   FILE KLIENT
  79.   FOR i,1,2
  80.  
  81.     ?
  82. LET M_Kwota1 = ZS->WARTOSC-ZS->WZWART
  83.  
  84.     IF M_KWOTA1 > 0
  85.       ? _HIWION + '     DOWàD WPâATY ' + M_NumerKP + _HIWIOFF + 'dn.' + DToC( M_Data )
  86.       ? '         Pokwitowanie pobrania'
  87.       ?
  88.       ? '         Od kogo: '
  89.     ENDIF
  90.  
  91.     IF M_KWOTA1 < 0
  92.       ? _HIWION + '     DOWàD WYPâATY ' + _HIWIOFF + 'dn.' + DTOC( M_Data )
  93.       ? '         Pokwitowanie wypîaty'
  94.       ?
  95.       ? '         Dla kogo: '
  96.     ENDIF
  97.  
  98.     SELECT KLIENT
  99.     SEEK ZS->PLAT_SKROT
  100.  
  101.     IF Found()
  102.       ?? NAZWA
  103.       ? '                  ul.' + ULICA
  104.       ? '                  ' + MIASTO
  105.     ENDIF
  106.  
  107.     ?
  108.  
  109.     IF M_Kwota1 > 0
  110.  
  111.       ? '         Kwitujï pobranie kwoty ' + _HIWION + AllTrim( Transform( M_Kwota, Tran99( 12, WMiejscPP ))) + _HIWIOFF
  112.     ENDIF
  113.  
  114.      IF M_Kwota1 < 0
  115.       ? '         Kwitujï wydanie kwoty ' + _HIWION + AllTrim( Transform( -M_Kwota, Tran99( 12, WMiejscPP ))) + _HIWIOFF
  116.     ENDIF
  117.  
  118.     ? '         ( sîownie : '
  119.     LET M_Slownie = Slownie( Int( IIF( M_Kwota1 > 0, M_Kwota, -M_Kwota ))) + ' zîotych i'
  120.     LET M_Slownie = M_Slownie + Slownie(( ABS(M_Kwota - INT( M_Kwota ))) * 100 ) + ' groszy.'
  121.  
  122.     LET M_SlownieN = 1
  123.     LET TmpStr = AllTrim( MemoLine( M_Slownie, 60, M_SlownieN ))
  124.  
  125.     DOWHILE .NOT. Empty( TmpStr )
  126.       ?? TmpStr
  127.       LET M_SlownieN = M_SlownieN + 1
  128.       LET TmpStr = AllTrim( Memoline( M_Slownie, 60, M_SlownieN ))
  129.       IF .NOT. Empty( TmpStr )
  130.         ? '                      '
  131.       ENDIF
  132.     ENDDO
  133.  
  134.     ?? ' )'
  135.  
  136.     IF M_Kwota1 > 0
  137.       ? '         tytuîem naleænoÅci za korektï nr ' + ZS->Numer + ' z dnia ' + DToC( ZS->DATA_WYST ) + '.'
  138.     ENDIF
  139.  
  140.     IF M_Kwota1 < 0
  141.       ? '         tytuîem zwrotu za korektï nr ' + ZS->Numer + ' z dnia ' + DToC( ZS->DATA_WYST ) + '.'
  142.     ENDIF
  143.     IF Type( 'M_Uwagi' ) = 'C'
  144.       ? '          ' + M_Uwagi
  145.     ENDIF
  146.     ?
  147.     ?
  148.     ? '         .......................'
  149.     ? '               Otrzymaîem'
  150.  
  151.     IF i == 1
  152.       FOR ii,1,10
  153.         ?
  154.       NEXT ii
  155.       ? Replicate( '-', 79 )
  156.     ENDIF
  157.   NEXT i
  158.   DO FF()
  159.  
  160. RETURN                         < *** KONIEC *** >
  161.  
  162. 
  163.