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

Corretti errori vari PATTY, CINZIA e VLADI (wow!)

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3572 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-09-12 13:00:43 +00:00
parent 017502bd1c
commit cff0f60580
8 changed files with 83 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cg/cg0500a.uml
View File

@ -21,7 +21,7 @@ BEGIN
FLAGS "UZ"
USE LF_CAUSALI
INPUT CODCAUS F_COD_CAUS
DISPLAY "Codice" CODCAUS
DISPLAY "Cod." CODCAUS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Documento" TIPODOC
DISPLAY "Registro" REG
@ -42,7 +42,7 @@ BEGIN
USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCR
DISPLAY "Descrizione @50" DESCR
DISPLAY "Codice" CODCAUS
DISPLAY "Cod." CODCAUS
DISPLAY "Documento" TIPODOC
DISPLAY "Registro" REG
DISPLAY "Movimento" TIPOMOV

11
cg/cg2100.cpp
View File

@ -482,8 +482,15 @@ void TPrimanota_application::init_query_mode(TMask& m)
{
enable_menu_item(M_FILE_PRINT);
m.set(F_DATAREG, _last_dreg);
m.set(F_DATACOMP, _last_dcom);
if (lnflag())
{
m.field(F_NUMREG).on_hit(); // Aggiorna opportunamente le date
}
else
{
m.set(F_DATAREG, _last_dreg);
m.set(F_DATACOMP, _last_dcom);
}
}

2
cg/cg2100c.uml
View File

@ -377,7 +377,7 @@ BEGIN
OUTPUT F_DESPAG S0
CHECKTYPE NORMAL
ADD RUN ba3 -6
WARNING "Codice pagamento errato"
WARNING "Codice pagamento assente"
END
STRING F_DESPAG 50

16
cg/cg2102.cpp
View File

