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

Corretta gestione articoli per Aerea che non è limitata a 5 caratteri

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22870 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-06-20 13:22:10 +00:00
parent 09aff3a1c2
commit 0acd0807c0
3 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ha/ha0600.cpp
View File

@ -8,6 +8,7 @@
#include <clifo.h> #include <clifo.h>
#include <multirel.h> #include <multirel.h>
#include "../mg/anamag.h" #include "../mg/anamag.h"
#include "../db/dblib.h"
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TCodcorr_msk // TCodcorr_msk
@ -16,7 +17,7 @@
class TCodcorr_msk : public TAutomask class TCodcorr_msk : public TAutomask
{ {
char _mode; char _mode;
TString8 _code; TCodice_articolo _code;
bool _dirty; bool _dirty;
private: private:
@ -42,7 +43,7 @@ bool TCodcorr_msk::save()
TSheet_field& sf = sfield(_mode == 'A' ? F_ARTICOLI : F_CLIENTI); TSheet_field& sf = sfield(_mode == 'A' ? F_ARTICOLI : F_CLIENTI);
TFast_isamfile multirel(LF_MULTIREL); TFast_isamfile multirel(LF_MULTIREL);
TString8 code, codalt; TCodice_articolo code, codalt;
TString80 descr, data; TString80 descr, data;
FOR_EACH_SHEET_ROW(sf, r, row) FOR_EACH_SHEET_ROW(sf, r, row)
@ -118,8 +119,8 @@ bool TCodcorr_msk::load_articles()
for (bool ok = multirel.move_first(); ok; ok = multirel.move_next()) for (bool ok = multirel.move_first(); ok; ok = multirel.move_next())
{ {
TToken_string& row = sf.row(-1); TToken_string& row = sf.row(-1);
TString8 cod = multirel.get(MULTI_SECOND).as_string().left(5); TCodice_articolo cod = multirel.get(MULTI_SECOND).as_string();
row.add(cod); // Codice articolo row = cod; // Codice articolo
row.add(cache().get(LF_ANAMAG, cod, ANAMAG_DESCR)); // Descrizione articolo row.add(cache().get(LF_ANAMAG, cod, ANAMAG_DESCR)); // Descrizione articolo
// Spezza il campo DATA in codice alternativo [1,6] e descrizione [7,36] // Spezza il campo DATA in codice alternativo [1,6] e descrizione [7,36]
@ -204,7 +205,7 @@ bool TCodcorr_msk::load()
_code = get(F_ARTICOLO); // Legge codice articolo _code = get(F_ARTICOLO); // Legge codice articolo
if (_code.full()) if (_code.full())
{ {
_mode = 'C'; // Imposta modalità lista 'A'rticoli _mode = 'C'; // Imposta modalità lista 'C'lienti
done = load_customers(); // Carica clienti dell'articolo _code done = load_customers(); // Carica clienti dell'articolo _code
} }
} }

22
ha/ha0600a.uml
View File

@ -14,7 +14,7 @@ ENDPAGE
PAGE "Articoli corrispondenti" -1 -1 78 23 PAGE "Articoli corrispondenti" -1 -1 78 23
RADIOBUTTON F_TIPO 1 12 RADIOBUTTON F_TIPO 1 15
BEGIN BEGIN
PROMPT 1 0 "@bSelezione" PROMPT 1 0 "@bSelezione"
ITEM "C|Cliente" ITEM "C|Cliente"
@ -25,7 +25,7 @@ END
NUMBER F_CLIENTE 6 NUMBER F_CLIENTE 6
BEGIN BEGIN
PROMPT 15 1 "" PROMPT 18 1 ""
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT CODCF F_CLIENTE INPUT CODCF F_CLIENTE
@ -41,7 +41,7 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 15 2 "" PROMPT 18 2 ""
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOC INPUT RAGSOC F_RAGSOC
@ -53,12 +53,12 @@ BEGIN
GROUP 1 GROUP 1
END END
STRING F_ARTICOLO 5 STRING F_ARTICOLO 20
BEGIN BEGIN
PROMPT 15 1 "" PROMPT 18 1 ""
USE LF_ANAMAG SELECT USER1!="" USE LF_ANAMAG SELECT USER1!=""
INPUT CODART F_ARTICOLO INPUT CODART F_ARTICOLO
DISPLAY "Codice" CODART DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Fascia" USER4 DISPLAY "Fascia" USER4
OUTPUT F_ARTICOLO CODART OUTPUT F_ARTICOLO CODART
@ -70,7 +70,7 @@ END
STRING F_DESCART 50 STRING F_DESCART 50
BEGIN BEGIN
PROMPT 15 2 "" PROMPT 18 2 ""
USE LF_ANAMAG KEY 2 USE LF_ANAMAG KEY 2
INPUT DESCR F_DESCART INPUT DESCR F_DESCART
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -84,7 +84,7 @@ END
SPREADHEET F_ARTICOLI SPREADHEET F_ARTICOLI
BEGIN BEGIN
PROMPT 1 4 "" PROMPT 1 4 ""
ITEM "Codice\nArticolo@8" ITEM "Codice\nArticolo@20"
ITEM "Descrizione@50" ITEM "Descrizione@50"
ITEM "Codice\nAlt.@6" ITEM "Codice\nAlt.@6"
ITEM "Descrizione@30" ITEM "Descrizione@30"
@ -107,12 +107,12 @@ ENDMASK
PAGE "Articolo" -1 -1 65 5 PAGE "Articolo" -1 -1 65 5
STRING A_CODART 5 STRING A_CODART 20
BEGIN BEGIN
PROMPT 1 1 "Articolo " PROMPT 1 1 "Articolo "
USE LF_ANAMAG SELECT USER1!="" USE LF_ANAMAG SELECT USER1!=""
INPUT CODART A_CODART INPUT CODART A_CODART
DISPLAY "Codice" CODART DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Fascia" USER4 DISPLAY "Fascia" USER4
OUTPUT A_CODART CODART OUTPUT A_CODART CODART
@ -137,7 +137,7 @@ END
STRING A_CODALT 6 STRING A_CODALT 6
BEGIN BEGIN
PROMPT 1 3 "Alternativo " PROMPT 1 3 "Alternativo "
COPY USE A_CODART USE LF_ANAMAG SELECT LEN(CODART)<=6
INPUT CODART A_CODALT INPUT CODART A_CODALT
COPY DISPLAY A_CODART COPY DISPLAY A_CODART
OUTPUT A_CODALT CODART OUTPUT A_CODALT CODART

5
ha/hacnv300.cpp
View File

@ -95,8 +95,9 @@ void THardy_scadenze::conto2billcampo(const TString& hd_tipoc, const TString& hd
bool THardy_scadenze::trasferisci() bool THardy_scadenze::trasferisci()
{ {
TString query = "SELECT * FROM dbo.Scadenze WHERE Esercizio="; TString query = "SELECT * FROM dbo.Scadenze WHERE Esercizio=";
query << _anno; query << _anno
query << " AND dbo.Scadenze.FlStato=0 ORDER BY dbo.Scadenze.Esercizio, dbo.Scadenze.Protocollo "; << " AND dbo.Scadenze.FlStato=0"
<< " ORDER BY dbo.Scadenze.IdContoTp, dbo.Scadenze.Esercizio, dbo.Scadenze.Protocollo ";
TRecordset& recset = create_recordset(query); TRecordset& recset = create_recordset(query);
THardy_iterator hi(this); THardy_iterator hi(this);