Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- MENU MODUŁ ADMI {
- ZAKŁADKA="UŻYTKOWNICY"
- MENUITEM="Wyświetl wszystkich użytkowników programu"
- HINT="Wyświetl wszystkich użytkowników"
- RUN="_USERS_"
- ZAKŁADKA="Dane firmy"
- MENUITEM="Dane firmy"
- HINT="Dane firmy"
- RUN="OWNER"
- }
- MENU MODUŁ SZEF{
- ZAKŁADKA="REJESTRACJA DOSTAW"
- MENUITEM="Rejestr dostaw"
- RUN="DOSTAWY"
- ZAKŁADKA="SŁOWNIKI"
- MENUITEM="Producentów kruszyw"
- RUN="PRODUCENCI_KRUSZYW"
- MENUITEM="Odbiorców"
- RUN="ODBIORCY"
- MENUITEM="Przewoźników"
- RUN="PRZEWOZNICY"
- MENUITEM="Miejsc dostaw"
- RUN="MIEJSCA_DOSTAW"
- ZAKŁADKA="RAPORTY"
- MENUITEM="Raport DOSTAW wg odbiorców - za okres"
- RUN="RAP_DOST_ODBIORCY"
- MENUITEM="Raport DOSTAW wg Przewoźników - za okres"
- RUN="RAP_DOST_PRZEWOZNIK"
- MENUITEM="Raport DOSTAW wg rodzajów kruszyw - za okres"
- RUN="RAP_DOST_RODZAJ_KRUSZYW"
- MENUITEM="Raport DOSTAW wg producentów kruszyw - za okres"
- RUN="RAP_DOST_PRODUCENT_KRUSZYW"
- ZAKŁADKA="ODPAL NOTATNIK"
- MENUITEM="DATA"
- ON_INIT="$$EQUATION=ON_INIT_DATA"
- MENUITEM="NOTATNIK"
- ON_INIT="$$EQUATION=ON_INIT_NOTATNIK"
- MENUITEM="ZAPYTANIA SQL"
- ON_INIT="$$EQUATION=ON_INIT_ZAPYTANIE"
- #RUN="RAP_DOST_ODBIORCY"
- ZAKŁADKA="LISTA STUDNETÓW"
- MENUITEM="STUDENCI"
- #RUN="LISTA_STUDNETOW"
- RUN="LISTA_POJAZDOW"
- MENUITEM="moje pierwsze okno"
- #RUN="LISTA_STUDNETOW"
- RUN="LISTA_POJAZDOW"
- ZAKŁADKA="LISTA SAMOCHODÓW"
- MENUITEM="SAMOCHODY"
- RUN="CARS"
- }
- VIDOK LISTA_STUDNETOW{
- BUTTON=" EDIT, NEW, DEL"
- TYTUŁ="Lista studentów"
- FIELDS="POLA_STUDENT"
- SQL_TABEL_NAME="STUDENCI"
- SQL_EXTRA=", CURRENT_DATE - DATAURODZENIA as ROZNICADAT"
- SQL_KEY_NAME="KEY_ID"
- MENU="WYDRUK_STUDENT"
- }
- VIDOK LISTA_POJAZDOW{
- BUTTON=" EDIT, NEW, DEL"
- TYTUŁ="Lista pojazdów"
- FIELDS="POLA_SAMO"
- SQL_TABEL_NAME="POJAZDY"
- #SQL_EXTRA=", CURRENT_DATE - DATAURODZENIA as ROZNICADAT"
- SQL_KEY_NAME="KEY_ID"
- MENU="WYDRUK_POJAZD"
- }
- VIDOK CARS{
- BUTTON=" EDIT, NEW, DEL"
- TYTUŁ="Lista samochodów"
- FIELDS="POLA_CARS"
- SQL_TABEL_NAME="CARS"
- SQL_KEY_NAME="KEY_ID"
- MENU="SHOW"
- }
- IF SPRAWDZ_ROK {
- IF
- "#ROKURODZENIA >1= 2000"
- TRUE
- "$$DLGOK=Nie mozesz tego zrobic"
- "$NOMAKESQL=T"
- }
- IF SPRAWDZ_ROK2 {
- IF
- "#DATA_ZAKUPU <D= 1.01.2000"
- TRUE
- "$$DLGOK=Nie mozesz tego zrobic"
- "$NOMAKESQL=T"
- }
- SQL ZMIEN_ROK {
- SEL
- EQU="$$DLG_INT=Podaj wartość|#ROKURODZENIA |0|1999"
- EVRYEQU="$$IF=SPRAWDZ_ROK"
- SQL="UPDATE STUDENCI set ROKURODZENIA = $DLG_INT where KEY_ID = #KEY_ID AND #ROKURODZENIA < 2000 "
- REFRESH
- }
- SQL ZMIEN_DATE {
- SEL
- EQU="$$DLG_DATA=Podaj wartość|#DATA_ZAKUPU "
- EVRYEQU="$$IF=SPRAWDZ_ROK2"
- SQL="UPDATE POJAZDY set DATA_ZAKUPU = $DATA1SQL where KEY_ID = #KEY_ID"
- REFRESH
- }
- FIELDS POLA_POJAZD{
- FIELD="KEY_ID"
- TYP="H"
- FIELD="NR_REJESTRACYJNY"
- TYP="W"
- KOLOR="Y"
- KOLOR_TLO="G"
- FIELD="ROK_PRODUKCJI"
- TYP="W"
- KOLOR="Y"
- KOLOR_TLO="G"
- FIELD="DATA_ZAKUPU"
- TYP="W"
- KOLOR="Y"
- KOLOR_TLO="G"
- FIELD="DATA_SPRZEDAZY"
- TYP="W"
- KOLOR="Y"
- KOLOR_TLO="G"
- }
- FIELDS POLA_CARS{
- FIELD="KEY_ID"
- TYP="H"
- FIELD="NAZWA"
- TYP="W"
- KOLOR="Y"
- KOLOR_TLO="G"
- FIELD="MARKA"
- TYP="W"
- KOLOR="Y"
- KOLOR_TLO="G"
- FIELD="ROK_PRODUKCJI"
- TYP="W"
- KOLOR="Y"
- KOLOR_TLO="G"
- FIELD="DATA_REJESTRACJI"
- TYP="W"
- KOLOR="Y"
- KOLOR_TLO="G"
- }
- FIELDS POLA_STUDENT{
- FIELD="KEY_ID"
- TYP="H"
- FIELD="IMIE"
- TYP="W"
- NO EMPTY
- KOLOR="Y"
- KOLOR_TLO="G"
- FIELD="NAZWISKO"
- TYP="W"
- NO EMPTY
- KOLOR="Y"
- KOLOR_TLO="G"
- FIELD="ALBUM"
- TYP="W"
- NO EMPTY
- DISPLAY = "NR ALBUMU"
- FIELD="ROKURODZENIA"
- TYP="W"
- NO EMPTY
- DISPLAY = "ROK URODZENIA"
- FIELD="DATAURODZENIA"
- TYP="W"
- NO EMPTY
- DISPLAY = "DATA URODZENIA"
- FIELD="DATAROZPOCZECIASTUDIOW"
- TYP="W"
- NO EMPTY
- DISPLAY = "DATA ROZPOCZECIA STUDIOW"
- FIELD="ILOSCKOCHANEK"
- TYP="W"
- NO EMPTY
- DISPLAY = "ILOSC KOCHANEK"
- FIELD="ROZNICADAT"
- TYP="XS;N"
- DISPLAY="RÓŻNICA DZISIAJ ROK URODZENIA"
- FIELD="ROZNICADATDRUGA"
- TYP="ES;N"
- DISPLAY="RÓŻNICA DZISIAJ ROK URODZENIA 2"
- CALC="($$DATA - #DATAURODZENIA )"
- FIELD="KOLOR_OCZU"
- TYP="W"
- NO EMPTY
- EDIT_RELACJA="(OKO)"
- FIELD="KOLOR_WLOSOW"
- TYP="W"
- NO EMPTY
- EDIT_RELACJA="[BLOND, BRUNET, SZATYN]"
- FIELD="KOLOR_ZEBOW"
- TYP="W"
- NO EMPTY
- EDIT_RELACJA="{ZOLTE,ZIELONE,NIEBIESKIE}"
- FIELD="NR_REJESTRACYJNY_SAMOCHODU"
- TYP="W"
- EDIT_RELACJA="OWNER"
- EDIT_AFTER_REL="#NR_REJESTRACYJNY_SAMOCHODU=$USER_NAME"
- }
- MENU WYDRUK_STUDENT{
- MENUITEM="DRUKUJ STUDENTÓW"
- ON_INIT="$$PRINT=DRUKUJ_STUDENTOW"
- MENUITEM="ZMIEN ROK"
- ON_INIT="$$SQL=ZMIEN_ROK"
- MENUITEM="ZAPISZ DO PLIKU"
- ON_INIT="$$LOOP=ZAPISZPETLA"
- }
- MENU WYDRUK_POJAZD{
- MENUITEM="DRUKUJ POJAZDY"
- ON_INIT="$$PRINT=DRUKUJ_POJAZDY"
- MENUITEM="ZMIEN DATE"
- ON_INIT="$$SQL=ZMIEN_DATE"
- MENUITEM="ZAPISZ DO PLIKU"
- ON_INIT="$$LOOP=ZAPISZPETLA2"
- }
- LOOP ZAPISZPETLA {
- EQU_PRZED="$$DATASET_LOAD=MUCHA~SELECT * FROM STUDENCI"
- # EQU_PRZED="$$IF_YES=##MUCHA._ROWCOUNT_ |0|Pusta baza danych MUCHA"
- # EQU_PRZED="$$DLGOK=MUCHA:{N,T}ilość rekordów:##MUCHA._ROWCOUNT_ {N,T} ilość kolumn: ##MUCHA._FIELDCOUNT_ "
- EQU_PRZED="$$STD_CLR="
- #EQU_PRZED="$$STD_ADD=EXPORT Z DNIA: $$DATATIME "
- EQU_PRZED="$I=1"
- WHILE="$I <I= ##MUCHA._ROWCOUNT_ "
- LOOP="$$STD_ADD=##MUCHA.imie ;##MUCHA.nazwisko ;##MUCHA.album ;##MUCHA.rokurodzenia ;##MUCHA.datarozpoczeciastudiow ;##MUCHA.ilosckochanek ;##MUCHA.dataurodzenia "
- LOOP="$$DATASET_NEXT=MUCHA"
- LOOP="$I=($I +1)"
- EQU_PO="$FN=C:\studenci.csv"
- EQU_PO="$$STD_SAVE=$FN"
- EQU_PO="$$SHELL=$FN |N"
- FINALLY="$$DATASET_DEL=MUCHA"
- }
- LOOP ZAPISZPETLA2 {
- EQU_PRZED="$$DATASET_LOAD=MUCHA~SELECT * FROM POJAZDY"
- # EQU_PRZED="$$IF_YES=##MUCHA._ROWCOUNT_ |0|Pusta baza danych MUCHA"
- # EQU_PRZED="$$DLGOK=MUCHA:{N,T}ilość rekordów:##MUCHA._ROWCOUNT_ {N,T} ilość kolumn: ##MUCHA._FIELDCOUNT_ "
- EQU_PRZED="$$STD_CLR="
- #EQU_PRZED="$$STD_ADD=EXPORT Z DNIA: $$DATATIME "
- EQU_PRZED="$I=1"
- WHILE="$I <I= ##MUCHA._ROWCOUNT_ "
- LOOP="$$STD_ADD=##MUCHA.nr_rejestracyjny ;##MUCHA.rok_produkcji ;##MUCHA.data_zakupu ;##MUCHA.data_sprzedazy ; "
- LOOP="$$DATASET_NEXT=MUCHA"
- LOOP="$I=($I +1)"
- EQU_PO="$$FILESAVEDLG=$FN |Zapisz|C:|pojazdy.html"
- EQU_PO="$$STD_SAVE=$FN"
- EQU_PO="$$SHELL=$FN |N"
- FINALLY="$$DATASET_DEL=MUCHA"
- }
- PRINT DRUKUJ_STUDENTOW{
- TITLE="Lista studentów"
- ORIENT="PION"
- GRID="55x135"
- FONTBASE="Verdana:8"
- FONTSMALL="Arial CE:8"
- MARGIN="1.0, 1.0, 1.0, 1.0"
- SQL="1.SELECT IMIE, NAZWISKO, ALBUM, ROKURODZENIA FROM STUDENCI"
- ROW="1"
- TABLESQL="1|0|1|1"
- TABCOLSQL="5 Rld|LP:L.p."
- TABCOLSQL="10 Rld|IMIE:Imie"
- TABCOLSQL="14 WLld|NAZWISKO:Nazwisko"
- TABCOLSQL="20 WALld|ALBUM:Nr albumu"
- TABCOLSQL="20 WALldp|ROKURODZENIA:Rok urodzenia"
- ROW="1"
- }
- PRINT DRUKUJ_POJAZDY{
- TITLE="Lista pojazdów"
- ORIENT="PION"
- GRID="55x135"
- FONTBASE="Verdana:8"
- FONTSMALL="Arial CE:8"
- MARGIN="1.0, 1.0, 1.0, 1.0"
- SQL="1.SELECT NR_REJESTRACYJNY, ROK_PRODUKCJI, DATA_ZAKUPU, DATA_SPRZEDAZY FROM POJAZDY"
- ROW="1"
- TABLESQL="1|0|1|1"
- TABCOLSQL="5 Rld|LP:L.p."
- TABCOLSQL="10 Rld|NR_REJESTRACYJNY:Nr rejestracyjny"
- TABCOLSQL="14 WLld|ROK_PRODUKCJI:Rok produkcji"
- TABCOLSQL="20 WALld|DATA_ZAKUPU:Data zakupu"
- TABCOLSQL="20 WALldp|DATA_SPRZEDAZY:Data sprzedazy"
- ROW="1"
- }
- IF POWIADOMIENIA_TEST
- {
- EQU "$$TRUE=USER_TAK~$USER.PARAM3"
- IF
- "T~S=$USER_TAK "
- TRUE
- #"$$TRESC_POWIADOMIENIA=Za dużo użytkowników"
- "$$DLGOK={+5,T,N,CS}Wynik operacji dodawania: {CR} $D "
- FALSE
- "$$TRESC_POWIADOMIENIA=false"
- }
- EQUATION ON_INIT_ZAPYTANIE{
- #"$$SQL1CELL=CZEKAJ|USER~SELECT * FROM USERS WHERE KEY_ID = 2"
- #"$$IF=POWIADOMIENIA_TEST"
- #"$$DLGOK={+5,T,N,CS}Uzytkownik nazywa sie: {CR} $USER.USER_NAME"
- #[|ZMIENNA_SYS]~[DATASET:]SELECT SQL"
- "$$SQL1CELL=CZEKAJ~SELECT COUNT[*] FROM USERS"
- "$$DLGOK={+5,T,N,CS}Uzytkownicy: {CR} $SQL1CELL"
- "$$GET_FILE_NET=~\pdf\wzor.sfs"
- "$$SHELL=$GET_FILE_NET |N"
- }
- EQUATION ON_INIT_NOTATNIK{
- "$$DLG_NUM=Podaj liczbe A|0|4"
- "$A=$DLG_NUM"
- "$$DLG_NUM=Podaj liczbe B|0|4"
- "$B=$DLG_NUM"
- "$$DLG_NUM=Podaj liczbe C|0|4"
- "$C=$DLG_NUM"
- "$$DLG_NUM=Podaj liczbe D|0|4"
- "$D=$DLG_NUM"
- "$$WYBÓR=MAT_OPERACJE"
- "$WYBRAŁ_NAZWA1=$WYBÓR_NAME"
- "$WYBRAŁ_PARAM1=$WYBÓR_PARAM"
- "$$WYBÓR=MAT_OPERACJE"
- "$WYBRAŁ_NAZWA2=$WYBÓR_NAME"
- "$WYBRAŁ_PARAM2=$WYBÓR_PARAM"
- "$$WYBÓR=MAT_OPERACJE"
- "$WYBRAŁ_NAZWA3=$WYBÓR_NAME"
- "$WYBRAŁ_PARAM3=$WYBÓR_PARAM"
- "$E=(2~$A $WYBRAŁ_PARAM1 $B $WYBRAŁ_PARAM2 $C $WYBRAŁ_PARAM3 $D )"
- "$WYNIKI_INT=(0~$E )"
- "$$DLGOK={+5,T,N,CS}$A $WYBRAŁ_PARAM1 $B $WYBRAŁ_PARAM2 $C $WYBRAŁ_PARAM3 $D = {CR} $WYNIKI_INT "
- }
- EQUATION ON_INIT_DATA{
- "$$DLG_DATA=Podaj datę~$$DATA"
- "$$DLG_DATA=Podaj datę~( $DATA1 + 5 )"
- }
- WYBÓR MAT_OPERACJE{
- # $WYBÓR_PARAM=PARAM $WYBÓR_NAME=NAME
- TYTUŁ="Wybierz operacje"
- ITEM="Dodawanie"
- PARAM="+"
- ITEM="Odejmowanie"
- PARAM="-"
- ITEM="Mnozenie"
- PARAM="*"
- ITEM="Dzielenie"
- PARAM="/"
- }
- VIDOK OWNER {
- BUTTON=" EDIT, NEW"
- TYTUŁ="Dane firmy użytkownika programu"
- FIELDS="OWNER"
- SQL_TABEL_NAME="OWNER"
- SQL_KEY_NAME="KEY_ID"
- SHORT_NAME="DANE FIRMY"
- }
- FIELDS OWNER {
- ZAKŁADKA="UKRYTE"
- FIELD="KEY_ID"
- NO SENDSQL
- TYP="H"
- ZAKŁADKA="DANE UŻYTKOWNIKA PROGRAMU"
- FIELD="NAZWA_SK"
- TYP="W"
- NO EMPTY
- DISPLAY="SKRÓT NAZWY"
- HINT="Nazwa skrócona firmy (użytkownika programu)"
- FIELD="NAZWA1"
- TYP="W"
- NO EMPTY
- DISPLAY="NAZWA 1"
- HINT="Pełna nazwa firmy"
- FIELD="NAZWA2"
- TYP="W"
- DISPLAY="NAZWA 2"
- HINT="Pełna nazwa firmy"
- NO SHOW
- FIELD="ULICA_NR"
- TYP="W"
- NO EMPTY
- DISPLAY="ULICA. NR."
- HINT="Adres: ulica numer"
- NO SHOW
- FIELD="ULICA_NR"
- TYP="W"
- NO EMPTY
- DISPLAY="ULICA. NR."
- HINT="Adres: ulica numer"
- NO SHOW
- FIELD="KOD_MIASTO"
- TYP="W"
- NO EMPTY
- DISPLAY="KOD, POCZTA"
- HINT="Adres: kod, poczta, miasto, woj."
- NO SHOW
- FIELD="NIP"
- TYP="W"
- NO EMPTY
- DISPLAY="NIP"
- HINT="Numer identyfikacji podatkowej"
- NO SHOW
- FIELD="ISD"
- TYP="W"
- DISPLAY="ISD"
- HINT="Numer identyfikacji statystycznej"
- NO SHOW
- FIELD="INNE"
- TYP="W"
- HINT="Dane, które pojwaiają się jako dodatek na dokumentach, mogą zawierać np. reklamę, telefony"
- NO SHOW
- ZAKŁADKA="BANK UŻYTKOWNIKA"
- FIELD="NAZWA_BANKU"
- TYP="W"
- DISPLAY="NAZWA BANKU"
- HINT="Nazwa banku wystawiania na dokumentach"
- NO SHOW
- FIELD="NR_RACH"
- TYP="W"
- DISPLAY="NUMER RACH."
- HINT="Numer rachunku bankowego wystawianiego na dokumentach"
- NO SHOW
- ZAKŁADKA="BANK INNY"
- FIELD="NAZWA_BANKU2"
- TYP="W"
- DISPLAY="NAZWA BANKU 2"
- HINT="Nazwa banku wystawiania na dokumentach"
- NO SHOW
- FIELD="NR_RACH2"
- TYP="W"
- DISPLAY="NUMER RACH. 2"
- HINT="Numer rachunku bankowego wystawianiego na dokumentach"
- NO SHOW
- ZAKŁADKA="INNE"
- FIELD="NAGLOWEK"
- TYP="W"
- DISPLAY="NAGŁÓWEK"
- HINT="Treść drukowana jako nagłówek dokumentów"
- NO SHOW
- FIELD="DOPIS_DOK1"
- TYP="W"
- NO SHOW
- FIELD="DOPIS_DOK2"
- TYP="W"
- NO SHOW
- FIELD="DOPIS_DOK3"
- TYP="W"
- NO SHOW
- }
- VIDOK _USERS_ {
- BUTTON="REFRESH, SORT, PRINT, SAVE"
- BUTTON_NEW="ADMI"
- BUTTON_EDIT="ADMI"
- BUTTON_DEL="ADMI"
- TYTUŁ="Rejestr użytkowników"
- FIELDS="_USERS_"
- SHORT_NAME="UŻYTKOWNICY PROGRAMU"
- SQL_TABEL_NAME="USERS"
- SQL_KEY_NAME="KEY_ID"
- }
- FIELDS _USERS_ {
- ZAKŁADKA="UKRYTE"
- FIELD="KEY_ID"
- NO SENDSQL
- TYP="H"
- ZAKŁADKA="GŁÓWNE"
- FIELD="USER_"
- TYP="WU"
- NO EMPTY
- DISPLAY="UŻYTKOWNIK"
- HINT="Nazwa użytkownika - później wpisywana przy logowaniu"
- FIELD="PASS"
- TYP="W"
- DISPLAY="HASŁO"
- HINT="Hasło doatępu użytkownika - później wpisywana przy logowaniu"
- FIELD="WIDOK"
- TYP="WU"
- NO EMPTY
- DISPLAY="MODUŁ"
- HINT="Określa nazwę modułu do jakiego użytkownik będzie miał dostęp"
- EDIT_RELACJA="[ADMIN,SZEF,BIUR,MONT,KSIE,HAND,FIN,MAG,PROD]"
- FIELD="USER_NAME"
- TYP="WU"
- NO EMPTY
- DISPLAY="IMIĘ NAZWISKO"
- HINT="Imię i nazwisko użytkownika (drukowane na dokumentach finansowych)"
- FIELD="PARAM1"
- TYP="W"
- FIELD="PARAM2"
- TYP="W"
- FIELD="PARAM3"
- TYP="W"
- HINT="Trzeci parametr startowy"
- }
- INCLUDE slowniki.sfc
- INCLUDE raporty.sfc
- INCLUDE rejestracja_dostaw.sfc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement