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

Patch level : 12.00 1263

Browse Source 
Files correlati     :
Commento            :
Aggiunto stato alla copia documento
This commit is contained in:
Alessandro Bonazzi 2023-06-02 10:30:18 +02:00
parent 7f416cbc7b
commit c6f94af3f4
3 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ve/ve5300.cpp
View File

@ -228,6 +228,8 @@ void TCopydoc_app::main_loop()
sf.items() == filtro.items()) sf.items() == filtro.items())
filtro.cut(0); filtro.cut(0);
TString stato = m.get(F_TO_STATO);
TRelation rel(LF_DOC); TRelation rel(LF_DOC);
TCursor cur(&rel, filtro, 1, &rec_from, &rec_to); TCursor cur(&rel, filtro, 1, &rec_from, &rec_to);
@ -286,7 +288,9 @@ void TCopydoc_app::main_loop()
} }
} }
} }
newdoc.write(); if (stato.full())
newdoc.put(DOC_STATO, stato);
newdoc.write();
} }
} }
} }

1
src/ve/ve5300.h
View File

@ -15,6 +15,7 @@
#define F_TO_PROVV 303 #define F_TO_PROVV 303
#define F_TO_DES 304 #define F_TO_DES 304
#define F_TO_NDOC 305 #define F_TO_NDOC 305
#define F_TO_STATO 306
#define F_TIPO_SEL 101 #define F_TIPO_SEL 101
#define F_TIPO_DOC 102 #define F_TIPO_DOC 102

13
src/ve/ve5300a.uml
View File

@ -96,7 +96,18 @@ END
NUMBER F_TO_NDOC 6 NUMBER F_TO_NDOC 6
BEGIN BEGIN
PROMPT 30 6 "Numero " PROMPT 29 6 "Numero "
END
STRING F_TO_STATO 1
BEGIN
PROMPT 45 6 "Stato "
USE %STD
INPUT CODTAB F_TO_STATO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TO_STATO CODTAB
FLAG "U"
END END
LIST F_TO_PROVV 1 12 LIST F_TO_PROVV 1 12