QBS >> Elementy standardowe >> QN-Edirec

QN-Edirec - element

Jednym z podstawowych elementów Q-Line 3000 jest QN-Edirec czyli element odpowiedzialny za edycję rekordów.

Na wstepie omówimy przeznaczenie tego elementu a następnie podamy kilka przykładów z opisem. QN-Edirec służy do budowy obsługi edycji rekordów. Lista dostępnych akcji i typów związanych z tym elementem jest jak zwykle zamieszczona w odpowiednim suplemencie technicznym.

Przeznaczenie

Element QN-Edirec jest przeznaczony do obsługi edycji rekorów danych. Przy jego pomocy można edytować rekordy proste i złożone takie jak na przykład edycja faktury.

Kilka przykładów z opisem

Przykład 1: prosty rekord danych

Wygląd na ekranie Komentarz do wyglądu na ekranie 
<--- Nazwa okna edycji rekordu

<--- Górny rąbek zakładki (w tym przykładzie jest tylko jedna zakładka)

<--- Edycja typowego pola string
<--- Edycja pola o nazwie (ekranowej) PNA z uwzglednieniem maski edycji typu "00-000"












<--- Okno wyświetlania pliku graficznego






<--- Pole wyboru pliku (w tym przypadku graficznego)


<--- Przyciski OK (zatwierdzający) i Anuluj (Porzucenie edycji i powrót do pierwotnych wartości)
Zapis w języku konfiguracji 
TAB SYSED_PARAMETRY
    TITLE="Parametry systemowe programu"
    POS=50 50
    LAYOUT=HPAN(
                 TAB( "Dane użytkownika"
                       HPAN(  TCP ( SYS_FIRMA
                                    SYS_PNA (FLD( SYS_MIASTO))
                                    SYS_ULICA
                                    SYS_TEL1
                                    SYS_TEL2
                                    SYS_FAX
                                    SYS_EMAIL
                                    SYS_IMG_L
                                    SYS_LOGO
                                  )
                           )
                    )                 
               )
{
ID         LEN  TYPE     NAME                        ;
SYS_FIRMA  50   STRING   "Nazwa firmy"     EDILEN=30 ;
SYS_ULICA  50   STRING   "Ulica"           EDILEN=30 ;                                            
SYS_MIASTO 30   STRING   "Miasto"          EDILEN=16 ;
SYS_PNA    6    STRING   "PNA"             MASK=MASK("00\\-000" "  -   ");
SYS_TEL1   50   STRING   "Telefon"         EDILEN=30 ;
SYS_TEL2   50   STRING   "Telefon drugi"   EDILEN=30 ;
SYS_FAX    50   STRING   "Fax"             EDILEN=30 ;
SYS_EMAIL  50   STRING   "E-Mail"          EDILEN=30 ;
SYS_LOGO   255  STRING   "Logo"            EDILEN=30
           MASK=FILE( GIF="*.gif; *.GIF; *.jpg; *.JPG; *.tiff; *.TIFF; *.png; *.PNG; *.bmp; *.BMP;");
SYS_IMG_L  -    -        - MASK=IMAGE RESIZABLE(25 10) LEN=8 TYPE=INT NAME="" AUTFUN=filedata(SYS_LOGO);
}
Komentarz do zapisu w języku konfiguracji 
TAB - to identyfikator typu bloku
SYSED_PARAMETRY - to identyfikator obiektu TAB
TITLE - to identyfikator atrybutu: tytuł TAB
"Parametry systemowe programu" - to wartość atrybutu "tytuł TAB" (Tytuł okna edycji rekordu)
POS - to identyfikator atrybutu: pozycja ekranowa
50 50 - to wartości atrybutu pozycja ekranowa menu (50 50 oznacza umieść centralnie)
LAYOUT - to identyfikator atrybutu: sposób rozmieszczania pól na ekranie
HPAN - to identyfikator elementu LAYOUT
.................


Jak zwykle dokładne omówienie poszczególnych identyfikatorów 
i akcji menu znajdą państwo suplemencie technicznym.

Przykład 2: złożony rekord danych

Wygląd na ekranie Komentarz do wyglądu na ekranie 
<--- Nazwa okna edycji rekordu


<--- Dole "dystrybutor" jeżeli uzytkownik wprowadzi wartość "kalwiatura" to Edirec obsłuży 
     pola po lewej stronie "Wypożyczający" "Sprzęt" "Operacja"; jeżeli wprowadzimy "czytnik" 
     to te pola staną się nieaktywne a zaktywizuje się pole "Kod paskowy"

<--- Pola o zmienionych wartościach kroju, wielkości, typu i koloru czcionki









