Spostata la stampa lista doc in mg4
git-svn-id: svn://10.65.10.50/trunk@4558 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
f9c85488bd
commit
c44fe0b866
@ -29,11 +29,11 @@ protected:
|
||||
bool TStampa_listamov::create()
|
||||
{
|
||||
TRectype darec(LF_MOVMAG),arec(LF_MOVMAG);
|
||||
_mask = new TMask("mg1500");
|
||||
_mask = new TMask("mg4100");
|
||||
while (TRUE) {
|
||||
if (_mask->run() != K_ENTER)
|
||||
return FALSE;
|
||||
_form = new TForm("mg1500a", "");
|
||||
_form = new TForm("mg4100", "");
|
||||
TSorted_cursor& cur = (TSorted_cursor& )*_form->cursor();
|
||||
|
||||
|
||||
|
||||
204
mg/mg4100.frm
Executable file
204
mg/mg4100.frm
Executable file
@ -0,0 +1,204 @@
|
||||
USE 110 KEY 4
|
||||
JOIN CAU TO 110 INTO CODTAB==CODCAUS
|
||||
SORT 111 BY NUMREG CODART NRIG
|
||||
JOIN TO 110 INTO NUMREG==NUMREG
|
||||
JOIN 47 TO 111 INTO CODART==CODART
|
||||
JOIN 33 TO 110 INTO PROVV==DOCPROVV ANNO==ANNODOC CODNUM==CODNUM NDOC==NUMDOC
|
||||
|
||||
JOIN 49 TO 111 KEY 2 ALIAS 349 INTO CODART==CODART UM==UM
|
||||
JOIN 49 TO 47 ALIAS 249 INTO CODART==CODART
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
47->* "Anagrafica articoli"
|
||||
109->* "Archivio Giacenze"
|
||||
MAG->* "Tabella magazzini"
|
||||
110->* "Movimenti di magazzino"
|
||||
111->* "Righe Movimenti di magazzino"
|
||||
49->* "Unità di misura articoli"
|
||||
33->* "documenti"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Courier New"
|
||||
SIZE 12
|
||||
CARATTERE "X"
|
||||
INIZIALE 5 2
|
||||
FINALE 133
|
||||
END
|
||||
|
||||
SECTION HEADER ODD 3
|
||||
|
||||
STRINGA 1 40 1
|
||||
BEGIN
|
||||
KEY "nome ditta"
|
||||
PROMPT 1 1 "Ditta "
|
||||
MESSAGE _DITTA, !RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 2 10
|
||||
BEGIN
|
||||
KEY "Data"
|
||||
PROMPT 120 1 "Data "
|
||||
MESSAGE _TODAY
|
||||
END
|
||||
|
||||
NUMERO 3 7
|
||||
BEGIN
|
||||
KEY "Nr. pagina"
|
||||
PROMPT 137 1 "Pagina "
|
||||
MESSAGE _PAGENO
|
||||
END
|
||||
|
||||
NUMERO 4 25
|
||||
BEGIN
|
||||
KEY "Intestazione stampa"
|
||||
PROMPT 45 2 "Stampa lista movimenti"
|
||||
END
|
||||
|
||||
STRINGA 5 146
|
||||
BEGIN
|
||||
KEY "Separatore (iniziale)"
|
||||
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 1
|
||||
SECTION HEADER_DATA 1 0 1 GROUP
|
||||
DATA 1
|
||||
BEGIN
|
||||
KEY "raggr fdata"
|
||||
PROMPT 1 1 "------------- Registrazioni del "
|
||||
FIELD 110->DATACOMP
|
||||
END
|
||||
END
|
||||
SECTION RAGG_MOV 1 1 3 FILE 110 GROUP 110->DATACOMP
|
||||
|
||||
NUMERO 1
|
||||
BEGIN
|
||||
KEY "numreg"
|
||||
PROMPT 1 1 ""
|
||||
FIELD 110->NUMREG
|
||||
PICTURE "#####.@"
|
||||
MESSAGE RESET,10
|
||||
END
|
||||
|
||||
DATA 2 8
|
||||
BEGIN
|
||||
KEY "datacomp"
|
||||
PROMPT 10 1 ""
|
||||
FIELD 110->DATACOMP
|
||||
END
|
||||
|
||||
STRINGA 3 8
|
||||
BEGIN
|
||||
KEY "descr mov"
|
||||
PROMPT 20 1 ""
|
||||
FIELD 110->DESCR
|
||||
END
|
||||
|
||||
STRINGA 4 8
|
||||
BEGIN
|
||||
KEY " CAUS mov"
|
||||
PROMPT 1 2 ""
|
||||
FIELD 110->CODCAUS
|
||||
END
|
||||
STRINGA 5 20
|
||||
BEGIN
|
||||
KEY " DESCR CAUS"
|
||||
PROMPT 10 2 ""
|
||||
FIELD CAU->S0
|
||||
END
|
||||
|
||||
SECTION INFO_DOC 3 0 1 NUM_EXPR 110->NUMDOC!=0
|
||||
STRINGA 6 20
|
||||
BEGIN
|
||||
KEY " NUMDOC"
|
||||
PROMPT 2 1 "Documento "
|
||||
FIELD 110->NUMDOC
|
||||
END
|
||||
STRINGA 7 20
|
||||
BEGIN
|
||||
KEY " datadoc"
|
||||
PROMPT 20 1 "del "
|
||||
FIELD 33->DATADOC
|
||||
END
|
||||
END
|
||||
|
||||
SECTION RIGHE_MOV 3 1 1 FILE 111
|
||||
STRINGA 101 3
|
||||
BEGIN
|
||||
KEY ""
|
||||
PROMPT 4 1 ""
|
||||
FIELD 111->CODMAG[1,3]
|
||||
END
|
||||
STRINGA 102 3
|
||||
BEGIN
|
||||
KEY ""
|
||||
PROMPT 8 1 ""
|
||||
FIELD 111->CODMAG[4,5]
|
||||
END
|
||||
|
||||
STRINGA 103 20
|
||||
BEGIN
|
||||
KEY ""
|
||||
PROMPT 13 1 ""
|
||||
FIELD 111->CODART
|
||||
END
|
||||
|
||||
STRINGA 104 40
|
||||
BEGIN
|
||||
KEY ""
|
||||
PROMPT 35 1 ""
|
||||
FIELD 47->DESCR
|
||||
END
|
||||
|
||||
STRINGA 105 20
|
||||
BEGIN
|
||||
KEY "UMART"
|
||||
PROMPT 77 1 ""
|
||||
FIELD 111->UM
|
||||
END
|
||||
|
||||
NUMERO 106
|
||||
BEGIN
|
||||
KEY "quant"
|
||||
PROMPT 80 1 ""
|
||||
FIELD 111->QUANT
|
||||
PICTURE "####.###,@##"
|
||||
// se il valore è corretto con FC, l'UM stampata deve essere quella dell'articolo
|
||||
//MESSAGE _NUMEXPR,111->QUANT*349@->FC
|
||||
END
|
||||
|
||||
NUMERO 107
|
||||
BEGIN
|
||||
KEY "prezzo"
|
||||
PROMPT 94 1 " £ "
|
||||
FIELD 111->PREZZO
|
||||
PICTURE "##.####.###@"
|
||||
END
|
||||
|
||||
NUMERO 108
|
||||
BEGIN
|
||||
KEY "valore"
|
||||
FLAGS "H"
|
||||
PROMPT 120 1 ""
|
||||
MESSAGE _NUMEXPR,111->PREZZO*111->QUANT*349@->FC|ADD,10
|
||||
END
|
||||
|
||||
END // RIGHE MOVIMENTO
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "totale mov"
|
||||
PROMPT 1 3 "Totale valore movimentato: £ "
|
||||
PICTURE "##.###.####.##@"
|
||||
END
|
||||
|
||||
|
||||
END
|
||||
END // BODY SECTION
|
||||
74
mg/mg4100.uml
Executable file
74
mg/mg4100.uml
Executable file
@ -0,0 +1,74 @@
|
||||
#include "mg1500.h"
|
||||
PAGE "Stampa lista movimenti" -1 -1 78 18
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
FLAGS "A"
|
||||
PROMPT 2 9 "Codice esercizio "
|
||||
END
|
||||
|
||||
LISTBOX F_ORDINE 30
|
||||
BEGIN
|
||||
PROMPT 2 1 "Stampa ordinata per "
|
||||
ITEM "D|data di competenza"
|
||||
MESSAGE SHOW,1@|HIDE,2@
|
||||
ITEM "N|numero di registrazione"
|
||||
MESSAGE SHOW,2@|HIDE,1@
|
||||
END
|
||||
|
||||
DATA F_DADATA
|
||||
BEGIN
|
||||
PROMPT 2 3 "Dalla data "
|
||||
USE LF_MOVMAG KEY 4 SELECT ANNOES==#F_ANNOES// KEY 3 for DATAREG
|
||||
INPUT DATAREG F_DADATA
|
||||
DISPLAY "Esercizio" ANNOES
|
||||
DISPLAY "N.@10" NUMREG
|
||||
DISPLAY "Data@10" DATAREG
|
||||
OUTPUT F_DADATA DATAREG
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
DATA F_ADATA
|
||||
BEGIN
|
||||
PROMPT 2 5 "Alla data "
|
||||
COPY USE F_DADATA
|
||||
INPUT DATAREG F_ADATA
|
||||
COPY DISPLAY F_DADATA
|
||||
OUTPUT F_ADATA DATAREG
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_DANUM 7
|
||||
BEGIN
|
||||
PROMPT 2 3 "dal numero "
|
||||
USE LF_MOVMAG KEY 1 SELECT ANNOES=#F_ANNOES
|
||||
INPUT NUMREG F_DANUM
|
||||
DISPLAY "Esercizio" ANNOES
|
||||
DISPLAY "N.@10" NUMREG
|
||||
DISPLAY "Data@10" DATAREG
|
||||
OUTPUT F_DANUM NUMREG
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_ANUM 7
|
||||
BEGIN
|
||||
PROMPT 2 5 "Al numero "
|
||||
COPY USE F_DANUM
|
||||
INPUT NUMREG F_ANUM
|
||||
COPY DISPLAY F_DANUM
|
||||
OUTPUT F_ANUM NUMREG
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user