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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@20767 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2010-08-05 15:44:23 +00:00
parent 0b79b5562d
commit 6f878ccd48
3 changed files with 66 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tc/tc1.cpp
View File

@ -11,8 +11,7 @@ int main(int argc, char** argv)
case 6: tc1700(argc,argv); break; // riclassificazione tabelle
case 2: tc1300(argc,argv); break; // Configurazione Ditta
case 1: tc1200(argc,argv); break; // Tabelle
case 0: tc1100(argc,argv); break; // trasferimento zucchetti
default: tc1100(argc,argv); break;
default: tc1100(argc,argv); break; // trasferimento zucchetti
}
exit(0);
return 0;

29
tc/tc1100.cpp
View File

@ -29,8 +29,9 @@ class TRiclassifica_cache : public TCache
TLocalisamfile _multirel;
protected:
virtual TObject* key2obj(const char* key);
public:
const char * sdecode(const char* tab, const TString& cod);
const char* sdecode(const char* tab, const TString& cod);
long decode(const char* tab, const TString& cod);
TRiclassifica_cache() : _multirel(LF_MULTIREL) {}
};
@ -45,7 +46,7 @@ TObject* TRiclassifica_cache::key2obj(const char* key)
_multirel.put(MULTI_FIRST, cod);
int err = _multirel.read(_isgteq);
if (err == NOERR && _multirel.get(MULTI_FIRST) == cod)
return new TString(_multirel.get(MULTI_DATA));
return new TString16(_multirel.get(MULTI_DATA));
return NULL;
}
@ -108,7 +109,7 @@ bool TInvio_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
default:
break;
}
return TRUE;
return true;
}
class TInvio : public TSkeleton_application
@ -313,17 +314,29 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
else if (code == "_IVA" || code == "_NORMA")
{
if (app().triva())
{
// Il codice Campo 206 diventa il codice "20Z1" (codice+norma) oppure "20" (solo codice con eventuale norma associata)
valore = app().tabelle().sdecode("ZUIVA", str);
if (code == "_NORMA")
{
if (valore.blank())
valore = str.mid(2);
else
valore = cache().get("&ZIV", str, "S7");
if (valore.len() > 2) // Se e' piu' lungo di 2 la norma Zucchetti sono gli ultimi due
valore.ltrim(2);
else // Altrimenti cerco la Norma fissata sulla tabella IVA Zucchetti
{
const TString& codziv = valore.full() ? valore.left(2) : str.left(2);
valore = cache().get("&ZIV", codziv, "S7");
}
}
else
valore.cut(2);
}
if (valore.blank())
{
if (code == "_IVA")
valore = str.left(2);
else
valore = str.mid(2);
}
}
else if (code == "_BANCA")
{
@ -848,6 +861,8 @@ void TInvio::invio_zucchetti()
_trasfile = new TInvio_file(filename);
_trasfile->open(filename,'w');
_log = new TLog_report("Trasferimento Zucchetti");
_log->kill_duplicates();
_trcau = ini_get_bool(CONFIG_DITTA, "tc", "ZUTRCAU");
_triva = ini_get_bool(CONFIG_DITTA, "tc", "ZUTRIVA");
_trcon = ini_get_bool(CONFIG_DITTA, "tc", "ZUTRCON");

47
tc/tczuiva.uml
View File

@ -8,7 +8,7 @@ PAGE "Codici IVA" 0 2 0 0
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Codice IVA Campo"
PROMPT 1 1 "@bCodice IVA Campo"
END
LIST F_COD 5
@ -29,11 +29,13 @@ BEGIN
INPUT FIRST F_CODTAB
DISPLAY "Codice" FIRST
DISPLAY "Descrizione@60" %IVA->S0
DISPLAY "Codice IVA Zucchetti" DATA
DISPLAY "Codice IVA\nZucchetti@10" DATA[1,2]
DISPLAY "Codice Norma\nZucchetti@10" DATA[3,4]
OUTPUT F_CODTAB FIRST
OUTPUT F_CODTAB1 FIRST
OUTPUT F_DESC %IVA->S0
OUTPUT F_COD_CORR DATA
OUTPUT F_COD_CORR DATA[1,2]
OUTPUT F_CODTAB11 DATA[3,4]
CHECKTYPE REQUIRED
FIELD FIRST
VALIDATE ZEROFILL_FUNC 2
@ -78,33 +80,56 @@ BEGIN
GROUP 3
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 4 "@bCodice IVA Zucchetti"
END
STRING F_COD_CORR 2
BEGIN
PROMPT 2 4 "Codice IVA Zucchetti "
FIELD DATA
PROMPT 2 5 "Codice "
FIELD DATA[1,2]
FLAGS "UZ"
USE &ZIV
INPUT CODTAB F_COD_CORR
DISPLAY "Cod." CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Codice Norma" S7
DISPLAY "Norma" S7
OUTPUT F_COD_CORR CODTAB
OUTPUT F_DESC_CORR S0
OUTPUT F_CODTAB11 S7
VALIDATE FIXLEN_FUNC 2
CHECKTYPE REQUIRED
END
STRING F_DESC_CORR 50
BEGIN
PROMPT 2 25 ""
USE &ZIV
PROMPT 25 5 ""
USE &ZIV KEY 2
INPUT S0 F_DESC_CORR
DISPLAY "Descrizione@50" S0
DISPLAY "Cod." CODTAB
DISPLAY "Codice Norma" S7
DISPLAY "Codice" CODTAB
DISPLAY "Norma" S7
COPY OUTPUT F_COD_CORR
END
STRING F_CODTAB11 2
BEGIN
PROMPT 50 6 "Norma "
FLAGS "HG"
MESSAGE EMPTY ENABLE,F_COD_CORR1
MESSAGE DISABLE,F_COD_CORR1|COPY,F_COD_CORR1
END
STRING F_COD_CORR1 2
BEGIN
PROMPT 2 6 "Norma "
FIELD DATA[3,4]
FLAGS "UZ"
VALIDATE FIXLEN_FUNC 2
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK