From c44fe0b866c6a625ad502253d616fbd8aa115a7a Mon Sep 17 00:00:00 2001 From: augusto Date: Mon, 9 Jun 1997 10:59:52 +0000 Subject: [PATCH] Spostata la stampa lista doc in mg4 git-svn-id: svn://10.65.10.50/trunk@4558 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- mg/mg4100.cpp | 4 +- mg/mg4100.frm | 204 ++++++++++++++++++++++++++++++++++++++++++++++++++ mg/mg4100.uml | 74 ++++++++++++++++++ 3 files changed, 280 insertions(+), 2 deletions(-) create mode 100755 mg/mg4100.frm create mode 100755 mg/mg4100.uml diff --git a/mg/mg4100.cpp b/mg/mg4100.cpp index ecd150803..057d005a5 100755 --- a/mg/mg4100.cpp +++ b/mg/mg4100.cpp @@ -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(); diff --git a/mg/mg4100.frm b/mg/mg4100.frm new file mode 100755 index 000000000..289db1905 --- /dev/null +++ b/mg/mg4100.frm @@ -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 diff --git a/mg/mg4100.uml b/mg/mg4100.uml new file mode 100755 index 000000000..db8157676 --- /dev/null +++ b/mg/mg4100.uml @@ -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