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

Patch level : 10.0 patch 585

Browse Source 
Files correlati     : lv0300a.msk lv2 (meglio ricompilare tutto)
Ricompilazione Demo : [ ]
Commento            :
Movimentazione magazzino deposito pulito/sporco - Aggiunta in configurazione la causale da utilizzare in fase di generazione automatica

Aggiunto in configurazione il deposito presso clienti


git-svn-id: svn://10.65.10.50/trunk@19953 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2010-01-19 14:44:52 +00:00
parent b23abd5ebf
commit 8492225306
4 changed files with 131 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
lv/lv0300a.h
View File

@ -40,48 +40,52 @@
#define F_CAUSLAV 225 #define F_CAUSLAV 225
#define F_CAUSLAVDESC 226 #define F_CAUSLAVDESC 226
#define F_CAULVRITDT 227 #define F_CAUSLAVSC 227
#define F_CAULVRITDTDE 228 #define F_CAUSLAVSCDESC 228
#define F_CAUCARMAG 229 #define F_CAULVRITDT 229
#define F_CAUCARMAGDE 230 #define F_CAULVRITDTDE 230
#define F_CAUSCARMAG 231 #define F_CAUCARMAG 231
#define F_CAUSCARMAGDE 232 #define F_CAUCARMAGDE 232
#define F_CAUSCARMAG 233
#define F_CAUSCARMAGDE 234
#define F_CODMAG 233 #define F_CODMAG 235
#define F_DESMAG 234 #define F_DESMAG 236
#define F_CODMAGN 235 #define F_CODMAGN 237
#define F_DESMAGN 236 #define F_DESMAGN 238
#define F_CODMAGC 237 #define F_CODMAGC 239
#define F_DESMAGC 238 #define F_DESMAGC 240
#define F_CODMAGP 239 #define F_CODMAGP 241
#define F_DESMAGP 240 #define F_DESMAGP 242
#define F_CODMAGCL 243
#define F_DESMAGCL 244
#define F_UNICONT 241 #define F_UNICONT 245
#define F_QTAMODI 242 #define F_QTAMODI 246
#define F_AUTGIRI 243 #define F_AUTGIRI 247
#define F_ORDGIRI 244 #define F_ORDGIRI 248
#define F_DATAFISSA 245 #define F_DATAFISSA 249
#define F_AGGCONG 246 #define F_AGGCONG 250
#define F_PERARR 247 #define F_PERARR 251
#define F_RIFOR 248 #define F_RIFOR 252
#define F_ARTCANFIS 249 #define F_ARTCANFIS 253
#define F_GESTSACA 250 #define F_GESTSACA 254
#define F_ALMANAC 251 #define F_ALMANAC 255
#define F_USEINDSP 252 #define F_USEINDSP 256
#define F_CODARTFIX 253 #define F_CODARTFIX 257
#define F_DESARTFIX 254 #define F_DESARTFIX 258
#define F_CODARTCAFIX 255 #define F_CODARTCAFIX 259
#define F_DESARTCAFIX 256 #define F_DESARTCAFIX 260
#define F_TIPOPR 257 #define F_TIPOPR 261
#define F_UMPESO 258 #define F_UMPESO 262
#define F_DATABCON 259 #define F_DATABCON 263
#define F_PATH_CON 260 #define F_PATH_CON 264
#define F_SHEET_NAME 261 #define F_SHEET_NAME 265
#define F_PATH_MAN 262 #define F_PATH_MAN 266
#define F_PATH_LAVA 263 #define F_PATH_LAVA 267
#define F_PATH_PUL 264 #define F_PATH_PUL 268
#define F_FILE_PUL 265 #define F_FILE_PUL 269
#define F_BACKUP 300 #define F_BACKUP 300

116
lv/lv0300a.uml
View File

