Patch level :
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:
parent
d0512bec00
commit
184de22239
@ -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
15
ha/ha1200a.h
@ -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
|
@ -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
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user