root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :2.2 nopatch

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :sempre modulo LI


git-svn-id: svn://10.65.10.50/trunk@12921 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2005-04-07 13:39:10 +00:00
parent dc2e614310
commit b947d26c8a
2 changed files with 44 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
li/li0400.cpp
View File

@ -26,22 +26,39 @@ public:
bool TLetint_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) bool TLetint_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{ {
switch (o.dlg()) switch (o.dlg())
{ {
case F_DATAREG: case F_NUMPROT:
if (e == fe_close) if (e == fe_close && query_mode())
{ {
const int anno = get_int(F_ANNO);
const long numprot = get_long(F_NUMPROT); const long numprot = get_long(F_NUMPROT);
TLocalisamfile letint(LF_LETINT); if (numprot > 1)
letint.setkey(1); {
letint.put(LETINT_ANNO, anno); const int anno = get_int(F_ANNO);
letint.put(LETINT_NUMPROT, numprot); TLocalisamfile letint(LF_LETINT);
letint.prev(); letint.put(LETINT_ANNO, anno);
letint.put(LETINT_NUMPROT, numprot - 1);
const TDate& old_data = letint.get_date(LETINT_DATAREG); if (letint.read() != NOERR)
if (get_date(F_DATAREG) < old_data) return error_box(TR("Il numero di protocollo deve essere progressivo!"));
return error_box(TR("La data di registrazione non puo' essere antecedente a %s"), (const char*) old_data.string()); }
}
break;
case F_DATAREG:
if (e == fe_close && insert_mode())
{
const long numprot = get_long(F_NUMPROT);
if (numprot > 1)
{
const int anno = get_int(F_ANNO);
TLocalisamfile letint(LF_LETINT);
letint.put(LETINT_ANNO, anno);
letint.put(LETINT_NUMPROT, numprot);
if (letint.read() == NOERR)
{
const TDate& old_data = letint.get_date(LETINT_DATAREG);
if (get_date(F_DATAREG) < old_data)
return error_box(TR("La data di registrazione non puo' essere antecedente a %s"), (const char*) old_data.string());
}
}
} }
break; break;

21
li/li0400a.uml
View File

@ -15,11 +15,17 @@ NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 1 2 "Anno " PROMPT 1 2 "Anno "
FLAGS "AU" FLAGS "AU"
USE LF_LETINT USE LF_LETINT
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCLI
INPUT ANNO F_ANNO INPUT ANNO F_ANNO
DISPLAY "Anno@8" ANNO INPUT NUMPROT F_NUMPROT
DISPLAY "Numero protocollo@30" NUMPROT DISPLAY "Anno" ANNO
DISPLAY "N.Protocollo" NUMPROT
DISPLAY "Data Reg.@10" DATAREG
DISPLAY "Cliente" CODCLI
DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
OUTPUT F_ANNO ANNO OUTPUT F_ANNO ANNO
OUTPUT F_NUMPROT NUMPROT
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD ANNO FIELD ANNO
KEY 1 KEY 1
@ -29,11 +35,7 @@ NUMBER F_NUMPROT 6
BEGIN BEGIN
PROMPT 15 2 "Numero protocollo " PROMPT 15 2 "Numero protocollo "
FLAGS "U" FLAGS "U"
USE LF_LETINT COPY ALL F_ANNO
INPUT NUMPROT F_NUMPROT
DISPLAY "Numero protocollo@30" NUMPROT
DISPLAY "Anno@8" ANNO
OUTPUT F_NUMPROT NUMPROT
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD NUMPROT FIELD NUMPROT
KEY 1 KEY 1
@ -191,6 +193,7 @@ CURRENCY F_IMPORTO 18
BEGIN BEGIN
PROMPT 1 17 "Importo " PROMPT 1 17 "Importo "
FIELD IMPORTO FIELD IMPORTO
CHECKTYPE REQUIRED
END END
DATE F_DAL DATE F_DAL
@ -198,6 +201,7 @@ BEGIN
PROMPT 1 18 "Data inizio periodo " PROMPT 1 18 "Data inizio periodo "
GROUP 1 GROUP 1
FIELD DAL FIELD DAL
CHECKTYPE REQUIRED
END END
DATE F_AL DATE F_AL
@ -205,6 +209,7 @@ BEGIN
PROMPT 1 19 "Data fine periodo " PROMPT 1 19 "Data fine periodo "
GROUP 1 GROUP 1
FIELD AL FIELD AL
CHECKTYPE REQUIRED
VALIDATE DATE_CMP_FUNC >= F_DAL VALIDATE DATE_CMP_FUNC >= F_DAL
WARNING "Specificare una 'Data fine periodo' non inferiore alla 'Data inizio perodo'" WARNING "Specificare una 'Data fine periodo' non inferiore alla 'Data inizio perodo'"
END END