@ -578,7 +578,11 @@ bool TPrimanota_application::cg_handler(TMask_field& f, KEY k)
return f.error_box("Il conto della riga %d non e' completo", i+1);
const TBill co(r, 10, 0x0);
if (!co.empty() && !co.ok())
f.error_box("La contropartita della riga %d non e' completa", i+1);
{
const bool ok = f.yesno_box("La contropartita della riga %d non e' completa:\n"
"Si desidera continuare ugualmente?", i+1);
if (!ok) return FALSE;
}
empty = FALSE;
if (paga || nota)
@ -1537,8 +1541,7 @@ bool TPrimanota_application::sheet_clifo_handler(TMask_field& f, KEY k)
bool TPrimanota_application::num_handler(TMask_field& f, KEY key)
{
TMask& m = f.mask();
const long num = atol(f.get());
if (key == K_TAB && m.is_running() && num > 0)
if (key == K_TAB /* && m.is_running() */ && !f.empty())
{
TPrimanota_application& a = app();
const long max = a._lastreg+1;
@ -1546,6 +1549,7 @@ bool TPrimanota_application::num_handler(TMask_field& f, KEY key)
a._skip_giornale_check = FALSE;
a._skip_bollato_check = FALSE;
const long num = atol(f.get());
if (num < max)
{
if (a.find(1))
@ -1575,9 +1579,9 @@ bool TPrimanota_application::num_handler(TMask_field& f, KEY key)
if (ok) // Riempie a mano i campi necessari nel caso non sia stato usata la ricerca F9
{
m.set(F_DATAREG, mov.get("DATAREG"), TRUE);
m.set(F_DATAREG, mov.get("DATAREG"), TRUE);
m.set(F_DATACOMP, mov.get("DATACOMP"), TRUE);
m.set(F_CODCAUS, mov.get("CODCAUS"));
m.set(F_CODCAUS, mov.get("CODCAUS"));
f.set_focusdirty(FALSE);
return m.stop_run(K_AUTO_ENTER);
}
@ -1658,7 +1662,7 @@ bool TPrimanota_application::datareg_handler(TMask_field& f, KEY key)
TMask& m = f.mask();
if ((key == K_TAB && m.is_running()) || key == K_ENTER)
{
{
const TDate dr(f.get()); // Data dell'operazione
if (dr > TDate(TODAY))
return f.error_box("La data dell'operazione e' superiore quella di sistema");

8
cg/cg2105.cpp
View File

@ -1751,7 +1751,13 @@ bool TGame_mask::edit_pagamento(TPartita& p, int nriga, int nrata, int nrigp) co
}
KEY key = m.run();
if (key == K_DEL)
{
const bool truly = yesno_box("Confermare l'eliminazione");
if (!truly) key = K_ESC;
}
if (key == K_ESC && nuovo)
key = K_DEL;

6
cg/cg3200.cpp
View File

@ -3673,14 +3673,16 @@ bool TMastrini_application::user_create()
_d23 = new TParagraph_string ("",23);
_d30 = new TParagraph_string ("",30);
_msk = new TMask("cg3200a");
_msk = new TMask("cg3200a");
/* Guy: Provo a non usarli e uso i check normali
_msk->set_handler(F_SOTTOCINI_CONTO, sottoc_handler_ini);
_msk->set_handler(F_SOTTOCINI_CLIENTE, sottoc_handler_ini);
_msk->set_handler(F_SOTTOCINI_FORN, sottoc_handler_ini);
_msk->set_handler(F_SOTTOCFINE_CONTO, sottoc_handler_fine);
_msk->set_handler(F_SOTTOCFINE_CLIENTE, sottoc_handler_fine);
_msk->set_handler(F_SOTTOCFINE_FORN, sottoc_handler_fine);
*/
_msk->set_handler (F_GRUPPOFINE ,gruppo_hnd);
_msk->set_handler (F_CONTOINI_CONTO ,contoi_hnd);
_msk->set_handler (F_CONTOINI_CLIENTE ,contoi_hnd);

113
cg/cg3200a.uml
View File

@ -2,16 +2,16 @@
TOOLBAR "" 0 20 0 2
BUTTON DLG_PRINT 9 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 "~Stampa"
PROMPT -12 -11 "~Stampa"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 9 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -11 ""
END
ENDPAGE
@ -102,15 +102,12 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
//OUTPUT F_TIPOCF TMCF
OUTPUT F_GRUPPOINI GRUPPO
OUTPUT F_CONTOINI_CONTO CONTO
//OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
//OUTPUT F_DESCRINI_CONTO DESCR
FLAGS "R"
//CHECKTYPE NORMAL
//WARNING "Conto inesistente o mancante"
//MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
CHECKTYPE NORMAL
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCINI_CONTO
VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
GROUP 1
END
@ -124,17 +121,14 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
//OUTPUT F_TIPOCF TMCF
OUTPUT F_GRUPPOINI GRUPPO
OUTPUT F_CONTOINI_CLIENTE CONTO
//OUTPUT F_SOTTOCINI_CLIENTE SOTTOCONTO
//OUTPUT F_DESCRINI_CLIENTE DESCR
FLAGS "R"
//CHECKTYPE NORMAL
//WARNING "Conto inesistente o mancante"
//MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
GROUP 2
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CLIENTE
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCINI_CLIENTE
MESSAGE COPY,F_CONTOINI_CONTO
GROUP 2
END
NUMBER F_CONTOINI_FORN 3
@ -147,17 +141,14 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
//OUTPUT F_TIPOCF TMCF
OUTPUT F_GRUPPOINI GRUPPO
OUTPUT F_CONTOINI_FORN CONTO
//OUTPUT F_SOTTOCINI_FORN SOTTOCONTO
//OUTPUT F_DESCRINI_FORN DESCR
FLAGS "R"
//CHECKTYPE NORMAL
//WARNING "Conto inesistente o mancante"
//MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
GROUP 3
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCINI_FORN
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCINI_FORN
MESSAGE COPY,F_CONTOINI_CONTO
GROUP 3
END
NUMBER F_SOTTOCINI_CONTO 6
@ -172,12 +163,11 @@ BEGIN
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
OUTPUT F_GRUPPOINI GRUPPO
OUTPUT F_CONTOINI_CONTO CONTO
OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
//OUTPUT F_DESCRINI_CONTO DESCR
FLAGS "R"
//CHECKTYPE NORMAL
OUTPUT F_DESCRINI_CONTO DESCR
CHECKTYPE NORMAL
GROUP 1
END
@ -200,7 +190,7 @@ BEGIN
PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO
//CHECKTYPE NORMAL
CHECKTYPE NORMAL
INPUT TIPOCF "C"
INPUT CODCF F_SOTTOCINI_CLIENTE
DISPLAY "Codice" CODCF
@ -208,9 +198,8 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT F_SOTTOCINI_CLIENTE CODCF
//OUTPUT F_DESCRINI_CLIENTE RAGSOC
OUTPUT F_DESCRINI_CLIENTE RAGSOC
MESSAGE COPY,F_SOTTOCINI_CONTO
FLAGS "R"
GROUP 2
END
@ -237,7 +226,7 @@ BEGIN
PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO
//CHECKTYPE NORMAL
CHECKTYPE NORMAL
INPUT TIPOCF "F"
INPUT CODCF F_SOTTOCINI_FORN
DISPLAY "Codice" CODCF
@ -245,7 +234,7 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT F_SOTTOCINI_FORN CODCF
//OUTPUT F_DESCRINI_FORN RAGSOC
OUTPUT F_DESCRINI_FORN RAGSOC
FLAGS "R"
GROUP 3
MESSAGE COPY,F_SOTTOCINI_CONTO
@ -295,14 +284,12 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
//OUTPUT F_TIPOCF TMCF
OUTPUT F_GRUPPOFINE GRUPPO
OUTPUT F_CONTOFINE_CONTO CONTO
//OUTPUT F_DESCRFINE_CONTO DESCR
FLAGS "R"
//CHECKTYPE NORMAL
//WARNING "Conto inesistente o mancante"
//MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCFINE_CONTO
GROUP 4
END
@ -316,14 +303,12 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
//OUTPUT F_TIPOCF TMCF
OUTPUT F_GRUPPOFINE GRUPPO
OUTPUT F_CONTOFINE_CLIENTE CONTO
//OUTPUT F_DESCRFINE_CLIENTE DESCR
FLAGS "R"
//CHECKTYPE NORMAL
//WARNING "Conto inesistente o mancante"
//MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CLIENTE
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCFINE_CLIENTE
MESSAGE COPY,F_CONTOFINE_CONTO
GROUP 5
END
@ -338,14 +323,12 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
//OUTPUT F_TIPOCF TMCF
OUTPUT F_GRUPPOFINE GRUPPO
OUTPUT F_CONTOFINE_FORN CONTO
//OUTPUT F_DESCRFINE_FORN DESCR
FLAGS "R"
//CHECKTYPE NORMAL
//WARNING "Conto inesistente o mancante"
//MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_FORN
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCFINE_FORN
MESSAGE COPY,F_CONTOFINE_CONTO
GROUP 6
END
@ -362,12 +345,12 @@ BEGIN
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
OUTPUT F_GRUPPOFINE GRUPPO
OUTPUT F_CONTOFINE_CONTO CONTO
OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
//OUTPUT F_DESCRFINE_CONTO DESCR
FLAGS "R"
//CHECKTYPE NORMAL
OUTPUT F_DESCRFINE_CONTO DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto inesistente o mancante"
GROUP 4
END
@ -391,7 +374,8 @@ BEGIN
PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO
//CHECKTYPE NORMAL
CHECKTYPE NORMAL
WARNING "Cliente inesistente o mancante"
INPUT TIPOCF "C"
INPUT CODCF F_SOTTOCFINE_CLIENTE
DISPLAY "Codice" CODCF
@ -399,9 +383,8 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT F_SOTTOCFINE_CLIENTE CODCF
//OUTPUT F_DESCRFINE_CLIENTE RAGSOC
OUTPUT F_DESCRFINE_CLIENTE RAGSOC
MESSAGE COPY,F_SOTTOCFINE_CONTO
FLAGS "R"
GROUP 5
END
@ -428,7 +411,8 @@ BEGIN
PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO
//CHECKTYPE NORMAL
CHECKTYPE NORMAL
WARNING "Fornitore inesistente o mancante"
INPUT TIPOCF "F"
INPUT CODCF F_SOTTOCFINE_FORN
DISPLAY "Codice" CODCF
@ -436,10 +420,9 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT F_SOTTOCFINE_FORN CODCF
//OUTPUT F_DESCRFINE_FORN RAGSOC
FLAGS "R"
GROUP 6
OUTPUT F_DESCRFINE_FORN RAGSOC
MESSAGE COPY,F_SOTTOCFINE_CONTO
GROUP 6
END
STRING F_DESCRFINE_FORN 50

4
cg/cg5200a.uml
View File

@ -103,7 +103,7 @@ BEGIN
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE NORMAL
@ -166,9 +166,9 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE REQUIRED
KEY 2