Punkty wejścia > Moduł Zapasy > Standardowy skrypt CRDLIB 

PECRDCTR: Kontrola odpowiedzi – arkusz kontrolny

Punkt wejścia PECRDCTR umożliwia dodanie kontroli w odpowiedziach arkuszy kontrolnych

Kontekst i tryb działania

Transakcja
Log
Przypadek wywoływania

Punkt wejścia jest umiejscowiony tuż po standardowych i zdefiniowanych kontrolach.

Dostępne zmienne i maski

Zmienna ASW zawierająca odpowiedź. Jest to zmienna typu „znak”, „dziesiętna”, „data” lub „liczba całkowita” w zależności od oczekiwanej odpowiedzi. 

Instrukcja „typ” umożliwia odnalezienie typu zmiennej  

Otwarte tabele

PEQLYA: Dodanie odpowiedzi do arkusza kontrolnego

Punkt wejścia PEQLYA umożliwia dodanie operacji do nagłówków ekranu odpowiedzi arkuszy kontrolnych.

W zależności od menu lokalnego 31

Kontekst i tryb działania

Transakcja
Log
Przypadek wywoływania

Punkt wejścia jest umiejscowiony tuż po standardowych i zdefiniowanych kontrolach.

Dostępne zmienne i maski

Zmienna ASW zawierająca odpowiedź. Jest to zmienna typu „znak”, „dziesiętna”, „data” lub „liczba całkowita” w zależności od oczekiwanej odpowiedzi. 

Instrukcja „typ” umożliwia odnalezienie typu zmiennej  

Otwarte tabele

PEWRIQLA: Przed zapisem rekordu QLYCRDASW (Arkusze danych jakości – odpowiedzi)

Punkt wejścia PEWRICTR umożliwia uzupełnienie konkretnych pól w rekordzie Arkusze danych jakości – Odpowiedzi QLYCRDASW.

Kontekst i tryb działania

Transakcja

Tak

Log
Przypadek wywoływania

Punkt wejścia jest umiejscowiony tuż przed zapisem rekordu QLYCRDASW

Dostępne zmienne i maski

Otwarte tabele

CALSMPCOD: Obliczanie rozmiaru i kodu próbki

Punkt wejścia CALSMPCOD umożliwia określenie rozmiaru i kodu próbki w konkretny sposób

Kontekst i tryb działania

Transakcja

Brak transakcji w toku. 

Log
Przypadek wywoływania

Punkt wejścia jest umiejscowiony na końcu składnika CALSMPCOD procesu CRDLIB 

Składnik CALSMPCOD oblicza rozmiar i kod próbki 

Punkt wejścia posiada następujące elementy:

      Zmienna liczba całkowita   LTRT   : 1 Określanie automatyczne  

      Zmienna liczba dziesiętna LQTY   : Początkowa ilość partii 

      Zmienna znak LCODE: Obliczony kod próbki

      Zmienna liczba dziesiętna LSMP    : Rozmiar próbki 

      Zawartość tabeli dodatkowej 103 „Rozmiar próbki prosty plan” jest przechowywana w zmiennej

      typu globalnego

      Globalna liczba dziesiętna GNBR103: Numer kodu

      Globalna liczba dziesiętna GQTY103: Partia początkowa  

      Globalna liczba całkowita GSMP103: Rozmiar  

      Globalna znak GCOD103: Kod 

Dostępne zmienne i maski

Otwarte tabele

CALACPPRM: Obliczanie rozmiaru odrzucenia próbki

Punkt wejścia CALACPPRM umożliwia określenie rozmiaru odrzutu próbki w konkretny sposób

Kontekst i tryb działania

Transakcja

Brak transakcji w toku. 

Log
Przypadek wywoływania

Punkt wejścia jest umiejscowiony na końcu składnika CALLACPRM procesu CRDLIB 

Składnik CALACPRM oblicza rozmiar odrzutu próbki 

Punkt wejścia posiada następujące elementy:

      Zmienna liczba całkowita LNQA: Wartość rubryki NQA w tabeli ITMFACILIT  

      Zmienna liczba dziesiętna LCODE: Kod próbki 

      Zmienna znak LCODE: Obliczony kod próbki

      Zmienna liczba dziesiętna LACP: Rozmiar odrzutu 

      Odczyt tabeli QLYCRDNQA/NQA „Próbkowanie”: Kluczowe kryteria „NQA” (tabela Dane Indus):  1;LNQA;LCODE określa rozmiar odrzutu      

Otwarte tabele

PEQLYARPL: Dodanie operacji na nowym rekordzie

Punkt wejścia PEQLYARPL umożliwia dodanie operacji do nagłówków ekranu nowego rekordu odpowiedzi arkuszy kontrolnych.

W zależności od menu lokalnego 31

Kontekst i tryb działania

Transakcja
Log
Przypadek wywoływania

Punkt wejścia jest umiejscowiony tuż po standardowych i zdefiniowanych kontrolach.

Dostępne zmienne i maski

Zmienna ASW zawierająca odpowiedź. Ta zmienna jest typu „znak” Otwarte tabele

QLQGENCRD: Przed wygenerowaniem ekranu wprowadzania odpowiedzi

