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@22044 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2011-04-29 14:10:53 +00:00
parent a29efbd07e
commit f60fd159de
3 changed files with 50 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ha/ha2100.cpp
View File

@ -98,7 +98,7 @@ void THardy_esselunga::check_date(const TDate& datafine, TDate& dataini)
long THardy_esselunga::genera_recordset(const TMask& mask, TISAM_recordset& recset) long THardy_esselunga::genera_recordset(const TMask& mask, TISAM_recordset& recset)
{ {
TString query; TString query;
query << "USE DOC \n"; query << "USE DOC KEY 3\n";
TString filt_expr; TString filt_expr;
// aggiungo alla query le condizioni sulle numerazioni selezionare da maschera // aggiungo alla query le condizioni sulle numerazioni selezionare da maschera
@ -139,6 +139,7 @@ long THardy_esselunga::genera_recordset(const TMask& mask, TISAM_recordset& recs
recset.set_var("#DATAFIN", datafin); recset.set_var("#DATAFIN", datafin);
return recset.items(); return recset.items();
} }
TFilename THardy_esselunga::scrivi_testata(const TMask& mask) TFilename THardy_esselunga::scrivi_testata(const TMask& mask)
{ {
const TString4 dipendenza = mask.get(F_DIPENDENZA); const TString4 dipendenza = mask.get(F_DIPENDENZA);

72
ha/ha2200.cpp
View File

@ -193,10 +193,10 @@ TFatture_recordset::TFatture_recordset()
add_field("BGM.ID-EDI-DEST-1", AN, 35, 57, true, piva_esselunga); add_field("BGM.ID-EDI-DEST-1", AN, 35, 57, true, piva_esselunga);
add_field("BGM.ID-EDI-DEST-2", AN, 4, 92, true, tipo_emissione); add_field("BGM.ID-EDI-DEST-2", AN, 4, 92, true, tipo_emissione);
add_field("BGM.ID-EDI-DEST-3", AN, 14, 96); add_field("BGM.ID-EDI-DEST-3", AN, 14, 96);
add_field("BGM.TIPODOC", AN, 6, 110, true, "INVOIC"); add_field("BGM.TIPODOC", AN, 6, 110, true);
add_field("BGM.NUMDOC", AN, 35, 116, true); add_field("BGM.NUMDOC", AN, 35, 116, true);
add_field("BGM.DATADOC", DA, 8, 151, true); add_field("BGM.DATADOC", DA, 8, 151, true);
add_field("BGM.ORADOC", NU, 4, 159); add_field("BGM.ORADOC", AN, 4, 159);
add_field("BGM.FILLER", AN, 6, 163); add_field("BGM.FILLER", AN, 6, 163);
add_field("BGM.FINERECORD", AN, 2, 0, true, "\r\n"); add_field("BGM.FINERECORD", AN, 2, 0, true, "\r\n");
@ -328,18 +328,19 @@ TFatture_recordset::TFatture_recordset()
// Record ALD: sconti di riga // Record ALD: sconti di riga
add_field("ALD.TIPOREC", AN, 3, 1, true, "ALD"); add_field("ALD.TIPOREC", AN, 3, 1, true, "ALD");
add_field("ALD.INDSCADD", AN, 3, 4); add_field("ALD.INDSCADD", AN, 3, 4, true, "A");
add_field("ALD.DESCR", AN, 35, 7); add_field("ALD.DESCR", AN, 35, 7);
add_field("ALD.INDSEQ", NU, 3, 42); add_field("ALD.INDSEQ", AN, 3, 42);
add_field("ALD.TIPOSCADD", AN, 6, 45); add_field("ALD.TIPOSCADD", AN, 6, 45, true, "TD");
add_field("ALD.IMPORTO", NS, 16, 51); add_field("ALD.IMPORTO", NS, 16, 51);
add_field("ALD.PERC", NU, 7, 67, true); add_field("ALD.PERC", AN, 7, 67, true);
add_field("ALD.FLGPRZUN", AN, 3, 74); add_field("ALD.FLGPRZUN", AN, 3, 74);
add_field("ALD.FINERECORD", AN, 2, 0, true, "\r\n"); add_field("ALD.FINERECORD", AN, 2, 0, true, "\r\n");
// Record NAD: identificazione punto di consegna // Record NAD: identificazione punto di consegna
add_field("NAD.TIPOREC", AN, 3, 1, true, "NAD"); add_field("NAD.TIPOREC", AN, 3, 1, true, "NAD");
add_field("NAD.CODCONS", NU, 6, 4); add_field("NAD.CODCONS1", NU, 2, 4, true, "00");
add_field("NAD.CODCONS2", AN, 4, 6);
add_field("NAD.QCODCONS", AN, 3, 21, true, "92"); add_field("NAD.QCODCONS", AN, 3, 21, true, "92");
add_field("NAD.RAGSOCD", AN, 70, 24, true); add_field("NAD.RAGSOCD", AN, 70, 24, true);
add_field("NAD.INDIRD", AN, 70, 94, true); add_field("NAD.INDIRD", AN, 70, 94, true);
@ -409,7 +410,7 @@ protected:
long genera_recordset(const TMask& mask, TISAM_recordset& recset); long genera_recordset(const TMask& mask, TISAM_recordset& recset);
void elabora(const TMask& mask); void elabora(const TMask& mask);
void check_date(const TDate& datafine, TDate& dataini); void check_date(const TDate& datafine, TDate& dataini);
long check_cliente(const long codcf); TString4 check_cliente(const long codcf);
void add_rec_testata(TFatture_recordset& fat, TDocumento& doc); void add_rec_testata(TFatture_recordset& fat, TDocumento& doc);
void add_rec_sommario(TFatture_recordset& fat, TDocumento& doc); void add_rec_sommario(TFatture_recordset& fat, TDocumento& doc);
void add_recs_dettaglio(TFatture_recordset& fat, TDocumento& doc); void add_recs_dettaglio(TFatture_recordset& fat, TDocumento& doc);
@ -432,7 +433,7 @@ void THardy_esselunga_fat::check_date(const TDate& datafine, TDate& dataini)
long THardy_esselunga_fat::genera_recordset(const TMask& mask, TISAM_recordset& recset) long THardy_esselunga_fat::genera_recordset(const TMask& mask, TISAM_recordset& recset)
{ {
TString query; TString query;
query << "USE DOC \n"; query << "USE DOC KEY 3\n";
TString filt_expr; TString filt_expr;
// aggiungo alla query le condizioni sulle numerazioni selezionare da maschera // aggiungo alla query le condizioni sulle numerazioni selezionare da maschera
@ -483,8 +484,13 @@ void THardy_esselunga_fat::add_rec_testata(TFatture_recordset& fat, TDocumento&
numdoc << cache().get("%NUM", num, "S7"); numdoc << cache().get("%NUM", num, "S7");
numdoc.strip("/"); numdoc.strip("/");
numdoc = numdoc.right(12); numdoc = numdoc.right(12);
if (doc.tipo().nota_credito())
fat.set("BGM.TIPODOC", "NOTACC"); // nota di credito
else
fat.set("BGM.TIPODOC", "INVOIC"); // fattura
fat.set("BGM.NUMDOC", numdoc); fat.set("BGM.NUMDOC", numdoc);
fat.set("BGM.DATADOC", doc.data()); fat.set("BGM.DATADOC", TVariant(doc.data()));
fat.new_rec("NAS"); fat.new_rec("NAS");
fat.new_rec("NAI"); fat.new_rec("NAI");
@ -492,24 +498,27 @@ void THardy_esselunga_fat::add_rec_testata(TFatture_recordset& fat, TDocumento&
fat.new_rec("PAT"); fat.new_rec("PAT");
fat.set("PAT.DESCRIZ", doc.pagamento().name()); fat.set("PAT.DESCRIZ", doc.pagamento().name());
fat.set("PAT.DATASCAD", doc.pagamento().data_rata(0)); fat.set("PAT.DATASCAD", TVariant(doc.pagamento().data_rata(0)));
fat.set("PAT.IMPORTO", doc.pagamento().importo_da_dividere()); fat.set("PAT.IMPORTO", TVariant(doc.pagamento().importo_rata(0)));
TString8 tp = doc.pagamento().tipo_prima_rata();
real imp = doc.pagamento().importo_rata(0);
} }
void THardy_esselunga_fat::add_rec_sommario(TFatture_recordset& fat, TDocumento& doc) void THardy_esselunga_fat::add_rec_sommario(TFatture_recordset& fat, TDocumento& doc)
{ {
//fat.new_rec("FTT"); non ci sono note nel documento! //fat.new_rec("FTT"); non ci sono note nel documento!
// se c'e' sconto scrivo il record corrispondente // se c'e' sconto scrivo il record corrispondente
/*
real r; real r;
TString80 s; TString80 s;
bool sconto = scontoexpr2perc(doc.get(DOC_SCONTOPERC), FALSE, s, r); bool sconto = scontoexpr2perc(doc.get(DOC_SCONTOPERC), FALSE, s, r);
if ( sconto && r != ZERO) if (sconto && r != ZERO)
{ {
fat.new_rec("ALT"); fat.new_rec("ALT");
fat.set("ALT.IMPORTO", r); fat.set("ALT.IMPORTO", r);
fat.set("ALT.PERC", s); fat.set("ALT.PERC", s);
} }
*/
TAssoc_array& tabella_iva = doc.tabella_iva(); TAssoc_array& tabella_iva = doc.tabella_iva();
TRiepilogo_iva* ri; TRiepilogo_iva* ri;
for (ri = (TRiepilogo_iva*) tabella_iva.first_item(); ri != NULL; ri = (TRiepilogo_iva*) tabella_iva.succ_item()) for (ri = (TRiepilogo_iva*) tabella_iva.first_item(); ri != NULL; ri = (TRiepilogo_iva*) tabella_iva.succ_item())
@ -536,7 +545,7 @@ void THardy_esselunga_fat::add_rec_sommario(TFatture_recordset& fat, TDocumento&
fat.set("TMA.TOTDOC1", doc.totale_doc()); fat.set("TMA.TOTDOC1", doc.totale_doc());
fat.set("TMA.IMPOSTA1", doc.imposta()); fat.set("TMA.IMPOSTA1", doc.imposta());
fat.set("TMA.IMPONIB1", doc.imponibile()); fat.set("TMA.IMPONIB1", doc.imponibile());
fat.set("TMA.TOTRIGHE1", doc.totale_netto()); fat.set("TMA.TOTRIGHE1", doc.get_real("TOTMER"));
fat.set("TMA.TOTANT1", ""); fat.set("TMA.TOTANT1", "");
} }
@ -581,11 +590,18 @@ void THardy_esselunga_fat::add_recs_dettaglio(TFatture_recordset& fat, TDocument
if (tipo == "NS") if (tipo == "NS")
tipo_hardy = "E"; tipo_hardy = "E";
fat.set("TAX.CATIMP", tipo_hardy); fat.set("TAX.CATIMP", tipo_hardy);
// gestione sconto riga
//fat.new_rec("ALD"); real sconto = rigadoc->sconto();
if (!sconto.is_zero())
{
fat.new_rec("ALD");
TString8 str = sconto.stringa(8,4,'0');
str.strip(",");
fat.set("ALD.PERC", str);
}
fat.new_rec("NAD"); fat.new_rec("NAD");
const long codcf = doc.codcf(); const long codcf = doc.codcf();
const long codcf_esselunga = check_cliente(codcf); const TString4 codcf_esselunga = check_cliente(codcf);
TToken_string key; TToken_string key;
key.add("C"); key.add(codcf); key.add("C"); key.add(codcf);
const TRectype& rec_cli = cache().get(LF_CLIFO, key); const TRectype& rec_cli = cache().get(LF_CLIFO, key);
@ -594,7 +610,7 @@ void THardy_esselunga_fat::add_recs_dettaglio(TFatture_recordset& fat, TDocument
key.cut(0); key.cut(0);
key.add(stato); key.add(comune); key.add(stato); key.add(comune);
const TRectype& com = cache().get(LF_COMUNI, key); const TRectype& com = cache().get(LF_COMUNI, key);
fat.set("NAD.CODCONS", codcf_esselunga); fat.set("NAD.CODCONS2", codcf_esselunga);
fat.set("NAD.RAGSOCD", rec_cli.get(CLI_RAGSOC)); fat.set("NAD.RAGSOCD", rec_cli.get(CLI_RAGSOC));
TString80 str; TString80 str;
str.cut(0); str.cut(0);
@ -613,7 +629,9 @@ void THardy_esselunga_fat::add_recs_dettaglio(TFatture_recordset& fat, TDocument
numdoc.strip("/"); numdoc.strip("/");
numdoc = numdoc.right(12); numdoc = numdoc.right(12);
fat.set("NAD.NUMDOC", numdoc); fat.set("NAD.NUMDOC", numdoc);
fat.set("NAD.DATADOC", doc.data()); fat.set("NAD.DATADOC", TVariant(doc.data()));
fat.set("NAD.NUMBOLLA", numdoc);
fat.set("NAD.DATABOLL", TVariant(doc.data()));
} }
} }
@ -640,8 +658,8 @@ void THardy_esselunga_fat::elabora(const TMask& mask)
const long codcf = recset.get(DOC_CODCF).as_int(); const long codcf = recset.get(DOC_CODCF).as_int();
// verificare se il cliente ha tutti i parametri per poter essere inviato (invio e codice cliente per hardy) // verificare se il cliente ha tutti i parametri per poter essere inviato (invio e codice cliente per hardy)
const long codcf_esselunga = check_cliente(codcf); const TString4 codcf_esselunga = check_cliente(codcf);
if ( codcf_esselunga > 0) if (codcf_esselunga.not_empty())
{ {
TDocumento* doc = new TDocumento(recset.cursor()->curr()); TDocumento* doc = new TDocumento(recset.cursor()->curr());
add_rec_testata(fatture, *doc); add_rec_testata(fatture, *doc);
@ -656,15 +674,19 @@ void THardy_esselunga_fat::elabora(const TMask& mask)
log.print_or_preview(); log.print_or_preview();
} }
long THardy_esselunga_fat::check_cliente(const long codcf) TString4 THardy_esselunga_fat::check_cliente(const long codcf)
{ {
long codcf_hardy = -1; TString4 codcf_hardy = "";
TString key; TString key;
key.format("%ld", codcf); key.format("%ld", codcf);
const TRectype rec_cliente = cache().get("&CEL", key); const TRectype rec_cliente = cache().get("&CEL", key);
const bool invio = rec_cliente.get_bool("B0"); const bool invio = rec_cliente.get_bool("B0");
const char dipendenza = rec_cliente.get("S1")[0];
if (invio) if (invio)
codcf_hardy = rec_cliente.get_long("I0"); {
codcf_hardy << dipendenza;
codcf_hardy << format("%03d", rec_cliente.get_long("I0"));
}
return codcf_hardy; return codcf_hardy;
} }

2
ha/ha2200a.uml
View File

@ -60,7 +60,7 @@ END
BOOLEAN F_DEFINITIVO BOOLEAN F_DEFINITIVO
BEGIN BEGIN
PROMPT 2 5 "Trasferimento definitivo" PROMPT 2 6 "Trasferimento definitivo"
END END
SPREADSHEET F_SHEETDOC 78 SPREADSHEET F_SHEETDOC 78