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

Patch level : 10.0 patch 597

Browse Source 
Files correlati     : lv3 lvbolacr.msk verig22.msk verig22.ini
Ricompilazione Demo : [ ]
Commento            :
Corretto caricamento magazzini da causale


git-svn-id: svn://10.65.10.50/trunk@20013 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2010-01-28 17:00:49 +00:00
parent 62742e9cdd
commit 4f62fc2d53
4 changed files with 172 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lv/lv3100.cpp
View File

@ -825,9 +825,6 @@ bool TGestione_bolle_msk::lv_causale_handler(TMask_field& f, KEY k)
{
if (f.to_check(k, true))
{
TString4 codmagdef = ini_get_string(CONFIG_DITTA, "lv", "CODMAG"); //magazzino
TString4 coddepdef = ini_get_string(CONFIG_DITTA, "lv", "CODMAGC"); //magazzino del circolante (deposito)
//leggo la causale che ho scritto nella riga corrente dello sheet
TString4 causale = f.get();
@ -920,6 +917,9 @@ bool TGestione_bolle_msk::lv_causale_handler(TMask_field& f, KEY k)
rdoc.put("DOTMP", dotmp);
TString16 tmp;
tmp << dotmp;
if(msk.field(FR_TIPORIGA).get_long() != 22)
{
msk.field(FR_JOLLY2).set(tmp);
//setto le date di inizio e fine della dotazione temporanea
TDate dadata = rcont.get_date(LVRCONDV_INDTTMP);
@ -991,13 +991,14 @@ bool TGestione_bolle_msk::lv_causale_handler(TMask_field& f, KEY k)
}
}
}
}
//abilito o disabilito azzerandolo il campo "Ritirato" a seconda di cosa prevede la causale
if (cau.is_ritiro())
{
msk.field(FR_QTAGG1).enable(true);
if (codmagcoll.blank())
/*if (codmagcoll.blank())
{
codmagcoll = codmagdef;
msk.field(FR_CODMAGC).set(codmagcoll);
@ -1007,7 +1008,7 @@ bool TGestione_bolle_msk::lv_causale_handler(TMask_field& f, KEY k)
{
coddepcoll = coddepdef; //magazzino del circolante
msk.field(FR_CODDEPC).set(coddepcoll);
}
} */
}
else
{
@ -1020,7 +1021,7 @@ bool TGestione_bolle_msk::lv_causale_handler(TMask_field& f, KEY k)
if (cau.is_consegna() && rcont.get(LVRCONDV_ARTBLOC).empty())
{
msk.field(FR_QTA).enable(true);
if (codmag.blank())
/*if (codmag.blank())
{
codmag = codmagdef;
msk.field(FR_CODMAG).set(codmag);
@ -1030,7 +1031,7 @@ bool TGestione_bolle_msk::lv_causale_handler(TMask_field& f, KEY k)
{
coddep = coddepdef;
msk.field(FR_CODDEP).set(coddep);
}
}*/
}
else
{
@ -1138,7 +1139,7 @@ TGestione_bolle_msk::TGestione_bolle_msk(const char* tipodoc) : TDocumento_mask(
if (ini_get_bool(CONFIG_DITTA, "lv", "Datafissa"))
field(F_DATADOC).disable();
sfield(F_SHEET).set_nav_column(FR_QTA, FR_QTAGG1);
sfield(F_SHEET).set_auto_append();
sfield(F_SHEET).set_auto_append(false);
sfield(F_SHEET).set_handler( ss_handler );
sfield(F_SHEET).set_notify( ss_notify );
}

5
lv/lvbolacr.src
View File

@ -201,6 +201,11 @@ Col(6)=FR_CAULAV|Caus.|5
Col(7)=FR_RITIRO|Ritiro|6
Col(8)=FR_QTA|Rotti|6
Col(9)=FR_TIPORIGA|Tipo|4
Col(10)=FR_CODMAG
Col(11)=FR_CODDEP
Col(12)=FR_CODMAGC
Col(13)=FR_CODDEPC
[RIGHE]
Tipo(0)=22

1
lv/verig22.ini
View File

@ -5,3 +5,4 @@ CAMPICALC=
IMPONIBILE=IMPNS
[HANDLERS]
1 = 152|4104

98
lv/verig22.uml
View File

@ -227,6 +227,104 @@ BEGIN
FIELD QTA
END
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 14 "@bMagazzino"
END
STRING FR_CODMAG 4
BEGIN
PROMPT 2 15 "Magazzino "
USE MAG SELECT CODTAB[4,5]==""
INPUT CODTAB FR_CODMAG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FR_CODMAG CODTAB
OUTPUT FR_DESMAG S0
WARNING "Magazzino assente"
FLAGS "U"
CHECKTYPE NORMAL
FIELD CODMAG[1,3]
END
STRING FR_DESMAG 50
BEGIN
PROMPT 26 15 ""
FLAGS "D"
END
STRING FR_CODDEP 4
BEGIN
PROMPT 2 16 "Deposito "
USE MAG SELECT (CODTAB[1,3]==#FR_CODMAG) && (CODTAB[4,5]!="")
INPUT CODTAB[1,3] FR_CODMAG
INPUT CODTAB[4,5] FR_CODDEP
DISPLAY "Codice mag." CODTAB[1,3]
DISPLAY "Codice dep." CODTAB[4,5]
DISPLAY "Descrizione@50" S0
OUTPUT FR_CODMAG CODTAB[1,3]
OUTPUT FR_CODDEP CODTAB[4,5]
OUTPUT FR_DESDEP S0
MESSAGE DIRTY,FR_CODMAG|K_TAB,FR_CODMAG
CHECKTYPE NORMAL
WARNING "Deposito assente"
FLAGS "U"
FIELD CODMAG[4,5]
END
STRING FR_DESDEP 50
BEGIN
PROMPT 26 16 ""
FLAGS "D"
END
STRING FR_CODMAGC 4
BEGIN
PROMPT 2 17 "Magazzino Col. "
COPY USE FR_CODMAG
INPUT CODTAB FR_CODMAGC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FR_CODMAGC CODTAB
OUTPUT FR_DESMAGC S0
WARNING "Magazzino assente"
FLAGS "U"
CHECKTYPE NORMAL
FIELD CODMAGC[1,3]
END
STRING FR_DESMAGC 50
BEGIN
PROMPT 26 17 ""
FLAGS "D"
END
STRING FR_CODDEPC 4
BEGIN
PROMPT 2 18 "Deposito "
USE MAG SELECT (CODTAB[1,3]==#FR_CODMAGC) && (CODTAB[4,5]!="")
INPUT CODTAB[1,3] FR_CODMAGC
INPUT CODTAB[4,5] FR_CODDEPC
DISPLAY "Codice mag." CODTAB[1,3]
DISPLAY "Codice dep." CODTAB[4,5]
DISPLAY "Descrizione@50" S0
OUTPUT FR_CODMAGC CODTAB[1,3]
OUTPUT FR_CODDEPC CODTAB[4,5]
OUTPUT FR_DESDEPC S0
MESSAGE DIRTY,FR_CODMAGC|K_TAB,FR_CODMAGC
CHECKTYPE NORMAL
WARNING "Deposito assente"
FLAGS "U"
FIELD CODMAGC[4,5]
END
STRING FR_DESDEPC 50
BEGIN
PROMPT 26 18 ""
FLAGS "D"
END
ENDPAGE
PAGE "Analitica" 0 2 0 0