Patch level : 12.00 1263

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

View File

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

View File

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

View File

@ -96,7 +96,18 @@ END
NUMBER F_TO_NDOC 6
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
LIST F_TO_PROVV 1 12