Corretto errore nella ricerca dell' anno

git-svn-id: svn://10.65.10.50/trunk@417 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-10-19 13:28:25 +00:00
parent bf3c9c6162
commit 9c0dc00117

View File

@ -1,173 +1,174 @@
#include "cg5300a.h" #include "cg5300a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Parametri liquidazione" -1 -1 78 15 PAGE "Parametri liquidazione" -1 -1 78 15
GROUPBOX DLG_NULL 71 3 GROUPBOX DLG_NULL 71 3
BEGIN BEGIN
PROMPT 4 0 "Ditta" PROMPT 4 0 "Ditta"
FLAGS "R" FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 6 1 "Codice " PROMPT 6 1 "Codice "
FLAGS "DFGR" FLAGS "DFGR"
USE LF_NDITTE USE LF_NDITTE
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 20 1 "" PROMPT 20 1 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_YEAR 4 NUMBER F_YEAR 4
BEGIN BEGIN
PROMPT 6 3 "Anno " PROMPT 6 3 "Anno "
FIELD LIA->CODTAB FIELD LIA->CODTAB
USE LIA USE LIA
INPUT CODTAB F_YEAR INPUT CODTAB F_YEAR
DISPLAY "Anno@20" CODTAB DISPLAY "Anno@40" CODTAB
OUTPUT F_YEAR CODTAB DISPLAY "@2" S0
KEY 1 OUTPUT F_YEAR CODTAB
FLAGS "RZ" KEY 1
CHECKTYPE REQUIRED FLAGS "RZ"
ADD MASK "" CHECKTYPE REQUIRED
END ADD NONE
END
GROUPBOX DLG_NULL 71 5
BEGIN GROUPBOX DLG_NULL 71 5
PROMPT 4 4 "Parametri ditta" BEGIN
END PROMPT 4 4 "Parametri ditta"
END
LIST F_FREQ_VERS 14
BEGIN LIST F_FREQ_VERS 14
PROMPT 6 5 "Frequenza versamenti " BEGIN
ITEM "M|Mensile" PROMPT 6 5 "Frequenza versamenti "
ITEM "T|Trimestrale" ITEM "M|Mensile"
FIELD LIA->S7 ITEM "T|Trimestrale"
END FIELD LIA->S7
END
NUMBER F_CRED_PREC 15 0
BEGIN NUMBER F_CRED_PREC 15 0
PROMPT 6 6 "Credito precedente " BEGIN
FIELD LIA->R0 PROMPT 6 6 "Credito precedente "
PICTURE "." FIELD LIA->R0
FLAGS "R" PICTURE "."
END FLAGS "R"
END
NUMBER F_CRED_COST 15 0
BEGIN NUMBER F_CRED_COST 15 0
PROMPT 6 7 "Credito di costo " BEGIN
FIELD LIA->R5 PROMPT 6 7 "Credito di costo "
PICTURE "." FIELD LIA->R5
FLAGS "R" PICTURE "."
END FLAGS "R"
END
SPREADSHEET F_SHEET_PLA 78 6
BEGIN SPREADSHEET F_SHEET_PLA 78 6
PROMPT 1 10 "Parametri attivita'" BEGIN
ITEM "Attivita'" PROMPT 1 10 "Parametri attivita'"
ITEM "Tipo" ITEM "Attivita'"
ITEM "Pro-rata@15" ITEM "Tipo"
ITEM "Plafond art.8@15" ITEM "Pro-rata@15"
ITEM "Plafond art.8b@15" ITEM "Plafond art.8@15"
ITEM "Plafond art.9@15" ITEM "Plafond art.8b@15"
END ITEM "Plafond art.9@15"
END
ENDPAGE
ENDMASK ENDPAGE
ENDMASK
PAGE "" -1 -1 65 16
PAGE "" -1 -1 65 16
NUMBER F_CODATT 5
BEGIN NUMBER F_CODATT 5
PROMPT 4 1 "Codice Attivita' " BEGIN
FLAGS "DURZG" PROMPT 4 1 "Codice Attivita' "
USE %AIS FLAGS "DURZG"
INPUT CODTAB F_CODATT USE %AIS
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODATT
DISPLAY "Descrizione@50" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODATT CODTAB DISPLAY "Descrizione@50" S0
OUTPUT F_DESATT S0 OUTPUT F_CODATT CODTAB
CHECKTYPE NORMAL OUTPUT F_DESATT S0
END CHECKTYPE NORMAL
END
STRING F_DESATT 50 30
BEGIN STRING F_DESATT 50 30
PROMPT 31 1 "" BEGIN
FLAGS "D" PROMPT 31 1 ""
END FLAGS "D"
END
LIST F_TIPOATT 26
BEGIN LIST F_TIPOATT 26
PROMPT 4 3 "Tipo " BEGIN
FLAGS "U" PROMPT 4 3 "Tipo "
ITEM " |Altre" FLAGS "U"
ITEM "M|Mista" ITEM " |Altre"
ITEM "E|Mista evidenziata" ITEM "M|Mista"
ITEM "S|Servizio o mista generica" ITEM "E|Mista evidenziata"
END ITEM "S|Servizio o mista generica"
END
NUMBER F_PRORATA 15
BEGIN NUMBER F_PRORATA 15
PROMPT 4 5 "Pro-Rata " BEGIN
PICTURE "." PROMPT 4 5 "Pro-Rata "
FLAGS "R" PICTURE "."
GROUP 1 FLAGS "R"
END GROUP 1
END
NUMBER F_P8 15
BEGIN NUMBER F_P8 15
PROMPT 4 7 "Plafond art. 8 " BEGIN
PICTURE "." PROMPT 4 7 "Plafond art. 8 "
FLAGS "R" PICTURE "."
GROUP 1 FLAGS "R"
END GROUP 1
END
NUMBER F_P8B 15
BEGIN NUMBER F_P8B 15
PROMPT 4 9 "Plafond art. 8b " BEGIN
PICTURE "." PROMPT 4 9 "Plafond art. 8b "
FLAGS "R" PICTURE "."
GROUP 1 FLAGS "R"
END GROUP 1
END
NUMBER F_P9 15
BEGIN NUMBER F_P9 15
PROMPT 4 11 "Plafond art. 9 " BEGIN
PICTURE "." PROMPT 4 11 "Plafond art. 9 "
FLAGS "R" PICTURE "."
GROUP 1 FLAGS "R"
END GROUP 1
END
BUTTON DLG_OK 9 2
BEGIN BUTTON DLG_OK 9 2
PROMPT -13 -1 "" BEGIN
END PROMPT -13 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN BUTTON DLG_CANCEL 9 2
PROMPT -23 -1 "" BEGIN
END PROMPT -23 -1 ""
END
BUTTON DLG_NULL 9 2
BEGIN BUTTON DLG_NULL 9 2
PROMPT -33 -1 "Azzera" BEGIN
MESSAGE RESET,1@ PROMPT -33 -1 "Azzera"
END MESSAGE RESET,1@
END
ENDPAGE
ENDMASK ENDPAGE
ENDMASK