@ -61,7 +61,7 @@ ENDPAGE
PAGE "Documenti" 0 0 0 0 PAGE "Documenti" 0 0 0 0
GROUPBOX DLG_NULL 78 4 TEXT -1
BEGIN BEGIN
PROMPT 1 0 "@bDocumenti da generare" PROMPT 1 0 "@bDocumenti da generare"
END END
@ -119,7 +119,7 @@ BEGIN
COPY OUTPUT F_TIPODOC_GEN COPY OUTPUT F_TIPODOC_GEN
END END
GROUPBOX DLG_NULL 78 6 TEXT -1
BEGIN BEGIN
PROMPT 1 4 "@bFatture" PROMPT 1 4 "@bFatture"
END END
@ -211,7 +211,7 @@ BEGIN
FIELD FatPro FIELD FatPro
END END
GROUPBOX DLG_NULL 78 4 TEXT -1
BEGIN BEGIN
PROMPT 1 10 "@bOrdini fornitori" PROMPT 1 10 "@bOrdini fornitori"
END END
@ -269,7 +269,7 @@ BEGIN
COPY OUTPUT F_TIPODOC_ORF COPY OUTPUT F_TIPODOC_ORF
END END
GROUPBOX DLG_NULL 78 4 TEXT -1
BEGIN BEGIN
PROMPT 1 14 "@bOrdini clienti" PROMPT 1 14 "@bOrdini clienti"
END END
@ -327,7 +327,7 @@ BEGIN
COPY OUTPUT F_TIPODOC_ORC COPY OUTPUT F_TIPODOC_ORC
END END
GROUPBOX DLG_NULL 78 6 TEXT -1
BEGIN BEGIN
PROMPT 1 18 "@bCausali di default" PROMPT 1 18 "@bCausali di default"
END END
@ -356,9 +356,33 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_CAUSLAVSC 3
BEGIN
PROMPT 2 20 "Cau. Rit/Con s.c."
USE &CAU
INPUT CODTAB F_CAUSLAVSC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CAUSLAVSC CODTAB
OUTPUT F_CAUSLAVSCDESC S0
FIELD CAUSLAVSC
CHECKTYPE REQUIRED
END
STRING F_CAUSLAVSCDESC 48
BEGIN
PROMPT 26 20 ""
USE &CAU KEY 2
INPUT S0 F_CAUSLAVSCDESC
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CAUSLAVSC
CHECKTYPE REQUIRED
END
STRING F_CAULVRITDT 3 STRING F_CAULVRITDT 3
BEGIN BEGIN
PROMPT 2 20 "Cau. Rit. dt. tmp" PROMPT 2 21 "Cau. Rit. dt. tmp"
USE &CAU USE &CAU
INPUT CODTAB F_CAULVRITDT INPUT CODTAB F_CAULVRITDT
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -371,7 +395,7 @@ END
STRING F_CAULVRITDTDE 48 STRING F_CAULVRITDTDE 48
BEGIN BEGIN
PROMPT 26 20 "" PROMPT 26 21 ""
USE &CAU KEY 2 USE &CAU KEY 2
INPUT S0 F_CAUSLAVDESC INPUT S0 F_CAUSLAVDESC
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -382,7 +406,7 @@ END
STRING F_CAUCARMAG 5 STRING F_CAUCARMAG 5
BEGIN BEGIN
PROMPT 2 21 "Cau. Car. Mag. " PROMPT 2 22 "Cau. Car. Mag. "
USE %CAU KEY 1 USE %CAU KEY 1
INPUT CODTAB F_CAUCARMAG INPUT CODTAB F_CAUCARMAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -395,7 +419,7 @@ END
STRING F_CAUCARMAGDE 50 46 STRING F_CAUCARMAGDE 50 46
BEGIN BEGIN
PROMPT 28 21 "" PROMPT 28 22 ""
USE %CAU KEY 2 USE %CAU KEY 2
INPUT S0 F_CAUCARMAGDE INPUT S0 F_CAUCARMAGDE
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -406,7 +430,7 @@ END
STRING F_CAUSCARMAG 5 STRING F_CAUSCARMAG 5
BEGIN BEGIN
PROMPT 2 22 "Cau. Scar. Mag. " PROMPT 2 23 "Cau. Scar. Mag. "
USE %CAU KEY 1 USE %CAU KEY 1
INPUT CODTAB F_CAUSCARMAG INPUT CODTAB F_CAUSCARMAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -419,7 +443,7 @@ END
STRING F_CAUSCARMAGDE 50 46 STRING F_CAUSCARMAGDE 50 46
BEGIN BEGIN
PROMPT 28 22 "" PROMPT 28 23 ""
USE %CAU KEY 2 USE %CAU KEY 2
INPUT S0 F_CAUSCARMAGDE INPUT S0 F_CAUSCARMAGDE
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -619,43 +643,69 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
STRING F_CODMAGCL 3
BEGIN
PROMPT 1 5 "Dep. cli. "
HELP "Codice deposito presso cliente"
FIELD CODMAGCL
KEY 1
USE MAG
INPUT CODTAB[1,3] F_CODMAG SELECT
INPUT CODTAB[4,5] F_CODMAGCL
DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Cod. deposito" CODTAB[4,5]
DISPLAY "Denominazione dep.@50" S0
OUTPUT F_CODMAG CODTAB[1,3]
OUTPUT F_CODMAGCL CODTAB[4,5]
OUTPUT F_DESMAGCL S0
CHECKTYPE REQUIRED
FLAGS "UPA"
END
STRING F_DESMAGCL 50
BEGIN
PROMPT 23 5 ""
HELP "Descrizione Magazzino"
FLAGS "D"
END
TEXT -1 TEXT -1
BEGIN BEGIN
PROMPT 0 6 "@bOpzioni contratti" PROMPT 0 8 "@bOpzioni contratti"
END END
BOOLEAN F_UNICONT BOOLEAN F_UNICONT
BEGIN BEGIN
PROMPT 1 7 "Numera contr. per ditta" PROMPT 1 9 "Numera contr. per ditta"
FIELD UniCont FIELD UniCont
END END
BOOLEAN F_QTAMODI BOOLEAN F_QTAMODI
BEGIN BEGIN
PROMPT 28 7 "Dot. modificabili" PROMPT 28 9 "Dot. modificabili"
FIELD Qtamodi FIELD Qtamodi
END END
BOOLEAN F_USEINDSP BOOLEAN F_USEINDSP
BEGIN BEGIN
PROMPT 50 7 "Utilizza ind. sped. su contratto" PROMPT 50 9 "Utilizza ind. sped. su contratto"
FIELD Useindsp FIELD Useindsp
END END
TEXT -1 TEXT -1
BEGIN BEGIN
PROMPT 0 9 "@bOpzioni Giri" PROMPT 0 11 "@bOpzioni Giri"
END END
BOOLEAN F_AUTGIRI BOOLEAN F_AUTGIRI
BEGIN BEGIN
PROMPT 1 10 "Generazione automatica giri" PROMPT 1 12 "Generazione automatica giri"
FIELD Autgiri FIELD Autgiri
END END
LISTBOX F_ORDGIRI 1 22 LISTBOX F_ORDGIRI 1 22
BEGIN BEGIN
PROMPT 35 10 "Ordina giri per " PROMPT 35 12 "Ordina giri per "
ITEM "0|Ordine di generazione" ITEM "0|Ordine di generazione"
ITEM "1|Ordine di fermata" ITEM "1|Ordine di fermata"
ITEM "2|Orario di passaggio" ITEM "2|Orario di passaggio"
@ -664,30 +714,30 @@ END
TEXT -1 TEXT -1
BEGIN BEGIN
PROMPT 0 12 "@bOpzioni Documenti" PROMPT 0 14 "@bOpzioni Documenti"
END END
BOOLEAN F_DATAFISSA BOOLEAN F_DATAFISSA
BEGIN BEGIN
PROMPT 1 13 "Data documenti fissa" PROMPT 1 15 "Data documenti fissa"
FIELD Datafissa FIELD Datafissa
END END
BOOLEAN F_AGGCONG BOOLEAN F_AGGCONG
BEGIN BEGIN
PROMPT 28 13 "Aggiorna conguaglio su modifiche manuali" PROMPT 28 15 "Aggiorna conguaglio su modifiche manuali"
FIELD Aggcong FIELD Aggcong
END END
NUMBER F_PERARR 3 NUMBER F_PERARR 3
BEGIN BEGIN
PROMPT 1 14 "Percentuale per il calcolo dell'arrotondamento " PROMPT 1 16 "Percentuale per il calcolo dell'arrotondamento "
FIELD Perarr FIELD Perarr
END END
STRING F_CODARTFIX 8 STRING F_CODARTFIX 8
BEGIN BEGIN
PROMPT 1 15 "Art. per canone fisso " PROMPT 1 17 "Art. per canone fisso "
FIELD Codartfix FIELD Codartfix
KEY 1 KEY 1
FLAG "UG" FLAG "UG"
@ -701,13 +751,13 @@ END
STRING F_DESARTFIX 50 28 STRING F_DESARTFIX 50 28
BEGIN BEGIN
PROMPT 40 15 "" PROMPT 40 17 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CODARTCAFIX 8 STRING F_CODARTCAFIX 8
BEGIN BEGIN
PROMPT 1 16 "Art. per raggruppamento " PROMPT 1 18 "Art. per raggruppamento "
FIELD Codartcafix FIELD Codartcafix
KEY 1 KEY 1
FLAG "UG" FLAG "UG"
@ -721,13 +771,13 @@ END
STRING F_DESARTCAFIX 50 28 STRING F_DESARTCAFIX 50 28
BEGIN BEGIN
PROMPT 40 16 "" PROMPT 40 18 ""
FLAGS "D" FLAGS "D"
END END
LISTBOX F_TIPOPR 1 19 LISTBOX F_TIPOPR 1 19
BEGIN BEGIN
PROMPT 1 17 "Tipo prezzo" PROMPT 1 19 "Tipo prezzo"
ITEM "0|Prezzo da contratto" ITEM "0|Prezzo da contratto"
ITEM "1|Prezzo da bolla" ITEM "1|Prezzo da bolla"
FIELD Tipopr FIELD Tipopr
@ -735,7 +785,7 @@ END
STRING F_UMPESO 3 STRING F_UMPESO 3
BEGIN BEGIN
PROMPT 40 17 "U.M. " PROMPT 40 19 "U.M. "
USE %UMS USE %UMS
INPUT CODTAB F_UMPESO INPUT CODTAB F_UMPESO
DISPLAY "Codice@6" CODTAB DISPLAY "Codice@6" CODTAB
@ -748,30 +798,30 @@ END
BOOLEAN F_DATABCON BOOLEAN F_DATABCON
BEGIN BEGIN
PROMPT 1 18 "Data buono di consegna uguale alla data evasione buono di ritiro" PROMPT 1 10 "Data buono di consegna uguale alla data evasione buono di ritiro"
FIELD DataBcon FIELD DataBcon
END END
TEXT -1 TEXT -1
BEGIN BEGIN
PROMPT 0 20 "@bOpzioni articoli" PROMPT 0 22 "@bOpzioni articoli"
END END
BOOLEAN F_GESTSACA BOOLEAN F_GESTSACA
BEGIN BEGIN
PROMPT 1 21 "Gestione sacchi/carrello" PROMPT 1 23 "Gestione sacchi/carrello"
FIELD Gestsaca FIELD Gestsaca
END END
TEXT -1 TEXT -1
BEGIN BEGIN
PROMPT 40 20 "@bOpzioni backup" PROMPT 40 22 "@bOpzioni backup"
GROUP 1 GROUP 1
END END
STRING F_BACKUP 128 25 STRING F_BACKUP 128 25
BEGIN BEGIN
PROMPT 41 21 "Percorso di backup " PROMPT 41 23 "Percorso di backup "
FIELD Backup FIELD Backup
GROUP 1 GROUP 1
END END