Punkt wejścia QLQGENCRD umożliwia w momencie generowania rekordu kontroli jakości modyfikację zawartości tabeli roboczej odpowiadającej odpowiedziom. Umożliwia on na przykład: brak inicjalizacji pól odpowiedzi przy użyciu domyślnych wartości pytań

Kontekst i tryb działania

Transakcja

Tak

Log

Nie

Przypadek wywoływania

Punkt wejścia jest umiejscowiony w podprogramie GENCRD (generowanie ekranu wprowadzania odpowiedzi) procesu CRDLIB

Punkt wejścia jest umiejscowiony w pętli odczytu odpowiedzi arkusza kontrolnego 

Każda odpowiedź jest przechowywana w tabeli wymiarowanej przez liczbę pozycji -1 ekranu QLYCRD1/QLY1 (Odpowiedzi rekordu kontrolnego) przechowywanego w zmiennej W_MAX

składniki tabeli to:

     W_QST       : Pytanie

     W_TYP        : Typ odpowiedzi (menu lokalne 252)

     W_CTL       : Typ kontroli (menu lokalne 253)

     W_STD      : Inna dozwolona odpowiedź (menu lokalne 1)

     W_TCT      : Tabela kontroli

     W_INT       : Nagłówek

     W_DEF      : Domyślna odpowiedź

     W_LOK     : Typ blokady (menu lokalne 266)

     W standardzie ładowanie wygląda następująco:

W_QST (W_I) = [F:QLC]QSTNUM

W_TYP (W_I) = [F:QLQ]DEMASWTYP

W_CTL (W_I) = [F:QLQ]DEMCTLTYP

W_STD (W_I) = [F:QLQ]OSDASW

W_TCT (W_I) = [F:QLQ]TCT

W_LOK (W_I) = [F:QLQ]LOKTYP

W_INT (W_I) = "func CRDLIB.GETQSTSHOAXX('" + [F:QLQ]QSTNUM + "')"

Case [F:QLQ]DEMASWTYP

         When 1: W_DEF (W_I) = '"'+[F:QLQ]ALPDEFASW+'"'

         When 2: W_DEF (W_I) = num$([F:QLQ]NUMDEFASW)

         When 4: W_DEF (W_I) = num$([F:QLQ]NUMDEFASW+1)

         When Default: W_DEF (W_I) = ""

Indeks ładowania jest przechowywany w zmiennej W_I. Aby zmodyfikować wartość składników

tabeli należy użyć wartości tego indeksu minus 1 (W_I -1), ponieważ na końcu ładowania i przed wywołanie punktu wejścia, indeks jest powiększany o 1.

Dostępne zmienne i maski

Otwarte tabele

QLYCRD/QLC        :  Rekord kontrolny

QLYCRDQST/QLQ : Odpowiedzi

GEN_ONGLET : Dodanie obszaru komentarza do każdego pytania

Punkt wejścia GEN_ONGLET umożliwia w momencie generowania rekordu kontrolnego dodanie możliwego do uzupełnienia pola komentarza do każdego pytania.

Kontekst i tryb działania

Transakcja

Tak

Log

Nie

Przypadek wywoływania

Punkt wejścia jest umiejscowiony w podprogramie GEN_ONGLET (generowanie ekranu wprowadzania odpowiedzi) procesu CRDLIB

Punkt wejścia jest umiejscowiony w pętli tworzenia pól każdej odpowiedzi arkusza kontrolnego 

aby dodać pole komentarza do każdej odpowiedzi należy napisać następujące polecenia w punkcie wejścia:

         GPE = 1                                                                                       

      [F:AMZ2]NOZONE = [F:AMZ1]NOZONE

      For W_I = 0 To W_MAX-1

        If W_QST(W_I) <> ""

          W_NUM  = ((W_J-1)*W_MAX)+(W_I+1)

          W_FLD  = "XXX"+format$("N0:3#",W_NUM)               

          [F:AMZ2]CODZON  = W_FLD

          Write [AMZ2]

          If fstat

            Call FSTA("AMZ2") From GLOCK

            GOK = 0

          Endif

          Gosub COP_PARMSK1 from CRDLIB

          If GOK <> 1

            Break

          Endif

        Endif

        [F:AMZ2]NOZONE += 1

      Next W_I

 

   Należy ustawić zmienną GPE jako 1

   „XXX” to nazwa nowego obszaru

Otwarte tabele
QLYCRD/QLC        :  Rekord kontrolny
QLYCRDQST/QLQ : Odpowiedzi

LECFIC: Odczyt konkretnych pól tabeli QLYCRDASW

Punkt wejścia LECFIC umożliwia odczyt konkretnych pól tabeli QLYCRDASW i brak dodania innego punktu wejścia PEWRIQLA.

Kontekst i tryb działania

Transakcja

nie

Log

Nie

Przypadek wywoływania

Punkt wejścia jest umiejscowiony w podprogramie LECFIC (podprogram ładowania już wprowadzonych odpowiedzi).

Punkt wejścia jest umiejscowiony w pętli odczytu tabeli QLYCRDASW  

Otwarte tabele
QLYCRD/QLC        :  Rekord kontrolny
QLYCRDASW/QLA : Odpowiedzi