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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :Gestione Carrelli in Carico


git-svn-id: svn://10.65.10.50/trunk@20350 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri 2010-04-16 14:35:29 +00:00
parent e544252fd7
commit 062a39d7b4
1 changed files with 343 additions and 303 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ps/pd5317100.cpp
View File

@ -221,8 +221,26 @@ void TRiepCarrelli::add(TString articolo,TString user[],TDate dataDoc,
//metodo principale di elaborazione
void TCarrelli_app::elabora(const TMask& mask)const
{
bool search = true;
bool venduto = mask.get_bool(F_VENDUTO);
if(!venduto && TVariant(mask.get(F_COD_CMS))==TVariant(mask.get(F_COD_CMS_TO)))
{
TISAM_recordset carico(get_query(0,true));
//inserire parametri filtri
carico.set_var("#FROM",TVariant(mask.get(F_COD_CMS)));//
carico.set_var("#TO",TVariant(mask.get(F_COD_CMS_TO)));//
carico.set_var("#F_VEN",TVariant(mask.get(F_VENDUTO)));//
carico.set_var("#F_CAR",TVariant(mask.get(F_CARICO)));//
for(bool ok = carico.move_first();ok;ok=carico.move_next()){
search = false;
warning_box (TR("Attenzione:Il carrello risulta venduto!"));
break;
}
}
if(search){
TISAM_recordset riep(get_query(0,venduto));
//inserire parametri filtri
@ -269,6 +287,26 @@ void TCarrelli_app::elabora(const TMask& mask)const
{
commessa = riep.get("SALDANA.COMMESSA").as_string();
articolo = riep.get("ANAMAG.CODART").as_string();//A
search = true;
if(!venduto)
{
TISAM_recordset carico(get_query(0,true));
//inserire parametri filtri
carico.set_var("#FROM",TVariant(mask.get(F_COD_CMS)));//
carico.set_var("#TO",TVariant(mask.get(F_COD_CMS_TO)));//
carico.set_var("#F_VEN",TVariant(mask.get(F_VENDUTO)));//
carico.set_var("#F_CAR",TVariant(mask.get(F_CARICO)));//
for(bool ok = carico.move_first();ok;ok=carico.move_next()){
search = false;
break;
}
}
if(!search){
continue;
}
if(commessa==commessaOld ||
commessa.empty() ||
@ -557,6 +595,8 @@ void TCarrelli_app::elabora(const TMask& mask)const
warning_box (TR("Nessun record estratto per i parametri inseriti"));
}
}
}
}