2
lv/lv2400.cpp
View File

@ -503,7 +503,7 @@ void TGenera_documenti_app::crea_riga(const TString& codart, const char modpas,
rdoc.put(RDOC_QTAGG4, quantita_noarr); //quantità che avrei consegnato se non arrotondavo (qta ritirata) rdoc.put(RDOC_QTAGG4, quantita_noarr); //quantità che avrei consegnato se non arrotondavo (qta ritirata)
rdoc.put(RDOC_GENERATA, true); rdoc.put(RDOC_GENERATA, true);
rdoc.put(RDOC_CODAGG1, ini_get_string(CONFIG_DITTA, "lv", "CAUSLAV")); //causale presa dalla configurazione rdoc.put(RDOC_CODAGG1, ini_get_string(CONFIG_DITTA, "lv", "CAUSLAVSC")); //causale presa dalla configurazione
//aggiorno il conguaglio sulla riga del contratto //aggiorno il conguaglio sulla riga del contratto
if (!rcont.empty()) if (!rcont.empty())

8
lv/lv2600.cpp
View File

@ -812,8 +812,8 @@ void TAcquisizione_lavanderie_app::controlla_documenti(TLog_report& rep, TArtico
switch (k) switch (k)
{ {
case K_YES: quantita->add_pezzi(rdoc.get_real(RDOC_QTAGG1)); quantita->add_rotti(rdoc.get_real(RDOC_QTA)); break; //sommo le quantità case K_YES: quantita->add_pezzi(rdoc.get_real(RDOC_QTAGG1)); quantita->add_rotti(rdoc.get_real(RDOC_QTAGG2)); break; //sommo le quantità
case K_NO: quantita->set_pezzi(rdoc.get_real(RDOC_QTAGG1)); quantita->set_rotti(rdoc.get_real(RDOC_QTA)); break; //lascio tutto com'è case K_NO: quantita->set_pezzi(rdoc.get_real(RDOC_QTAGG1)); quantita->set_rotti(rdoc.get_real(RDOC_QTAGG2)); break; //lascio tutto com'è
default: break; //sostituisco le quantità default: break; //sostituisco le quantità
} }
break; break;
@ -869,7 +869,7 @@ void TAcquisizione_lavanderie_app::genera_documenti(TLog_report& rep, TAssoc_arr
{ {
TRiga_documento& rdoc = doc[idriga]; TRiga_documento& rdoc = doc[idriga];
rdoc.put(RDOC_QTAGG1, qtacon); rdoc.put(RDOC_QTAGG1, qtacon);
rdoc.put(RDOC_QTA, qtarotti); rdoc.put(RDOC_QTAGG2, qtarotti);
} }
else else
{ {
@ -882,7 +882,7 @@ void TAcquisizione_lavanderie_app::genera_documenti(TLog_report& rep, TAssoc_arr
rdoc.put(RDOC_CHECKED, 'X'); rdoc.put(RDOC_CHECKED, 'X');
rdoc.put(RDOC_CODAGG1, ini_get_string(CONFIG_DITTA, "lv", "CAUSLAV")); rdoc.put(RDOC_CODAGG1, ini_get_string(CONFIG_DITTA, "lv", "CAUSLAV"));
rdoc.put(RDOC_QTAGG1, qtacon); rdoc.put(RDOC_QTAGG1, qtacon);
rdoc.put(RDOC_QTA, qtarotti); rdoc.put(RDOC_QTAGG2, qtarotti);
rdoc.put(RDOC_CODIVA, anamag.get(ANAMAG_CODIVA)); rdoc.put(RDOC_CODIVA, anamag.get(ANAMAG_CODIVA));
} }