<--- Okno z listą rekordów
Zapis w języku konfiguracji 
#DEFINE ATTRIB_KOD
(FONTNAME="tahoma" FONTSIZE=15 FONTSTYLE=BOLD COLOR=RGB(40 30 255) CAPITAL)
#END

#DEFINE ATTRIB_NAZWA
(FONTNAME="tahoma" FONTSIZE=15 FONTSTYLE=ITALIC COLOR=RGB(240 20 110))
#END

//----------------------------------------------------------------------------
//                    O K N O    O P E R A C J I    W Y P / Z W
//----------------------------------------------------------------------------

TAB EDIT_REJESTRACJA
     TITLE="Okno rejstracji wypożyczenia/zwrotu"
     BUTTONS=NONE
     LAYOUT=HPAN(     
                 GRP( "Format wprowadzania kodów paskowych"
                     TCP( KEYBOARD )
                    )
                 VPAN( 
                     GRP( ""
                           HPAN(
                                CONST("Program automatycznie rozpozna typ kodu")
                                TCP( KOD )
                               ) 
                        )
                     GRP( ""              
                            TCP( KOD_WYP(VALUE(NAME_WYP))
                                KOD_KSG(VALUE(NAME_KSG)) 
                                KOD_OPR(VALUE(NAME_OPR))
                                DATA
                               )
                        )
                    )
                 HPAN( 
                     GRP( "Lista przedmiotów operacji"
                        VALUE( MEMORY_BROWSER )
                        )
                     HPAN( VALUE(TOOL_BAR) )
                     )
                )
{
ID            LEN     TYPE          MASK       NAME                   EVH                             VIS ;
//logo
LOGO          8       INT         IMAGE RESIZABLE(28 10) -             -                              -     AUTFUN=filedata("img/logoWypozyczalnia.gif");
//kody paskowe
KOD_WYP       10      STRING         -         "Wypożyczający"  Voc(WYPOZYCZAJACY,KOD)                -     ATTRIB= #INCLUDE(ATTRIB_KOD) ENABLED=(KEYBOARD=0) EDILEN=11;
NAME_WYP     100      STRING         -          ""                     -                              SHOW  LOOK=Look(WYPOZYCZAJACY,KOD_WYP,KOD,NAZW_IM) ATTRIB= #INCLUDE(ATTRIB_NAZWA) EDILEN=40;
KOD_KSG       11      STRING         -         "Sprzęt"         Voc(KATALOG_BRO_REJESTRACJA,KOD)      -     ATTRIB= #INCLUDE(ATTRIB_KOD) ENABLED=(KEYBOARD=0) EDILEN=11;
NAME_KSG     100      STRING         -          ""                     -                              SHOW  LOOK=Look(KATALOG,KOD_KSG,KOD,NAZWA)         ATTRIB= #INCLUDE(ATTRIB_NAZWA) EDILEN=40; 
KOD_OPR       10      STRING         -         "Operacja"       Voc(OPERACJA,KOD)                     -     ATTRIB= #INCLUDE(ATTRIB_KOD) ENABLED=(KEYBOARD=0) EDILEN=11;
NAME_OPR     100      STRING         -          ""                     -                              SHOW  LOOK=Look(OPERACJA,KOD_OPR,KOD,OPERACJA)     ATTRIB= #INCLUDE(ATTRIB_NAZWA) EDILEN=40;
DATA          8       INT           DATE       "Data operacji"         -                              SHOW  ATTRIB= #INCLUDE(ATTRIB_KOD) DEFVALUE=curr_date();

//pojedyńczy kod paskowy
KOD           11      STRING         -         "Kod paskowy"           -                              -     ATTRIB= #INCLUDE(ATTRIB_KOD) ENABLED=(KEYBOARD=1);
TOOL_BAR      0       STRING         -            -                    -                              - ;    

//ustawienie formatu wprowadzania kodów paskowych
KEYBOARD      8       INT       LLIST("     Klawiatura  " "    Czytnik kodów   ")   "     Tryb pracy     "  - SHOW AUTFUN=sysfield("PARAMS_EDIT","KEYBOARD");
//browser przedmiotów wypożyczenia
MEMORY_BROWSER 1      STRING    BROWSER           -            GlobList(MEMORY_KATALOG) -  ;   

}
Komentarz do zapisu w języku konfiguracji 
Przedstawiony powyżej zapis konfiguracji elementu Edirec prezentowanego na ekranie nie jest pełny.
Przykład ten zaczerpnęliśmy z programu Q-Wypożyczalnia 3000. W celu zapoznania się z pełnym
zapisem konfiguracji można sobie ten program ściągnąć z internetu.


Jak zwykle dokładne omówienie poszczególnych identyfikatorów 
i akcji menu znajdą państwo suplemencie technicznym.

Język konfiguracji