9967d6df67
Files correlati : lv0 Ricompilazione Demo : [ ] Commento : 0001006: Gestione più itinerari nello stesso giorno e itinerario stagionale Description Nel programma dove vengono impostati i giri per il contratto bisognerebbe dare la possibilità di gestire più itinerari per lo stesso giorno a di poter assegnare ad ognuno di essi una data inizio e fine validità. in allegato un esempio Additional Information Dove ... Lo stesso itinerario nello stesso giorno può esistere solo se c'è una data inizio e fine validità validità Mentre può esserci un itinerario diverso git-svn-id: svn://10.65.10.50/trunk@17828 c028cbd2-c16b-5b4b-a496-9718f37d4682
456 lines
6.4 KiB
Plaintext
Executable File
456 lines
6.4 KiB
Plaintext
Executable File
#include "lv0500a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include "relapbar.h"
|
|
ENDPAGE
|
|
|
|
PAGE "Passaggi per Contratto" -1 -1 78 10
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bPassaggi per Contratto"
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 2 2 "Cliente "
|
|
FLAGS "UG"
|
|
FIELD CODCF
|
|
USE LF_LVCONDV
|
|
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
|
|
INPUT CODCF F_CODCF
|
|
INPUT CODCONT F_CODCONT
|
|
DISPLAY "Codice Cliente" CODCF
|
|
DISPLAY "Contratto@8" CODCONT
|
|
DISPLAY "Inizio@10" DATAIN
|
|
DISPLAY "Fine@10" DATASC
|
|
DISPLAY "Cliente@50" LF_CLIFO->RAGSOC
|
|
OUTPUT F_CODCONT CODCONT
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOCCLI LF_CLIFO->RAGSOC
|
|
OUTPUT F_VALIDA DATAIN
|
|
OUTPUT F_VALIA DATASC
|
|
CHECKTYPE FORCED
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_RAGSOCCLI 50
|
|
BEGIN
|
|
PROMPT 22 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CODCONT 6
|
|
BEGIN
|
|
PROMPT 2 3 "Contratto "
|
|
FLAGS "U"
|
|
FIELD CODCONT
|
|
COPY ALL F_CODCF
|
|
CHECKTYPE FORCED
|
|
KEY 1
|
|
END
|
|
|
|
DATE F_VALIDA
|
|
BEGIN
|
|
PROMPT 22 3 "Valido dal "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_VALIA
|
|
BEGIN
|
|
PROMPT 45 3 "al "
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_PASPLAN 0 7
|
|
BEGIN
|
|
PROMPT 0 5 "Passaggi per contratto"
|
|
ITEM "Num."
|
|
ITEM "Giorno"
|
|
ITEM "Itinerario"
|
|
ITEM "Ordine\nfermata"
|
|
ITEM "Ora\nprevista"
|
|
ITEM "Mod. pass."
|
|
ITEM "Frequenza\nconsegne"
|
|
ITEM "Valido dal"
|
|
ITEM "al"
|
|
ITEM "Note@50"
|
|
END
|
|
|
|
SPREADSHEET F_PERSOSP 0 7
|
|
BEGIN
|
|
PROMPT 0 13 "Periodi di sospensione"
|
|
ITEM "Tipo"
|
|
ITEM "Data\ninizio"
|
|
ITEM "Data\nfine"
|
|
ITEM "Fattura"
|
|
ITEM "Importo da\nfatturare"
|
|
ITEM "Percentuale da\nfatturare"
|
|
ITEM "Note@50"
|
|
USE LF_LVPERISOSP KEY CODPER
|
|
INPUT CODCF F_CODCF
|
|
INPUT CODCONT F_CODCONT
|
|
FLAGS "A"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Passaggi per contratto" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 1 0 "@bDati Itinerario"
|
|
END
|
|
|
|
NUMBER F_S_GGCONS 1
|
|
BEGIN
|
|
PROMPT 2 1 "Giorno "
|
|
SHEET "Codice|Giorno@10"
|
|
INPUT F_S_GGCONS
|
|
ITEM "1|Lunedì"
|
|
ITEM "2|Martedì"
|
|
ITEM "3|Mercoledì"
|
|
ITEM "4|Giovedì"
|
|
ITEM "5|Venerdì"
|
|
ITEM "6|Sabato"
|
|
ITEM "7|Domenica"
|
|
OUTPUT F_S_GGCONS
|
|
OUTPUT F_S_STRGGCONS
|
|
FIELD GGCONS
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_S_STRGGCONS 10
|
|
BEGIN
|
|
PROMPT 20 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_S_ITI 3
|
|
BEGIN
|
|
PROMPT 2 2 "Itinerario "
|
|
FLAGS "Z"
|
|
FIELD CODITI
|
|
USE &ITI
|
|
INPUT CODTAB F_S_ITI
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_S_ITI CODTAB
|
|
OUTPUT F_S_DESITI S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_S_DESITI 50
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_S_ORDFER 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 3 "N. Fermata "
|
|
FIELD ORDFERM
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_S_ORA 5
|
|
BEGIN
|
|
PROMPT 20 3 "Ora arrivo "
|
|
PICTURE "@@:@@"
|
|
FIELD ORARPRV
|
|
END
|
|
|
|
DATE F_S_DASTAG
|
|
BEGIN
|
|
PROMPT 2 4 "Valido dal "
|
|
FIELD DTSTAGIN
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_S_ASTAG
|
|
BEGIN
|
|
PROMPT 25 4 " al "
|
|
FIELD DTSTAGSC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 6 "@bDettagli consegna"
|
|
END
|
|
|
|
LIST F_S_MODPAS 10
|
|
BEGIN
|
|
PROMPT 2 7 "Modalità di passaggio "
|
|
ITEM "E|Entrambi"
|
|
ITEM "C|Consegna"
|
|
ITEM "R|Ritiro"
|
|
FIELD MODPASS
|
|
END
|
|
|
|
NUMBER F_S_FREQ 2
|
|
BEGIN
|
|
PROMPT 40 7 "Frequenza di consegna "
|
|
USE &FRQ
|
|
INPUT CODTAB F_S_FREQ
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_S_FREQ CODTAB
|
|
FLAGS "Z"
|
|
CHECKTYPE REQUIRED
|
|
FIELD FREQ
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 9 "@bNote"
|
|
END
|
|
|
|
MEMO F_S_NOTEPC 74 4
|
|
BEGIN
|
|
PROMPT 2 9 ""
|
|
FIELD NOTE
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 14 "@bDettagli creazione passaggio"
|
|
END
|
|
|
|
STRING F_S_UTENTEC 16
|
|
BEGIN
|
|
PROMPT 2 15 "Utente "
|
|
FIELD UTCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_S_DATAC
|
|
BEGIN
|
|
PROMPT 27 15 "Data "
|
|
FIELD DTCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_ORAC 5
|
|
BEGIN
|
|
PROMPT 45 15 "Ora "
|
|
PICTURE "@@:@@"
|
|
FIELD ORCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 17 "@bDettagli ultimo aggiornamento"
|
|
END
|
|
|
|
STRING F_S_UTENTEUA 16
|
|
BEGIN
|
|
PROMPT 2 18 "Utente "
|
|
FIELD UTCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_S_DATAUA
|
|
BEGIN
|
|
PROMPT 27 18 "Data "
|
|
FIELD DTCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_ORAUA 5
|
|
BEGIN
|
|
PROMPT 45 18 "Ora "
|
|
PICTURE "@@:@@"
|
|
FIELD ORCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
PICTURE BMP_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Periodi di sospensione" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 0 "@bDati periodo di sospensione"
|
|
END
|
|
|
|
STRING F_S_TPSOSP 3
|
|
BEGIN
|
|
PROMPT 2 2 "Tipo "
|
|
FIELD TPSOSP
|
|
USE &TSP
|
|
INPUT CODTAB F_S_TPSOSP
|
|
INPUT S0 F_S_DTPSOSP
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_S_TPSOSP CODTAB
|
|
OUTPUT F_S_DTPSOSP S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_S_DTPSOSP 50
|
|
BEGIN
|
|
PROMPT 16 2 ""
|
|
USE &TSP
|
|
INPUT S0 F_S_DTPSOSP
|
|
INPUT CODTAB F_S_TPSOSP
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_S_TPSOSP
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_S_DADATA
|
|
BEGIN
|
|
PROMPT 2 3 "Consegne sospese dal "
|
|
FIELD DATAINI
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_S_ADATA
|
|
BEGIN
|
|
PROMPT 40 3 "al "
|
|
FIELD DATAFIN
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 1 5 "@bDati fatturazione"
|
|
END
|
|
|
|
BOOLEAN F_S_FLFAT
|
|
BEGIN
|
|
PROMPT 2 6 "Flag Fatturazione"
|
|
FIELD FLFATT
|
|
MESSAGE FALSE CLEAR,F_S_IMPFAT|CLEAR,F_S_PERFAT
|
|
MESSAGE TRUE ENABLE,F_S_IMPFAT|ENABLE,F_S_PERFAT
|
|
END
|
|
|
|
CURRENCY F_S_IMPFAT
|
|
BEGIN
|
|
PROMPT 2 7 "Importo da fatturare "
|
|
FLAGS "U"
|
|
FIELD IMPFATT
|
|
END
|
|
|
|
NUMBER F_S_PERFAT 6 2
|
|
BEGIN
|
|
PROMPT 43 7 "Percentuale da fatturare "
|
|
FLAGS "U"
|
|
FIELD PERCFATT
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 1 9 "@bNote"
|
|
END
|
|
|
|
MEMO F_S_NOTEPS 74 3
|
|
BEGIN
|
|
PROMPT 2 9 ""
|
|
FIELD NOTE
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 13 "@bDettagli creazione periodo di sospensione"
|
|
END
|
|
|
|
STRING F_S_UTENTEC 16
|
|
BEGIN
|
|
PROMPT 2 14 "Utente "
|
|
FIELD UTCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_S_DATAC
|
|
BEGIN
|
|
PROMPT 27 14 "Data "
|
|
FIELD DTCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_ORAC 5
|
|
BEGIN
|
|
PROMPT 45 14 "Ora "
|
|
PICTURE "@@:@@"
|
|
FIELD ORCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 16 "@bDettagli ultimo aggiornamento"
|
|
END
|
|
|
|
STRING F_S_UTENTEUA 16
|
|
BEGIN
|
|
PROMPT 2 17 "Utente "
|
|
FIELD UTCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_S_DATAUA
|
|
BEGIN
|
|
PROMPT 27 17 "Data "
|
|
FIELD DTCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_ORAUA 5
|
|
BEGIN
|
|
PROMPT 45 17 "Ora "
|
|
PICTURE "@@:@@"
|
|
FIELD ORCREAZ
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
PICTURE BMP_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK |