Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :hardy correzioni per roberto


git-svn-id: svn://10.65.10.50/branches/R_10_00@21619 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-02-10 15:10:22 +00:00
parent e9f1a4ec4e
commit 550dfdeed4
2 changed files with 34 additions and 14 deletions

View File

@ -163,12 +163,6 @@ BEGIN
FLAGS "H"
END
STRING DLG_PROFILE 50
BEGIN
PROMPT 1 -1 "Profilo "
PSELECT
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2

View File

@ -702,8 +702,12 @@ void TUpload2Campo::elabora_SI(THardy_upload_recordset& recset, TLog_report& log
const TDate datadoc = upload_format_date6(str_datadoc);
const TString4 tipodoc = recset.get("TipoDocumento").as_string();
const real incasso = recset.get("ImportoIncassato").as_real() / CENTO;
//il codice partita su Campo è lungo 7 mentre i terminalini lo possono inviare lungo 15 (cazzi loro..)
const TString8 numpart = recset.get("Partita").as_string().left(7);
//panegirico su anno partita e numero partita
const TString16 str_part = recset.get("Partita").as_string();
const int annopart = atoi(str_part.left(4)); //anno = primi 4 caratteri del campo partita
TString8 numpart = str_part.mid(5, 7); //numero partita = 7 caratteri a partire dal sesto
numpart.trim();
TConfig config(CONFIG_DITTA, "ha");
const TString& codcaus = config.get("InpCausale");
@ -815,7 +819,7 @@ void TUpload2Campo::elabora_SI(THardy_upload_recordset& recset, TLog_report& log
new_rmov_age.put(RMV_IMPORTO, incasso);
//crea i pagamenti aggiornando anche la partita (qui si parrà la tua nobilitate!)
TPartita game(zio_clifo, anno, numpart);
TPartita game(zio_clifo, annopart, numpart);
const int nriga = game.prima_fattura();
const int nrata = 1;
//metodo magicissimo per l'aggiornamento della partita con l'incasso
@ -1027,15 +1031,22 @@ void TUpload2Campo::elabora_TF(THardy_upload_recordset& recset, TLog_report& log
doc.put(DOC_CODCF, codcf);
doc.put(DOC_CODCFFATT, recset.get(DOC_CODCFFATT).as_int());
//sconto in fattura, sconto totale, incasso ecc.... che cazzo sono?
//TString8 scontone = recset.get();
doc.put(DOC_CODPAG, recset.get(DOC_CODPAG).as_string());
//data spedizione...datapart o datacons? (solo per ordini)
//usa la cli2doc per riempire tutti i campi legati al cliente
TCli_for clifor('C', codcf);
clifor.cli2doc(doc);
//sconto in fattura, sconto totale, che cazzo sono?
//TString8 scontone = recset.get();
//codice pagamento
doc.put(DOC_CODPAG, recset.get(DOC_CODPAG).as_string());
//incasso (importo pagato)
const real incasso = recset.get("Incasso").as_real() / CENTO;
doc.put(DOC_IMPPAGATO, incasso);
//data spedizione...datapart o datacons? (solo per ordini)
//al simpatico documento appiccia tutte le righe RF che seguono il record TF..
//..dopo il magico ordinamento iniziale del recordset
//intanto azzera le righe eventualmente già presenti (riscrittura)
@ -1055,6 +1066,21 @@ void TUpload2Campo::elabora_TF(THardy_upload_recordset& recset, TLog_report& log
//agginunge una nuova riga (solo merce, per quanto ne sappiamo)
TRiga_documento& rigadoc = doc.new_row("01");
//3a) tipo cessione (fa cambiare il tipo riga o la causale di riga)
const char tipocess = recset.get("TipoCessione").as_string()[0];
switch (tipocess)
{
case 'V': break;
case 'O':
{
rigadoc.put(RDOC_TIPORIGA, "09");
rigadoc.put(RDOC_ADDIVA, "X");
}
break;
case 'R': break;
case 'S': break;
}
//serie delle put sulla riga documento; ricordiamo che la chiave della riga viene riempita dalla new_row
//3a) articolo
TString8 codart = recset.get(RDOC_CODART).as_string();
@ -1208,7 +1234,7 @@ void TUpload2Campo::elabora_RC(THardy_upload_recordset& recset, TLog_report& log
TRiga_documento& rigadoc = doc.new_row("01");
//serie delle put sulla riga documento; ricordiamo che la chiave della riga viene riempita dalla new_row
//3a) articolo
//3a) articolo, um, codmag
TString8 codart = recset.get("CodiceArticolo").as_string();
const TString& descr = check_articolo(codart, log);