home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / PA_PRZEL.DOK < prev    next >
Text File  |  1996-12-12  |  8KB  |  77 lines
  1. #DEFINICJE
  2. Np1=substr(KONTRAH->NAZWA_PLAT,1,28)
  3. Np2=substr(KONTRAH->NAZWA_PLAT,29)
  4. Ad1=substr(KONTRAH->ADRES_PLAT,1,28)
  5. Ad2=substr(KONTRAH->ADRES_PLAT,29)
  6. Bn1=substr(KONTRAH->BANK,1,17)
  7. Bn2=len10(substr(KONTRAH->BANK,18,28),28)
  8. Kn1=substr(KONTRAH->KONTO_PLAT,1,19)
  9. Kn2=len10(substr(KONTRAH->KONTO_PLAT,20,28),28)
  10. Nk1=substr(_S1,1,19)
  11. Nk2=len10(substr(_S1,20,28),28)
  12. Nb1=substr(_S0,1,17)
  13. Nb2=len10(substr(_S0,18,28),28)
  14. Doz=transform(round(OBRGL->KWOTA_DO_Z-OBRGL->KWOTA_ZAPL,-1*M->ZERA),"@E 999,999,999.99")
  15. dat=dtoc(date())
  16. #NAGLOWEK
  17. ┌──┐                                                         ┌──┐                                                       
  18. │2 │(POLECENIE PRZELEWU/POBRANIA/PRZELEW TELEGRAFICZNY*)  A  │2 │(POLECENIE PRZELEWU/POBRANIA/PRZELEW TELEGRAFICZNY*)  B
  19. ├──┴─────────────────────────┬────────────────────────────┐  ├──┴─────────────────────────┬────────────────────────────┐
  20. │W ci⌐╛ar rachunku           │Na dobro rachunku           │  │W ci⌐╛ar rachunku           │Na dobro rachunku           │
  21. ├────────────────────────────┼────────────────────────────┤  ├────────────────────────────┼────────────────────────────┤
  22. │Nazwa dêu╛nika:             │Nazwa wierzyciela:          │  │Nazwa dêu╛nika:             │Nazwa wierzyciela:          │
  23. │[substr(M->ADR,1,28)       ]│[Np1                       ]│  │[substr(M->ADR,1,28)       ]│[Np1                       ]│
  24. │[substr(M->ADR,29,28)      ]│[Ad1                       ]│  │[substr(M->ADR,29,28)      ]│[Ad1                       ]│
  25. │[len10(substr(M->ADR,57),28)]│[Ad2       ]                │  │[len10(substr(M->ADR,57),28)]│[Ad2       ]                │
  26. ├────────────────────────────┼────────────────────────────┤  ├────────────────────────────┼────────────────────────────┤
  27. │w (Banku): [Nb1            ]│w (Banku): [Bn1            ]│  │w (Banku): [Nb1            ]│w (Banku): [Bn1            ]│
  28. │[Nb2                       ]│[Bn2                       ]│  │[Nb2                       ]│[Bn2                       ]│
  29. ├────────────────────────────┼────────────────────────────┤  ├────────────────────────────┼────────────────────────────┤
  30. │Nr r-ku: [Nk1              ]│Nr r-ku: [Kn1              ]│  │Nr r-ku: [Nk1              ]│Nr r-ku: [Kn1              ]│
  31. │[Nk2                       ]│[Kn2                       ]│  │[Nk2                       ]│[Kn2                       ]│
  32. ├──────────────┬─────────────┴────────────────────────────┤  ├──────────────┬─────────────┴────────────────────────────┤
  33. │Pê.Kas:       │Kwota zê:[Doz         ]                   │  │Pê.Kas:       │Kwota zê:[Doz         ]                   │
  34. ├──────────────┼──────────────────────────────────────────┤  ├──────────────┼──────────────────────────────────────────┤
  35. │Data:[dat   ] │Tytuêem:[substr(OBRGL->INFO,1,34)        ]│  │Data:[dat   ] │Tytuêem:[substr(OBRGL->INFO,1,34)        ]│
  36. ├──────────────┴────────────────────────┬─────────────────┤  ├──────────────┴────────────────────────┬─────────────────┤
  37. │                                       │  Stempel Banku  │  │                                       │  Stempel Banku  │
  38. │                                       │                 │  │                                       │                 │
  39. │                                       │                 │  │                                       │                 │
  40. │                                       │                 │  │                                       │                 │
  41. │                                       │                 │  │                                       │                 │
  42. │piecz⌐å zlceniodawcy i podpisy         │                 │  │piecz⌐å zleceniodawcy i podpisy        │                 │
  43. └───────────────────────────────────────┴─────────────────┘  └───────────────────────────────────────┴─────────────────┘
  44. [M->Nip     ] SporzÑdzono w systemie PC VATMAN (C)ZTK BITAM  [M->Nip     ] SporzÑdzono w systemie PC VATMAN (C)ZTK BITAM
  45. ------------------------------------*)niepotrzebne skreÿliå-------------------------------------------------------------
  46. ┌──┐                                                         ┌──┐                                                       
  47. │2 │(POLECENIE PRZELEWU/POBRANIA/PRZELEW TELEGRAFICZNY*)  C  │2 │(POLECENIE PRZELEWU/POBRANIA/PRZELEW TELEGRAFICZNY*)  D
  48. ├──┴─────────────────────────┬────────────────────────────┐  ├──┴─────────────────────────┬────────────────────────────┐
  49. │W ci⌐╛ar rachunku           │Na dobro rachunku           │  │W ci⌐╛ar rachunku           │Na dobro rachunku           │
  50. ├────────────────────────────┼────────────────────────────┤  ├────────────────────────────┼────────────────────────────┤
  51. │Nazwa dêu╛nika:             │Nazwa wierzyciela:          │  │Nazwa dêu╛nika:             │Nazwa wierzyciela:          │
  52. │[substr(M->ADR,1,28)       ]│[Np1                       ]│  │[substr(M->ADR,1,28)       ]│[Np1                       ]│
  53. │[substr(M->ADR,29,28)      ]│[Ad1                       ]│  │[substr(M->ADR,29,28)      ]│[Ad1                       ]│
  54. │[len10(substr(M->ADR,57),28)]│[Ad2       ]                │  │[len10(substr(M->ADR,57),28)]│[Ad2       ]                │
  55. ├────────────────────────────┼────────────────────────────┤  ├────────────────────────────┼────────────────────────────┤
  56. │w (Banku): [Nb1            ]│w (Banku): [Bn1            ]│  │w (Banku): [Nb1            ]│w (Banku): [Bn1            ]│
  57. │[Nb2                       ]│[Bn2                       ]│  │[Nb2                       ]│[Bn2                       ]│
  58. ├────────────────────────────┼────────────────────────────┤  ├────────────────────────────┼────────────────────────────┤
  59. │Nr r-ku: [Nk1              ]│Nr r-ku: [Kn1              ]│  │Nr r-ku: [Nk1              ]│Nr r-ku: [Kn1              ]│
  60. │[Nk2                       ]│[Kn2                       ]│  │[Nk2                       ]│[Kn2                       ]│
  61. ├──────────────┬─────────────┴────────────────────────────┤  ├──────────────┬─────────────┴────────────────────────────┤
  62. │Pê.Kas:       │Kwota zê:[Doz         ]                   │  │Pê.Kas:       │Kwota zê:[Doz         ]                   │
  63. ├──────────────┼──────────────────────────────────────────┤  ├──────────────┼──────────────────────────────────────────┤
  64. │Data:[dat   ] │Tytuêem:[substr(OBRGL->INFO,1,34)        ]│  │Data:[dat   ] │Tytuêem:[substr(OBRGL->INFO,1,34)        ]│
  65. ├──────────────┴────────────────────────┬─────────────────┤  ├──────────────┴────────────────────────┬─────────────────┤
  66. │                                       │  Stempel Banku  │  │                                       │  Stempel Banku  │
  67. │                                       │                 │  │                                       │                 │
  68. │                                       │                 │  │                                       │                 │
  69. │                                       │                 │  │                                       │                 │
  70. │                                       │                 │  │                                       │                 │
  71. │piecz⌐å zleceniodawcy i podpisy        │                 │  │piecz⌐å zleceniodawcy i podpisy        │                 │
  72. └───────────────────────────────────────┴─────────────────┘  └───────────────────────────────────────┴─────────────────┘
  73. #POZYCJE DOKUMENTU
  74. #SUMY
  75. [M->Nip     ] SporzÑdzono w systemie PC VATMAN (C)ZTK BITAM  [M->Nip     ] SporzÑdzono w systemie PC VATMAN (C)ZTK BITAM
  76. #KONIEC
  77.