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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
neuroforesi


git-svn-id: svn://10.65.10.50/branches/R_10_00@21406 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-01-10 10:48:03 +00:00
parent 42ce68555b
commit 83bf8d8d8c
4 changed files with 96 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ps/pd0610200.cpp
View File

@ -328,6 +328,8 @@ void TCrea_ordini_srm_app::aggiorna_righe(TDocumento& ordf, const TDocumento& or
rordf.put(RDOC_DANDOC, ordc.get(DOC_NDOC));
rordf.put(RDOC_DAIDRIGA, idrigac);
rordf.dirty_fields();
const real r = rordf.get("IMPNS"); // serve per aggiornare i valori della riga
}
//ORDINI_FORNITORE: genera effettivamente gli ordini fornitore

11
ps/ps1002100.cpp
View File

@ -371,6 +371,10 @@ void TEdit_rdocs_mask::fill_sheet()
recset.set_var("#CODCF", get_long(F_CODCF));
recset.set_var("#CODNUM", get(F_CODNUM));
const TString& lav = get(F_LAV);
const TString& col = get(F_COLORE);
const TString& codart = get(F_CODART);
const long items = recset.items();
const TRectype& rec = recset.cursor()->curr();
@ -391,6 +395,13 @@ void TEdit_rdocs_mask::fill_sheet()
{
if (!rdoc->is_evasa() && rdoc->is_evadibile())
{
if (lav.full() && rdoc->get(RDOC_CODCMS) != lav)
continue;
if (col.full() && rdoc->get(RDOC_FASCMS) != col)
continue;
if (codart.full() && rdoc->get(RDOC_CODART) != codart)
continue;
sf_righe.autoload_line(++k, *rdoc); //aggiunge una riga nuova riempiendola con tutti i campi che hanno FIELD nella maschera
}
}

8
ps/ps1002100a.h
View File

@ -7,8 +7,14 @@
#define F_TIPODOC 306
#define F_DESTIPO 307
#define F_DATADOC 308
#define F_LAV 310
#define F_DESLAV 311
#define F_COLORE 312
#define F_DESCOL 313
#define F_CODART 314
#define F_DESCR 315
#define F_RIGHE 310
#define F_RIGHE 320
//campi sheet F_RIGHE
#define S_NDOC 101

82
ps/ps1002100a.uml
View File

@ -22,7 +22,7 @@ ENDPAGE
PAGE "Produttivita' giornaliera" 0 2 0 0
GROUPBOX DLG_NULL 76 7
GROUPBOX DLG_NULL 76 9
BEGIN
PROMPT 0 0 "@bParametri documenti"
END
@ -86,14 +86,84 @@ BEGIN
GROUP 1
END
STRING F_LAV 1
BEGIN
PROMPT 1 3 "Lavorazione "
USE CMS
INPUT CODTAB F_LAV
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_LAV CODTAB
OUTPUT F_DESLAV S0
CHECKTYPE NORMAL
END
STRING F_DESLAV 50 46
BEGIN
PROMPT 27 3 ""
USE CMS KEY 2
INPUT S0 F_DESLAV
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
CHECKTYPE NORMAL
COPY OUTPUT F_LAV
END
STRING F_COLORE 10
BEGIN
PROMPT 1 4 "Colore "
USE FSC
INPUT CODTAB F_COLORE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COLORE CODTAB
OUTPUT F_DESCOL S0
CHECKTYPE NORMAL
END
STRING F_DESCOL 50 46
BEGIN
PROMPT 27 4 ""
USE FSC KEY 2
INPUT S0 F_DESCOL
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
CHECKTYPE NORMAL
COPY OUTPUT F_COLORE
END
STRING F_CODART 20
BEGIN
PROMPT 1 5 "Articolo "
USE LF_ANAMAG
INPUT CODART F_CODART
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODART CODART
OUTPUT F_DESCR DESCR
FLAGS "U"
CHECKTYPE NORMAL
END
STRING F_DESCR 50 36
BEGIN
PROMPT 37 5 ""
USE LF_ANAMAG KEY 2
INPUT DESCR F_DESCR
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice@20" CODART
COPY OUTPUT F_CODART
CHECKTYPE NORMAL
END
TEXT DLG_NULL
BEGIN
PROMPT 1 4 "Parametri degli eventuali documenti da creare"
PROMPT 1 6 "Parametri degli eventuali documenti da creare"
END
STRING F_TIPODOC 4
BEGIN
PROMPT 1 5 "Tipo doc. "
PROMPT 1 7 "Tipo doc. "
USE %TIP
INPUT CODTAB F_TIPODOC
DISPLAY "Codice@8" CODTAB
@ -107,7 +177,7 @@ END
STRING F_DESTIPO 50 33
BEGIN
PROMPT 23 5 ""
PROMPT 23 7 ""
USE %TIP KEY 2
INPUT S0 F_DESTIPO
DISPLAY "Descrizione@50" S0
@ -119,13 +189,13 @@ END
DATA F_DATADOC
BEGIN
PROMPT 59 5 "Data "
PROMPT 59 7 "Data "
FLAGS "A"
END
SPREADSHEET F_RIGHE
BEGIN
PROMPT 1 8 "Righe documento"
PROMPT 1 10 "Righe documento"
ITEM "N. doc."
ITEM "N. riga"
ITEM "Mag."