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

116
lv/lv0300a.uml
View File

@ -61,7 +61,7 @@ ENDPAGE
PAGE "Documenti" 0 0 0 0
GROUPBOX DLG_NULL 78 4
TEXT -1
BEGIN
PROMPT 1 0 "@bDocumenti da generare"
END
@ -119,7 +119,7 @@ BEGIN
COPY OUTPUT F_TIPODOC_GEN
END
GROUPBOX DLG_NULL 78 6
TEXT -1
BEGIN
PROMPT 1 4 "@bFatture"
END
@ -211,7 +211,7 @@ BEGIN
FIELD FatPro
END
GROUPBOX DLG_NULL 78 4
TEXT -1
BEGIN
PROMPT 1 10 "@bOrdini fornitori"
END
@ -269,7 +269,7 @@ BEGIN
COPY OUTPUT F_TIPODOC_ORF
END
GROUPBOX DLG_NULL 78 4
TEXT -1
BEGIN
PROMPT 1 14 "@bOrdini clienti"
END
@ -327,7 +327,7 @@ BEGIN
COPY OUTPUT F_TIPODOC_ORC
END
GROUPBOX DLG_NULL 78 6
TEXT -1
BEGIN
PROMPT 1 18 "@bCausali di default"
END
@ -356,9 +356,33 @@ BEGIN
CHECKTYPE REQUIRED
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
BEGIN
PROMPT 2 20 "Cau. Rit. dt. tmp"
PROMPT 2 21 "Cau. Rit. dt. tmp"
USE &CAU
INPUT CODTAB F_CAULVRITDT
DISPLAY "Codice" CODTAB
@ -371,7 +395,7 @@ END
STRING F_CAULVRITDTDE 48
BEGIN
PROMPT 26 20 ""
PROMPT 26 21 ""
USE &CAU KEY 2
INPUT S0 F_CAUSLAVDESC
DISPLAY "Descrizione@50" S0
@ -382,7 +406,7 @@ END
STRING F_CAUCARMAG 5
BEGIN
PROMPT 2 21 "Cau. Car. Mag. "
PROMPT 2 22 "Cau. Car. Mag. "
USE %CAU KEY 1
INPUT CODTAB F_CAUCARMAG
DISPLAY "Codice" CODTAB
@ -395,7 +419,7 @@ END
STRING F_CAUCARMAGDE 50 46
BEGIN
PROMPT 28 21 ""
PROMPT 28 22 ""
USE %CAU KEY 2
INPUT S0 F_CAUCARMAGDE
DISPLAY "Descrizione@50" S0
@ -406,7 +430,7 @@ END
STRING F_CAUSCARMAG 5
BEGIN
PROMPT 2 22 "Cau. Scar. Mag. "
PROMPT 2 23 "Cau. Scar. Mag. "
USE %CAU KEY 1
INPUT CODTAB F_CAUSCARMAG
DISPLAY "Codice" CODTAB
@ -419,7 +443,7 @@ END
STRING F_CAUSCARMAGDE 50 46
BEGIN
PROMPT 28 22 ""
PROMPT 28 23 ""
USE %CAU KEY 2
INPUT S0 F_CAUSCARMAGDE
DISPLAY "Descrizione@50" S0
@ -619,43 +643,69 @@ BEGIN
FLAGS "D"
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
BEGIN
PROMPT 0 6 "@bOpzioni contratti"
PROMPT 0 8 "@bOpzioni contratti"
END
BOOLEAN F_UNICONT
BEGIN
PROMPT 1 7 "Numera contr. per ditta"
PROMPT 1 9 "Numera contr. per ditta"
FIELD UniCont
END
BOOLEAN F_QTAMODI
BEGIN
PROMPT 28 7 "Dot. modificabili"
PROMPT 28 9 "Dot. modificabili"
FIELD Qtamodi
END
BOOLEAN F_USEINDSP
BEGIN
PROMPT 50 7 "Utilizza ind. sped. su contratto"
PROMPT 50 9 "Utilizza ind. sped. su contratto"
FIELD Useindsp
END
TEXT -1
BEGIN
PROMPT 0 9 "@bOpzioni Giri"
PROMPT 0 11 "@bOpzioni Giri"
END
BOOLEAN F_AUTGIRI
BEGIN
PROMPT 1 10 "Generazione automatica giri"
PROMPT 1 12 "Generazione automatica giri"
FIELD Autgiri
END
LISTBOX F_ORDGIRI 1 22
BEGIN
PROMPT 35 10 "Ordina giri per "
PROMPT 35 12 "Ordina giri per "
ITEM "0|Ordine di generazione"
ITEM "1|Ordine di fermata"
ITEM "2|Orario di passaggio"
@ -664,30 +714,30 @@ END
TEXT -1
BEGIN
PROMPT 0 12 "@bOpzioni Documenti"
PROMPT 0 14 "@bOpzioni Documenti"
END
BOOLEAN F_DATAFISSA
BEGIN
PROMPT 1 13 "Data documenti fissa"
PROMPT 1 15 "Data documenti fissa"
FIELD Datafissa
END
BOOLEAN F_AGGCONG
BEGIN
PROMPT 28 13 "Aggiorna conguaglio su modifiche manuali"
PROMPT 28 15 "Aggiorna conguaglio su modifiche manuali"
FIELD Aggcong
END
NUMBER F_PERARR 3
BEGIN
PROMPT 1 14 "Percentuale per il calcolo dell'arrotondamento "
PROMPT 1 16 "Percentuale per il calcolo dell'arrotondamento "
FIELD Perarr
END
STRING F_CODARTFIX 8
BEGIN
PROMPT 1 15 "Art. per canone fisso "
PROMPT 1 17 "Art. per canone fisso "
FIELD Codartfix
KEY 1
FLAG "UG"
@ -701,13 +751,13 @@ END
STRING F_DESARTFIX 50 28
BEGIN
PROMPT 40 15 ""
PROMPT 40 17 ""
FLAGS "D"
END
STRING F_CODARTCAFIX 8
BEGIN
PROMPT 1 16 "Art. per raggruppamento "
PROMPT 1 18 "Art. per raggruppamento "
FIELD Codartcafix
KEY 1
FLAG "UG"
@ -721,13 +771,13 @@ END
STRING F_DESARTCAFIX 50 28
BEGIN
PROMPT 40 16 ""
PROMPT 40 18 ""
FLAGS "D"
END
LISTBOX F_TIPOPR 1 19
BEGIN
PROMPT 1 17 "Tipo prezzo"
PROMPT 1 19 "Tipo prezzo"
ITEM "0|Prezzo da contratto"
ITEM "1|Prezzo da bolla"
FIELD Tipopr
@ -735,7 +785,7 @@ END
STRING F_UMPESO 3
BEGIN
PROMPT 40 17 "U.M. "
PROMPT 40 19 "U.M. "
USE %UMS
INPUT CODTAB F_UMPESO
DISPLAY "Codice@6" CODTAB
@ -748,30 +798,30 @@ END
BOOLEAN F_DATABCON
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
END
TEXT -1
BEGIN
PROMPT 0 20 "@bOpzioni articoli"
PROMPT 0 22 "@bOpzioni articoli"
END
BOOLEAN F_GESTSACA
BEGIN
PROMPT 1 21 "Gestione sacchi/carrello"
PROMPT 1 23 "Gestione sacchi/carrello"
FIELD Gestsaca
END
TEXT -1
BEGIN
PROMPT 40 20 "@bOpzioni backup"
PROMPT 40 22 "@bOpzioni backup"
GROUP 1
END
STRING F_BACKUP 128 25
BEGIN
PROMPT 41 21 "Percorso di backup "
PROMPT 41 23 "Percorso di backup "
FIELD Backup
GROUP 1
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_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
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)
{
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_NO: quantita->set_pezzi(rdoc.get_real(RDOC_QTAGG1)); quantita->set_rotti(rdoc.get_real(RDOC_QTA)); break; //lascio tutto com'è
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_QTAGG2)); break; //lascio tutto com'è
default: break; //sostituisco le quantità
}
break;
@ -869,7 +869,7 @@ void TAcquisizione_lavanderie_app::genera_documenti(TLog_report& rep, TAssoc_arr
{
TRiga_documento& rdoc = doc[idriga];
rdoc.put(RDOC_QTAGG1, qtacon);
rdoc.put(RDOC_QTA, qtarotti);
rdoc.put(RDOC_QTAGG2, qtarotti);
}
else
{
@ -882,7 +882,7 @@ void TAcquisizione_lavanderie_app::genera_documenti(TLog_report& rep, TAssoc_arr
rdoc.put(RDOC_CHECKED, 'X');
rdoc.put(RDOC_CODAGG1, ini_get_string(CONFIG_DITTA, "lv", "CAUSLAV"));
rdoc.put(RDOC_QTAGG1, qtacon);
rdoc.put(RDOC_QTA, qtarotti);
rdoc.put(RDOC_QTAGG2, qtarotti);
rdoc.put(RDOC_CODIVA, anamag.get(ANAMAG_CODIVA));
}