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

Correzione alla gestione dello sheet degli inidirizzi di spedizione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@208 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-09-09 13:06:44 +00:00
parent ae0cec1973
commit 7dabc361d9
2 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cg/cg0200.cpp
View File

@ -431,6 +431,7 @@ void CG0200_application::common_f(const TMask& m)
{
TToken_string& row=(TToken_string&)rows[i];
TRectype& rec=_rel->indirizzo(i);
row.restart();
rec.zero();
rec.put("TIPOCF",tipocf);
rec.put("CODCF",codcf);
@ -439,7 +440,7 @@ void CG0200_application::common_f(const TMask& m)
rec.put("CIV",row.get());
rec.put("LOCALITA",row.get());
rec.put("CAP",row.get());
rec.put("STATO",atoi(row.get()));
rec.put("STATO",row.get_int());
rec.put("COM",row.get());
rec.put("PTEL",row.get());
rec.put("TEL",row.get());
@ -476,7 +477,7 @@ bool CG0200_application::indsp_notify(int r, KEY key)
return FALSE; // Refuse Permission
} else
// To avoid inserts in the middle of the sheet
if (indsp.items()>r)
if (r != -1 && indsp.items() > r)
{
error_box("Si possono aggiungere indirizzi solo alla fine");
return FALSE; //Refuse permission

20
cg/cg0200b.uml
View File

@ -65,7 +65,7 @@ BEGIN
OUTPUT 105 CAPCOM
OUTPUT 106 STATO
OUTPUT 107 COM
OUTPUT 108 DENCOM
OUTPUT F_DENCOMI DENCOM
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
@ -73,12 +73,12 @@ BEGIN
GROUP 1
END
STRING 108 40
STRING F_DENCOMI 40
BEGIN
PROMPT 33 6 ""
USE LF_COMUNI KEY 2
INPUT DENCOM 108
DISPLAY "Comune@50" DENCOM
INPUT DENCOM F_DENCOMI
DISPLAY "Comune@50" DENCOM
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
COPY OUTPUT 107
@ -91,40 +91,40 @@ BEGIN
PROMPT 1 8 "Numeri Telefonici"
END
STRING 109 10
STRING 108 10
BEGIN
PROMPT 2 9 "Telefono "
HELP "Inserire il prefisso ed il numero di telefono"
GROUP 1
END
STRING 110 30
STRING 109 30
BEGIN
PROMPT 40 9 ""
GROUP 1
END
STRING 111 10
STRING 110 10
BEGIN
PROMPT 2 10 "Fax "
HELP "Inserire il prefisso del numero di fax"
GROUP 1
END
STRING 112 30
STRING 111 30
BEGIN
PROMPT 40 10 ""
GROUP 1
END
BOOLEAN 113
BOOLEAN 112
BEGIN
PROMPT 2 13 "Riduzione IVA"
HELP "Flag per la riduzione IVA"
GROUP 1
END
NUMBER 114 3
NUMBER 113 3
BEGIN
PROMPT 1 1 "Codice "
END