Home

PERL Programming

warning: Creating default object from empty value in /var/www/flexray.org/modules/taxonomy.module on line 1223.

NIP Control Number Verifier


#!/usr/bin/perl
#
# Skrypcik sprawdza plik wejsciowy w formacie .csv pola oddzielane znakiem ; na poprawnosc
# numeru NIP, na podstawie ostatniej cyfry kontrolnej
#
# $inputfile - plik wejsciowy
# $outputfile - plik z blednymi NIPami
# @wagi - stale wagowe kolejnych cyfr
#
########### Maciej Stopa
#
# This is free software; you may redistribute it and/or modify
# it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2,
# or (at your option) any later version.
#
# This is distributed in the hope that it will be useful, but

flexray – Tue, 2006 – 10 – 24 07:35
–
read more

SAP 02 XML Message Generator


#!/usr/bin/perl
#
# Skrypcik tworzy xml'e do SAP'a 02, plik wejsciowy w formacie .csv pola oddzielane znakiem ;
# $inputfile - plik wejsciowy
# $outputfile - naglowek nazwy pliku wyjsciowego, potem dodajemy date oraz numerek czesci
# $docnum - numer DOCNUM w SAP02 bez ostatniej cyfry, ktora nadaje kolejno dla plikow
# ktore tworzymy, w zaleznosci od ilosci rekordow
# $numrec - ilosc rekordow jakie ujmiemy w pojedynczym pliku SAP02
# %payment - wartosci oplaty za rozne rodzaje kart
#
############ Maciej Stopa
#
# This is free software; you may redistribute it and/or modify

flexray – Sun, 2006 – 10 – 22 14:26
–
read more

GPL License

# This is free software; you may redistribute it and/or modify
# it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2,
# or (at your option) any later version.
#
# This is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

flexray – Sun, 2006 – 10 – 22 13:28
–
Syndicate content