campo-sirio/lv/lv2300a.uml

188 lines
2.9 KiB
Plaintext
Executable File

#include "lv2300a.h"
TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
ENDPAGE
PAGE "Stampa Giri." -1 -1 40 5
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 1 1 "@bParametri Data"
END
DATE F_DATA_FROM
BEGIN
PROMPT 2 2 "Dal "
FIELD #FROM_DATA
GROUP 1
CHECKTYPE REQUIRED
FLAGS "A"
END
DATE F_DATA_TO
BEGIN
PROMPT 25 2 "Al "
FIELD #TO_DATA
FLAGS "A"
GROUP 2
CHECKTYPE REQUIRED
VALITATE DATE_CMP_FUNC >= F_DATA_FROM
WARNING "La data finale deve essere successiva a quella iniziale"
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 1 4 "@bParametri Itinerario"
END
STRING F_CODITI_FROM 3
BEGIN
PROMPT 2 5 "Da Itinerario"
FLAGS "UZ"
USE &ITI
INPUT CODTAB F_CODITI_FROM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODITI_FROM CODTAB
OUTPUT F_DESITI_FROM S0
CHECKTYPE SEARCH
FIELD #FROM_CODITI
END
STRING F_DESITI_FROM 50
BEGIN
PROMPT 25 5 ""
FLAGS "D"
END
STRING F_CODITI_TO 3
BEGIN
PROMPT 2 6 "A Itinerario "
FLAGS "UZ"
USE &ITI
INPUT CODTAB F_CODITI_TO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODITI_TO CODTAB
OUTPUT F_DESITI_TO S0
CHECKTYPE SEARCH
FIELD #TO_CODITI
END
STRING F_DESITI_TO 50
BEGIN
PROMPT 25 6 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 1 8 "@bParametri Autista"
END
STRING F_CODAUT_FROM 6
BEGIN
PROMPT 2 9 "Da Autista "
FLAGS "UZ"
USE &AUT
INPUT CODTAB F_CODAUT_FROM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODAUT_FROM CODTAB
OUTPUT F_DESAUT_FROM S0
CHECKTYPE SEARCH
FIELD #FROM_CODAUT
END
STRING F_DESAUT_FROM 50
BEGIN
PROMPT 25 9 ""
FLAGS "D"
END
STRING F_CODAUT_TO 6
BEGIN
PROMPT 2 10 "Ad Autista "
FLAGS "UZ"
USE &AUT
INPUT CODTAB F_CODAUT_TO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODAUT_TO CODTAB
OUTPUT F_DESAUT_TO S0
CHECKTYPE SEARCH
FIELD #TO_CODAUT
END
STRING F_DESAUT_TO 50
BEGIN
PROMPT 25 10 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 1 12 "@bParametri Cliente"
END
NUMBER F_CODCF_FROM 6
BEGIN
PROMPT 2 13 "Da Cliente "
FLAGS "U"
USE LF_CLIFO KEY 1
INPUT TIPOCF "C"
INPUT CODCF F_CODCF_FROM
DISPLAY "Codice " CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODCF_FROM CODCF
OUTPUT F_RAGSOCCF_FROM RAGSOC
CHECKTYPE NORMAL
FIELD #FROM_CODCF
END
STRING F_RAGSOCCF_FROM 50
BEGIN
PROMPT 25 13 ""
FLAGS "D"
END
NUMBER F_CODCF_TO 6
BEGIN
PROMPT 2 14 "A Cliente "
FLAGS "U"
USE LF_CLIFO KEY 1
INPUT TIPOCF "C"
INPUT CODCF F_CODCF_TO
DISPLAY "Codice " CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODCF_TO CODCF
OUTPUT F_RAGSOCCF_TO RAGSOC
CHECKTYPE NORMAL
FIELD #TO_CODCF
END
STRING F_RAGSOCCF_TO 50
BEGIN
PROMPT 25 14 ""
FLAGS "D"
END
LIST F_CHOICE 1 11
BEGIN
PROMPT 2 16 "Stampa Giri"
ITEM "G|Giornaliero"
ITEM "S|Settimanale"
FLAGS "U"
END
BOOLEAN F_CHECK_MNEM_TO
BEGIN
PROMPT 2 18 "Utilizza Mnemonico (Ricerca Alt.)"
FIELD #F_CHECK_MNEM
END
ENDPAGE
ENDMASK