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

Patch level : 10.0

Browse Source 
Files correlati     : ps0713 e maschere
Ricompilazione Demo : [ ]
Commento            :
Corretta la generazione dei movimenti di prima nota e il salvataggio dei movimenti di analitica


git-svn-id: svn://10.65.10.50/trunk@20505 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2010-05-27 10:19:42 +00:00
parent 972d406ac9
commit 490691820a
4 changed files with 34 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ps/ps0713300.cpp
View File

@ -71,11 +71,16 @@ long TImporta_fatacq_app::genera_movcg()
{
TISAM_recordset movrec("USE MOV");
movrec.move_last();
long numreg = movrec.get(MOV_NUMREG).as_int(); numreg++;
long numreg = movrec.cursor()->curr().get_int(MOV_NUMREG); numreg++;
TLocalisamfile mov(LF_MOV);
mov.put(MOV_NUMREG, numreg);
mov.rewrite();
mov.put(MOV_NUMREG, numreg);
mov.put(MOV_DATACOMP, _msk->get_date(F_DATAREG));
mov.put(MOV_DATAREG, _msk->get_date(F_DATAREG));
mov.put(MOV_TIPO, 'F');
mov.put(MOV_CODCF, _msk->get(F_CODCF));
mov.put(MOV_CODCAUS, _msk->get(F_CODCAU));
mov.write();
return numreg;
}
@ -126,11 +131,13 @@ void TImporta_fatacq_app::genera_analitica(const long numreg, TAssoc_array& righ
ranmo.put(RMOVANA_IMPORTO, imp);
}
}
TLocalisamfile fmov(LF_MOVANA);
anmo.write(fmov);
}
bool TImporta_fatacq_app::transfer(const TFilename& file, const long numreg, TAssoc_array& righean)
{
TVB_recset s(file, '\t');
TVB_recset s(file, ',');
TProgind pi(s.items(),"Importazione fatture in corso ...",true,true);
@ -139,10 +146,6 @@ bool TImporta_fatacq_app::transfer(const TFilename& file, const long numreg, TAs
_configfile->set("Mode","AUTO");
_configfile->set_paragraph("23"); //setto il paragrafo [23] del file ini (testata)
_configfile->set(MOV_NUMREG, numreg);
_configfile->set(MOV_TIPO,"F");
_configfile->set(MOV_CODCF, _msk->get(F_CODCF));
_configfile->set(MOV_CODCAUS, _msk->get(F_CODCAU));
_configfile->set(MOV_DATAREG, _msk->get(F_DATAREG));
int nriga = 1;
@ -156,6 +159,8 @@ bool TImporta_fatacq_app::transfer(const TFilename& file, const long numreg, TAs
_configfile->set_paragraph(paragraph);
TString16 codcom = s.get(0).as_string();
if(codcom.empty())
continue;
real imp = s.get(1).as_real();
TCommessa cms(codcom);

8
ps/ps0713300a.uml
View File

@ -10,7 +10,7 @@ PAGE "Importazione fatture" 0 0 0 0
STRING DLG_PROFILE 50
BEGIN
PROMPT 1 -1 "Profilo "
PROMPT 9 -12 "Profilo "
PSELECT
FLAGS "H"
END
@ -97,7 +97,7 @@ END
STRING F_CODCF 4
BEGIN
PROMPT 2 9 "Fornitore "
PROMPT 2 8 "Fornitore "
FLAG "UR"
USE LF_CLIFO
INPUT TIPOCF "F"
@ -111,7 +111,7 @@ END
STRING F_FRAGSOC 50 24
BEGIN
PROMPT 25 9 "Ragione Sociale "
PROMPT 25 8 "Ragione Sociale "
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_FRAGSOC
@ -122,7 +122,7 @@ END
DATE F_DATAREG
BEGIN
PROMPT 2 10 "Data registrazione "
PROMPT 2 9 "Data registrazione "
CHECKTYPE REQUIRED
END

11
ps/ps0713500.cpp
View File

@ -100,9 +100,13 @@ long TImporta_spese_app::genera_movcg()
movrec.move_last();
long numreg = movrec.get(MOV_NUMREG).as_int(); numreg++;
const TDate datareg(TODAY);
TLocalisamfile mov(LF_MOV);
mov.put(MOV_NUMREG, numreg);
mov.rewrite();
mov.put(MOV_NUMREG, numreg);
mov.put(MOV_DATACOMP, datareg);
mov.put(MOV_DATAREG, datareg);
mov.write();
return numreg;
}
@ -157,6 +161,9 @@ void TImporta_spese_app::genera_movana(const long numreg, TAssoc_array& righean)
ranmo.put(RMOVANA_SEZIONE, importo.sezione());
}
}
TLocalisamfile fmov(LF_MOVANA);
anmo.write(fmov);
}
bool TImporta_spese_app::transfer()

12
ps/ps0713600.cpp
View File

@ -199,8 +199,10 @@ long TImporta_fat_for_app::genera_movcg()
long numreg = movrec.get(MOV_NUMREG).as_int(); numreg++;
TLocalisamfile mov(LF_MOV);
mov.put(MOV_NUMREG, numreg);
mov.rewrite();
mov.put(MOV_NUMREG, numreg);
mov.put(MOV_DATACOMP, _msk->get_date(F_DATAREG));
mov.put(MOV_DATAREG, _msk->get_date(F_DATAREG));
mov.write();
return numreg;
}
@ -295,6 +297,9 @@ void TImporta_fat_for_app::genera_analitica(TAssoc_array& righean, TCommessa_str
ranmo.put(RMOVANA_CODCMS, kmax.idlavoro());
ranmo.put(RMOVANA_IMPORTO, importo.valore().string());
}
TLocalisamfile fmov(LF_MOVANA);
anmo.write(fmov);
}
//IMPORTA_FAT: metodo che genera l'ini per l'importazione delle fatture a fornitore
@ -338,8 +343,7 @@ void TImporta_fat_for_app::importa_fat(TAssoc_array& righecg, TCommessa_string&
TProgind pi(righecg.items(), "Importazione in corso...", true, true);
configfile->set_paragraph("23"); //setto il paragrafo [23] del file ini (testata)
configfile->set(MOV_NUMREG, numregcg);
configfile->set(MOV_DATAREG, datareg);
configfile->set(MOV_NUMREG, numregcg);
configfile->set(MOV_DATADOC, datadoc);
configfile->set(MOV_NUMDOC, ndoc);
configfile->set(MOV_CODCAUS, codcau);