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@21631 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-02-11 11:33:33 +00:00
parent d0512bec00
commit 184de22239
3 changed files with 39 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ha/ha1200.cpp
View File

@ -76,7 +76,7 @@ protected:
void genera_agenti_txt();
void genera_clienti_txt(const long da_codcli);
void genera_sospesi_txt();
void genera_sospesi_txt(const long da_codcli);
void genera_righelistini_txt();
void genera_contratti_txt();
void genera_promozioni_txt();
@ -284,17 +284,18 @@ void TFile2Txt::genera_clienti_txt(const long da_codcli)
}
void TFile2Txt::genera_sospesi_txt()
void TFile2Txt::genera_sospesi_txt(const long da_codcli)
{
TEsporta_sospesi_recordset sospesi;
TString query;
query << "USE PART";
query << "\nSELECT (CHIUSA!=\"X\")&&(TIPOMOV=1)";
query << "\nFROM TIPOC=C";
query << "\nFROM TIPOC=C SOTTOCONTO=#DACODC";
query << "\nTO TIPOC=C";
TISAM_recordset archivio_part(query);
archivio_part.set_var("#DACODC", da_codcli);
const long archivio_part_items = archivio_part.items();
TProgind progind(archivio_part_items, "Sospesi...", false, true);
@ -333,8 +334,13 @@ void TFile2Txt::genera_sospesi_txt()
sospesi.set("ImportoResiduo", residuo);
sospesi.set("ImpOriginalDoc", doc.valore());
sospesi.set("DataScadenza", hd_format_date6(datascad));
//partita: il codice sul terminalino deve avere il seguente formato (alla cazzo!)
//anno[4]-numpart[7, allineato a dx]
TString16 cod_partita;
cod_partita << rec_part.get_int(PART_ANNO) << "-" << rec_part.get(PART_NUMPART);
const int anno = rec_part.get_int(PART_ANNO);
const TString& numpart = rec_part.get(PART_NUMPART); //lo si prende così perchè Hardy allinea a destra il saldaconto
cod_partita << anno << "-" << numpart;
sospesi.set("Partita", cod_partita);
sospesi.set("TipoDocumento", "F");
}
@ -671,7 +677,10 @@ void TFile2Txt::elabora(const TMask& mask)
}
if (mask.get_bool(F_SOSPESI))
genera_sospesi_txt();
{
const long da_codcli = mask.get_long(F_DA_SOSP_CODCLI);
genera_sospesi_txt(da_codcli);
}
if (mask.get_bool(F_LISTINI))
genera_righelistini_txt();

15
ha/ha1200a.h
View File

@ -13,10 +13,11 @@
#define F_TABPAG 212
#define F_CARICO 213
#define F_DA_CODCLI 220
#define F_CODNUM 221
#define F_ANNO 222
#define F_PROVV 223
#define F_STATO 224
#define F_DA_CARDOC 225
#define F_A_CARDOC 226
#define F_DA_CODCLI 220
#define F_DA_SOSP_CODCLI 221
#define F_CODNUM 222
#define F_ANNO 223
#define F_PROVV 224
#define F_STATO 225
#define F_DA_CARDOC 226
#define F_A_CARDOC 227

21
ha/ha1200a.uml
View File

@ -27,7 +27,7 @@ END
NUMBER F_DA_CODCLI 6
BEGIN
PROMPT 12 4 "Dal: "
PROMPT 12 4 "Dal cli: "
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_DA_CODCLI
@ -44,6 +44,19 @@ BEGIN
GROUP 1
END
NUMBER F_DA_SOSP_CODCLI 6
BEGIN
PROMPT 12 5 "Dal cli: "
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_DA_SOSP_CODCLI
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_DA_SOSP_CODCLI CODCF
CHECKTYPE NORMAL
GROUP 1
END
BOOLEAN F_LISTINI
BEGIN
PROMPT 2 6 "Listini"
@ -70,19 +83,19 @@ END
BOOLEAN F_PRODOTTI
BEGIN
PROMPT 28 3 "Prodotti"
PROMPT 32 3 "Prodotti"
GROUP 1
END
BOOLEAN F_LINEE
BEGIN
PROMPT 28 4 "Linee"
PROMPT 32 4 "Linee"
GROUP 1
END
BOOLEAN F_BARCODE
BEGIN
PROMPT 28 5 "Barcode"
PROMPT 32 5 "Barcode"
GROUP 1
END