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

Patch level : 4.0

Browse Source 
Files correlati     : cg3.exe cg3900a.msk
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@15651 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2007-09-28 08:37:07 +00:00
parent 3382066f05
commit ba97708828
2 changed files with 25 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
cg/cg3900.cpp
View File

@ -352,28 +352,28 @@ void TPadoaSchioppa_set::add_trc(int trc)
{
case 0: // Testata
case 9: // Coda
add_field(trc, 2, 4, 3, "IndentificativoFornitura" , AN, true, "ECF");
add_field(trc, 5, 6, 2, "IdentificativoAnno" , AN, true, "00");
add_field(trc, 7, 8, 2, "CodiceFornitura" , NU, true, "38");
add_field(trc, 9, 24, 16, "CodiceFiscale" , CF, true);
add_field(trc, 25, 35, 11, "PartitaIVA" , PI, true);
add_field(trc, 36, 61, 26, "Cognome" , AN); // Persone fisiche
add_field(trc, 62, 86, 25, "Nome" , AN);
add_field(trc, 87, 87, 1, "Sesso" , AN);
add_field(trc, 88, 95, 8, "DataNascita" , DT);
add_field(trc, 96, 135, 40, "ComuneNascita" , AN);
add_field(trc, 136, 137, 2, "ProvinciaNascita" , PR);
add_field(trc, 138, 207, 70, "Denominazione" , AN); // Persone NON fisiche
add_field(trc, 208, 247, 40, "ComuneSedeLegale" , AN);
add_field(trc, 248, 249, 2, "ProvinciaSedeLegale" , AN);
add_field(trc, 250, 265, 16, "CodiceSoggettoObbligato" , CF);
add_field(trc, 266, 269, 4, "AnnoRiferimento" , NU, true);
add_field(trc, 270, 273, 4, "ProgressivoTelematico" , NU);
add_field(trc, 274, 277, 4, "NumeroTotaleInvii" , NU);
add_field(trc, 278, 293, 16, "CodiceIntermediario" , CF);
add_field(trc, 294, 298, 5, "NumeroIscrizioneAlboCAF" , NU);
add_field(trc, 299, 299, 1, "ImpegnoAllaTrasmissione" , NU);
add_field(trc, 300, 307, 8, "DataImpegno" , NU);
add_field(trc, 2, 4, 3, "IndentificativoFornitura", AN, true, "ECF");
add_field(trc, 5, 6, 2, "IdentificativoAnno" , AN, true, "00");
add_field(trc, 7, 8, 2, "CodiceFornitura" , NU, true, "38");
add_field(trc, 9, 24, 16, "CodiceFiscale" , CF, true);
add_field(trc, 25, 35, 11, "PartitaIVA" , PI, true);
add_field(trc, 36, 61, 26, "Cognome" , AN); // Persone fisiche
add_field(trc, 62, 86, 25, "Nome" , AN);
add_field(trc, 87, 87, 1, "Sesso" , AN);
add_field(trc, 88, 95, 8, "DataNascita" , DT);
add_field(trc, 96, 135, 40, "ComuneNascita" , AN);
add_field(trc, 136, 137, 2, "ProvinciaNascita" , PR);
add_field(trc, 138, 207, 70, "Denominazione" , AN); // Persone NON fisiche
add_field(trc, 208, 247, 40, "ComuneSedeLegale" , AN);
add_field(trc, 248, 249, 2, "ProvinciaSedeLegale" , AN);
add_field(trc, 250, 265, 16, "CodiceSoggettoObbligato" , CF);
add_field(trc, 266, 269, 4, "AnnoRiferimento" , NU, true);
add_field(trc, 270, 273, 4, "ProgressivoTelematico" , NU);
add_field(trc, 274, 277, 4, "NumeroTotaleInvii" , NU);
add_field(trc, 278, 293, 16, "CodiceIntermediario" , CF);
add_field(trc, 294, 298, 5, "NumeroIscrizioneAlboCAF" , NU);
add_field(trc, 299, 299, 1, "ImpegnoAllaTrasmissione" , NU);
add_field(trc, 300, 307, 8, "DataImpegno" , DT);
break;
case 1: // Clienti
case 2: // Fornitori
@ -841,7 +841,7 @@ TRecordset* TAlleg_mask::new_recordset(char tipocf, bool strict)
continue;
// Controllo inutilmente anche il tipo documento
const TString& tipodoc = caus.tipo_doc();
const TString& tipodoc = caus.tipodoc();
if (documento_corrispettivi(tipodoc))
continue;
@ -1037,7 +1037,7 @@ void TAlleg_mask::log_error(const TRecordset& clifo, const char* msg1, const cha
TString str;
str << clifo.get(CLI_TIPOCF) << clifo.get(CLI_CODCF)
<< ' ' << clifo.get(CLI_RAGSOC);
str.strip_double_spaces();
str.strip_d_spaces();
log_error(str, msg1, msg2, errlog, severity);
}
@ -1355,6 +1355,6 @@ void TClifo_alleg_app::main_loop()
int cg3900(int argc, char* argv[])
{
TClifo_alleg_app app;
app.run(argc, argv, TR("Elenco clienti/fornitori in allegato"));
app.run(argc, argv, TR("Elenco clienti/fornitori"));
return 0;
}

2
cg/cg3900a.uml
View File

@ -94,8 +94,6 @@ END
NUMBER F_CAF 5
BEGIN
PROMPT 42 13 "Iscrizione C.A.F. "
VALIDATE REQIF_FUNC 1 F_INTR
WARNING "Numero obbligatorio in presenza di un intermediario"
FLAGS "U"
END