diff --git a/mg/mg3.cpp b/mg/mg3.cpp new file mode 100755 index 000000000..280127b20 --- /dev/null +++ b/mg/mg3.cpp @@ -0,0 +1,29 @@ +#include +#include +// ****************************** +// Gestione stampe di magazzino (anagrafica giacenze,storico,schede, disponibilita) +#include "mg3.h" + +#define usage "Error - usage : %s -{0|1|2|3|4}" + +int main(int argc, char** argv) +{ + int rt = -1; + const int r = (argc > 1) ? atoi(&argv[1][1]) : -1; + + switch (r) + { + case 0: + //rt = mg3100(argc,argv) ; break; // stampa giacenze + case 1: + //rt = mg3200(argc,argv) ; break; // stampa storico rimanenze + case 2: + rt = mg3300(argc,argv) ; break; // stampa schede + case 3: + //rt = mg3400(argc,argv) ; break; // stampa disponibilitą .... + default: + error_box(usage, argv[0]) ; break; + } + + return rt ; +} diff --git a/mg/mg3.h b/mg/mg3.h new file mode 100755 index 000000000..29eeaf2f6 --- /dev/null +++ b/mg/mg3.h @@ -0,0 +1,9 @@ +#ifndef __MG3_H +#define __MG3_H + +int mg3100(int argc, char* argv[]); +int mg3200(int argc, char* argv[]); +int mg3300(int argc, char* argv[]); +int mg3400(int argc, char* argv[]); + +#endif // __MG3_H diff --git a/mg/mg3100.cpp b/mg/mg3100.cpp new file mode 100755 index 000000000..37da4be2f --- /dev/null +++ b/mg/mg3100.cpp @@ -0,0 +1,376 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include "..\ve\velib03.h" +#include "..\ve\veconf.h" +#include "mglib03.h" +#include "mg3100.h" +#include "mg3frm.h" + + +class TForm_giacprezzi : public TForm_stampemg +{ + TConfig *conf_ditta; + TCondizione_vendita * listino; +public: + void set_codlistino(const char * codcm,const char * cod); + bool validate(TForm_item &cf, TToken_string &s); + TForm_giacprezzi(const char *name,const char *code) ; + ~TForm_giacprezzi(); +}; + +bool TForm_giacprezzi::validate(TForm_item &cf, TToken_string &s) +{ + const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio + TString subcode; + + if (code=="_USER") { + subcode=s.get(); + if (subcode=="PREZZO") { + TString codart(relation()->lfile(LF_ANAMAG).get("CODART")); + if (listino->ricerca(codart,0.0)) + cf.set(listino->get_prezzo().string()); + return TRUE; + } + } + return TForm_stampemg::validate(cf, s); +} + +void TForm_giacprezzi::set_codlistino(const char * codcatv,const char * codlist) +{ + listino->put_listino(codlist,codcatv); +} + +TForm_giacprezzi::TForm_giacprezzi(const char *name,const char *code) : + TForm_stampemg(name,code) +{ + listino=new TCondizione_vendita(new TConfig(CONFIG_DITTA,"")); + listino->set_anamag(relation()->lfile(LF_ANAMAG)); + listino->set_umart(relation()->lfile(LF_UMART)); +} + +TForm_giacprezzi::~TForm_giacprezzi() +{ + delete &(listino->config_ditta()); + delete listino; +} + + + +class TStampadatist_mask: public TMask +{ + static bool handle_ragg(TMask_field &fld, KEY k); // handler + static bool handle_liv(TMask_field &fld, KEY k); // handler + static bool handle_subord(TMask_field &fld, KEY k); // handler +public: + TStampadatist_mask(); + ~TStampadatist_mask(){}; +}; + +TStampadatist_mask::TStampadatist_mask(): + TMask("mg3100") +{ + TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente + if (prassid.get_bool("GES", NULL, A_LISTINI)) + field(F_CATVENLISTINO).enable(prassid.get_bool("GESLISCV")); + else { + field(F_CATVENLISTINO).disable(); field(F_CODLISTINO).disable(); + } + TMag_livelli giaclev("FCA"),artlev("FCG"); + + set_handler(F_TOLIVELLOART, handle_liv); + set_handler(F_TOLIVELLOGIAC, handle_liv); + set_handler(F_ORDINE, handle_ragg); + set_handler(F_DETTAGLIODEP, handle_ragg); + set_handler(F_DETTAGLIOMAG, handle_ragg); + set_handler(F_ORDINEART,handle_subord); + if (!artlev.enabled()) { + TMask_field &f1=field(F_RAGGCODICE); + f1.reset(); f1.check();f1.hide(); + } + if (!giaclev.enabled()) { + TMask_field &f2=field(F_RAGGLIVGIAC); + f2.reset(); f2.check();f2.hide(); + } +} + +bool TStampadatist_mask::handle_subord(TMask_field &fld, KEY k) +{ + if (k == K_SPACE) + { + TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); + TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); + switch (fld.get()[1]) { + case 'C': + if (fld.mask().get(F_ORDINE)=="A") + fraggcod.enable(); + else { + if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) + { + fraggcod.reset(); fraggcod.disable(); + fragggiac.reset(); fragggiac.disable(); + fraggcod.do_message(0);fragggiac.do_message(0); + } + } + break; + case 'M': + case 'D': + fraggcod.reset(); fraggcod.check();fraggcod.disable(); + break; + } + } + return TRUE; +} + +bool TStampadatist_mask::handle_liv(TMask_field &fld, KEY k) +{ + if (k == K_TAB) + { + TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); + TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG); + if (fld.mask().get(F_ORDINE)=="A") + { + if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC)) + { + // raggruppamenti prima del dettaglio magazzini + ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0); + } else { + ftotmag.enable(); + } + } + } + return TRUE; +} + +bool TStampadatist_mask::handle_ragg(TMask_field &fld, KEY k) +{ + if (k == K_SPACE) + { + TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); + TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); + TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); + if (fld.mask().get(F_ORDINE)=="M") + { + ftotmag.enable(); + if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) + { + fraggcod.reset(); fraggcod.disable(); + fragggiac.reset(); fragggiac.disable(); + fraggcod.do_message(0);fragggiac.do_message(0); + return TRUE; + } + } + fraggcod.enable(); + fragggiac.enable(); + } + return TRUE; +} + + +// STAMPA anagrafiche +class TStampa_datistorici : public TPrint_application +{ + TArray * _files; + TMask * _mask; + TCursor * _cur; + TForm_giacprezzi * _form; // to be moved into TPrint_application + +protected: + virtual bool print_one(int file) + {return TRUE;} + virtual bool user_create(); + virtual bool user_destroy(); + virtual bool set_print(int i=1); + virtual void set_page(int file,int count) + { } + void setprint_permagazzini(); + void setprint_perarticoli(); + +public: + TStampa_datistorici() {} +}; + + +bool TStampa_datistorici::user_create() +{ + _mask = new TStampadatist_mask(); + _files = new TArray(); + _files->add(new TLocalisamfile(LF_MAG)); + return TRUE; +} + +bool TStampa_datistorici::user_destroy() +{ + delete _mask; + delete _files; + return TRUE; +} + +void TStampa_datistorici::setprint_permagazzini() +{ + char subordine=*_mask->get(F_ORDINEART); + TRectype darec(LF_MAG),arec(LF_MAG); + TString cfilter,sortexp,joinexp; + _form = new TForm_giacprezzi("mg3100b", ""); + _cur = _form->cursor(); + // setta il filtro sul cursore + if (*_mask->get(F_DAART)) + cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ; + if (*_mask->get(F_AART)) + cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ; + switch (*_mask->get(F_FILTRO)) { + case '0': // non nulli + cfilter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&"; + break; + case 'P': // positivi + cfilter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&"; + break; + case 'N': // negativi + cfilter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&"; + break; + case 'S': // sottoscorta + cfilter << "(STR(GIACget_bool(F_DETTAGLIODEP); + _form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),_mask->get_int(F_TOLIVELLOART),_mask->get_int(F_FROMLIVELLOGIAC),_mask->get_int(F_TOLIVELLOGIAC),_mask->get_bool(F_TOTALIMAGAZZINI),_mask->get_bool(F_TOTALIDEPOSITI),showdett); + + _form->find_field('H',odd_page,FF_FLAGGIAC).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)!='S') ? "1": "0"); + _form->find_field('H',odd_page,FF_FLAGSOTTOS).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)=='S') ? "1": "0"); + _form->find_field('B',odd_page,FF_FLAGVALMEDI).set(_mask->get_bool(F_VALMEDI) ? "1": "0"); + + _form->find_field('H',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI)); + _form->find_field('B',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI)); + _form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO)); + + darec.put("ANNOES",_mask->get(F_ANNOES)); + darec.put("CODMAG",_mask->get(F_DAMAG)); + arec.put("ANNOES",_mask->get(F_ANNOES)); + arec.put("CODMAG",_mask->get(F_AMAG)); + _cur->setfilter(cfilter); + _cur->setregion(darec,arec); +} + +// ORDINAMENTO +void TStampa_datistorici::setprint_perarticoli() +{ + TRectype darec(LF_ANAMAG),arec(LF_ANAMAG); + TString cfilter,filter,joinexp; + TString sortexp("ANNOES|CODART|LIVELLO|CODMAG"); + + char subordine=*_mask->get(F_ORDINEART); + _form = new TForm_giacprezzi("mg3100a", ""); + _cur = _form->cursor(); + if (*_mask->get(F_DAMAG)) + filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ; + if (*_mask->get(F_AMAG)) + filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ; + switch (*_mask->get(F_FILTRO)) { + case '0': // non nulli + filter << "(STR(" << LF_MAG << "->GIAC!=\"0\"))&&"; + break; + case 'P': // positivi + filter << "(STR(" << LF_MAG << "->GIAC>\"0\"))&&"; + break; + case 'N': // negativi + filter << "(STR(" << LF_MAG << "->GIAC<\"0\"))&&"; + break; + case 'S': // sottoscorta + filter << "(STR(GIACsetkey(1); + darec.put("CODART",_mask->get(F_DAART)); + arec.put("CODART",_mask->get(F_AART)); + _form->find_field('B',odd_page,"H_CATMER").hide(); + _form->find_field('B',odd_page,"TOT_CATMER").hide(); + _form->setcatmer(FALSE); + break; + case 'D': + _cur->setkey(2); + darec.put("DESCR",_mask->get(F_DADES)); + arec.put("DESCR",_mask->get(F_ADES)); + _form->find_field('B',odd_page,"H_CATMER").disable(); + _form->find_field('B',odd_page,"TOT_CATMER").hide(); + _form->setcatmer(FALSE); + break; + case 'M': + _cur->setkey(3); + darec.put("GRMERC",_mask->get(F_DACATMER)); + darec.put("CODART",_mask->get(F_DAART)); + arec.put("GRMERC",_mask->get(F_ACATMER)); + arec.put("CODART",_mask->get(F_AART)); + _form->find_field('B',odd_page,"H_CATMER").show(); + _form->find_field('B',odd_page,"TOT_CATMER").show(); + _form->setcatmer(TRUE); + break; + } + _form->setdett_perart( + _mask->get_int(F_FROMLIVELLOART), + _mask->get_int(F_TOLIVELLOART), + _mask->get_int(F_FROMLIVELLOGIAC), + _mask->get_int(F_TOLIVELLOGIAC), + _mask->get_bool(F_TOTALIMAGAZZINI), + _mask->get_bool(F_TOTALIDEPOSITI)); + + _form->find_field('H',odd_page,FF_FLAGGIAC).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)!='S') ? "1": "0"); + _form->find_field('H',odd_page,FF_FLAGSOTTOS).set((_mask->get_bool(F_STAMPAGIAC) && *_mask->get(F_FILTRO)=='S') ? "1": "0"); + _form->find_field('B',odd_page,FF_FLAGVALMEDI).set(_mask->get_bool(F_VALMEDI) ? "1": "0"); + + _form->find_field('H',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI)); + _form->find_field('B',odd_page,FF_PREZZIVALORI).set(_mask->get(F_PREZZIVALORI)); + _form->set_codlistino(_mask->get(F_CATVENLISTINO),_mask->get(F_CODLISTINO)); + + joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART"; + + TSortedfile *mag; + mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1); + _cur->relation()->replace(mag,1,joinexp); + _cur->setfilter(cfilter); + _cur->setregion(darec,arec); +} + + +bool TStampa_datistorici::set_print(int i) +{ + while (TRUE) { + if (_mask->run() != K_ENTER) + return FALSE; + + if (*_mask->get(F_ORDINE)=='A') + { + setprint_perarticoli(); + } else { + setprint_permagazzini(); + } + _form->print(); + delete _form; + } // while true + return TRUE; +} + + +int mg3100(int argc, char* argv[]) +{ + TStampa_datistorici a;// derivata da Application e con uso di form + a.run(argc,argv,"Stampa dati storici di giacenza"); + return 0; +} diff --git a/mg/mg3100a.frm b/mg/mg3100a.frm new file mode 100755 index 000000000..51a82f50a --- /dev/null +++ b/mg/mg3100a.frm @@ -0,0 +1,2295 @@ +#include "mg3frm.h" +USE LF_ANAMAG KEY 1 +SORT LF_MAG BY ANNOES CODART LIVELLO CODMAG + JOIN TO LF_ANAMAG INTO ANNOES==1996 CODART==CODART +JOIN MAG TO LF_MAG ALIAS 500 INTO CODTAB==CODMAG[1,3] +JOIN MAG TO LF_MAG ALIAS 501 INTO CODTAB==CODMAG +JOIN GMC TO LF_ANAMAG ALIAS 400 INTO CODTAB==GRMERC[1,3] +JOIN GMC TO LF_ANAMAG ALIAS 401 INTO CODTAB==GRMERC +JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART +END + +DESCRIPTION +BEGIN + 47->* "Anagrafica articoli" + 109->* "Archivio Giacenze" + MAG->* "Tabella magazzini" + 49->* "Unitą di misura articoli" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 8 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 5 + +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 32 +BEGIN + KEY "Intestazione stampa" + PROMPT 45 2 "Stampa dati storici giacenze" +END + +STRINGA 5 146 +BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" +END + + LIST FF_PREZZIVALORI 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "H PREZZI O VALORI" + ITEM "V|Valori" + MESSAGE DISABLE,FG_RIGAPREZZI@|ENABLE,FG_RIGAVALORI@ + ITEM "P|Prezzi" + MESSAGE ENABLE,FG_RIGAPREZZI@|DISABLE,FG_RIGAVALORI@ + END + + LIST FF_FLAGGIAC 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "FLAG GIACENZA" + ITEM "0|0" + MESSAGE HIDE,14|DISABLE,BO->47 + ITEM "1|1" + MESSAGE SHOW,14|ENABLE,BO->47 + END + + LIST FF_FLAGSOTTOS 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "FLAG SOTTOSCORTA" + ITEM "0|0" + MESSAGE HIDE,15|DISABLE,BO->48 + ITEM "1|1" + MESSAGE SHOW,15|ENABLE,BO->48 + END + + STRINGA 6 20 + BEGIN + KEY "H1" + PROMPT 2 4 "Codice" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 24 4 "Descrizione" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 45 4 "UM" + END + STRINGA 8 12 + BEGIN + KEY "H1" + PROMPT 55 4 "Giac." + GROUP FG_RIGAPREZZI + END + STRINGA 8 12 + BEGIN + KEY "H1" + PROMPT 55 4 "Acq." + GROUP FG_RIGAVALORI + END + STRINGA 9 12 + BEGIN + KEY "H1" + PROMPT 68 4 "Ult.costo" + GROUP FG_RIGAPREZZI + END + STRINGA 9 12 + BEGIN + KEY "H1" + PROMPT 68 4 "Val.Acq." + GROUP FG_RIGAVALORI + END + STRINGA 10 12 + BEGIN + KEY "H1" + PROMPT 81 4 "Ven." + GROUP FG_RIGAVALORI + END + STRINGA 10 12 + BEGIN + KEY "H1" + PROMPT 81 4 "Prezzo" + GROUP FG_RIGAPREZZI + END + STRINGA 11 12 + BEGIN + KEY "H1" + PROMPT 94 4 "Val.Ven." + GROUP FG_RIGAVALORI + END + STRINGA 12 12 + BEGIN + KEY "H1" + PROMPT 107 4 "Rim." + GROUP FG_RIGAVALORI + END + STRINGA 13 12 + BEGIN + KEY "H1" + PROMPT 120 4 "Val.Rim." + GROUP FG_RIGAVALORI + END + STRINGA 14 12 + BEGIN + KEY "H1" + PROMPT 133 4 "Giac." + GROUP FG_RIGAVALORI + END + STRINGA 15 12 + BEGIN + KEY "H1" + PROMPT 131 4 "Scorta-Giac." + GROUP FG_RIGAVALORI + END + + STRINGA 17 146 + BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END + +END + +SECTION BODY ODD 0 COLUMNWISE + + LIST FF_PREZZIVALORI 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "PREZZIOVALORI" + ITEM "P|0" + MESSAGE ENABLE,FG_RIGAPREZZI@|DISABLE,FG_RIGAVALORI@ + ITEM "V|1" + MESSAGE DISABLE,FG_RIGAPREZZI@|ENABLE,FG_RIGAVALORI@ + END + + NUMBER FF_FLAGTOTQTA 1 + BEGIN + FLAG "H" + PROMPT 1 1 "" + END + + LIST FF_FLAGVALMEDI 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "FLAG VALORI MEDI" + ITEM "0|N" + MESSAGE SHOW,FG_VALORI@|DISABLE,FG_VALMEDI@ + ITEM "1|Y" + MESSAGE HIDE,FG_VALORI@|ENABLE,FG_VALMEDI@ + END + + SECTION H_CATMER 1 1 2 GROUP + STRINGA 11 12 2 + BEGIN + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE _USER,CODCATMER + END + STRINGA 12 30 2 + BEGIN + KEY "CODICE CATMER" + PROMPT 3 1 "" + MESSAGE _USER,CATMER|COPY,1550 + END + END + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,15@ + END + + SECTION GRUPPI_CATMER 1 0 1 FILE LF_ANAMAG GROUP GRMERC + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,14@ + END + SECTION H_GCODART1 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,1 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,1|COPY,1450 + END + END + + SECTION GRUPPI_CODART1 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,13@ + END + SECTION H_GCODART2 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,2 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,2|COPY,1350 + END + END + + SECTION GRUPPI_CODART2 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,12@ + END + SECTION H_GCODART3 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,3 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,3|COPY,1250 + END + END + + SECTION GRUPPI_CODART3 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,11@ + END + SECTION H_GCODART4 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,4 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,4|COPY,1150 + END + END + + SECTION GRUPPI_CODART4 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,10@ + END + SECTION H_GCODART5 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,5 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,5|COPY,1050 + END + END + + SECTION GRUPPI_CODART5 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,9@ + END + SECTION H_GCODART6 1 1 2 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,6 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,6|COPY,950 + END + END + + SECTION GRUPPI_CODART6 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,8@ + END + SECTION H_GCODART7 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,7 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,7|COPY,850 + END + END + + SECTION GRUPPI_CODART7 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,7@ + END + + SECTION H_GCODART8 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,8 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,8|COPY,750 + END + END + + SECTION GRUPPI_CODART8 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,6@ + END + SECTION H_ARTICOLO 1 1 1 GROUP + STRINGA 2020 12 2 + BEGIN + KEY "CODICE articolo" + PROMPT 2 1 "" + FIELD CODART + END + STRINGA 21 30 2 + BEGIN + KEY "DESCR.articolo" + PROMPT 3 1 "" + FIELD LF_ANAMAG->DESCR + MESSAGE COPY,650 + END + NUMERO 22 12 + BEGIN + KEY "ULC" + FLAGS "H" + PROMPT 7 2 "" + FIELD LF_ANAMAG->ULTCOS1 + MESSAGE COPY,648 + END + NUMERO 23 12 + BEGIN + KEY "PREZZO" + FLAGS "H" + PROMPT 7 2 "" + MESSAGE _USER,PREZZO|COPY,649 + END + END + + SECTION FILE_GIACENZE 1 1 0 FILE LF_MAG + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,5@ + END + SECTION H_GLIVGIAC1 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,1|COPY,550 + END + END + + SECTION GRUPPI_LIVGIAC1 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,4@ + END + SECTION H_GLIVGIAC2 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,2|COPY,450 + END + END + + SECTION GRUPPI_LIVGIAC2 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,3@ + END + + SECTION H_GLIVGIAC3 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,3|COPY,350 + END + END + + SECTION GRUPPI_LIVGIAC3 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,2@ + END + + SECTION H_GLIVGIAC4 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,4|COPY,250 + END + END + + SECTION GRUPPI_LIVGIAC4 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "MAGAZZ" + PROMPT 2 1 "" + MESSAGE RESET,1@ + END + SECTION H_MAGAZZINO 1 1 1 GROUP + STRINGA 60 40 1 + BEGIN + KEY "codice magazzino" + PROMPT 2 1 "Magazzino " + FIELD 500@->s0 + MESSAGE COPY,150 + END + END + + SECTION GRUPPI_MAGAZZINO 1 0 0 FILE LF_MAG GROUP CODMAG[1,3] + SECTION H_DEPOSITO 1 0 0 GROUP + END + SECTION TOT_DEPOSITO 1 1 1 GROUP + STRINGA 51 12 + BEGIN + KEY "CODICE" + PROMPT 2 1 " Deposito" + END + STRINGA 52 30 + BEGIN + KEY "descr" + PROMPT 3 1 "" + FIELD 501@->s0 + END + STRINGA 53 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + FIELD LF_UMART->UM + MESSAGE COPY,153 + END + NUMERO 41 12 + BEGIN + KEY "ACQ" + PROMPT 6 1 "" + FIELD LF_MAG->ACQ + PICTURE "########,@#" + MESSAGE ADD,141 + GROUP FG_RIGAVALORI + END + NUMERO 42 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + FIELD LF_MAG->VALACQ + PICTURE "###.###.##@" + MESSAGE ADD,142 + GROUP FG_VALORI FG_RIGAVALORI + END + NUMERO 82 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,LF_MAG->VALACQ/LF_MAG->ACQ + GROUP FG_VALMEDI FG_RIGAVALORI + END + NUMERO 43 12 + BEGIN + KEY "VEN" + PROMPT 8 1 "" + FIELD LF_MAG->VEN + PICTURE "########,@#" + MESSAGE ADD,143 + GROUP FG_RIGAVALORI + END + NUMERO 44 12 + BEGIN + KEY "VALV" + PROMPT 9 1 "" + FIELD LF_MAG->VALVEN + PICTURE "###.###.##@" + MESSAGE ADD,144 + GROUP FG_VALORI FG_RIGAVALORI + END + NUMERO 84 12 + BEGIN + KEY "VALV" + PROMPT 9 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,LF_MAG->VALVEN/LF_MAG->VEN + GROUP FG_VALMEDI FG_RIGAVALORI + END + NUMERO 45 12 + BEGIN + KEY "RIM" + PROMPT 10 1 "" + FIELD LF_MAG->RIM + PICTURE "########,@#" + MESSAGE ADD,145 + GROUP FG_RIGAVALORI + END + NUMERO 46 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "###.###.##@" + FIELD LF_MAG->VALRIM + MESSAGE ADD,146 + GROUP FG_VALORI FG_RIGAVALORI + END + NUMERO 86 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,LF_MAG->VALRIM/LF_MAG->RIM + GROUP FG_VALMEDI FG_RIGAVALORI + END + NUMERO 47 12 + BEGIN + KEY "giac" + PROMPT 12 1 "-" + FIELD LF_MAG->GIAC + PICTURE "#######@,@#" + MESSAGE ADD,147 + GROUP FG_RIGAVALORI + END + NUMERO 48 12 + BEGIN + KEY "scorta-giac" + PROMPT 12 1 "" + PICTURE "#######@,@#" + MESSAGE _NUMEXPR,LF_MAG->SCORTAMIN-LF_MAG->GIAC|ADD,147 + GROUP FG_RIGAVALORI + END + NUMERO 49 12 + BEGIN + KEY "giac" + PROMPT 6 1 "" + FIELD LF_MAG->GIAC + PICTURE "#######@,@#" + MESSAGE ADD,141 + GROUP FG_RIGAPREZZI + END + END // depositi dello stesso magazzino + END // MAGAZZ + + SECTION TOT_MAGAZZINO 1 1 1 GROUP + STRINGA 150 30 2 + BEGIN + KEY "Magazzino" + PROMPT 3 1 "" + END + STRINGA 151 12 2 + BEGIN + KEY "Magazzino" + PROMPT 2 1 " Totale mag." + END + STRINGA 153 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + MESSAGE COPY,253 + END + NUMERO 141 12 + BEGIN + KEY "ACQ" + PROMPT 6 1 "" + PICTURE "########,@#" + MESSAGE ADD,241 + GROUP 1 + END + NUMERO 142 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + PICTURE "###.###.##@" + MESSAGE ADD,242 + GROUP 1 FG_VALORI + END + NUMERO 182 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#142/#141 + GROUP FG_VALMEDI + END + NUMERO 143 12 + BEGIN + KEY "ven" + PROMPT 8 1 "" + PICTURE "########,@#" + MESSAGE ADD,243 + GROUP 1 + END + NUMERO 144 12 + BEGIN + KEY "VALven" + PROMPT 9 1 "" + PICTURE "###.###.##@" + MESSAGE ADD,244 + GROUP 1 FG_VALORI + END + NUMERO 184 12 + BEGIN + KEY "VALven" + PROMPT 9 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#144/#143 + GROUP FG_VALMEDI + END + NUMERO 145 12 + BEGIN + KEY "rim" + PROMPT 10 1 "" + PICTURE "########,@#" + MESSAGE ADD,245 + GROUP 1 + END + NUMERO 146 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "###.###.##@" + MESSAGE ADD,246 + GROUP 1 FG_VALORI + END + NUMERO 186 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#146/#145 + GROUP FG_VALMEDI + END + NUMERO 147 12 + BEGIN + KEY "giac" + PROMPT 12 1 "" + PICTURE "########,@#" + MESSAGE ADD,247 + GROUP 1 + END + END // tot magazz + + END // GGIAC4 + SECTION TOT_GLIVGIAC4 1 2 2 GROUP + STRINGA 277 + BEGIN + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 250 35 2 + BEGIN + PROMPT 3 2 "" + END + STRINGA 251 7 2 + BEGIN + KEY "Livello giac4" + PROMPT 2 2 " Totale" + END + STRINGA 253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,353 + END + NUMERO 241 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,341 + GROUP 2 + END + NUMERO 242 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,342 + GROUP 2 FG_VALORI + END + NUMERO 282 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#242/#241 + GROUP FG_VALMEDI + END + + NUMERO 243 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,343 + GROUP 2 + END + NUMERO 244 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,344 + GROUP 2 FG_VALORI + END + NUMERO 284 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#244/#243 + GROUP FG_VALMEDI + END + + NUMERO 245 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,345 + GROUP 2 + END + NUMERO 246 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,346 + GROUP 2 FG_VALORI + END + NUMERO 286 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#246/#245 + GROUP FG_VALMEDI + END + + NUMERO 247 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,347 + GROUP 2 + END + END // tot ggiac4 + + END // GGIAC3 + SECTION TOT_GLIVGIAC3 1 2 2 GROUP + STRINGA 377 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 350 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 351 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,453 + END + NUMERO 341 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,441 + GROUP 3 + END + NUMERO 342 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,442 + GROUP 3 FG_VALORI + END + NUMERO 382 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#342/#341 + GROUP FG_VALMEDI + END + + NUMERO 343 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,443 + GROUP 3 + END + NUMERO 344 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,444 + GROUP 3 FG_VALORI + END + NUMERO 384 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#344/#343 + GROUP FG_VALMEDI + END + + NUMERO 345 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,445 + GROUP 3 + END + NUMERO 346 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,446 + GROUP 3 FG_VALORI + END + NUMERO 386 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#346/#345 + GROUP FG_VALMEDI + END + + NUMERO 347 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,447 + GROUP 3 + END + END // tot ggiac3 + + END // GGIAC2 + SECTION TOT_GLIVGIAC2 1 2 2 GROUP + STRINGA 477 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 450 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 451 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,553 + END + NUMERO 441 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,541 + GROUP 4 + END + NUMERO 442 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,542 + GROUP 4 FG_VALORI + END + NUMERO 482 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#442/#441 + GROUP FG_VALMEDI + END + + NUMERO 443 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,543 + GROUP 4 + END + NUMERO 444 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,544 + GROUP 4 FG_VALORI + END + NUMERO 484 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#444/#443 + GROUP FG_VALMEDI + END + + NUMERO 445 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,545 + GROUP 4 + END + NUMERO 446 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,546 + GROUP 4 FG_VALORI + END + NUMERO 486 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#446/#445 + GROUP FG_VALMEDI + END + NUMERO 447 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,547 + GROUP 4 + END + END // tot ggiac2 + END // GGIAC1 + SECTION TOT_GLIVGIAC1 1 2 2 GROUP + STRINGA 577 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 550 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 551 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,653 + END + NUMERO 541 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,641 + GROUP 5 + END + NUMERO 542 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,642 + GROUP 5 FG_VALORI + END + NUMERO 582 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#542/#541 + GROUP FG_VALMEDI + END + + NUMERO 543 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,643 + GROUP 5 + END + NUMERO 544 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,644 + GROUP 5 FG_VALORI + END + NUMERO 584 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#544/#543 + GROUP FG_VALMEDI + END + + NUMERO 545 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,645 + GROUP 5 + END + NUMERO 546 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,646 + GROUP 5 FG_VALORI + END + NUMERO 586 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#546/#545 + GROUP FG_VALMEDI + END + + NUMERO 547 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,647 + GROUP 5 + END + END // tot ggiac1 + + END // FILE GIACENZE + SECTION TOT_ARTICOLO 1 2 2 GROUP + STRINGA 677 + BEGIN + KEY "sep" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 650 30 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 651 12 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale art." + END + STRINGA 653 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,753 + END + NUMERO 641 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,741 + GROUP 6 + END + NUMERO 642 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,742 + GROUP 6 FG_VALORI FG_RIGAVALORI + END + NUMERO 682 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#642/#641 + GROUP FG_VALMEDI FG_RIGAVALORI + END + NUMERO 643 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,743 + GROUP 6 FG_RIGAVALORI + END + NUMERO 644 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,744 + GROUP 6 FG_VALORI FG_RIGAVALORI + END + NUMERO 684 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#644/#643 + GROUP FG_VALMEDI FG_RIGAVALORI + END + NUMERO 645 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,745 + GROUP 6 FG_RIGAVALORI + END + NUMERO 646 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,746 + GROUP 6 FG_VALORI FG_RIGAVALORI + END + NUMERO 686 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#646/#645 + GROUP FG_VALMEDI FG_RIGAVALORI + END + NUMERO 647 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,747 + GROUP 6 + GROUP FG_RIGAVALORI + END + NUMERO 648 12 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "###.###.###" + GROUP FG_RIGAPREZZI + END + NUMERO 649 12 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "###.###.###" + GROUP FG_RIGAPREZZI + END + END // TOT ART + + END // GART8 + SECTION TOT_GART8 1 2 2 GROUP + STRINGA 777 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 750 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 751 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 753 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,853 + END + NUMERO 741 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#741|ADD,841 + GROUP 7 + END + NUMERO 742 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,842 + GROUP 7 FG_VALORI + END + NUMERO 782 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#742/#741 + GROUP FG_VALMEDI + END + + NUMERO 743 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#743|ADD,843 + GROUP 7 + END + NUMERO 744 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,844 + GROUP 7 FG_VALORI + END + NUMERO 784 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#744/#743 + GROUP FG_VALMEDI + END + + NUMERO 745 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#745|ADD,845 + GROUP 7 + END + NUMERO 746 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,846 + GROUP 7 FG_VALORI + END + NUMERO 786 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#746/#745 + GROUP FG_VALMEDI + END + + NUMERO 747 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#747|ADD,847 + GROUP 7 + END + END // tot gart8 + + END // GART7 + SECTION TOT_GART7 1 2 2 GROUP + STRINGA 877 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 850 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 851 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 853 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,953 + END + NUMERO 841 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,941 + GROUP 8 + END + NUMERO 842 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,942 + GROUP 8 FG_VALORI + END + NUMERO 882 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#842/#841 + GROUP FG_VALMEDI + END + + NUMERO 843 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,943 + GROUP 8 + END + NUMERO 844 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,944 + GROUP 8 FG_VALORI + END + NUMERO 884 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#844/#843 + GROUP FG_VALMEDI + END + + NUMERO 845 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,945 + GROUP 8 + END + NUMERO 846 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,946 + GROUP 8 FG_VALORI + END + NUMERO 886 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#846/#845 + GROUP FG_VALMEDI + END + + NUMERO 847 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,947 + GROUP 8 + END + END // tot gart7 + + END // GART6 + SECTION TOT_GART6 1 2 2 GROUP + STRINGA 977 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 950 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 951 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 953 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1053 + END + NUMERO 941 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1041 + GROUP 9 + END + NUMERO 942 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1042 + GROUP 9 FG_VALORI + END + NUMERO 982 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#942/#941 + GROUP FG_VALMEDI + END + + NUMERO 943 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1043 + GROUP 9 + END + NUMERO 944 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1044 + GROUP 9 FG_VALORI + END + NUMERO 984 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#944/#943 + GROUP FG_VALMEDI + END + + NUMERO 945 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1045 + GROUP 9 + END + NUMERO 946 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1046 + GROUP 9 FG_VALORI + END + NUMERO 986 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#946/#945 + GROUP FG_VALMEDI + END + + NUMERO 947 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1047 + GROUP 9 + END + END // tot gart6 + + END // GART5 + SECTION TOT_GART5 1 2 2 GROUP + STRINGA 1077 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1050 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1051 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1053 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1153 + END + NUMERO 1041 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1141 + GROUP 10 + END + NUMERO 1042 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1142 + GROUP 10 FG_VALORI + END + NUMERO 1082 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1042/#1041 + GROUP FG_VALMEDI + END + NUMERO 1043 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1143 + GROUP 10 + END + NUMERO 1044 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1144 + GROUP 10 FG_VALORI + END + NUMERO 1084 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1044/#1043 + GROUP FG_VALMEDI + END + NUMERO 1045 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1145 + GROUP 10 + END + NUMERO 1046 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1146 + GROUP 10 FG_VALORI + END + NUMERO 1086 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1046/#1045 + GROUP FG_VALMEDI + END + NUMERO 1047 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1147 + GROUP 10 + END + END // tot gart5 + + END // GART4 + SECTION TOT_GART4 1 2 2 GROUP + STRINGA 1177 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1150 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1151 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1153 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1253 + END + NUMERO 1141 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1241 + GROUP 11 + END + NUMERO 1142 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1242 + GROUP 11 FG_VALORI + END + NUMERO 1182 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1142/#1141 + GROUP FG_VALMEDI + END + NUMERO 1143 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1243 + GROUP 11 + END + NUMERO 1144 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1244 + GROUP 11 FG_VALORI + END + NUMERO 1184 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1144/#1143 + GROUP FG_VALMEDI + END + NUMERO 1145 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1245 + GROUP 11 + END + NUMERO 1146 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1246 + GROUP 11 FG_VALORI + END + NUMERO 1186 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1146/#1145 + GROUP FG_VALMEDI + END + NUMERO 1147 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1247 + GROUP 11 + END + END // tot gart4 + + END // GART3 + SECTION TOT_GART3 1 2 2 GROUP + STRINGA 1277 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1250 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1251 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1353 + END + NUMERO 1241 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1341 + GROUP 12 + END + NUMERO 1242 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1342 + GROUP 12 FG_VALORI + END + NUMERO 1282 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1242/#1241 + GROUP FG_VALMEDI + END + NUMERO 1243 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1343 + GROUP 12 + END + NUMERO 1244 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1344 + GROUP 12 FG_VALORI + END + NUMERO 1284 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1244/#1243 + GROUP FG_VALMEDI + END + NUMERO 1245 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1345 + GROUP 12 + END + NUMERO 1246 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1346 + GROUP 12 FG_VALORI + END + NUMERO 1286 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1246/#1245 + GROUP FG_VALMEDI + END + NUMERO 1247 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1347 + GROUP 12 + END + END // tot gart3 + + END // GART2 + SECTION TOT_GART2 1 2 2 GROUP + STRINGA 1377 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1350 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1351 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1453 + END + NUMERO 1341 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1441 + GROUP 13 + END + NUMERO 1342 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1442 + GROUP 13 FG_VALORI + END + NUMERO 1382 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1342/#1341 + GROUP FG_VALMEDI + END + NUMERO 1343 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1443 + GROUP 13 + END + NUMERO 1344 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1444 + GROUP 13 FG_VALORI + END + NUMERO 1384 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1344/#1343 + GROUP FG_VALMEDI + END + NUMERO 1345 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1445 + GROUP 13 + END + NUMERO 1346 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1446 + GROUP 13 FG_VALORI + END + NUMERO 1386 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1346/#1345 + GROUP FG_VALMEDI + END + NUMERO 1347 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1447 + GROUP 13 + END + END // tot gart2 + + END // GART1 + SECTION TOT_GART1 1 2 2 GROUP + STRINGA 1477 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1450 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1451 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1553 + END + NUMERO 1441 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1541 + GROUP 14 + END + NUMERO 1442 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1542 + GROUP 14 FG_VALORI + END + NUMERO 1482 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1442/#1441 + GROUP FG_VALMEDI + END + NUMERO 1443 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1543 + GROUP 14 + END + NUMERO 1444 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1544 + GROUP 14 FG_VALORI + END + NUMERO 1484 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1444/#1443 + GROUP FG_VALMEDI + END + NUMERO 1445 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1545 + GROUP 14 + END + NUMERO 1446 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1546 + GROUP 14 FG_VALORI + END + NUMERO 1486 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1446/#1445 + GROUP FG_VALMEDI + END + NUMERO 1447 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1547 + GROUP 14 + END + END // tot gart1 + + END // GRUPPI_CATMER + SECTION TOT_CATMER 1 2 2 GROUP + STRINGA 1577 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1550 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1551 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + END + NUMERO 1541 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1542 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + GROUP 15 FG_VALORI + END + NUMERO 1582 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1542/#1541 + GROUP FG_VALMEDI + END + NUMERO 1543 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1544 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + GROUP 15 FG_VALORI + END + NUMERO 1584 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1544/#1543 + GROUP FG_VALMEDI + END + NUMERO 1545 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1546 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + GROUP 15 FG_VALORI + END + NUMERO 1586 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1546/#1545 + GROUP FG_VALMEDI + END + NUMERO 1547 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + GROUP 15 + END + END // tot catmerc + +END // section body, loop anamag + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "--------------" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END // fine footer + +END // fine form diff --git a/mg/mg3100b.frm b/mg/mg3100b.frm new file mode 100755 index 000000000..de3ad911c --- /dev/null +++ b/mg/mg3100b.frm @@ -0,0 +1,2185 @@ +#include "mg3frm.h" +USE 109 KEY 2 +JOIN 47 TO 109 INTO CODART==CODART +JOIN MAG TO 109 ALIAS 500 INTO CODTAB==CODMAG[1,3] +JOIN MAG TO 109 ALIAS 501 INTO CODTAB==CODMAG +JOIN 49 TO 47 INTO CODART==CODART +END + +DESCRIPTION +BEGIN + 47->* "Anagrafica articoli" + 109->* "Archivio Giacenze" + MAG->* "Tabella magazzini" + 49->* "Unitą di misura articoli" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 8 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 5 + +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 32 +BEGIN + KEY "Intestazione stampa" + PROMPT 45 2 "Stampa dati storici giacenze" +END + +STRINGA 5 146 +BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" +END + + LIST FF_PREZZIVALORI 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "H PREZZI O VALORI" + ITEM "V|Valori" + MESSAGE DISABLE,FG_RIGAPREZZI@|ENABLE,FG_RIGAVALORI@ + ITEM "P|Prezzi" + MESSAGE ENABLE,FG_RIGAPREZZI@|DISABLE,FG_RIGAVALORI@ + END + + LIST FF_FLAGGIAC 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "FLAG GIACENZA" + ITEM "0|0" + MESSAGE HIDE,14|DISABLE,BO->247 + ITEM "1|1" + MESSAGE SHOW,14|ENABLE,BO->247 + END + + LIST FF_FLAGSOTTOS 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "FLAG SOTTOSCORTA" + ITEM "0|0" + MESSAGE HIDE,15|DISABLE,BO->248 + ITEM "1|1" + MESSAGE SHOW,15|ENABLE,BO->248 + END + + STRINGA 6 20 + BEGIN + KEY "H1" + PROMPT 2 4 "Codice" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 24 4 "Descrizione" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 45 4 "UM" + END + STRINGA 8 12 + BEGIN + KEY "H1" + PROMPT 55 4 "Giac." + GROUP FG_RIGAPREZZI + END + STRINGA 8 12 + BEGIN + KEY "H1" + PROMPT 55 4 "Acq." + GROUP FG_RIGAVALORI + END + STRINGA 9 12 + BEGIN + KEY "H1" + PROMPT 68 4 "Ult.costo" + GROUP FG_RIGAPREZZI + END + STRINGA 9 12 + BEGIN + KEY "H1" + PROMPT 68 4 "Val.Acq." + GROUP FG_RIGAVALORI + END + STRINGA 10 12 + BEGIN + KEY "H1" + PROMPT 81 4 "Ven." + GROUP FG_RIGAVALORI + END + STRINGA 10 12 + BEGIN + KEY "H1" + PROMPT 81 4 "Prezzo" + GROUP FG_RIGAPREZZI + END + STRINGA 11 12 + BEGIN + KEY "H1" + PROMPT 94 4 "Val.Ven." + GROUP FG_RIGAVALORI + END + STRINGA 12 12 + BEGIN + KEY "H1" + PROMPT 107 4 "Rim." + GROUP FG_RIGAVALORI + END + STRINGA 13 12 + BEGIN + KEY "H1" + PROMPT 120 4 "Val.Rim." + GROUP FG_RIGAVALORI + END + STRINGA 14 12 + BEGIN + KEY "H1" + PROMPT 133 4 "Giac." + GROUP FG_RIGAVALORI + END + STRINGA 15 12 + BEGIN + KEY "H1" + PROMPT 131 4 "Scorta-Giac." + GROUP FG_RIGAVALORI + END + + STRINGA 17 146 + BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END + + +END + +SECTION BODY ODD 0 COLUMNWISE + + LIST FF_PREZZIVALORI 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "H PREZZI O VALORI" + ITEM "V|Valori" + MESSAGE DISABLE,FG_RIGAPREZZI@|ENABLE,FG_RIGAVALORI@ + ITEM "P|Prezzi" + MESSAGE ENABLE,FG_RIGAPREZZI@|DISABLE,FG_RIGAVALORI@ + END + + NUMBER FF_FLAGTOTQTA 1 + BEGIN + FLAG "H" + PROMPT 1 1 "" + END + + LIST FF_FLAGVALMEDI 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "FLAG VALORI MEDI" + ITEM "0|N" + MESSAGE SHOW,25@|DISABLE,26@ + ITEM "1|Y" + MESSAGE HIDE,25@|ENABLE,26@ + END + + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "MAGAZZ" + PROMPT 2 1 "" + MESSAGE RESET,1@ + END + SECTION H_MAGAZZINO 1 1 1 GROUP + STRINGA 60 40 1 + BEGIN + KEY "codice magazzino" + PROMPT 2 1 "Magazzino " + FIELD 500@->s0 + MESSAGE COPY,150 + END + END + + SECTION GRUPPI_MAGAZZINO 1 0 0 FILE 109 GROUP CODMAG[1,3] + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "dep" + PROMPT 2 1 "" + MESSAGE RESET,15@ + END + SECTION H_DEPOSITO 1 1 1 GROUP + STRINGA 60 40 1 + BEGIN + KEY "codice magazzino" + PROMPT 2 1 "Deposito " + FIELD 501@->s0 + MESSAGE COPY,50 + END + END + + SECTION GRUPPI_DEPOSITO 1 0 0 FILE 109 GROUP CODMAG[1,5] + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "gcodart1" + PROMPT 2 1 "" + MESSAGE RESET,14@ + END + SECTION H_GCODART1 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO1" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,1 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO1" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,1|COPY,1450 + END + END + + SECTION GRUPPI_CODART1 1 0 0 FILE 109 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "" + PROMPT 2 1 "" + MESSAGE RESET,13@ + END + SECTION H_GCODART2 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,2 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,2|COPY,1350 + END + END + + SECTION GRUPPI_CODART2 1 0 0 FILE 109 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,12@ + END + SECTION H_GCODART3 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,3 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,3|COPY,1250 + END + END + + SECTION GRUPPI_CODART3 1 0 0 FILE 109 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,11@ + END + SECTION H_GCODART4 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,4 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,4|COPY,1150 + END + END + + SECTION GRUPPI_CODART4 1 0 0 FILE 109 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,10@ + END + SECTION H_GCODART5 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,5 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,5|COPY,1050 + END + END + + SECTION GRUPPI_CODART5 1 0 0 FILE 109 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,9@ + END + SECTION H_GCODART6 1 1 2 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,6 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,6|COPY,950 + END + END + + SECTION GRUPPI_CODART6 1 0 0 FILE 109 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,8@ + END + SECTION H_GCODART7 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,7 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,7|COPY,850 + END + END + + SECTION GRUPPI_CODART7 1 0 0 FILE 109 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,7@ + END + + SECTION H_GCODART8 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,8 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,8|COPY,750 + END + END + + SECTION GRUPPI_CODART8 1 0 0 FILE 109 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,6@ + END + SECTION H_ARTICOLO 1 1 1 GROUP + STRINGA 20 12 2 + BEGIN + KEY "CODICE articolo" + PROMPT 2 1 "" + FIELD CODART + END + STRINGA 21 30 2 + BEGIN + KEY "DESCR.articolo" + PROMPT 3 1 "" + FIELD 47->DESCR + MESSAGE COPY,650 + END + NUMERO 22 12 + BEGIN + KEY "ULC" + FLAGS "H" + PROMPT 7 2 "" + FIELD LF_ANAMAG->ULTCOS1 + MESSAGE COPY,648 + END + NUMERO 23 12 + BEGIN + KEY "PREZZO" + FLAGS "H" + PROMPT 7 2 "" + MESSAGE _USER,PREZZO|COPY,649 + END + END + + SECTION ARTICOLO 1 0 0 FILE 109 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,5@ + END + SECTION H_GLIVGIAC1 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,1|COPY,550 + END + END + + SECTION GRUPPI_LIVGIAC1 1 0 0 FILE 109 GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,4@ + END + SECTION H_GLIVGIAC2 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,2|COPY,450 + END + END + + SECTION GRUPPI_LIVGIAC2 1 0 0 FILE 109 GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,3@ + END + + SECTION H_GLIVGIAC3 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,3|COPY,350 + END + END + + SECTION GRUPPI_LIVGIAC3 1 0 0 FILE 109 GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,2@ + END + + SECTION H_GLIVGIAC4 1 1 1 GROUP + END // GGIAC4 + SECTION TOT_GLIVGIAC4 1 2 2 GROUP + STRINGA 250 35 2 + BEGIN + PROMPT 3 2 "" + END + STRINGA 251 7 2 + BEGIN + KEY "Livello giac4" + PROMPT 2 2 " Totale" + END + STRINGA 253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + MESSAGE COPY,353 + END + + NUMERO 241 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,341 + FIELD 109->ACQ + GROUP 2 FG_RIGAVALORI + END + NUMERO 242 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,342 + FIELD 109->VALACQ + GROUP 2 FG_VALORI FG_RIGAVALORI + END + NUMERO 282 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#242/#241 + GROUP FG_VALMEDI FG_RIGAVALORI + END + + NUMERO 243 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,343 + FIELD 109->VEN + GROUP 2 FG_RIGAVALORI + END + NUMERO 244 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,344 + GROUP 2 FG_VALORI FG_RIGAVALORI + FIELD 109->VALVEN + END + NUMERO 284 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#244/#243 + GROUP FG_VALMEDI + END + + NUMERO 245 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,345 + FIELD 109->RIM + GROUP 2 FG_RIGAVALORI + END + NUMERO 246 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,346 + FIELD 109->VALRIM + GROUP 2 FG_VALORI FG_RIGAVALORI + END + NUMERO 286 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#246/#245 + GROUP FG_VALMEDI FG_RIGAVALORI + END + + NUMERO 247 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + FIELD 109->GIAC + MESSAGE ADD,347 + GROUP 2 FG_RIGAVALORI + END + NUMERO 248 12 + BEGIN + KEY "scorta-giac" + PROMPT 12 1 "" + PICTURE "#######@,@#" + MESSAGE _NUMEXPR,109->SCORTAMIN-109->GIAC|ADD,347 + GROUP 2 FG_RIGAVALORI + END + NUMERO 249 12 + BEGIN + KEY "giac" + PROMPT 6 2 "" + PICTURE "########,@#" + FIELD 109->GIAC + MESSAGE ADD,341 + GROUP 2 FG_RIGAPREZZI + END + END // tot ggiac4 + + END // GGIAC3 + SECTION TOT_GLIVGIAC3 1 2 2 GROUP + STRINGA 377 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 350 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 351 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,453 + END + NUMERO 341 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,441 + GROUP 3 + END + NUMERO 342 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,442 + GROUP 3 FG_VALORI + END + NUMERO 382 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#342/#341 + GROUP FG_VALMEDI + END + + NUMERO 343 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,443 + GROUP 3 + END + NUMERO 344 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,444 + GROUP 3 FG_VALORI + END + NUMERO 384 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#344/#343 + GROUP FG_VALMEDI + END + + NUMERO 345 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,445 + GROUP 3 + END + NUMERO 346 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,446 + GROUP 3 FG_VALORI + END + NUMERO 386 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#346/#345 + GROUP FG_VALMEDI + END + + NUMERO 347 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,447 + GROUP 3 + END + END // tot ggiac3 + + END // GGIAC2 + SECTION TOT_GLIVGIAC2 1 2 2 GROUP + STRINGA 477 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 450 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 451 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,553 + END + NUMERO 441 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,541 + GROUP 4 + END + NUMERO 442 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,542 + GROUP 4 FG_VALORI + END + NUMERO 482 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#442/#441 + GROUP FG_VALMEDI + END + + NUMERO 443 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,543 + GROUP 4 + END + NUMERO 444 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,544 + GROUP 4 FG_VALORI + END + NUMERO 484 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#444/#443 + GROUP FG_VALMEDI + END + + NUMERO 445 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,545 + GROUP 4 + END + NUMERO 446 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,546 + GROUP 4 FG_VALORI + END + NUMERO 486 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#446/#445 + GROUP FG_VALMEDI + END + + NUMERO 447 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,547 + GROUP 4 + END + END // tot ggiac2 + END // GGIAC1 + SECTION TOT_GLIVGIAC1 1 2 2 GROUP + STRINGA 577 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 550 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 551 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,653 + END + NUMERO 541 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,641 + GROUP 5 + END + NUMERO 542 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,642 + GROUP 5 FG_VALORI + END + NUMERO 582 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#542/#541 + GROUP FG_VALMEDI + END + + NUMERO 543 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,643 + GROUP 5 + END + NUMERO 544 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,644 + GROUP 5 FG_VALORI + END + NUMERO 584 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#544/#543 + GROUP FG_VALMEDI + END + + NUMERO 545 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,645 + GROUP 5 + END + NUMERO 546 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,646 + GROUP 5 FG_VALORI + END + NUMERO 586 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#546/#545 + GROUP FG_VALMEDI + END + + NUMERO 547 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,647 + GROUP 5 + END + END // tot ggiac1 + + END // FILE GIACENZE + SECTION TOT_ARTICOLO 1 2 2 GROUP + STRINGA 677 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 650 30 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 651 12 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale art." + END + STRINGA 653 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,753 + END + NUMERO 641 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,741 + GROUP 6 + END + NUMERO 642 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,742 + GROUP 6 FG_VALORI FG_RIGAVALORI + END + NUMERO 682 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#642/#641 + GROUP FG_VALMEDI FG_RIGAVALORI + END + NUMERO 643 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,743 + GROUP 6 FG_RIGAVALORI + END + NUMERO 644 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,744 + GROUP 6 FG_VALORI FG_RIGAVALORI + END + NUMERO 684 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#644/#643 + GROUP FG_VALMEDI FG_RIGAVALORI + END + NUMERO 645 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,745 + GROUP 6 FG_RIGAVALORI + END + NUMERO 646 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,746 + GROUP 6 FG_VALORI FG_RIGAVALORI + END + NUMERO 686 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#646/#645 + GROUP FG_VALMEDI FG_RIGAVALORI + END + + NUMERO 647 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,747 + GROUP 6 FG_RIGAVALORI + END + NUMERO 648 12 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "###.###.###" + GROUP 6 FG_RIGAPREZZI + END + NUMERO 649 12 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "###.###.###" + GROUP 6 FG_RIGAPREZZI + END + END // TOT ART + + END // GART8 + SECTION TOT_GART8 1 2 2 GROUP + STRINGA 777 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 750 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 751 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 753 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,853 + END + NUMERO 741 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#741|ADD,841 + GROUP 7 + END + NUMERO 742 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,842 + GROUP 7 FG_VALORI + END + NUMERO 782 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#742/#741 + GROUP FG_VALMEDI + END + + NUMERO 743 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#743|ADD,843 + GROUP 7 FG_RIGAVALORI + END + NUMERO 744 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,844 + GROUP 7 FG_VALORI + END + NUMERO 784 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#744/#743 + GROUP FG_VALMEDI + END + + NUMERO 745 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#745|ADD,845 + GROUP 7 + END + NUMERO 746 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,846 + GROUP 7 FG_VALORI + END + NUMERO 786 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#746/#745 + GROUP FG_VALMEDI + END + NUMERO 747 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#747|ADD,847 + GROUP 7 + END + + END // tot gart8 + + END // GART7 + SECTION TOT_GART7 1 2 2 GROUP + STRINGA 877 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 850 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 851 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 853 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,953 + END + NUMERO 841 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,941 + GROUP 8 + END + NUMERO 842 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,942 + GROUP 8 FG_VALORI + END + NUMERO 882 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#842/#841 + GROUP FG_VALMEDI + END + + NUMERO 843 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,943 + GROUP 8 + END + NUMERO 844 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,944 + GROUP 8 FG_VALORI + END + NUMERO 884 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#844/#843 + GROUP FG_VALMEDI + END + + NUMERO 845 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,945 + GROUP 8 + END + NUMERO 846 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,946 + GROUP 8 FG_VALORI + END + NUMERO 886 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#846/#845 + GROUP FG_VALMEDI + END + + NUMERO 847 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,947 + GROUP 8 + END + END // tot gart7 + + END // GART6 + SECTION TOT_GART6 1 2 2 GROUP + STRINGA 977 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 950 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 951 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 953 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1053 + END + NUMERO 941 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1041 + GROUP 9 + END + NUMERO 942 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1042 + GROUP 9 FG_VALORI + END + NUMERO 982 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#942/#941 + GROUP FG_VALMEDI + END + + NUMERO 943 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1043 + GROUP 9 + END + NUMERO 944 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1044 + GROUP 9 FG_VALORI + END + NUMERO 984 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#944/#943 + GROUP FG_VALMEDI + END + + NUMERO 945 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1045 + GROUP 9 + END + NUMERO 946 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1046 + GROUP 9 FG_VALORI + END + NUMERO 986 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#946/#945 + GROUP FG_VALMEDI + END + + NUMERO 947 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1047 + GROUP 9 + END + END // tot gart6 + + END // GART5 + SECTION TOT_GART5 1 2 2 GROUP + STRINGA 1077 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1050 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1051 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1053 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1153 + END + NUMERO 1041 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1141 + GROUP 10 + END + NUMERO 1042 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1142 + GROUP 10 FG_VALORI + END + NUMERO 1082 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1042/#1041 + GROUP FG_VALMEDI + END + NUMERO 1043 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1143 + GROUP 10 + END + NUMERO 1044 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1144 + GROUP 10 FG_VALORI + END + NUMERO 1084 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1044/#1043 + GROUP FG_VALMEDI + END + NUMERO 1045 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1145 + GROUP 10 + END + NUMERO 1046 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1146 + GROUP 10 FG_VALORI + END + NUMERO 1086 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1046/#1045 + GROUP FG_VALMEDI + END + NUMERO 1047 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1147 + GROUP 10 + END + END // tot gart5 + + END // GART4 + SECTION TOT_GART4 1 2 2 GROUP + STRINGA 1177 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1150 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1151 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1153 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1253 + END + NUMERO 1141 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1241 + GROUP 11 + END + NUMERO 1142 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1242 + GROUP 11 FG_VALORI + END + NUMERO 1182 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1142/#1141 + GROUP FG_VALMEDI + END + NUMERO 1143 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1243 + GROUP 11 + END + NUMERO 1144 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1244 + GROUP 11 FG_VALORI + END + NUMERO 1184 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1144/#1143 + GROUP FG_VALMEDI + END + NUMERO 1145 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1245 + GROUP 11 + END + NUMERO 1146 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1246 + GROUP 11 FG_VALORI + END + NUMERO 1186 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1146/#1145 + GROUP FG_VALMEDI + END + NUMERO 1147 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1247 + GROUP 11 + END + END // tot gart4 + + END // GART3 + SECTION TOT_GART3 1 2 2 GROUP + STRINGA 1277 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1250 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1251 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1353 + END + NUMERO 1241 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1341 + GROUP 12 + END + NUMERO 1242 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1342 + GROUP 12 FG_VALORI + END + NUMERO 1282 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1242/#1241 + GROUP FG_VALMEDI + END + NUMERO 1243 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1343 + GROUP 12 + END + NUMERO 1244 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1344 + GROUP 12 FG_VALORI + END + NUMERO 1284 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1244/#1243 + GROUP FG_VALMEDI + END + NUMERO 1245 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1345 + GROUP 12 + END + NUMERO 1246 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1346 + GROUP 12 FG_VALORI + END + NUMERO 1286 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1246/#1245 + GROUP FG_VALMEDI + END + NUMERO 1247 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1347 + GROUP 12 + END + END // tot gart3 + + END // GART2 + SECTION TOT_GART2 1 2 2 GROUP + STRINGA 1377 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1350 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1351 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1453 + END + NUMERO 1341 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1441 + GROUP 13 + END + NUMERO 1342 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1442 + GROUP 13 FG_VALORI + END + NUMERO 1382 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1342/#1341 + GROUP FG_VALMEDI + END + NUMERO 1343 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1443 + GROUP 13 + END + NUMERO 1344 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1444 + GROUP 13 FG_VALORI + END + NUMERO 1384 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1344/#1343 + GROUP FG_VALMEDI + END + NUMERO 1345 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1445 + GROUP 13 + END + NUMERO 1346 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,1446 + GROUP 13 FG_VALORI + END + NUMERO 1386 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1346/#1345 + GROUP FG_VALMEDI + END + NUMERO 1347 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1447 + GROUP 13 + END + END // tot gart2 + + END // GART1 + SECTION TOT_GART1 1 2 2 GROUP + STRINGA 1477 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1450 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1451 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,53 + END + NUMERO 1441 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,41 + GROUP 14 + END + NUMERO 1442 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,42 + GROUP 14 FG_VALORI + END + NUMERO 1482 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1442/#1441 + GROUP FG_VALMEDI + END + NUMERO 1443 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,43 + GROUP 14 + END + NUMERO 1444 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,44 + GROUP 14 FG_VALORI + END + NUMERO 1484 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1444/#1443 + GROUP FG_VALMEDI + END + NUMERO 1445 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,45 + GROUP 14 + END + NUMERO 1446 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,46 + GROUP 14 FG_VALORI + END + NUMERO 1486 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1446/#1445 + GROUP FG_VALMEDI + END + NUMERO 1447 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,47 + GROUP 14 + END + END // tot gart1 + + END // GRUPPI DEPOSITO + + SECTION TOT_DEPOSITO 1 1 1 GROUP + SECTION SEP_DEPOSITO 1 1 NORMAL GROUP + STRINGA 77 + BEGIN + KEY "giac" + PROMPT 52 1 "----------------------------------------------------------------------------------------------------" + END + END + STRINGA 51 12 + BEGIN + KEY "CODICE" + PROMPT 2 1 " Totale dep." + END + STRINGA 50 30 + BEGIN + KEY "descr" + PROMPT 3 1 "" + END + STRINGA 53 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + MESSAGE COPY,153 + END + NUMERO 41 12 + BEGIN + KEY "ACQ" + PROMPT 6 1 "" + PICTURE "########,@#" + MESSAGE ADD,141 + GROUP 15 + END + NUMERO 42 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + PICTURE "###.###.##@" + MESSAGE ADD,142 + GROUP 15 FG_VALORI + END + NUMERO 82 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,109->VALACQ/109->ACQ + GROUP 15 26 + END + NUMERO 43 12 + BEGIN + KEY "VEN" + PROMPT 8 1 "" + PICTURE "########,@#" + MESSAGE ADD,143 + GROUP 15 + END + NUMERO 44 12 + BEGIN + KEY "VALV" + PROMPT 9 1 "" + PICTURE "###.###.##@" + MESSAGE ADD,144 + GROUP 15 FG_VALORI + END + NUMERO 84 12 + BEGIN + KEY "VALV" + PROMPT 9 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,109->VALVEN/109->VEN + GROUP 15 26 + END + NUMERO 45 12 + BEGIN + KEY "RIM" + PROMPT 10 1 "" + PICTURE "########,@#" + MESSAGE ADD,145 + GROUP 15 + END + NUMERO 46 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "###.###.##@" + MESSAGE ADD,146 + GROUP 15 FG_VALORI + END + NUMERO 86 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,109->VALRIM/109->RIM + GROUP 15 26 + END + NUMERO 47 12 + BEGIN + KEY "giac" + PROMPT 12 1 "" + PICTURE "#######@,@#" + MESSAGE ADD,147 + GROUP 15 + END + END // tot depositi + END // MAGAZZ + + SECTION TOT_MAGAZZINO 1 1 1 GROUP + SECTION SEP_MAGAZZINO 1 1 1 NORMAL GROUP + STRINGA 77 + BEGIN + KEY "giac" + PROMPT 52 1 "----------------------------------------------------------------------------------------------------" + END + END + STRINGA 150 30 2 + BEGIN + KEY "Magazzino" + PROMPT 3 1 "" + END + STRINGA 151 12 2 + BEGIN + KEY "Magazzino" + PROMPT 2 1 " Totale mag." + END + STRINGA 153 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + END + NUMERO 141 12 + BEGIN + KEY "ACQ" + PROMPT 6 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 142 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + PICTURE "###.###.##@" + GROUP 1 FG_VALORI + END + NUMERO 182 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#142/#141 + GROUP FG_VALMEDI + END + NUMERO 143 12 + BEGIN + KEY "ven" + PROMPT 8 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 144 12 + BEGIN + KEY "VALven" + PROMPT 9 1 "" + PICTURE "###.###.##@" + GROUP 1 FG_VALORI + END + NUMERO 184 12 + BEGIN + KEY "VALven" + PROMPT 9 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#144/#143 + GROUP FG_VALMEDI + END + NUMERO 145 12 + BEGIN + KEY "rim" + PROMPT 10 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 146 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "###.###.##@" + GROUP 1 FG_VALORI + END + NUMERO 186 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#146/#145 + GROUP FG_VALMEDI + END + NUMERO 147 12 + BEGIN + KEY "giac" + PROMPT 12 1 "" + PICTURE "########,@#" + GROUP 1 + END + END // tot magazz + + +END // section body, loop anamag + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "--------------" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END // fine footer +END// fine form + diff --git a/mg/mg3100c.frm b/mg/mg3100c.frm new file mode 100755 index 000000000..39ce9d4f8 --- /dev/null +++ b/mg/mg3100c.frm @@ -0,0 +1,778 @@ +USE 109 KEY 2 +JOIN 47 TO 109 INTO CODART==CODART +JOIN MAG TO 109 ALIAS 500 INTO CODTAB==CODMAG[1,3] +JOIN MAG TO 109 ALIAS 501 INTO CODTAB==CODMAG +JOIN GMC TO 47 ALIAS 400 INTO CODTAB==GRMERC[1,3] +JOIN GMC TO 47 ALIAS 401 INTO CODTAB==GRMERC +JOIN 49 TO 47 INTO CODART==CODART +END + +DESCRIPTION +BEGIN + 47->* "Anagrafica articoli" + 109->* "Archivio Giacenze" + MAG->* "Tabella magazzini" + 49->* "Unitą di misura articoli" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 8 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 5 + +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 32 +BEGIN + KEY "Intestazione stampa" + PROMPT 45 2 "Stampa dati storici giacenze" +END + +STRINGA 5 146 +BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" +END + + LIST 666 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "FLAG GIACENZA" + ITEM "0|0" + MESSAGE HIDE,14|DISABLE,BO->47 + ITEM "1|1" + MESSAGE SHOW,14|ENABLE,BO->47 + END + + LIST 667 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "FLAG SOTTOSCORTA" + ITEM "0|0" + MESSAGE HIDE,15|DISABLE,BO->48 + ITEM "1|1" + MESSAGE SHOW,15|ENABLE,BO->48 + END + + STRINGA 6 20 + BEGIN + KEY "H1" + PROMPT 2 4 "Codice" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 24 4 "Descrizione" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 45 4 "UM" + END + STRINGA 8 12 + BEGIN + KEY "H1" + PROMPT 55 4 "Acq." + END + STRINGA 9 12 + BEGIN + KEY "H1" + PROMPT 68 4 "Val.Acq." + END + STRINGA 10 12 + BEGIN + KEY "H1" + PROMPT 81 4 "Ven." + END + STRINGA 11 12 + BEGIN + KEY "H1" + PROMPT 94 4 "Val.Ven." + END + STRINGA 12 12 + BEGIN + KEY "H1" + PROMPT 107 4 "Rim." + END + STRINGA 13 12 + BEGIN + KEY "H1" + PROMPT 120 4 "Val.Rim." + END + STRINGA 14 12 + BEGIN + KEY "H1" + PROMPT 133 4 "Giac." + END + STRINGA 15 12 + BEGIN + KEY "H1" + PROMPT 131 4 "Scorta-Giac." + END + + STRINGA 17 146 + BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END + + +END + +SECTION BODY ODD 0 COLUMNWISE + + LIST 555 1 + BEGIN + PROMPT 1 1 "" + FLAG "H" + KEY "FLAG VALORI MEDI" + ITEM "0|N" + MESSAGE SHOW,10@|DISABLE,11@ + ITEM "1|Y" + MESSAGE HIDE,10@|ENABLE,11@ + END + + SECTION HEADER_MAGAZZINO 1 1 1 GROUP + STRINGA 10 12 2 + BEGIN + KEY "magazzino" + PROMPT 2 1 "" + FIELD CODMAG[1,3] + END + + STRINGA 11 12 2 + BEGIN + KEY "magazzino" + PROMPT 3 1 "" + FIELD 500@->s0 + MESSAGE RESET,4@|COPY,450 + END + END + + SECTION GRUPPI_MAGAZZINO 1 1 0 FILE 109 GROUP CODMAG[1,3] + + SECTION HEADER_DEPOSITO 1 1 1 GROUP + STRINGA 21 8 1 + BEGIN + KEY "CODICE" + PROMPT 2 1 "Deposito" + END + STRINGA 22 34 1 + BEGIN + KEY "descr" + PROMPT 3 1 "" + FIELD 501@->s0 + MESSAGE RESET,3@|COPY,350 + END + END + + SECTION GRUPPI_DEPOSITO 1 0 0 FILE 109 GROUP CODMAG[4,5] + STRINGA 30 21 1 + BEGIN + FLAGS "H" + KEY "codice ARTICOLO" + PROMPT 2 1 " Articolo:" + FIELD 47->CODART + MESSAGE COPY,251 + END + STRINGA 31 21 1 + BEGIN + FLAGS "H" + KEY "codice ARTICOLO" + PROMPT 3 1 "" + FIELD 47->DESCR + MESSAGE RESET,2@|COPY,250 + END + SECTION GRUPPI_ARTICOLO 1 0 0 FILE 109 GROUP CODART + STRINGA 40 40 1 + BEGIN + FLAGS "H" + KEY "livgiac" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOGIAC|RESET,1@|COPY,150 + END + + SECTION GRUPPI_LIVELLO_GIACENZE 1 0 0 FILE 109 GROUP LIVELLO + SECTION RIGHE_LIVELLI 0 1 1 GROUP + STRINGA 51 5 2 + BEGIN + KEY "CODICE" + PROMPT 2 1 "" + END + STRINGA 52 37 2 + BEGIN + KEY "descr" + PROMPT 3 1 "" + MESSAGE _USER,LIVELLIGIAC + END + STRINGA 53 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + FIELD 49->UM + END + NUMERO 41 12 + BEGIN + KEY "ACQ" + PROMPT 6 1 "" + FIELD 109->ACQ + PICTURE "########,@#" + MESSAGE ADD,141 + END + NUMERO 42 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + FIELD 109->VALACQ + PICTURE "###.###.##@" + MESSAGE ADD,142 + GROUP 10 + END + NUMERO 82 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,109->VALACQ/109->ACQ + GROUP 11 + END + + NUMERO 43 12 + BEGIN + KEY "VEN" + PROMPT 8 1 "" + FIELD 109->VEN + PICTURE "########,@#" + MESSAGE ADD,143 + END + NUMERO 44 12 + BEGIN + KEY "VALV" + PROMPT 9 1 "" + FIELD 109->VALVEN + PICTURE "###.###.##@" + MESSAGE ADD,144 + GROUP 10 + END + NUMERO 84 12 + BEGIN + KEY "VALV" + PROMPT 9 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,109->VALVEN/109->VEN + GROUP 11 + END + + NUMERO 45 12 + BEGIN + KEY "RIM" + PROMPT 10 1 "" + FIELD 109->RIM + PICTURE "########,@#" + MESSAGE ADD,145 + END + NUMERO 46 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "###.###.##@" + FIELD 109->VALRIM + MESSAGE ADD,146 + GROUP 10 + END + NUMERO 86 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,109->VALRIM/109->RIM + GROUP 11 + END + + NUMERO 47 12 + BEGIN + KEY "giac" + PROMPT 12 1 "" + FIELD 109->GIAC + PICTURE "#######@,@#" + MESSAGE ADD,147 + END + NUMERO 48 12 + BEGIN + KEY "scorta-giac" + PROMPT 12 1 "" + PICTURE "#######@,@#" + MESSAGE _NUMEXPR,109->SCORTAMIN-109->GIAC|ADD,147 + END + END // SECTION GROUP LIVELLI + END // LOOP LIVELLI + + SECTION TOTALI_LIVELLO_GIAC 1 2 2 GROUP + STRINGA 777 + BEGIN + KEY "" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + + STRINGA 150 35 2 + BEGIN + KEY "LIVGIAC" + PROMPT 3 2 "" + END + STRINGA 151 7 2 + BEGIN + KEY "livgiac" + PROMPT 2 2 " Totale" + END + STRINGA 153 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + MESSAGE COPY,253 + END + + NUMERO 141 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,241 + GROUP 1 + END + NUMERO 142 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,242 + GROUP 1 10 + END + NUMERO 182 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#142/#141 + GROUP 11 + END + + NUMERO 143 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,243 + GROUP 1 + END + NUMERO 144 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,244 + GROUP 1 10 + END + NUMERO 184 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#144/#143 + GROUP 11 + END + + NUMERO 145 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,245 + GROUP 1 + END + NUMERO 146 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,246 + GROUP 1 10 + END + NUMERO 186 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#146/#145 + GROUP 11 + END + + NUMERO 147 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,247 + GROUP 1 + END + END + END // LOOP LIVELLI DI GIACENZA + SECTION TOTALI_ARTICOLO 1 1 1 GROUP + + STRINGA 250 21 1 + BEGIN + PROMPT 3 1 "" + END + STRINGA 251 21 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 " Articolo " + END + STRINGA 253 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + MESSAGE COPY,353 + END + + NUMERO 241 12 + BEGIN + KEY "ACQ" + PROMPT 6 1 "" + PICTURE "########,@#" + MESSAGE ADD,341 + GROUP 2 + END + NUMERO 242 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + PICTURE "###.###.##@" + MESSAGE ADD,342 + GROUP 2 10 + END + NUMERO 282 12 + BEGIN + KEY "VALACQ" + PROMPT 7 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#242/#241 + GROUP 11 + END + + NUMERO 243 12 + BEGIN + KEY "ven" + PROMPT 8 1 "" + PICTURE "########,@#" + MESSAGE ADD,343 + GROUP 2 + END + NUMERO 244 12 + BEGIN + KEY "VALven" + PROMPT 9 1 "" + PICTURE "###.###.##@" + MESSAGE ADD,344 + GROUP 2 10 + END + NUMERO 284 12 + BEGIN + KEY "VALven" + PROMPT 9 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#244/#243 + GROUP 11 + END + + NUMERO 245 12 + BEGIN + KEY "rim" + PROMPT 10 1 "" + PICTURE "########,@#" + MESSAGE ADD,345 + GROUP 2 + END + NUMERO 246 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "###.###.##@" + MESSAGE ADD,346 + GROUP 2 10 + END + NUMERO 286 12 + BEGIN + KEY "VALrim" + PROMPT 11 1 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#246/#245 + GROUP 11 + END + + NUMERO 247 12 + BEGIN + KEY "giac" + PROMPT 12 1 "" + PICTURE "########,@#" + MESSAGE ADD,347 + GROUP 2 + END + END // SECTION TOTALI + + END // LOOP GIAC + + SECTION TOTALI_DEPOSITO 1 3 3 GROUP + STRINGA 777 + BEGIN + KEY "giac" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 350 30 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 351 12 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale dep." + END + STRINGA 353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,453 + END + NUMERO 341 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,441 + GROUP 3 + END + NUMERO 342 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,442 + GROUP 3 10 + END + NUMERO 382 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#342/#341 + GROUP 11 + END + + NUMERO 343 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,443 + GROUP 3 + END + NUMERO 344 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,444 + GROUP 3 10 + END + NUMERO 384 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#344/#343 + GROUP 11 + END + + NUMERO 345 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,445 + GROUP 3 + END + NUMERO 346 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + MESSAGE ADD,446 + GROUP 3 10 + END + NUMERO 386 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#346/#345 + GROUP 11 + END + + NUMERO 347 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,447 + GROUP 3 + END + END // SECTION TOTALI + + END // loop ragg codice o catmerc + SECTION TOTALI_MAGAZZINO 1 3 3 GROUP + STRINGA 777 + BEGIN + KEY "" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 451 20 2 + BEGIN + KEY "" + PROMPT 2 2 " TOTALE MAG." + END + STRINGA 450 22 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + END + NUMERO 441 12 + BEGIN + KEY "ACQ" + PROMPT 6 2 "" + PICTURE "########,@#" + GROUP 4 + END + NUMERO 442 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "###.###.##@" + GROUP 4 10 + END + NUMERO 482 12 + BEGIN + KEY "VALACQ" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#442/#441 + GROUP 11 + END + + NUMERO 443 12 + BEGIN + KEY "ven" + PROMPT 8 2 "" + PICTURE "########,@#" + GROUP 4 + END + NUMERO 444 12 + BEGIN + KEY "VALven" + PROMPT 9 2 "" + PICTURE "###.###.##@" + GROUP 4 10 + END + NUMERO 484 12 + BEGIN + KEY "VALVEN medio" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#444/#443 + GROUP 11 + END + + NUMERO 445 12 + BEGIN + KEY "rim" + PROMPT 10 2 "" + PICTURE "########,@#" + GROUP 4 + END + NUMERO 446 12 + BEGIN + KEY "VALrim" + PROMPT 11 2 "" + PICTURE "###.###.##@" + GROUP 4 10 + END + NUMERO 486 12 + BEGIN + KEY "VALrim medio" + PROMPT 11 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#446/#445 + GROUP 11 + END + + NUMERO 447 12 + BEGIN + KEY "giac" + PROMPT 12 2 "" + PICTURE "########,@#" + GROUP 4 + END + END // SECTION TOTALI +END // section body, loop anamag + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "--------------" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END // fine footer +END// fine form + diff --git a/mg/mg3200.cpp b/mg/mg3200.cpp new file mode 100755 index 000000000..27c622c0b --- /dev/null +++ b/mg/mg3200.cpp @@ -0,0 +1,275 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include "mglib03.h" +#include "mg3200.h" +#include "mg3frm.h" + +class TStampadisp_mask: public TMask +{ + static bool handle_ragg(TMask_field &fld, KEY k); // handler + static bool handle_liv(TMask_field &fld, KEY k); // handler + static bool handle_subord(TMask_field &fld, KEY k); // handler +public: + TStampadisp_mask(); + ~TStampadisp_mask(){}; +}; +TStampadisp_mask::TStampadisp_mask(): + TMask("mg3200") +{ + TMag_livelli giaclev("FCA"),artlev("FCG"); + + set_handler(F_TOLIVELLOART, handle_liv); + set_handler(F_TOLIVELLOGIAC, handle_liv); + set_handler(F_ORDINE, handle_ragg); + set_handler(F_DETTAGLIODEP, handle_ragg); + set_handler(F_DETTAGLIOMAG, handle_ragg); + set_handler(F_ORDINEART,handle_subord); + if (!artlev.enabled()) { + TMask_field &f1=field(F_RAGGCODICE); + f1.reset(); f1.check();f1.hide(); + } + if (!giaclev.enabled()) { + TMask_field &f2=field(F_RAGGLIVGIAC); + f2.reset(); f2.check();f2.hide(); + } +} + +bool TStampadisp_mask::handle_subord(TMask_field &fld, KEY k) +{ + if (k == K_SPACE) + { + TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); + TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); + switch (fld.get()[1]) { + case 'C': + if (fld.mask().get(F_ORDINE)=="A") + fraggcod.enable(); + else { + if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) + { + fraggcod.reset(); fraggcod.disable(); + fragggiac.reset(); fragggiac.disable(); + fraggcod.do_message(0);fragggiac.do_message(0); + } + } + break; + case 'M': + case 'D': + fraggcod.reset(); fraggcod.check();fraggcod.disable(); + break; + } + } + return TRUE; +} + +bool TStampadisp_mask::handle_liv(TMask_field &fld, KEY k) +{ + if (k == K_TAB) + { + TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); + TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG); + if (fld.mask().get(F_ORDINE)=="A") + { + if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC)) + { + // raggruppamenti prima del dettaglio magazzini + ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0); + } else { + ftotmag.enable(); + } + } + } + return TRUE; +} + +bool TStampadisp_mask::handle_ragg(TMask_field &fld, KEY k) +{ + if (k == K_SPACE) + { + TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); + TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); + TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); + if (fld.mask().get(F_ORDINE)=="M") + { + ftotmag.enable(); + if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) + { + fraggcod.reset(); fraggcod.disable(); + fragggiac.reset(); fragggiac.disable(); + fraggcod.do_message(0);fragggiac.do_message(0); + return TRUE; + } + } + fraggcod.enable(); + fragggiac.enable(); + } + return TRUE; +} + + +// mg3200 Stampa +class TStampa_disp : public TPrint_application +{ + TArray * _files; + TStampadisp_mask * _mask; + TCursor * _cur; + TForm_stampemg * _form; // to be moved into TPrint_application + +protected: + virtual bool print_one(int file) + {return TRUE;} + virtual bool user_create(); + virtual bool user_destroy(); + virtual bool set_print(int i=1); + virtual void set_page(int file,int count) + { } + void setprint_permagazzini(); + void setprint_perarticoli(); + +public: + TStampa_disp() {} +}; + + +bool TStampa_disp::user_create() +{ + _mask = new TStampadisp_mask; + _files = new TArray(); + _files->add(new TLocalisamfile(LF_MAG)); + return TRUE; +} + +bool TStampa_disp::user_destroy() +{ + delete _mask; + delete _files; + return TRUE; +} + + +void TStampa_disp::setprint_permagazzini() +{ + char subordine=*_mask->get(F_ORDINEART); + TRectype darec(LF_MAG),arec(LF_MAG); + TString cfilter,sortexp,joinexp; + _form = new TForm_stampemg("mg3200b", ""); + _cur = _form->cursor(); + // setta il filtro sul cursore + if (*_mask->get(F_DAART)) + cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ; + if (*_mask->get(F_AART)) + cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ; + if (cfilter.not_empty()) + cfilter.cut(cfilter.len()-2); + + // abilita/disabilita le sezioni dei totali + bool showdett; + showdett=_mask->get_bool(F_DETTAGLIODEP); + _form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),_mask->get_int(F_TOLIVELLOART),_mask->get_int(F_FROMLIVELLOGIAC),_mask->get_int(F_TOLIVELLOGIAC),_mask->get_bool(F_TOTALIMAGAZZINI),_mask->get_bool(F_TOTALIDEPOSITI),showdett); + + darec.put("ANNOES",_mask->get(F_ANNOES)); + darec.put("CODMAG",_mask->get(F_DAMAG)); + arec.put("ANNOES",_mask->get(F_ANNOES)); + arec.put("CODMAG",_mask->get(F_AMAG)); + _cur->setfilter(cfilter); + _cur->setregion(darec,arec); +} + +// ORDINAMENTO +void TStampa_disp::setprint_perarticoli() +{ + TRectype darec(LF_ANAMAG),arec(LF_ANAMAG); + TString cfilter,filter,joinexp; + TString sortexp("ANNOES|CODART|LIVELLO|CODMAG"); + + char subordine=*_mask->get(F_ORDINEART); + _form = new TForm_stampemg("mg3200a", ""); + _cur = _form->cursor(); + if (*_mask->get(F_DAMAG)) + filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ; + if (*_mask->get(F_AMAG)) + filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ; + if (filter.not_empty()) + filter.cut(filter.len()-2); + switch (subordine) + { + case 'C': + _cur->setkey(1); + darec.put("CODART",_mask->get(F_DAART)); + arec.put("CODART",_mask->get(F_AART)); + _form->find_field('B',odd_page,"H_CATMER").hide(); + _form->find_field('B',odd_page,"TOT_CATMER").hide(); + _form->setcatmer(FALSE); + break; + case 'D': + _cur->setkey(2); + darec.put("DESCR",_mask->get(F_DADES)); + arec.put("DESCR",_mask->get(F_ADES)); + _form->find_field('B',odd_page,"H_CATMER").disable(); + _form->find_field('B',odd_page,"TOT_CATMER").hide(); + _form->setcatmer(FALSE); + break; + case 'M': + _cur->setkey(3); + darec.put("GRMERC",_mask->get(F_DACATMER)); + darec.put("CODART",_mask->get(F_DAART)); + arec.put("GRMERC",_mask->get(F_ACATMER)); + arec.put("CODART",_mask->get(F_AART)); + _form->find_field('B',odd_page,"H_CATMER").show(); + _form->find_field('B',odd_page,"TOT_CATMER").show(); + _form->setcatmer(TRUE); + break; + } + _form->setdett_perart( + _mask->get_int(F_FROMLIVELLOART), + _mask->get_int(F_TOLIVELLOART), + _mask->get_int(F_FROMLIVELLOGIAC), + _mask->get_int(F_TOLIVELLOGIAC), + _mask->get_bool(F_TOTALIMAGAZZINI), + _mask->get_bool(F_TOTALIDEPOSITI)); + + + joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART"; + + TSortedfile *mag; + mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1); + _cur->relation()->replace(mag,1,joinexp); + _cur->setfilter(cfilter); + _cur->setregion(darec,arec); +} + + +bool TStampa_disp::set_print(int i) +{ + while (TRUE) { + if (_mask->run() != K_ENTER) + return FALSE; + + if (*_mask->get(F_ORDINE)=='A') + { + setprint_perarticoli(); + } else { + setprint_permagazzini(); + } + _form->print(); + delete _form; + } // while true + return TRUE; +} + + +int mg3200(int argc, char* argv[]) +{ + TStampa_disp a;// derivata da Application e con uso di form + a.run(argc,argv,"Stampa disponibilitą"); + return 0; +} diff --git a/mg/mg3200.frm b/mg/mg3200.frm new file mode 100755 index 000000000..1899e4920 --- /dev/null +++ b/mg/mg3200.frm @@ -0,0 +1,1908 @@ +USE 47 KEY 1 +SORT 109 BY ANNOES CODART LIVELLO CODMAG + JOIN TO 47 INTO ANNOES==1996 CODART==CODART +JOIN MAG TO 109 ALIAS 500 INTO CODTAB==CODMAG[1,3] +JOIN MAG TO 109 ALIAS 501 INTO CODTAB==CODMAG +JOIN GMC TO 47 ALIAS 400 INTO CODTAB==GRMERC[1,3] +JOIN GMC TO 47 ALIAS 401 INTO CODTAB==GRMERC +JOIN 49 TO 47 INTO CODART==CODART +END + +DESCRIPTION +BEGIN + 47->* "Anagrafica articoli" + 109->* "Archivio Giacenze" + MAG->* "Tabella magazzini" + 49->* "Unitą di misura articoli" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 8 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 5 + +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 32 +BEGIN + KEY "Intestazione stampa" + PROMPT 55 2 "Stampa disponibilita'" +END + +STRINGA 5 146 +BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" +END + + STRINGA 6 20 + BEGIN + KEY "H1" + PROMPT 2 4 "Codice" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 24 4 "Descrizione" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 45 4 "UM" + END + STRINGA 8 12 + BEGIN + KEY "H1" + PROMPT 55 4 "Giac." + END + STRINGA 9 12 + BEGIN + KEY "H1" + PROMPT 67 4 "Ord.F." + END + STRINGA 10 12 + BEGIN + KEY "H1" + PROMPT 79 4 "Ord.C." + END + STRINGA 11 12 + BEGIN + KEY "H1" + PROMPT 91 4 "A c.lav." + END + STRINGA 12 12 + BEGIN + KEY "H1" + PROMPT 103 4 "In c.lav." + END + STRINGA 13 12 + BEGIN + KEY "H1" + PROMPT 116 4 "Prod.F." + END + STRINGA 14 12 + BEGIN + KEY "H1" + PROMPT 128 4 "Prod.C." + END + STRINGA 15 12 + BEGIN + KEY "H1" + PROMPT 139 4 "Disp." + END + + STRINGA 17 146 + BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END + +END + +SECTION BODY ODD 0 COLUMNWISE + + SECTION H_CATMER 1 1 2 GROUP + STRINGA 11 12 2 + BEGIN + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE _USER,CODCATMER + END + STRINGA 12 30 2 + BEGIN + KEY "CODICE CATMER" + PROMPT 3 1 "" + MESSAGE _USER,CATMER|COPY,1550 + END + END + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,15@ + END + + SECTION GRUPPI_CATMER 1 0 1 FILE 47 GROUP GRMERC + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,14@ + END + SECTION H_GCODART1 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,1 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,1|COPY,1450 + END + END + + SECTION GRUPPI_CODART1 1 0 0 FILE 47 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,13@ + END + SECTION H_GCODART2 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,2 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,2|COPY,1350 + END + END + + SECTION GRUPPI_CODART2 1 0 0 FILE 47 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,12@ + END + SECTION H_GCODART3 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,3 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,3|COPY,1250 + END + END + + SECTION GRUPPI_CODART3 1 0 0 FILE 47 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,11@ + END + SECTION H_GCODART4 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,4 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,4|COPY,1150 + END + END + + SECTION GRUPPI_CODART4 1 0 0 FILE 47 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,10@ + END + SECTION H_GCODART5 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,5 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,5|COPY,1050 + END + END + + SECTION GRUPPI_CODART5 1 0 0 FILE 47 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,9@ + END + SECTION H_GCODART6 1 1 2 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,6 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,6|COPY,950 + END + END + + SECTION GRUPPI_CODART6 1 0 0 FILE 47 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,8@ + END + SECTION H_GCODART7 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,7 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,7|COPY,850 + END + END + + SECTION GRUPPI_CODART7 1 0 0 FILE 47 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,7@ + END + + SECTION H_GCODART8 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,8 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,8|COPY,750 + END + END + + SECTION GRUPPI_CODART8 1 0 0 FILE 47 GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,6@ + END + SECTION H_ARTICOLO 1 1 1 GROUP + STRINGA 2020 12 2 + BEGIN + KEY "CODICE articolo" + PROMPT 2 1 "" + FIELD CODART + END + STRINGA 21 30 2 + BEGIN + KEY "DESCR.articolo" + PROMPT 3 1 "" + FIELD 47->DESCR + MESSAGE COPY,650 + END + END + + SECTION FILE_GIACENZE 1 1 0 FILE 109 + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,5@ + END + SECTION H_GLIVGIAC1 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,1|COPY,550 + END + END + + SECTION GRUPPI_LIVGIAC1 1 0 0 FILE 109 GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,4@ + END + SECTION H_GLIVGIAC2 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,2|COPY,450 + END + END + + SECTION GRUPPI_LIVGIAC2 1 0 0 FILE 109 GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,3@ + END + + SECTION H_GLIVGIAC3 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,3|COPY,350 + END + END + + SECTION GRUPPI_LIVGIAC3 1 0 0 FILE 109 GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,2@ + END + + SECTION H_GLIVGIAC4 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,4|COPY,250 + END + END + + SECTION GRUPPI_LIVGIAC4 1 0 0 FILE 109 GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "MAGAZZ" + PROMPT 2 1 "" + MESSAGE RESET,1@ + END + SECTION H_MAGAZZINO 1 1 1 GROUP + STRINGA 60 40 1 + BEGIN + KEY "codice magazzino" + PROMPT 2 1 "Magazzino " + FIELD 500@->s0 + MESSAGE COPY,150 + END + END + + SECTION GRUPPI_MAGAZZINO 1 0 0 FILE 109 GROUP CODMAG[1,3] + SECTION H_DEPOSITO 1 0 0 GROUP + END + SECTION TOT_DEPOSITO 1 1 1 GROUP + STRINGA 51 12 + BEGIN + KEY "CODICE" + PROMPT 2 1 " Deposito" + END + STRINGA 52 30 + BEGIN + KEY "descr" + PROMPT 3 1 "" + FIELD 501@->s0 + END + STRINGA 53 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + FIELD 49->UM + END + NUMERO 41 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + FIELD 109->giac + PICTURE "########,@#" + MESSAGE ADD,141 + END + NUMERO 42 11 + BEGIN + KEY "ORDF" + PROMPT 7 1 "" + FIELD 109->ordf + PICTURE "########,@#" + MESSAGE ADD,142 + GROUP 10 + END + + NUMERO 43 11 + BEGIN + KEY "ORDC" + PROMPT 8 1 "" + FIELD 109->ordc + PICTURE "########,@#" + MESSAGE ADD,143 + END + NUMERO 44 11 + BEGIN + KEY "ACL" + PROMPT 9 1 "" + FIELD 109->acl + PICTURE "########,@#" + MESSAGE ADD,144 + GROUP 10 + END + + NUMERO 45 11 + BEGIN + KEY "INCL" + PROMPT 10 1 "" + FIELD 109->incl + PICTURE "########,@#" + MESSAGE ADD,145 + END + NUMERO 46 11 + BEGIN + KEY "PRODFIN" + PROMPT 11 1 "" + PICTURE "########,@#" + FIELD 109->prodfin + MESSAGE ADD,146 + GROUP 10 + END + + NUMERO 47 11 + BEGIN + KEY "PRODCOMP" + PROMPT 12 1 "" + PICTURE "########,@#" + FIELD 109->prodcomp + MESSAGE ADD,147 + END + NUMERO 48 11 + BEGIN + KEY "DISPONIBILITA'" + PROMPT 13 1 "" + PICTURE "#######@,@#" + MESSAGE _NUMEXPR,109->giac+109->ORDF-109->ORDC+109->ACL-109->INCL+109->PRODFIN-109->PRODCOMP|ADD,148 + END + END // depositi dello stesso magazzino + END // MAGAZZ + + SECTION TOT_MAGAZZINO 1 1 1 GROUP + STRINGA 150 30 1 + BEGIN + KEY "Magazzino" + PROMPT 3 1 "" + END + STRINGA 151 12 1 + BEGIN + KEY "Magazzino" + PROMPT 2 1 " Totale mag." + END + STRINGA 153 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + FIELD 49->UM + END + NUMERO 141 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + PICTURE "########,@#" + MESSAGE ADD,241 + GROUP 1 + END + NUMERO 142 11 + BEGIN + KEY "ORDF" + PROMPT 7 1 "" + PICTURE "########,@#" + MESSAGE ADD,242 + GROUP 1 25 + END + NUMERO 143 11 + BEGIN + KEY "ORDC" + PROMPT 8 1 "" + PICTURE "########,@#" + MESSAGE ADD,243 + GROUP 1 + END + NUMERO 144 11 + BEGIN + KEY "ACL" + PROMPT 9 1 "" + PICTURE "########,@#" + MESSAGE ADD,244 + GROUP 1 25 + END + NUMERO 145 11 + BEGIN + KEY "INCL" + PROMPT 10 1 "" + PICTURE "########,@#" + MESSAGE ADD,245 + GROUP 1 + END + NUMERO 146 11 + BEGIN + KEY "PRODF" + PROMPT 11 1 "" + PICTURE "########,@#" + MESSAGE ADD,246 + GROUP 1 25 + END + NUMERO 147 11 + BEGIN + KEY "PRODC" + PROMPT 12 1 "" + PICTURE "########,@#" + MESSAGE ADD,247 + GROUP 1 + END + NUMERO 148 11 + BEGIN + KEY "DISP" + PROMPT 13 1 "" + PICTURE "########,@#" + MESSAGE ADD,248 + GROUP 1 + END + END // tot magazz + + END // GGIAC4 + SECTION TOT_GLIVGIAC4 1 2 2 GROUP + STRINGA 277 + BEGIN + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 250 35 2 + BEGIN + PROMPT 3 2 "" + END + STRINGA 251 7 2 + BEGIN + KEY "Livello giac4" + PROMPT 2 2 " Totale" + END + STRINGA 253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 241 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,341 + GROUP 2 + END + NUMERO 242 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,342 + GROUP 2 25 + END + NUMERO 243 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,343 + GROUP 2 + END + NUMERO 244 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,344 + GROUP 2 25 + END + NUMERO 245 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,345 + GROUP 2 + END + NUMERO 246 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,346 + GROUP 2 25 + END + NUMERO 247 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,347 + GROUP 2 + END + NUMERO 248 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,348 + GROUP 2 + END + END // tot ggiac4 + + END // GGIAC3 + SECTION TOT_GLIVGIAC3 1 2 2 GROUP + STRINGA 377 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 350 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 351 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + MESSAGE COPY,453 + END + NUMERO 341 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,441 + GROUP 3 + END + NUMERO 342 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,442 + GROUP 3 25 + END + NUMERO 343 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,443 + GROUP 3 + END + NUMERO 344 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,444 + GROUP 3 25 + END + NUMERO 345 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,445 + GROUP 3 + END + NUMERO 346 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,446 + GROUP 3 25 + END + NUMERO 347 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,447 + GROUP 3 + END + NUMERO 348 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,448 + GROUP 3 + END + END // tot ggiac3 + + END // GGIAC2 + SECTION TOT_GLIVGIAC2 1 2 2 GROUP + STRINGA 477 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 450 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 451 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 441 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,541 + GROUP 4 + END + NUMERO 442 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,542 + GROUP 4 25 + END + NUMERO 443 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,543 + GROUP 4 + END + NUMERO 444 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,544 + GROUP 4 25 + END + NUMERO 445 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,545 + GROUP 4 + END + NUMERO 446 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,546 + GROUP 4 25 + END + NUMERO 447 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,547 + GROUP 4 + END + NUMERO 448 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,548 + GROUP 4 + END + END // tot ggiac2 + END // GGIAC1 + SECTION TOT_GLIVGIAC1 1 2 2 GROUP + STRINGA 577 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 550 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 551 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 541 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,641 + GROUP 5 + END + NUMERO 542 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,642 + GROUP 5 25 + END + NUMERO 543 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,643 + GROUP 5 + END + NUMERO 544 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,644 + GROUP 5 25 + END + NUMERO 545 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,645 + GROUP 5 + END + NUMERO 546 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,646 + GROUP 5 25 + END + NUMERO 547 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,647 + GROUP 5 + END + NUMERO 548 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,648 + GROUP 5 + END + END // tot ggiac1 + + END // FILE GIACENZE + SECTION TOT_ARTICOLO 1 2 2 GROUP + STRINGA 677 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 650 30 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 651 12 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale art." + END + STRINGA 653 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 641 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,741 + GROUP 6 + END + NUMERO 642 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,742 + GROUP 6 25 + END + NUMERO 682 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#642/#641 + GROUP 26 + END + + NUMERO 643 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,743 + GROUP 6 + END + NUMERO 644 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,744 + GROUP 6 25 + END + NUMERO 684 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#644/#643 + GROUP 26 + END + + NUMERO 645 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,745 + GROUP 6 + END + NUMERO 646 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,746 + GROUP 6 25 + END + NUMERO 647 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,747 + GROUP 6 + END + NUMERO 648 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,748 + GROUP 6 + END + END // TOT ART + + END // GART8 + SECTION TOT_GART8 1 2 2 GROUP + STRINGA 777 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 750 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 751 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 753 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 741 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,841 + GROUP 7 + END + NUMERO 742 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,842 + GROUP 7 25 + END + NUMERO 743 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,843 + GROUP 7 + END + NUMERO 744 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,844 + GROUP 7 25 + END + NUMERO 745 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,845 + GROUP 7 + END + NUMERO 746 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,846 + GROUP 7 25 + END + NUMERO 747 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,847 + GROUP 7 + END + NUMERO 748 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,848 + GROUP 7 + END + END // tot gart8 + + END // GART7 + SECTION TOT_GART7 1 2 2 GROUP + STRINGA 877 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 850 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 851 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 853 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 841 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,941 + GROUP 8 + END + NUMERO 842 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,942 + GROUP 8 25 + END + NUMERO 843 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,943 + GROUP 8 + END + NUMERO 844 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,944 + GROUP 8 25 + END + NUMERO 845 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,945 + GROUP 8 + END + NUMERO 846 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,946 + GROUP 8 25 + END + NUMERO 847 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,947 + GROUP 8 + END + NUMERO 848 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,948 + GROUP 8 + END + END // tot gart7 + + END // GART6 + SECTION TOT_GART6 1 2 2 GROUP + STRINGA 977 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 950 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 951 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 953 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 941 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1041 + GROUP 9 + END + NUMERO 942 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1042 + GROUP 9 25 + END + NUMERO 943 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1043 + GROUP 9 + END + NUMERO 944 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1044 + GROUP 9 25 + END + NUMERO 945 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1045 + GROUP 9 + END + NUMERO 946 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1046 + GROUP 9 25 + END + NUMERO 947 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1047 + GROUP 9 + END + NUMERO 948 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1048 + GROUP 9 + END + END // tot gart6 + + END // GART5 + SECTION TOT_GART5 1 2 2 GROUP + STRINGA 1077 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1050 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1051 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1053 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 1041 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1141 + GROUP 10 + END + NUMERO 1042 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1142 + GROUP 10 25 + END + NUMERO 1043 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1143 + GROUP 10 + END + NUMERO 1044 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1144 + GROUP 10 25 + END + NUMERO 1045 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1145 + GROUP 10 + END + NUMERO 1046 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1146 + GROUP 10 25 + END + NUMERO 1047 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1147 + GROUP 10 + END + NUMERO 1048 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1148 + GROUP 10 + END + END // tot gart5 + + END // GART4 + SECTION TOT_GART4 1 2 2 GROUP + STRINGA 1177 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1150 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1151 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1153 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 1141 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1241 + GROUP 11 + END + NUMERO 1142 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1242 + GROUP 11 25 + END + NUMERO 1143 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1243 + GROUP 11 + END + NUMERO 1144 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1244 + GROUP 11 25 + END + NUMERO 1145 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1245 + GROUP 11 + END + NUMERO 1146 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1246 + GROUP 11 25 + END + NUMERO 1147 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1247 + GROUP 11 + END + NUMERO 1148 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1248 + GROUP 11 + END + END // tot gart4 + + END // GART3 + SECTION TOT_GART3 1 2 2 GROUP + STRINGA 1277 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1250 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1251 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 1241 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1341 + GROUP 12 + END + NUMERO 1242 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1342 + GROUP 12 25 + END + NUMERO 1243 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1343 + GROUP 12 + END + NUMERO 1244 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1344 + GROUP 12 25 + END + NUMERO 1284 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "#######,@##" + MESSAGE _NUMEXPR,#1244/#1243 + GROUP 26 + END + NUMERO 1245 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1345 + GROUP 12 + END + NUMERO 1246 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1346 + GROUP 12 25 + END + NUMERO 1247 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1347 + GROUP 12 + END + NUMERO 1248 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1348 + GROUP 12 + END + END // tot gart3 + + END // GART2 + SECTION TOT_GART2 1 2 2 GROUP + STRINGA 1377 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1350 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1351 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 1341 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1441 + GROUP 13 + END + NUMERO 1342 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1442 + GROUP 13 25 + END + NUMERO 1343 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1443 + GROUP 13 + END + NUMERO 1344 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1444 + GROUP 13 25 + END + NUMERO 1345 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1445 + GROUP 13 + END + NUMERO 1346 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1446 + GROUP 13 25 + END + NUMERO 1347 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1447 + GROUP 13 + END + NUMERO 1348 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1448 + GROUP 13 + END + END // tot gart2 + + END // GART1 + SECTION TOT_GART1 1 2 2 GROUP + STRINGA 1477 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1450 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1451 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 1441 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1541 + GROUP 14 + END + NUMERO 1442 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1542 + GROUP 14 25 + END + NUMERO 1443 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1543 + GROUP 14 + END + NUMERO 1444 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1544 + GROUP 14 25 + END + NUMERO 1445 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1545 + GROUP 14 + END + NUMERO 1446 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1546 + GROUP 14 25 + END + NUMERO 1447 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1547 + GROUP 14 + END + NUMERO 1448 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1548 + GROUP 14 + END + END // tot gart1 + + END // GRUPPI_CATMER + SECTION TOT_CATMER 1 2 2 GROUP + STRINGA 1577 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1550 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1551 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD 49->UM + END + NUMERO 1541 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1542 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + GROUP 15 25 + END + NUMERO 1543 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1544 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + GROUP 15 25 + END + NUMERO 1545 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1546 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + GROUP 15 25 + END + NUMERO 1547 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1548 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + GROUP 15 + END + END // tot catmerc + +END // section body, loop anamag + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "--------------" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END // fine footer + +END // fine form diff --git a/mg/mg3200a.frm b/mg/mg3200a.frm new file mode 100755 index 000000000..70702eaa8 --- /dev/null +++ b/mg/mg3200a.frm @@ -0,0 +1,1889 @@ +#include "mg3frm.h" +USE LF_ANAMAG KEY 1 +SORT LF_MAG BY ANNOES CODART LIVELLO CODMAG + JOIN TO LF_ANAMAG INTO ANNOES==1996 CODART==CODART +JOIN MAG TO LF_MAG ALIAS 500 INTO CODTAB==CODMAG[1,3] +JOIN MAG TO LF_MAG ALIAS 501 INTO CODTAB==CODMAG +JOIN GMC TO LF_ANAMAG ALIAS 400 INTO CODTAB==GRMERC[1,3] +JOIN GMC TO LF_ANAMAG ALIAS 401 INTO CODTAB==GRMERC +JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART +END + +DESCRIPTION +BEGIN + 47->* "Anagrafica articoli" + 109->* "Archivio Giacenze" + MAG->* "Tabella magazzini" + LF_UMART->* "Unitą di misura articoli" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 8 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 5 + +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 32 +BEGIN + KEY "Intestazione stampa" + PROMPT 55 2 "Stampa disponibilita'" +END + +STRINGA 5 146 +BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" +END + + STRINGA 6 20 + BEGIN + KEY "H1" + PROMPT 2 4 "Codice" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 24 4 "Descrizione" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 45 4 "UM" + END + STRINGA 8 12 + BEGIN + KEY "H1" + PROMPT 55 4 "Giac." + END + STRINGA 9 12 + BEGIN + KEY "H1" + PROMPT 67 4 "Ord.F." + END + STRINGA 10 12 + BEGIN + KEY "H1" + PROMPT 79 4 "Ord.C." + END + STRINGA 11 12 + BEGIN + KEY "H1" + PROMPT 91 4 "A c.lav." + END + STRINGA 12 12 + BEGIN + KEY "H1" + PROMPT 103 4 "In c.lav." + END + STRINGA 13 12 + BEGIN + KEY "H1" + PROMPT 116 4 "Prod.F." + END + STRINGA 14 12 + BEGIN + KEY "H1" + PROMPT 128 4 "Prod.C." + END + STRINGA 15 12 + BEGIN + KEY "H1" + PROMPT 139 4 "Disp." + END + + STRINGA 17 146 + BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END + +END + +SECTION BODY ODD 0 COLUMNWISE + + NUMBER FF_FLAGTOTQTA 1 + BEGIN + FLAG "H" + PROMPT 1 1 "" + END + + SECTION H_CATMER 1 1 2 GROUP + STRINGA 11 12 2 + BEGIN + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE _USER,CODCATMER + END + STRINGA 12 30 2 + BEGIN + KEY "CODICE CATMER" + PROMPT 3 1 "" + MESSAGE _USER,CATMER|COPY,1550 + END + END + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,15@ + END + + SECTION GRUPPI_CATMER 1 0 1 FILE 47 GROUP GRMERC + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,14@ + END + SECTION H_GCODART1 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,1 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,1|COPY,1450 + END + END + + SECTION GRUPPI_CODART1 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,13@ + END + SECTION H_GCODART2 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,2 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,2|COPY,1350 + END + END + + SECTION GRUPPI_CODART2 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,12@ + END + SECTION H_GCODART3 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,3 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,3|COPY,1250 + END + END + + SECTION GRUPPI_CODART3 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,11@ + END + SECTION H_GCODART4 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,4 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,4|COPY,1150 + END + END + + SECTION GRUPPI_CODART4 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,10@ + END + SECTION H_GCODART5 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,5 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,5|COPY,1050 + END + END + + SECTION GRUPPI_CODART5 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,9@ + END + SECTION H_GCODART6 1 1 2 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,6 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,6|COPY,950 + END + END + + SECTION GRUPPI_CODART6 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,8@ + END + SECTION H_GCODART7 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,7 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,7|COPY,850 + END + END + + SECTION GRUPPI_CODART7 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,7@ + END + + SECTION H_GCODART8 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,8 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,8|COPY,750 + END + END + + SECTION GRUPPI_CODART8 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,6@ + END + SECTION H_ARTICOLO 1 1 1 GROUP + STRINGA 2020 12 2 + BEGIN + KEY "CODICE articolo" + PROMPT 2 1 "" + FIELD CODART + END + STRINGA 21 30 2 + BEGIN + KEY "DESCR.articolo" + PROMPT 3 1 "" + FIELD LF_ANAMAG->DESCR + MESSAGE COPY,650 + END + END + + SECTION FILE_GIACENZE 1 1 0 FILE LF_MAG + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,5@ + END + SECTION H_GLIVGIAC1 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,1|COPY,550 + END + END + + SECTION GRUPPI_LIVGIAC1 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,4@ + END + SECTION H_GLIVGIAC2 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,2|COPY,450 + END + END + + SECTION GRUPPI_LIVGIAC2 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,3@ + END + + SECTION H_GLIVGIAC3 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,3|COPY,350 + END + END + + SECTION GRUPPI_LIVGIAC3 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,2@ + END + + SECTION H_GLIVGIAC4 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,4|COPY,250 + END + END + + SECTION GRUPPI_LIVGIAC4 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "MAGAZZ" + PROMPT 2 1 "" + MESSAGE RESET,1@ + END + SECTION H_MAGAZZINO 1 1 1 GROUP + STRINGA 60 40 1 + BEGIN + KEY "codice magazzino" + PROMPT 2 1 "Magazzino " + FIELD 500@->s0 + MESSAGE COPY,150 + END + END + + SECTION GRUPPI_MAGAZZINO 1 0 0 FILE LF_MAG GROUP CODMAG[1,3] + SECTION H_DEPOSITO 1 0 0 GROUP + END + SECTION TOT_DEPOSITO 1 1 1 GROUP + STRINGA 51 12 + BEGIN + KEY "CODICE" + PROMPT 2 1 " Deposito" + END + STRINGA 52 30 + BEGIN + KEY "descr" + PROMPT 3 1 "" + FIELD 501@->s0 + END + STRINGA 53 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + FIELD LF_UMART->UM + END + NUMERO 41 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + FIELD LF_MAG->giac + PICTURE "########,@#" + MESSAGE ADD,141 + END + NUMERO 42 11 + BEGIN + KEY "ORDF" + PROMPT 7 1 "" + FIELD LF_MAG->ordf + PICTURE "########,@#" + MESSAGE ADD,142 + GROUP 10 + END + + NUMERO 43 11 + BEGIN + KEY "ORDC" + PROMPT 8 1 "" + FIELD LF_MAG->ordc + PICTURE "########,@#" + MESSAGE ADD,143 + END + NUMERO 44 11 + BEGIN + KEY "ACL" + PROMPT 9 1 "" + FIELD LF_MAG->acl + PICTURE "########,@#" + MESSAGE ADD,144 + GROUP 10 + END + + NUMERO 45 11 + BEGIN + KEY "INCL" + PROMPT 10 1 "" + FIELD LF_MAG->incl + PICTURE "########,@#" + MESSAGE ADD,145 + END + NUMERO 46 11 + BEGIN + KEY "PRODFIN" + PROMPT 11 1 "" + PICTURE "########,@#" + FIELD LF_MAG->prodfin + MESSAGE ADD,146 + GROUP 10 + END + + NUMERO 47 11 + BEGIN + KEY "PRODCOMP" + PROMPT 12 1 "" + PICTURE "########,@#" + FIELD LF_MAG->prodcomp + MESSAGE ADD,147 + END + NUMERO 48 11 + BEGIN + KEY "DISPONIBILITA'" + PROMPT 13 1 "" + PICTURE "#######@,@#" + MESSAGE _NUMEXPR,109->giac+109->ORDF-109->ORDC+109->ACL-109->INCL+109->PRODFIN-109->PRODCOMP|ADD,148 + END + END // depositi dello stesso magazzino + END // MAGAZZ + + SECTION TOT_MAGAZZINO 1 1 1 GROUP + STRINGA 150 30 1 + BEGIN + KEY "Magazzino" + PROMPT 3 1 "" + END + STRINGA 151 12 1 + BEGIN + KEY "Magazzino" + PROMPT 2 1 " Totale mag." + END + STRINGA 153 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + FIELD LF_UMART->UM + END + NUMERO 141 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + PICTURE "########,@#" + MESSAGE ADD,241 + GROUP 1 + END + NUMERO 142 11 + BEGIN + KEY "ORDF" + PROMPT 7 1 "" + PICTURE "########,@#" + MESSAGE ADD,242 + GROUP 1 25 + END + NUMERO 143 11 + BEGIN + KEY "ORDC" + PROMPT 8 1 "" + PICTURE "########,@#" + MESSAGE ADD,243 + GROUP 1 + END + NUMERO 144 11 + BEGIN + KEY "ACL" + PROMPT 9 1 "" + PICTURE "########,@#" + MESSAGE ADD,244 + GROUP 1 25 + END + NUMERO 145 11 + BEGIN + KEY "INCL" + PROMPT 10 1 "" + PICTURE "########,@#" + MESSAGE ADD,245 + GROUP 1 + END + NUMERO 146 11 + BEGIN + KEY "PRODF" + PROMPT 11 1 "" + PICTURE "########,@#" + MESSAGE ADD,246 + GROUP 1 25 + END + NUMERO 147 11 + BEGIN + KEY "PRODC" + PROMPT 12 1 "" + PICTURE "########,@#" + MESSAGE ADD,247 + GROUP 1 + END + NUMERO 148 11 + BEGIN + KEY "DISP" + PROMPT 13 1 "" + PICTURE "########,@#" + MESSAGE ADD,248 + GROUP 1 + END + END // tot magazz + + END // GGIAC4 + SECTION TOT_GLIVGIAC4 1 2 2 GROUP + STRINGA 277 + BEGIN + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 250 35 2 + BEGIN + PROMPT 3 2 "" + END + STRINGA 251 7 2 + BEGIN + KEY "Livello giac4" + PROMPT 2 2 " Totale" + END + STRINGA 253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 241 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,341 + GROUP 2 + END + NUMERO 242 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,342 + GROUP 2 25 + END + NUMERO 243 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,343 + GROUP 2 + END + NUMERO 244 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,344 + GROUP 2 25 + END + NUMERO 245 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,345 + GROUP 2 + END + NUMERO 246 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,346 + GROUP 2 25 + END + NUMERO 247 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,347 + GROUP 2 + END + NUMERO 248 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,348 + GROUP 2 + END + END // tot ggiac4 + + END // GGIAC3 + SECTION TOT_GLIVGIAC3 1 2 2 GROUP + STRINGA 377 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 350 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 351 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 341 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,441 + GROUP 3 + END + NUMERO 342 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,442 + GROUP 3 25 + END + NUMERO 343 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,443 + GROUP 3 + END + NUMERO 344 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,444 + GROUP 3 25 + END + NUMERO 345 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,445 + GROUP 3 + END + NUMERO 346 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,446 + GROUP 3 25 + END + NUMERO 347 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,447 + GROUP 3 + END + NUMERO 348 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,448 + GROUP 3 + END + END // tot ggiac3 + + END // GGIAC2 + SECTION TOT_GLIVGIAC2 1 2 2 GROUP + STRINGA 477 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 450 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 451 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 441 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,541 + GROUP 4 + END + NUMERO 442 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,542 + GROUP 4 25 + END + NUMERO 443 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,543 + GROUP 4 + END + NUMERO 444 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,544 + GROUP 4 25 + END + NUMERO 445 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,545 + GROUP 4 + END + NUMERO 446 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,546 + GROUP 4 25 + END + NUMERO 447 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,547 + GROUP 4 + END + NUMERO 448 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,548 + GROUP 4 + END + END // tot ggiac2 + END // GGIAC1 + SECTION TOT_GLIVGIAC1 1 2 2 GROUP + STRINGA 577 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 550 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 551 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 541 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,641 + GROUP 5 + END + NUMERO 542 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,642 + GROUP 5 25 + END + NUMERO 543 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,643 + GROUP 5 + END + NUMERO 544 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,644 + GROUP 5 25 + END + NUMERO 545 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,645 + GROUP 5 + END + NUMERO 546 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,646 + GROUP 5 25 + END + NUMERO 547 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,647 + GROUP 5 + END + NUMERO 548 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,648 + GROUP 5 + END + END // tot ggiac1 + + END // FILE GIACENZE + SECTION TOT_ARTICOLO 1 2 2 GROUP + STRINGA 677 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 650 30 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 651 12 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale art." + END + STRINGA 653 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + MESSAGE COPY,753 + END + NUMERO 641 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,741 + GROUP 6 + END + NUMERO 642 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,742 + GROUP 6 25 + END + NUMERO 643 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,743 + GROUP 6 + END + NUMERO 644 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,744 + GROUP 6 25 + END + + NUMERO 645 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,745 + GROUP 6 + END + NUMERO 646 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,746 + GROUP 6 25 + END + NUMERO 647 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,747 + GROUP 6 + END + NUMERO 648 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,748 + GROUP 6 + END + END // TOT ART + + END // GART8 + SECTION TOT_GART8 1 2 2 GROUP + STRINGA 777 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 750 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 751 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 753 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,853 + END + NUMERO 741 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#741|ADD,841 + GROUP 7 + END + NUMERO 742 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#742|ADD,842 + GROUP 7 25 + END + NUMERO 743 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#743|ADD,843 + GROUP 7 + END + NUMERO 744 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#744|ADD,844 + GROUP 7 25 + END + NUMERO 745 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#745|ADD,845 + GROUP 7 + END + NUMERO 746 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#746|ADD,846 + GROUP 7 25 + END + NUMERO 747 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#747|ADD,847 + GROUP 7 + END + NUMERO 748 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#748|ADD,848 + GROUP 7 + END + END // tot gart8 + + END // GART7 + SECTION TOT_GART7 1 2 2 GROUP + STRINGA 877 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 850 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 851 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 853 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,953 + END + NUMERO 841 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,941 + GROUP 8 + END + NUMERO 842 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,942 + GROUP 8 25 + END + NUMERO 843 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,943 + GROUP 8 + END + NUMERO 844 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,944 + GROUP 8 25 + END + NUMERO 845 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,945 + GROUP 8 + END + NUMERO 846 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,946 + GROUP 8 25 + END + NUMERO 847 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,947 + GROUP 8 + END + NUMERO 848 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,948 + GROUP 8 + END + END // tot gart7 + + END // GART6 + SECTION TOT_GART6 1 2 2 GROUP + STRINGA 977 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 950 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 951 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 953 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1053 + END + NUMERO 941 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1041 + GROUP 9 + END + NUMERO 942 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1042 + GROUP 9 25 + END + NUMERO 943 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1043 + GROUP 9 + END + NUMERO 944 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1044 + GROUP 9 25 + END + NUMERO 945 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1045 + GROUP 9 + END + NUMERO 946 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1046 + GROUP 9 25 + END + NUMERO 947 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1047 + GROUP 9 + END + NUMERO 948 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1048 + GROUP 9 + END + END // tot gart6 + + END // GART5 + SECTION TOT_GART5 1 2 2 GROUP + STRINGA 1077 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1050 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1051 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1053 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1153 + END + NUMERO 1041 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1141 + GROUP 10 + END + NUMERO 1042 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1142 + GROUP 10 25 + END + NUMERO 1043 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1143 + GROUP 10 + END + NUMERO 1044 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1144 + GROUP 10 25 + END + NUMERO 1045 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1145 + GROUP 10 + END + NUMERO 1046 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1146 + GROUP 10 25 + END + NUMERO 1047 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1147 + GROUP 10 + END + NUMERO 1048 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1148 + GROUP 10 + END + END // tot gart5 + + END // GART4 + SECTION TOT_GART4 1 2 2 GROUP + STRINGA 1177 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1150 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1151 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1153 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1253 + END + NUMERO 1141 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1241 + GROUP 11 + END + NUMERO 1142 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1242 + GROUP 11 25 + END + NUMERO 1143 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1243 + GROUP 11 + END + NUMERO 1144 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1244 + GROUP 11 25 + END + NUMERO 1145 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1245 + GROUP 11 + END + NUMERO 1146 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1246 + GROUP 11 25 + END + NUMERO 1147 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1247 + GROUP 11 + END + NUMERO 1148 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1248 + GROUP 11 + END + END // tot gart4 + + END // GART3 + SECTION TOT_GART3 1 2 2 GROUP + STRINGA 1277 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1250 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1251 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1353 + END + NUMERO 1241 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1341 + GROUP 12 + END + NUMERO 1242 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1342 + GROUP 12 25 + END + NUMERO 1243 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1343 + GROUP 12 + END + NUMERO 1244 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1344 + GROUP 12 25 + END + NUMERO 1245 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1345 + GROUP 12 + END + NUMERO 1246 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1346 + GROUP 12 25 + END + NUMERO 1247 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1347 + GROUP 12 + END + NUMERO 1248 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1348 + GROUP 12 + END + END // tot gart3 + + END // GART2 + SECTION TOT_GART2 1 2 2 GROUP + STRINGA 1377 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1350 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1351 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1453 + END + NUMERO 1341 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1441 + GROUP 13 + END + NUMERO 1342 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1442 + GROUP 13 25 + END + NUMERO 1343 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1443 + GROUP 13 + END + NUMERO 1344 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1444 + GROUP 13 25 + END + NUMERO 1345 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1445 + GROUP 13 + END + NUMERO 1346 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1446 + GROUP 13 25 + END + NUMERO 1347 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1447 + GROUP 13 + END + NUMERO 1348 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1448 + GROUP 13 + END + END // tot gart2 + + END // GART1 + SECTION TOT_GART1 1 2 2 GROUP + STRINGA 1477 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1450 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1451 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1553 + END + NUMERO 1441 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1541 + GROUP 14 + END + NUMERO 1442 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1542 + GROUP 14 25 + END + NUMERO 1443 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1543 + GROUP 14 + END + NUMERO 1444 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1544 + GROUP 14 25 + END + NUMERO 1445 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1545 + GROUP 14 + END + NUMERO 1446 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1546 + GROUP 14 25 + END + NUMERO 1447 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1547 + GROUP 14 + END + NUMERO 1448 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1548 + GROUP 14 + END + END // tot gart1 + + END // GRUPPI_CATMER + SECTION TOT_CATMER 1 2 2 GROUP + STRINGA 1577 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1550 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1551 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + END + NUMERO 1541 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1542 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + GROUP 15 25 + END + NUMERO 1543 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1544 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + GROUP 15 25 + END + NUMERO 1545 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1546 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + GROUP 15 25 + END + NUMERO 1547 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1548 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + GROUP 15 + END + END // tot catmerc + +END // section body, loop anamag + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "--------------" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END // fine footer + +END // fine form diff --git a/mg/mg3200b.frm b/mg/mg3200b.frm new file mode 100755 index 000000000..d00029548 --- /dev/null +++ b/mg/mg3200b.frm @@ -0,0 +1,1784 @@ +#include "mg3frm.h" +USE LF_MAG KEY 2 +JOIN LF_ANAMAG TO LF_MAG INTO CODART==CODART +JOIN MAG TO LF_MAG ALIAS 500 INTO CODTAB==CODMAG[1,3] +JOIN MAG TO LF_MAG ALIAS 501 INTO CODTAB==CODMAG +JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART +END + +DESCRIPTION +BEGIN + 47->* "Anagrafica articoli" + 109->* "Archivio Giacenze" + MAG->* "Tabella magazzini" + 49->* "Unitą di misura articoli" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 8 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 5 + +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 32 +BEGIN + KEY "Intestazione stampa" + PROMPT 55 2 "Stampa disponibilita'" +END + +STRINGA 5 146 +BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" +END + + STRINGA 6 20 + BEGIN + KEY "H1" + PROMPT 2 4 "Codice" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 24 4 "Descrizione" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 45 4 "UM" + END + STRINGA 8 12 + BEGIN + KEY "H1" + PROMPT 55 4 "Giac." + END + STRINGA 9 12 + BEGIN + KEY "H1" + PROMPT 67 4 "Ord.F." + END + STRINGA 10 12 + BEGIN + KEY "H1" + PROMPT 79 4 "Ord.C." + END + STRINGA 11 12 + BEGIN + KEY "H1" + PROMPT 91 4 "A c.lav." + END + STRINGA 12 12 + BEGIN + KEY "H1" + PROMPT 103 4 "In c.lav." + END + STRINGA 13 12 + BEGIN + KEY "H1" + PROMPT 116 4 "Prod.F." + END + STRINGA 14 12 + BEGIN + KEY "H1" + PROMPT 128 4 "Prod.C." + END + STRINGA 15 12 + BEGIN + KEY "H1" + PROMPT 139 4 "Disp." + END + + STRINGA 17 146 + BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END + +END + +SECTION BODY ODD 0 COLUMNWISE + + NUMBER FF_FLAGTOTQTA 1 + BEGIN + FLAG "H" + PROMPT 1 1 "" + END + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "MAGAZZ" + PROMPT 2 1 "" + MESSAGE RESET,1@ + END + SECTION H_MAGAZZINO 1 1 1 GROUP + STRINGA 60 40 1 + BEGIN + KEY "codice magazzino" + PROMPT 2 1 "Magazzino " + FIELD 500@->s0 + MESSAGE COPY,150 + END + END + + SECTION GRUPPI_MAGAZZINO 1 0 0 FILE LF_MAG GROUP CODMAG[1,3] + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "dep" + PROMPT 2 1 "" + MESSAGE RESET,15@ + END + SECTION H_DEPOSITO 1 1 1 GROUP + STRINGA 60 40 1 + BEGIN + KEY "codice dep" + PROMPT 2 1 "Deposito " + FIELD 501@->s0 + MESSAGE COPY,50 + END + END + + SECTION GRUPPI_DEPOSITO 1 0 0 FILE LF_MAG GROUP CODMAG[1,5] + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "gcodart1" + PROMPT 2 1 "" + MESSAGE RESET,14@ + END + SECTION H_GCODART1 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,1 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,1|COPY,1450 + END + END + + SECTION GRUPPI_CODART1 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,13@ + END + SECTION H_GCODART2 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,2 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,2|COPY,1350 + END + END + + SECTION GRUPPI_CODART2 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,12@ + END + SECTION H_GCODART3 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,3 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,3|COPY,1250 + END + END + + SECTION GRUPPI_CODART3 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,11@ + END + SECTION H_GCODART4 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,4 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,4|COPY,1150 + END + END + + SECTION GRUPPI_CODART4 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,10@ + END + SECTION H_GCODART5 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,5 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,5|COPY,1050 + END + END + + SECTION GRUPPI_CODART5 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,9@ + END + SECTION H_GCODART6 1 1 2 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,6 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,6|COPY,950 + END + END + + SECTION GRUPPI_CODART6 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,8@ + END + SECTION H_GCODART7 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,7 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,7|COPY,850 + END + END + + SECTION GRUPPI_CODART7 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,7@ + END + + SECTION H_GCODART8 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,8 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,8|COPY,750 + END + END + + SECTION GRUPPI_CODART8 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,6@ + END + SECTION H_ARTICOLO 1 1 1 GROUP + STRINGA 2020 12 2 + BEGIN + KEY "CODICE articolo" + PROMPT 2 1 "" + FIELD LF_ANAMAG->CODART + END + STRINGA 21 30 2 + BEGIN + KEY "DESCR.articolo" + PROMPT 3 1 "" + FIELD LF_ANAMAG->DESCR + MESSAGE COPY,650 + END + END + + SECTION ARTICOLO 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,5@ + END + SECTION H_GLIVGIAC1 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,1|COPY,550 + END + END + + SECTION GRUPPI_LIVGIAC1 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,4@ + END + SECTION H_GLIVGIAC2 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,2|COPY,450 + END + END + + SECTION GRUPPI_LIVGIAC2 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,3@ + END + + SECTION H_GLIVGIAC3 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,3|COPY,350 + END + END + + SECTION GRUPPI_LIVGIAC3 1 0 0 FILE LF_MAG GROUP LIVELLO + SECTION H_GLIVGIAC4 1 1 1 GROUP + END + + SECTION TOT_GLIVGIAC4 1 2 2 GROUP + STRINGA 251 2 + BEGIN + KEY "Livello giac4" + PROMPT 2 1 "" + END + STRINGA 250 40 1 + BEGIN + KEY "Livello giac" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOGIAC,4 + END + STRINGA 253 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + FIELD LF_UMART->UM + END + NUMERO 241 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + FIELD 109->GIAC + PICTURE "########,@#" + MESSAGE ADD,341 + END + NUMERO 242 11 + BEGIN + KEY "ORDF" + PROMPT 7 1 "" + FIELD 109->ordf + PICTURE "########,@#" + MESSAGE ADD,342 + GROUP 10 + END + + NUMERO 243 11 + BEGIN + KEY "ORDC" + PROMPT 8 1 "" + FIELD 109->ordc + PICTURE "########,@#" + MESSAGE ADD,343 + END + NUMERO 244 11 + BEGIN + KEY "ACL" + PROMPT 9 1 "" + FIELD 109->acl + PICTURE "########,@#" + MESSAGE ADD,344 + GROUP 10 + END + + NUMERO 245 11 + BEGIN + KEY "INCL" + PROMPT 10 1 "" + FIELD 109->incl + PICTURE "########,@#" + MESSAGE ADD,345 + END + NUMERO 246 11 + BEGIN + KEY "PRODFIN" + PROMPT 11 1 "" + PICTURE "########,@#" + FIELD 109->prodfin + MESSAGE ADD,346 + GROUP 10 + END + + NUMERO 247 11 + BEGIN + KEY "PRODCOMP" + PROMPT 12 1 "" + PICTURE "########,@#" + FIELD 109->prodcomp + MESSAGE ADD,347 + END + NUMERO 248 11 + BEGIN + KEY "DISPONIBILITA'" + PROMPT 13 1 "" + PICTURE "#######@,@#" + MESSAGE _NUMEXPR,109->giac+109->ORDF-109->ORDC+109->ACL-109->INCL+109->PRODFIN-109->PRODCOMP|ADD,348 + END + END // tot ggiac4 + + END // GGIAC3 + SECTION TOT_GLIVGIAC3 1 2 2 GROUP + STRINGA 377 + BEGIN + KEY "SEP" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 350 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 351 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 341 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,441 + GROUP 3 + END + NUMERO 342 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,442 + GROUP 3 25 + END + NUMERO 343 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,443 + GROUP 3 + END + NUMERO 344 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,444 + GROUP 3 25 + END + NUMERO 345 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,445 + GROUP 3 + END + NUMERO 346 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,446 + GROUP 3 25 + END + NUMERO 347 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,447 + GROUP 3 + END + NUMERO 348 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,448 + GROUP 3 + END + END // tot ggiac3 + + END // GGIAC2 + SECTION TOT_GLIVGIAC2 1 2 2 GROUP + STRINGA 477 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 450 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 451 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 441 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,541 + GROUP 4 + END + NUMERO 442 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,542 + GROUP 4 25 + END + NUMERO 443 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,543 + GROUP 4 + END + NUMERO 444 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,544 + GROUP 4 25 + END + NUMERO 445 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,545 + GROUP 4 + END + NUMERO 446 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,546 + GROUP 4 25 + END + NUMERO 447 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,547 + GROUP 4 + END + NUMERO 448 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,548 + GROUP 4 + END + END // tot ggiac2 + END // GGIAC1 + SECTION TOT_GLIVGIAC1 1 2 2 GROUP + STRINGA 577 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 550 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 551 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 541 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,641 + GROUP 5 + END + NUMERO 542 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,642 + GROUP 5 25 + END + NUMERO 543 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,643 + GROUP 5 + END + NUMERO 544 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,644 + GROUP 5 25 + END + NUMERO 545 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,645 + GROUP 5 + END + NUMERO 546 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,646 + GROUP 5 25 + END + NUMERO 547 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,647 + GROUP 5 + END + NUMERO 548 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,648 + GROUP 5 + END + END // tot ggiac1 + + END // FILE GIACENZE + SECTION TOT_ARTICOLO 1 2 2 GROUP + STRINGA 677 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 650 30 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 651 12 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale art." + END + STRINGA 653 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + MESSAGE COPY,753 + END + NUMERO 641 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,741 + GROUP 6 + END + NUMERO 642 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,742 + GROUP 6 25 + END + NUMERO 643 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,743 + GROUP 6 + END + NUMERO 644 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,744 + GROUP 6 25 + END + NUMERO 645 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,745 + GROUP 6 + END + NUMERO 646 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,746 + GROUP 6 25 + END + NUMERO 647 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,747 + GROUP 6 + END + NUMERO 648 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,748 + GROUP 6 + END + END // TOT ART + + END // GART8 + SECTION TOT_GART8 1 2 2 GROUP + STRINGA 777 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 750 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 751 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 753 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,853 + END + NUMERO 741 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#741|ADD,841 + GROUP 7 + END + NUMERO 742 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#742|ADD,842 + GROUP 7 25 + END + NUMERO 743 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#743|ADD,843 + GROUP 7 + END + NUMERO 744 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#744|ADD,844 + GROUP 7 25 + END + NUMERO 745 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#745|ADD,845 + GROUP 7 + END + NUMERO 746 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#746|ADD,846 + GROUP 7 25 + END + NUMERO 747 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#747|ADD,847 + GROUP 7 + END + NUMERO 748 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#748|ADD,848 + GROUP 7 + END + END // tot gart8 + + END // GART7 + SECTION TOT_GART7 1 2 2 GROUP + STRINGA 877 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 850 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 851 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 853 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,953 + END + NUMERO 841 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,941 + GROUP 8 + END + NUMERO 842 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,942 + GROUP 8 25 + END + NUMERO 843 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,943 + GROUP 8 + END + NUMERO 844 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,944 + GROUP 8 25 + END + NUMERO 845 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,945 + GROUP 8 + END + NUMERO 846 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,946 + GROUP 8 25 + END + NUMERO 847 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,947 + GROUP 8 + END + NUMERO 848 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,948 + GROUP 8 + END + END // tot gart7 + + END // GART6 + SECTION TOT_GART6 1 2 2 GROUP + STRINGA 977 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 950 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 951 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 953 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1053 + END + NUMERO 941 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1041 + GROUP 9 + END + NUMERO 942 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1042 + GROUP 9 25 + END + NUMERO 943 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1043 + GROUP 9 + END + NUMERO 944 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1044 + GROUP 9 25 + END + NUMERO 945 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1045 + GROUP 9 + END + NUMERO 946 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1046 + GROUP 9 25 + END + NUMERO 947 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1047 + GROUP 9 + END + NUMERO 948 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1048 + GROUP 9 + END + END // tot gart6 + + END // GART5 + SECTION TOT_GART5 1 2 2 GROUP + STRINGA 1077 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1050 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1051 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1053 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1153 + END + NUMERO 1041 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1141 + GROUP 10 + END + NUMERO 1042 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1142 + GROUP 10 25 + END + NUMERO 1043 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1143 + GROUP 10 + END + NUMERO 1044 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1144 + GROUP 10 25 + END + NUMERO 1045 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1145 + GROUP 10 + END + NUMERO 1046 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1146 + GROUP 10 25 + END + NUMERO 1047 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1147 + GROUP 10 + END + NUMERO 1048 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1148 + GROUP 10 + END + END // tot gart5 + + END // GART4 + SECTION TOT_GART4 1 2 2 GROUP + STRINGA 1177 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1150 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1151 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1153 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1253 + END + NUMERO 1141 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1241 + GROUP 11 + END + NUMERO 1142 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1242 + GROUP 11 25 + END + NUMERO 1143 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1243 + GROUP 11 + END + NUMERO 1144 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1244 + GROUP 11 25 + END + NUMERO 1145 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1245 + GROUP 11 + END + NUMERO 1146 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1246 + GROUP 11 25 + END + NUMERO 1147 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1247 + GROUP 11 + END + NUMERO 1148 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1248 + GROUP 11 + END + END // tot gart4 + + END // GART3 + SECTION TOT_GART3 1 2 2 GROUP + STRINGA 1277 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1250 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1251 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1353 + END + NUMERO 1241 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1341 + GROUP 12 + END + NUMERO 1242 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1342 + GROUP 12 25 + END + NUMERO 1243 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1343 + GROUP 12 + END + NUMERO 1244 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1344 + GROUP 12 25 + END + NUMERO 1245 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1345 + GROUP 12 + END + NUMERO 1246 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1346 + GROUP 12 25 + END + NUMERO 1247 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1347 + GROUP 12 + END + NUMERO 1248 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1348 + GROUP 12 + END + END // tot gart3 + + END // GART2 + SECTION TOT_GART2 1 2 2 GROUP + STRINGA 1377 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1350 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1351 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1453 + END + NUMERO 1341 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1441 + GROUP 13 + END + NUMERO 1342 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1442 + GROUP 13 25 + END + NUMERO 1343 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1443 + GROUP 13 + END + NUMERO 1344 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1444 + GROUP 13 25 + END + NUMERO 1345 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1445 + GROUP 13 + END + NUMERO 1346 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1446 + GROUP 13 25 + END + NUMERO 1347 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1447 + GROUP 13 + END + NUMERO 1348 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1448 + GROUP 13 + END + END // tot gart2 + + END // GART1 + SECTION TOT_GART1 1 2 2 GROUP + STRINGA 1477 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1450 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1451 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,53 + END + NUMERO 1441 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,41 + GROUP 14 + END + NUMERO 1442 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,42 + GROUP 14 25 + END + NUMERO 1443 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,43 + GROUP 14 + END + NUMERO 1444 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,44 + GROUP 14 25 + END + NUMERO 1445 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,45 + GROUP 14 + END + NUMERO 1446 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,46 + GROUP 14 25 + END + NUMERO 1447 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,47 + GROUP 14 + END + NUMERO 1448 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,48 + GROUP 14 + END + END // tot gart1 + + END // GRUPPI DEPOSITO + + SECTION TOT_DEPOSITO 1 1 1 GROUP + SECTION SEP_DEPOSITO 1 1 NORMAL GROUP + STRINGA 77 + BEGIN + KEY "giac" + PROMPT 52 1 "----------------------------------------------------------------------------------------------------" + END + END + STRINGA 51 12 + BEGIN + KEY "CODICE" + PROMPT 2 1 " Totale dep." + END + STRINGA 50 30 + BEGIN + KEY "descr" + PROMPT 3 1 "" + END + STRINGA 53 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + MESSAGE COPY,153 + END + NUMERO 41 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + PICTURE "########,@#" + MESSAGE ADD,141 + GROUP 15 + END + NUMERO 42 11 + BEGIN + KEY "ORDF" + PROMPT 7 1 "" + PICTURE "########,@#" + MESSAGE ADD,142 + GROUP 15 + END + + NUMERO 43 11 + BEGIN + KEY "ORDC" + PROMPT 8 1 "" + PICTURE "########,@#" + MESSAGE ADD,143 + GROUP 15 + END + NUMERO 44 11 + BEGIN + KEY "ACL" + PROMPT 9 1 "" + PICTURE "########,@#" + MESSAGE ADD,144 + GROUP 15 + END + NUMERO 45 11 + BEGIN + KEY "INCL" + PROMPT 10 1 "" + PICTURE "########,@#" + MESSAGE ADD,145 + END + NUMERO 46 11 + BEGIN + KEY "PRODFIN" + PROMPT 11 1 "" + PICTURE "########,@#" + MESSAGE ADD,146 + GROUP 15 + END + NUMERO 47 11 + BEGIN + KEY "PRODCOMP" + PROMPT 12 1 "" + PICTURE "########,@#" + MESSAGE ADD,147 + GROUP 15 + END + NUMERO 48 11 + BEGIN + KEY "DISPONIBILITA'" + PROMPT 13 1 "" + PICTURE "#######@,@#" + MESSAGE ADD,148 + GROUP 15 + END + END // tot depositi + END // MAGAZZ + + SECTION TOT_MAGAZZINO 1 1 1 GROUP + SECTION SEP_MAGAZZINO 1 1 1 NORMAL GROUP + STRINGA 77 + BEGIN + KEY "giac" + PROMPT 52 1 "----------------------------------------------------------------------------------------------------" + END + END + STRINGA 150 30 1 + BEGIN + KEY "Magazzino" + PROMPT 3 1 "" + END + STRINGA 151 12 1 + BEGIN + KEY "Magazzino" + PROMPT 2 1 " Totale mag." + END + STRINGA 153 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + END + NUMERO 141 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 142 11 + BEGIN + KEY "ORDF" + PROMPT 7 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 143 11 + BEGIN + KEY "ORDC" + PROMPT 8 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 144 11 + BEGIN + KEY "ACL" + PROMPT 9 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 145 11 + BEGIN + KEY "INCL" + PROMPT 10 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 146 11 + BEGIN + KEY "PRODF" + PROMPT 11 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 147 11 + BEGIN + KEY "PRODC" + PROMPT 12 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 148 11 + BEGIN + KEY "DISP" + PROMPT 13 1 "" + PICTURE "########,@#" + GROUP 1 + END + END // tot magazz + +END // section body, loop anamag + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "--------------" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END // fine footer + +END // fine form diff --git a/mg/mg3300.cpp b/mg/mg3300.cpp new file mode 100755 index 000000000..90ff24d6c --- /dev/null +++ b/mg/mg3300.cpp @@ -0,0 +1,174 @@ +#include +#include +#include "mglib05.h" //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +#include +#include +#include +#include +#include +#include +#include "mglib01.h" +#include "mg3300.h" + + +#include "mglib04.h" + + +// mg3300 Stampa +class TStampa_schedemag : public TApplication +{ + TMask * _mask; + TForm * _form; + + int _codicees; + bool _raggmag; + TString _daart,_aart,_damag,_amag; + TDate _dadata,_adata; +protected: + virtual bool create(); + virtual bool destroy(); +}; + +bool TStampa_schedemag::create() +{ + _mask = new TMask("mg3300"); + while (TRUE) { + if (_mask->run() != K_ENTER) + return FALSE; + +// filtro << "CODART>=" <<'"' << _daart<<'"' << " && CODART<=" <<'"' << _aart<<'"' ; +// filtro << " && ANNOES==" <<'"' << _codicees <<'"' ; + // estremi di stanpa + _raggmag=_mask->get_bool(F_RAGGMAG); + _daart=_mask->get(F_DAART); + _aart=_mask->get(F_AART); + _damag=_mask->get(F_DAMAG); + _amag=_mask->get(F_AMAG); + _dadata=_mask->get_date(F_DADATA); + _adata=_mask->get_date(F_ADATA); + _codicees=1996; + + TRectype darec(LF_ANAMAG),arec(LF_ANAMAG); + _form = new TForm("mg3300a", ""); + TCursor& cur = *_form->cursor(); + cur.setkey(); + // trova il record iniziale + //darec.put("ANNOES",_codicees); + darec.put("CODART",_daart); + //darec.put("CODMAG",_damag); + // trova il record finale + //arec.put("ANNOES",_codicees); + arec.put("CODART",_aart); + //arec.put("CODMAG",_amag); + cur.setregion(darec,arec); + + _form->print(); + delete _form; + } // while true + return TRUE; +} +bool TStampa_schedemag::destroy() +{ + delete _mask; + return TRUE; +} + + + + + + + + +// mg3300 Stampa +class TStampa_schede_mag : public TPrint_app2 +{ + TMask * _mask; + TForm * _form; // to be moved into TPrint_application + + int _codicees; + bool _raggmag; + TString _daart,_aart,_damag,_amag; + TDate _dadata,_adata; +protected: + virtual bool print_one(int file); + + virtual bool user_create(); + virtual bool user_destroy(); + virtual bool set_print(int i=1); + virtual void set_page(int file,int count); + +public: + TStampa_schede_mag() {} +}; + +bool TStampa_schede_mag ::print_one(int file) +{ + return TRUE; +} + + +void TStampa_schede_mag ::set_page(int file,int count) +{ +} + +bool TStampa_schede_mag::set_print(int i) +{ + int s; + if (_mask->run() != K_ENTER) + return FALSE; + +// filtro << "CODART>=" <<'"' << _daart<<'"' << " && CODART<=" <<'"' << _aart<<'"' ; +// filtro << " && ANNOES==" <<'"' << _codicees <<'"' ; + // estremi di stanpa + _raggmag=_mask->get_bool(F_RAGGMAG); + _daart=_mask->get(F_DAART); + _aart=_mask->get(F_AART); + _damag=_mask->get(F_DAMAG); + _amag=_mask->get(F_AMAG); + _dadata=_mask->get_date(F_DADATA); + _adata=_mask->get_date(F_ADATA); + _codicees=1996; + + TRectype darec(LF_MAG),arec(LF_MAG); + TCursor& cur = *_form->cursor(); + cur.setkey(); + // trova il record iniziale + darec.put("ANNOES",_codicees); + darec.put("CODART",_daart); + darec.put("CODMAG",_damag); + // trova il record finale + arec.put("ANNOES",_codicees); + arec.put("CODART",_aart); + arec.put("CODMAG",_amag); + cur.setregion(darec,arec); + return TRUE; +} + +bool TStampa_schede_mag::user_create() +{ + + _mask = new TMask("mg3300"); + _form = new TForm("mg3300a", ""); + add_cursor(_form->cursor()); + add_file(_form->cursor()->file().num()); + + + return TRUE; +} + +bool TStampa_schede_mag::user_destroy() +{ + delete _mask; + delete _form; + return TRUE; +} + + +int mg3300(int argc, char* argv[]) +{ + //TStampa_schede_mag a; // derivata da Printapp + TStampa_schedemag a;// derivata da Application e con uso di form + a.run(argc,argv,"Stampa schede di magazzino"); + return 0; +} diff --git a/mg/mg3300.frm b/mg/mg3300.frm new file mode 100755 index 000000000..9a1185609 --- /dev/null +++ b/mg/mg3300.frm @@ -0,0 +1,142 @@ +USE LF_ANAMAG +JOIN LF_MAG TO LF_ANAMAG INTO CODART==CODART ANNOES=="1996" +JOIN MAG TO LF_MAG INTO CODTAB==CODMAG +JOIN MAG TO LF_MAG ALIAS 500 INTO CODTAB==CODMAG[1,3] +SORT LF_RMOVMAG BY LF_MOVMAG->DATAREG NUMREG NRIG + USING LF_MOVMAG INTO NUMREG==NUMREG + JOIN TO LF_MAG KEY 2 INTO CODART==CODART CODMAG==CODMAG LIVGIAC==LIVELLO +JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG +JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART +JOIN LF_UMART TO LF_UMART KEY 2 ALIAS 349 INTO CODART==CODART UM==UM +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" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 12 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 12 + STRINGA 100 20 1 + BEGIN + PROMPT 1 10 "----------------------------------------------------" + END + STRINGA 102 20 1 + BEGIN + PROMPT 1 1 "----------------------------------------------------" + END +END + +SECTION BODY ODD 2 + STRINGA 69 20 1 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "Raggruppamento " + FIELD CODART[1,3] + END + + + SECTION INFO_ARTICOLO 1 50 1 GROUP + STRINGA 10 20 1 + BEGIN + KEY "CODICE articolo" + PROMPT 1 1 "" + MESSAGE _USER,CODGRUPPOART + END + + STRINGA 11 50 1 + BEGIN + KEY "DESCR.articolo" + PROMPT 1 2 "" + MESSAGE _USER,GRUPPOART + END + END //info articolo + + SECTION INFO_LIVGIAC 1 1 1 GROUP + STRINGA 20 20 1 + BEGIN + KEY "CODICE articolo" + PROMPT 1 1 "" + MESSAGE _USER,CODGRUPPOART|RESET,FF_STAMPASALDOPREC + END + STRINGA 21 50 1 + BEGIN + KEY "Livello giac" + PROMPT 5 1 "Livello " + FIELD 109->livello + MESSAGE RESET,99 + END + END // INFO livgiac + + SECTION INFO_MAG 1 1 1 GROUP + END // INFO magazzino + + SECTION SCHEDA 1 1 1 FILE LF_MAG GROUP CODART + + SECTION MOVIMENTI 1 1 1 FILE LF_RMOVMAG + + SECTION MOVIMENTO 1 1 1 FILE LF_RMOVMAG GROUP NUMREG + + SECTION RIGA_PREC 1 1 1 STREXPR LF_MOVMAG->DATAREG<"19960203" + NUMBER 100 12 + BEGIN + PROMPT 1 1 "" + MESSAGE _USER,SALDO|ADD,FF_SALDOPREC_MOV|RESET,FF_STAMPASALDOPREC + END + END // riga di data preceDente + + SECTION RIGA_COMP 1 1 1 STREXPR LF_MOVMAG->DATAREG>="19960203" + NUMBER 100 12 + BEGIN + PROMPT 1 1 "" + MESSAGE _USER,SALDO|ADD,FF_SALDO_MOV|"1",FF_STAMPASALDOPREC + END + END // riga di data compresa + + END // loop movimento + + SECTION SALDO_PREC 1 1 1 NUMEXPR #FF_STAMPASALDOPREC=1 + NUMBER FF_SALDOPRECSCHEDA 12 + BEGIN + PROMPT 1 1 "" + MESSAGE INC,FF_STAMPASALDOPREC + END + END // saldo prec + + END // loop movimenti + + END // loop schede + +END // ***** + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "-----" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END + diff --git a/mg/mg3300.h b/mg/mg3300.h new file mode 100755 index 000000000..959ac72c6 --- /dev/null +++ b/mg/mg3300.h @@ -0,0 +1,9 @@ +#define F_SCHEDA 101 +#define F_DAART 102 +#define F_AART 103 +#define F_DAMAG 104 +#define F_AMAG 105 +#define F_DADATA 106 +#define F_ADATA 107 +#define F_RAGGMAG 108 + diff --git a/mg/mg3300.uml b/mg/mg3300.uml new file mode 100755 index 000000000..1820c70b4 --- /dev/null +++ b/mg/mg3300.uml @@ -0,0 +1,92 @@ +#include "mg3300.h" +PAGE "Stampa Schede di magazzino" -1 -1 78 12 + +LISTBOX F_SCHEDA 30 +BEGIN + PROMPT 2 1 "Tipo scheda " + ITEM "ORDF|Ordinato fornitori" + ITEM "ORDC|Ordinato clienti" + ITEM "ACL|A conto lavoro" + ITEM "INCL|In conto lavoro" + ITEM "PRODC|Componenti in produzione " + ITEM "PRODF|Finiti in produzione " +END + +STRING F_DAART 20 +BEGIN + PROMPT 2 3 "Dall'articolo " + FLAGS "U" + USE LF_ANAMAG + INPUT CODART F_DAART + DISPLAY "Codice " CODART + DISPLAY "Descrizione@50" DESCR + OUTPUT F_DAART CODART + GROUP 1 + CHECKTYPE NORMAL +END + +STRING F_AART 20 +BEGIN + PROMPT 40 3 "All'articolo " + FLAGS "U" + COPY USE F_DAART + INPUT CODART F_AART + COPY DISPLAY F_DAART + OUTPUT F_AART CODART + GROUP 1 + CHECKTYPE NORMAL +END + +STRING F_DAMAG 20 +BEGIN + PROMPT 2 5 "Dal magazzino " + FLAGS "U" + USE MAG + INPUT CODTAB F_DAMAG + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_DAMAG CODTAB + GROUP 2 + CHECKTYPE NORMAL +END + + +STRING F_AMAG 20 +BEGIN + PROMPT 40 5 "Al magazzino " + FLAGS "U" + COPY USE F_DAMAG + INPUT CODTAB F_AMAG + COPY DISPLAY F_DAMAG + OUTPUT F_AMAG CODTAB + GROUP 2 + CHECKTYPE NORMAL +END + +DATE F_DADATA +BEGIN + PROMPT 2 7 "Dalla data " +END + +DATE F_ADATA +BEGIN + PROMPT 40 7 "Alla data " +END + +BOOLEAN F_RAGGMAG +BEGIN + PROMPT 2 9 "Raggruppo per magazzini" +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/mg/mg3300a.frm b/mg/mg3300a.frm new file mode 100755 index 000000000..14fba2f9e --- /dev/null +++ b/mg/mg3300a.frm @@ -0,0 +1,346 @@ +#include "mg3300.h" +USE LF_ANAMAG +SORT LF_RMOVMAG BY LF_MOVMAG->DATAREG NUMREG NRIG + USING LF_MOVMAG INTO NUMREG==NUMREG + JOIN TO LF_ANAMAG KEY 2 INTO CODART==CODART +JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG +JOIN CAU TO LF_MOVMAG INTO CODTAB==CODCAUS + +JOIN MAG TO LF_RMOVMAG ALIAS 501 INTO CODTAB==CODMAG +JOIN MAG TO LF_RMOVMAG ALIAS 500 INTO CODTAB==CODMAG[1,3] + +JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART +JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS 349 INTO CODART==CODART UM==UM +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" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 12 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 5 + 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 45 + BEGIN + KEY "Intestazione stampa" + PROMPT 45 2 "Stampa schede di magazzino :" + MESSAGE _USER,TIPOSCHEDA + END + + STRINGA 5 146 + BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END + STRINGA 6 12 + BEGIN + PROMPT 27 4 "UM" + END + NUMBER 7 12 + BEGIN + PROMPT 31 4 "Quantitą" + END + NUMBER 8 12 + BEGIN + PROMPT 42 4 "Prezzo" + END + NUMBER 9 12 + BEGIN + PROMPT 54 4 "Valore" + END + STRINGA 5 146 + BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END +END + +SECTION BODY ODD 2 + + NUMBER 100 1 + BEGIN + FLAGS "H" + MESSAGE RESET,FF_SALDO_GART|RESET,FF_VALORE_GART + END + + SECTION HEADER_CATMER 1 2 1 GROUP + STRINGA 10 20 1 + BEGIN + KEY "CODICE CATMER" + PROMPT 1 1 "Gruppo merceologico " + MESSAGE _USER,CODCATMER + END + + STRINGA 11 50 1 + BEGIN + KEY "DESCR." + PROMPT 30 1 "" + MESSAGE _USER,CATMER + END + END //HEADER catmer + + SECTION HEADER_ARTICOLO 1 2 1 GROUP + STRINGA 10 20 1 + BEGIN + KEY "CODICE articolo" + PROMPT 1 1 "Articolo " + MESSAGE _USER,CODGRUPPOART + END + + STRINGA 11 50 1 + BEGIN + KEY "DESCR.articolo" + PROMPT 30 1 "" + MESSAGE _USER,GRUPPOART + END + END //HEADER articolo + + SECTION GRUPPI_ARTICOLO 1 0 0 FILE LF_ANAMAG GROUP CODART[1,1] + SECTION FILE_LF_RMOVMAG 1 1 0 FILE LF_RMOVMAG + SECTION HEADER_LIVGIAC 1 3 3 GROUP + STRINGA 10 20 1 + BEGIN + KEY "CODICE articolo" + PROMPT 1 1 "Articolo " + MESSAGE _USER,CODGRUPPOART + END + STRINGA 11 50 1 + BEGIN + KEY "DESCR.articolo" + PROMPT 30 1 "" + MESSAGE _USER,GRUPPOART + END + + STRINGA 20 20 1 + BEGIN + KEY "CODICE livello" + PROMPT 1 2 "" + MESSAGE _USER,CODGRUPPOGIAC|RESET,FF_STAMPASALDOPREC + END + STRINGA 21 50 1 + BEGIN + KEY "Livello giac" + PROMPT 23 2 "" + MESSAGE _USER,GRUPPOGIAC + END + SECTION HEADER_MAG 1 1 1 GROUP + STRINGA 22 50 1 + BEGIN + KEY "mag" + PROMPT 5 1 "Magazzino " + FIELD 500@->S0 + END + SECTION HEADER_DEP 1 1 1 GROUP + STRINGA 23 50 1 + BEGIN + KEY "dep" + PROMPT 7 1 "Deposito " + FIELD 501@->S0 + END + END // HEADER deposito + END // HEADER magazzino + STRINGA 24 50 1 + BEGIN + KEY "dep" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END + END // HEADER livgiac + + STRINGA 10 + BEGIN + FLAGS "H" + MESSAGE RESET,FF_SALDOPREC_SCHEDA|RESET,FF_VALOREPREC_SCHEDA + END + SECTION SCHEDA_PREC 1 1 1 FILE LF_RMOVMAG GROUP CODART[1,3] + NUMERO 10 + BEGIN + FLAGS "H" + FIELD LF_RMOVMAG->NUMREG + MESSAGE COPY,FF_NUM_MOV|RESET,FF_SALDOPREC_MOV|RESET,FF_VALOREPREC_MOV + END + NUMERO 10 + BEGIN + FLAGS "H" + FIELD LF_MOVMAG->DATAREG + MESSAGE COPY,FF_DATA_MOV + END + + SECTION MOVIMENTO_PREC 1 0 1 FILE LF_RMOVMAG GROUP NUMREG + + STRINGA 100 12 + BEGIN + PROMPT 1 1 ">>>" + MESSAGE _STREXPR,LF_RMOVMAG->CODART+" "+LF_RMOVMAG->LIVGIAC+" "+LF_RMOVMAG->CODMAG + END + + STRINGA 101 12 + BEGIN + PROMPT 27 1 "" + FIELD LF_RMOVMAG->UM + END + NUMBER 102 12 + BEGIN + FLAGS "H" + MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*349@->FC|COPY,103 + END + NUMBER 103 12 + BEGIN + PROMPT 31 1 "" + PICTURE "###.###,@##" + MESSAGE _USER,SALDO|ADD,FF_SALDOPREC_MOV|RESET,FF_STAMPASALDOPREC + END + NUMBER 104 12 + BEGIN + PROMPT 42 1 "" + PICTURE "###.###.###" + FIELD LF_RMOVMAG->PREZZO + END + NUMBER 105 12 + BEGIN + PROMPT 54 1 "" + PICTURE "###.###.###" + MESSAGE _NUMEXPR,LF_RMOVMAG->PREZZO*#102|ADD,FF_VALOREPREC_MOV + END + END // loop movimento + + NUMBER FF_NUM_MOV 32 + BEGIN + PROMPT 2 1 "Mov. " + END + STRINGA FF_DATA_MOV 10 + BEGIN + PROMPT 12 1 "del " + FIELD LF_MOVMAG->DATAREG + END + STRINGA 100 2 + BEGIN + PROMPT 27 1 "" + FIELD LF_UMART->UM + END + NUMBER FF_SALDOPREC_MOV 12 + BEGIN + PROMPT 31 1 "" + PICTURE "###.###,@##" + MESSAGE ADD,FF_SALDOPREC_SCHEDA + END + NUMBER 100 12 + BEGIN + PROMPT 42 1 "" + PICTURE "###.###.###" + MESSAGE _NUMEXPR,#FF_VALOREPREC_MOV/#FF_SALDOPREC_MOV + END + NUMBER FF_VALOREPREC_MOV 12 + BEGIN + PROMPT 54 1 "" + PICTURE "###.###.###" + MESSAGE ADD,FF_VALOREPREC_SCHEDA + END + END // loop scheda + + SECTION TOTALI_SCHEDA 1 1 3 GROUP + NUMBER FF_STAMPASALDOPREC + BEGIN + END + + STRINGA 100 15 + BEGIN + PROMPT 1 1 "Totale scheda" + END + STRINGA 100 2 + BEGIN + PROMPT 27 1 "" + FIELD LF_UMART->UM + MESSAGE COPY,FF_UM_GART + END + NUMBER FF_SALDOPREC_SCHEDA 12 + BEGIN + PROMPT 31 1 "" + PICTURE "###.###,@##" + MESSAGE ADD,FF_SALDO_GART + END + NUMBER FF_VALOREPREC_SCHEDA 12 + BEGIN + PROMPT 54 1 "" + PICTURE "###.###.###" + MESSAGE ADD,FF_VALORE_GART + END + END // TOTALI scheda per articolo + END // loop RMOVMAG + + END // ragg articolo (codice o catmer) + SECTION TOTALI_GRUPPIART 1 1 3 GROUP + STRINGA 100 15 + BEGIN + PROMPT 1 1 "Totale scheda" + END + STRINGA FF_UM_GART 2 + BEGIN + PROMPT 27 1 "" + FIELD LF_UMART->UM + END + NUMBER FF_SALDO_GART 12 + BEGIN + PROMPT 31 1 "" + PICTURE "###.###,@##" + END + NUMBER FF_VALORE_GART 12 + BEGIN + PROMPT 54 1 "" + PICTURE "###.###.###" + END + END // TOTALI scheda per articolo + +END // ***** + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "-----" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END + diff --git a/mg/mg3400.cpp b/mg/mg3400.cpp new file mode 100755 index 000000000..3625fff46 --- /dev/null +++ b/mg/mg3400.cpp @@ -0,0 +1,269 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include "mglib03.h" +#include "mg3400.h" +#include "mg3frm.h" +class TStgiacprezzi_mask: public TMask +{ + static bool handle_ragg(TMask_field &fld, KEY k); // handler + static bool handle_liv(TMask_field &fld, KEY k); // handler + static bool handle_subord(TMask_field &fld, KEY k); // handler +public: + TStgiacprezzi_mask(); + ~TStgiacprezzi_mask(){}; +}; +TStgiacprezzi_mask::TStgiacprezzi_mask(): + TMask("mg3400") +{ + TMag_livelli giaclev("FCA"),artlev("FCG"); + + set_handler(F_TOLIVELLOART, handle_liv); + set_handler(F_TOLIVELLOGIAC, handle_liv); + set_handler(F_ORDINE, handle_ragg); + set_handler(F_DETTAGLIODEP, handle_ragg); + set_handler(F_DETTAGLIOMAG, handle_ragg); + set_handler(F_ORDINEART,handle_subord); + if (!artlev.enabled()) { + TMask_field &f1=field(F_RAGGCODICE); + f1.reset(); f1.check();f1.hide(); + } + if (!giaclev.enabled()) { + TMask_field &f2=field(F_RAGGLIVGIAC); + f2.reset(); f2.check();f2.hide(); + } +} + +bool TStgiacprezzi_mask::handle_subord(TMask_field &fld, KEY k) +{ + if (k == K_SPACE) + { + TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); + TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); + switch (fld.get()[1]) { + case 'C': + if (fld.mask().get(F_ORDINE)=="A") + fraggcod.enable(); + else { + if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) + { + fraggcod.reset(); fraggcod.disable(); + fragggiac.reset(); fragggiac.disable(); + fraggcod.do_message(0);fragggiac.do_message(0); + } + } + break; + case 'M': + case 'D': + fraggcod.reset(); fraggcod.check();fraggcod.disable(); + break; + } + } + return TRUE; +} + +bool TStgiacprezzi_mask::handle_liv(TMask_field &fld, KEY k) +{ + if (k == K_TAB) + { + TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); + TOperable_field &fdettmag=(TOperable_field &)fld.mask().field(F_DETTAGLIOMAG); + if (fld.mask().get(F_ORDINE)=="A") + { + if (fld.mask().get_int(F_TOLIVELLOART) || fld.mask().get_int(F_TOLIVELLOGIAC)) + { + // raggruppamenti prima del dettaglio magazzini + ftotmag.reset(); ftotmag.disable();ftotmag.do_message(0); + } else { + ftotmag.enable(); + } + } + } + return TRUE; +} + +bool TStgiacprezzi_mask::handle_ragg(TMask_field &fld, KEY k) +{ + if (k == K_SPACE) + { + TOperable_field &ftotmag=(TOperable_field &)fld.mask().field(F_TOTALIMAGAZZINI); + TOperable_field &fraggcod=(TOperable_field &)fld.mask().field(F_RAGGCODICE); + TOperable_field &fragggiac=(TOperable_field &)fld.mask().field(F_RAGGLIVGIAC); + if (fld.mask().get(F_ORDINE)=="M") + { + ftotmag.enable(); + if (!fld.mask().get_bool(F_DETTAGLIOMAG) || !fld.mask().get_bool(F_DETTAGLIODEP)) + { + fraggcod.reset(); fraggcod.disable(); + fragggiac.reset(); fragggiac.disable(); + fraggcod.do_message(0);fragggiac.do_message(0); + return TRUE; + } + } + fraggcod.enable(); + fragggiac.enable(); + } + return TRUE; +} + + +// mg3300 Stampa +class TStampa_giacprezzi : public TPrint_application +{ + TArray * _files; + TStgiacprezzi_mask * _mask; + TCursor * _cur; + TForm_stampemg * _form; + +protected: + virtual bool print_one(int file) {return TRUE;} + virtual bool user_create(); + virtual bool user_destroy(); + virtual bool set_print(int i=1); + virtual void set_page(int file,int count) { } + void setprint_permagazzini(); + void setprint_perarticoli(); + +public: + TStampa_giacprezzi() {} + virtual ~TStampa_giacprezzi() {} +}; + +// ORDINAMENTO +void TStampa_giacprezzi::setprint_perarticoli() +{ + TRectype darec(LF_ANAMAG),arec(LF_ANAMAG); + TString cfilter,filter,joinexp; + TString sortexp("ANNOES|CODART|LIVELLO|CODMAG"); + + char subordine=*_mask->get(F_ORDINEART); + _form = new TForm_stampemg("mg3400a", ""); + _cur = _form->cursor(); + if (*_mask->get(F_DAMAG)) + filter << "(CODMAG[1,3]>=" <<'"' << _mask->get(F_DAMAG)<< "\")&&" ; + if (*_mask->get(F_AMAG)) + filter << "(CODMAG[1,3]<=" <<'"' << _mask->get(F_AMAG)<< "\")&&" ; + if (filter.not_empty()) + filter.cut(filter.len()-2); + switch (subordine) + { + case 'C': + _cur->setkey(1); + darec.put("CODART",_mask->get(F_DAART)); + arec.put("CODART",_mask->get(F_AART)); + _form->find_field('B',odd_page,"H_CATMER").hide(); + _form->find_field('B',odd_page,"TOT_CATMER").hide(); + _form->setcatmer(FALSE); + break; + case 'D': + _cur->setkey(2); + darec.put("DESCR",_mask->get(F_DADES)); + arec.put("DESCR",_mask->get(F_ADES)); + _form->find_field('B',odd_page,"H_CATMER").disable(); + _form->find_field('B',odd_page,"TOT_CATMER").hide(); + _form->setcatmer(FALSE); + break; + case 'M': + _cur->setkey(3); + darec.put("GRMERC",_mask->get(F_DACATMER)); + darec.put("CODART",_mask->get(F_DAART)); + arec.put("GRMERC",_mask->get(F_ACATMER)); + arec.put("CODART",_mask->get(F_AART)); + _form->find_field('B',odd_page,"H_CATMER").show(); + _form->find_field('B',odd_page,"TOT_CATMER").show(); + _form->setcatmer(TRUE); + break; + } + _form->setdett_perart( + _mask->get_int(F_FROMLIVELLOART), + _mask->get_int(F_TOLIVELLOART), + _mask->get_int(F_FROMLIVELLOGIAC), + _mask->get_int(F_TOLIVELLOGIAC), + _mask->get_bool(F_TOTALIMAGAZZINI), + _mask->get_bool(F_TOTALIDEPOSITI)); + + + joinexp << "ANNOES==" << _mask->get(F_ANNOES) << "|CODART==CODART"; + + TSortedfile *mag; + mag= new TSortedfile(LF_MAG,NULL,sortexp,filter,1); + _cur->relation()->replace(mag,1,joinexp); + _cur->setfilter(cfilter); + _cur->setregion(darec,arec); +} + +void TStampa_giacprezzi::setprint_permagazzini() +{ + char subordine=*_mask->get(F_ORDINEART); + TRectype darec(LF_MAG),arec(LF_MAG); + TString cfilter,sortexp,joinexp; + _form = new TForm_stampemg("mg3400b", ""); + _cur = _form->cursor(); + // setta il filtro sul cursore + if (*_mask->get(F_DAART)) + cfilter << "(CODART>=" <<'"' << _mask->get(F_DAART)<< "\")&&" ; + if (*_mask->get(F_AART)) + cfilter << "(CODART<=" <<'"' << _mask->get(F_AART)<< "\")&&" ; + if (cfilter.not_empty()) + cfilter.cut(cfilter.len()-2); + + // abilita/disabilita le sezioni dei totali + bool showdett; + showdett=_mask->get_bool(F_DETTAGLIODEP); + _form->setdett_permag(_mask->get_int(F_FROMLIVELLOART),_mask->get_int(F_TOLIVELLOART),_mask->get_int(F_FROMLIVELLOGIAC),_mask->get_int(F_TOLIVELLOGIAC),_mask->get_bool(F_TOTALIMAGAZZINI),_mask->get_bool(F_TOTALIDEPOSITI),showdett); + + darec.put("ANNOES",_mask->get(F_ANNOES)); + darec.put("CODMAG",_mask->get(F_DAMAG)); + arec.put("ANNOES",_mask->get(F_ANNOES)); + arec.put("CODMAG",_mask->get(F_AMAG)); + _cur->setfilter(cfilter); + _cur->setregion(darec,arec); +} + +bool TStampa_giacprezzi::set_print(int i) +{ + while (TRUE) { + if (_mask->run() != K_ENTER) + return FALSE; + + if (*_mask->get(F_ORDINE)=='A') + { + setprint_perarticoli(); + } else { + setprint_permagazzini(); + } + _form->print(); + delete _form; + } // while true + return TRUE; +} + +bool TStampa_giacprezzi::user_create() +{ + _mask = new TStgiacprezzi_mask; + _files = new TArray(); + _files->add(new TLocalisamfile(LF_MAG)); + return TRUE; +} + +bool TStampa_giacprezzi::user_destroy() +{ + delete _mask; + delete _files; + return TRUE; +} + +int mg3400(int argc, char* argv[]) +{ + TStampa_giacprezzi a;// derivata da Application e con uso di form + a.run(argc,argv,"Stampa giacenze e prezzi"); + return 0; +} diff --git a/mg/mg3400a.frm b/mg/mg3400a.frm new file mode 100755 index 000000000..f55d3ea63 --- /dev/null +++ b/mg/mg3400a.frm @@ -0,0 +1,1129 @@ +#include "mg3frm.h" +USE LF_ANAMAG KEY 1 +SORT LF_MAG BY ANNOES CODART LIVELLO CODMAG + JOIN TO LF_ANAMAG INTO ANNOES==1996 CODART==CODART +JOIN MAG TO LF_MAG ALIAS 500 INTO CODTAB==CODMAG[1,3] +JOIN MAG TO LF_MAG ALIAS 501 INTO CODTAB==CODMAG +JOIN GMC TO LF_ANAMAG ALIAS 400 INTO CODTAB==GRMERC[1,3] +JOIN GMC TO LF_ANAMAG ALIAS 401 INTO CODTAB==GRMERC +JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART +END + +DESCRIPTION +BEGIN + 47->* "Anagrafica articoli" + 109->* "Archivio Giacenze" + MAG->* "Tabella magazzini" + LF_UMART->* "Unitą di misura articoli" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 8 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 5 + +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 32 +BEGIN + KEY "Intestazione stampa" + PROMPT 55 2 "Stampa giacenze e prezzi" +END + +STRINGA 5 146 +BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" +END + + STRINGA 6 20 + BEGIN + KEY "H1" + PROMPT 2 4 "Codice" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 24 4 "Descrizione" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 45 4 "UM" + END + STRINGA 8 12 + BEGIN + KEY "H1" + PROMPT 55 4 "Giac." + END + STRINGA 9 12 + BEGIN + KEY "H1" + PROMPT 67 4 "Ult.cos." + END + STRINGA 10 12 + BEGIN + KEY "H1" + PROMPT 79 4 "Prezzo" + END + + STRINGA 17 146 + BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END + +END + +SECTION BODY ODD 0 COLUMNWISE + + NUMBER FF_FLAGTOTQTA 1 + BEGIN + FLAG "H" + PROMPT 1 1 "" + END + + SECTION H_CATMER 1 1 2 GROUP + STRINGA 11 12 2 + BEGIN + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE _USER,CODCATMER + END + STRINGA 12 30 2 + BEGIN + KEY "CODICE CATMER" + PROMPT 3 1 "" + MESSAGE _USER,CATMER|COPY,1550 + END + END + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,15@ + END + + SECTION GRUPPI_CATMER 1 0 1 FILE 47 GROUP GRMERC + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,14@ + END + SECTION H_GCODART1 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,1 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,1|COPY,1450 + END + END + + SECTION GRUPPI_CODART1 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,13@ + END + SECTION H_GCODART2 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,2 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,2|COPY,1350 + END + END + + SECTION GRUPPI_CODART2 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,12@ + END + SECTION H_GCODART3 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,3 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,3|COPY,1250 + END + END + + SECTION GRUPPI_CODART3 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,11@ + END + SECTION H_GCODART4 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,4 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,4|COPY,1150 + END + END + + SECTION GRUPPI_CODART4 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,10@ + END + SECTION H_GCODART5 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,5 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,5|COPY,1050 + END + END + + SECTION GRUPPI_CODART5 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,9@ + END + SECTION H_GCODART6 1 1 2 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,6 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,6|COPY,950 + END + END + + SECTION GRUPPI_CODART6 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,8@ + END + SECTION H_GCODART7 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,7 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,7|COPY,850 + END + END + + SECTION GRUPPI_CODART7 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,7@ + END + + SECTION H_GCODART8 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,8 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,8|COPY,750 + END + END + + SECTION GRUPPI_CODART8 1 0 0 FILE LF_ANAMAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,6@ + END + SECTION H_ARTICOLO 1 1 1 GROUP + STRINGA 2020 12 2 + BEGIN + KEY "CODICE articolo" + PROMPT 2 1 "" + FIELD CODART + END + STRINGA 21 30 2 + BEGIN + KEY "DESCR.articolo" + PROMPT 3 1 "" + FIELD LF_ANAMAG->DESCR + MESSAGE COPY,650 + END + END + + SECTION FILE_GIACENZE 1 1 0 FILE LF_MAG + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,5@ + END + SECTION H_GLIVGIAC1 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,1|COPY,550 + END + END + + SECTION GRUPPI_LIVGIAC1 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,4@ + END + SECTION H_GLIVGIAC2 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,2|COPY,450 + END + END + + SECTION GRUPPI_LIVGIAC2 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,3@ + END + + SECTION H_GLIVGIAC3 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,3|COPY,350 + END + END + + SECTION GRUPPI_LIVGIAC3 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,2@ + END + + SECTION H_GLIVGIAC4 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,4|COPY,250 + END + END + + SECTION GRUPPI_LIVGIAC4 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "MAGAZZ" + PROMPT 2 1 "" + MESSAGE RESET,1@ + END + SECTION H_MAGAZZINO 1 1 1 GROUP + STRINGA 60 40 1 + BEGIN + KEY "codice magazzino" + PROMPT 2 1 "Magazzino " + FIELD 500@->s0 + MESSAGE COPY,150 + END + END + + SECTION GRUPPI_MAGAZZINO 1 0 0 FILE LF_MAG GROUP CODMAG[1,3] + SECTION H_DEPOSITO 1 0 0 GROUP + END + SECTION TOT_DEPOSITO 1 1 1 GROUP + STRINGA 51 12 + BEGIN + KEY "CODICE" + PROMPT 2 1 " Deposito" + END + STRINGA 52 30 + BEGIN + KEY "descr" + PROMPT 3 1 "" + FIELD 501@->s0 + END + STRINGA 53 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + FIELD LF_UMART->UM + END + NUMERO 41 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + FIELD LF_MAG->giac + PICTURE "########,@#" + MESSAGE ADD,141 + END + END // depositi dello stesso magazzino + END // MAGAZZ + + SECTION TOT_MAGAZZINO 1 1 1 GROUP + STRINGA 150 30 1 + BEGIN + KEY "Magazzino" + PROMPT 3 1 "" + END + STRINGA 151 12 1 + BEGIN + KEY "Magazzino" + PROMPT 2 1 " Totale mag." + END + STRINGA 153 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + FIELD LF_UMART->UM + END + NUMERO 141 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + PICTURE "########,@#" + MESSAGE ADD,241 + GROUP 1 + END + END // tot magazz + + END // GGIAC4 + SECTION TOT_GLIVGIAC4 1 2 2 GROUP + STRINGA 277 + BEGIN + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 250 35 2 + BEGIN + PROMPT 3 2 "" + END + STRINGA 251 7 2 + BEGIN + KEY "Livello giac4" + PROMPT 2 2 " Totale" + END + STRINGA 253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 241 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,341 + GROUP 2 + END + END // tot ggiac4 + + END // GGIAC3 + SECTION TOT_GLIVGIAC3 1 2 2 GROUP + STRINGA 377 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 350 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 351 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 341 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,441 + GROUP 3 + END + END // tot ggiac3 + + END // GGIAC2 + SECTION TOT_GLIVGIAC2 1 2 2 GROUP + STRINGA 477 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 450 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 451 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 441 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,541 + GROUP 4 + END + END // tot ggiac2 + END // GGIAC1 + SECTION TOT_GLIVGIAC1 1 2 2 GROUP + STRINGA 577 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 550 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 551 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 541 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,641 + GROUP 5 + END + END // tot ggiac1 + + END // FILE GIACENZE + SECTION TOT_ARTICOLO 1 2 2 GROUP + STRINGA 677 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 650 30 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 651 12 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale art." + END + STRINGA 653 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + MESSAGE COPY,753 + END + NUMERO 641 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,741 + GROUP 6 + END + NUMERO 642 11 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "##.###.###" + FIELD LF_ANAMAG->ULTCOS1 +// MESSAGE ADD,742 + GROUP 6 + END + NUMERO 643 11 + BEGIN + KEY "PRZ" + PROMPT 8 2 "" + PICTURE "##.###.###" + MESSAGE _USER,PREZZO +// |ADD,743 + GROUP 6 + END + END // TOT ART + + END // GART8 + SECTION TOT_GART8 1 2 2 GROUP + STRINGA 777 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 750 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 751 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 753 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,853 + END + NUMERO 741 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#741|ADD,841 + GROUP 7 + END + NUMERO 742 11 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "##.###.###" + MESSAGE ADD,842 + GROUP 7 + END + NUMERO 743 11 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "##.###.###" + MESSAGE ADD,843 + GROUP 7 + END + END // tot gart8 + + END // GART7 + SECTION TOT_GART7 1 2 2 GROUP + STRINGA 877 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 850 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 851 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 853 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,953 + END + NUMERO 841 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,941 + GROUP 8 + END + NUMERO 842 11 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "##.###.###" + MESSAGE ADD,942 + GROUP 8 + END + NUMERO 843 11 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "##.###.###" + MESSAGE ADD,943 + GROUP 8 + END + END // tot gart7 + + END // GART6 + SECTION TOT_GART6 1 2 2 GROUP + STRINGA 977 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 950 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 951 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 953 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1053 + END + NUMERO 941 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1041 + GROUP 9 + END + NUMERO 942 11 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1042 + GROUP 9 + END + NUMERO 943 11 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1043 + GROUP 9 + END + END // tot gart6 + + END // GART5 + SECTION TOT_GART5 1 2 2 GROUP + STRINGA 1077 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1050 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1051 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1053 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1153 + END + NUMERO 1041 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1141 + GROUP 10 + END + NUMERO 1042 11 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1142 + GROUP 10 + END + NUMERO 1043 11 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1143 + GROUP 10 + END + END // tot gart5 + + END // GART4 + SECTION TOT_GART4 1 2 2 GROUP + STRINGA 1177 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1150 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1151 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1153 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1253 + END + NUMERO 1141 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1241 + GROUP 11 + END + NUMERO 1142 11 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1242 + GROUP 11 + END + NUMERO 1143 11 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1243 + GROUP 11 + END + END // tot gart4 + + END // GART3 + SECTION TOT_GART3 1 2 2 GROUP + STRINGA 1277 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1250 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1251 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1353 + END + NUMERO 1241 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1341 + GROUP 12 + END + NUMERO 1242 11 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1342 + GROUP 12 + END + NUMERO 1243 11 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1343 + GROUP 12 + END + END // tot gart3 + + END // GART2 + SECTION TOT_GART2 1 2 2 GROUP + STRINGA 1377 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1350 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1351 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1453 + END + NUMERO 1341 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1441 + GROUP 13 + END + NUMERO 1342 11 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1442 + GROUP 13 + END + NUMERO 1343 11 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1443 + GROUP 13 + END + END // tot gart2 + + END // GART1 + SECTION TOT_GART1 1 2 2 GROUP + STRINGA 1477 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1450 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1451 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1553 + END + NUMERO 1441 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1541 + GROUP 14 + END + NUMERO 1442 11 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1542 + GROUP 14 + END + NUMERO 1443 11 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "##.###.###" + MESSAGE ADD,1543 + GROUP 14 + END + END // tot gart1 + + END // GRUPPI_CATMER + SECTION TOT_CATMER 1 2 2 GROUP + STRINGA 1577 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1550 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1551 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + END + NUMERO 1541 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + GROUP 15 + END + NUMERO 1542 11 + BEGIN + KEY "ULC" + PROMPT 7 2 "" + PICTURE "##.###.###" + GROUP 15 + END + NUMERO 1543 11 + BEGIN + KEY "PREZZO" + PROMPT 8 2 "" + PICTURE "##.###.###" + GROUP 15 + END + END // tot catmerc + +END // section body, loop anamag + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "--------------" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END // fine footer + +END // fine form diff --git a/mg/mg3400b.frm b/mg/mg3400b.frm new file mode 100755 index 000000000..49372de4d --- /dev/null +++ b/mg/mg3400b.frm @@ -0,0 +1,1783 @@ +USE LF_MAG KEY 2 +JOIN LF_ANAMAG TO LF_MAG INTO CODART==CODART +JOIN MAG TO LF_MAG ALIAS 500 INTO CODTAB==CODMAG[1,3] +JOIN MAG TO LF_MAG ALIAS 501 INTO CODTAB==CODMAG +JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART +END + +DESCRIPTION +BEGIN + 47->* "Anagrafica articoli" + 109->* "Archivio Giacenze" + MAG->* "Tabella magazzini" + 49->* "Unitą di misura articoli" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 8 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 5 + +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 32 +BEGIN + KEY "Intestazione stampa" + PROMPT 55 2 "Stampa disponibilita'" +END + +STRINGA 5 146 +BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" +END + + STRINGA 6 20 + BEGIN + KEY "H1" + PROMPT 2 4 "Codice" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 24 4 "Descrizione" + END + STRINGA 7 40 + BEGIN + KEY "H1" + PROMPT 45 4 "UM" + END + STRINGA 8 12 + BEGIN + KEY "H1" + PROMPT 55 4 "Giac." + END + STRINGA 9 12 + BEGIN + KEY "H1" + PROMPT 67 4 "Ord.F." + END + STRINGA 10 12 + BEGIN + KEY "H1" + PROMPT 79 4 "Ord.C." + END + STRINGA 11 12 + BEGIN + KEY "H1" + PROMPT 91 4 "A c.lav." + END + STRINGA 12 12 + BEGIN + KEY "H1" + PROMPT 103 4 "In c.lav." + END + STRINGA 13 12 + BEGIN + KEY "H1" + PROMPT 116 4 "Prod.F." + END + STRINGA 14 12 + BEGIN + KEY "H1" + PROMPT 128 4 "Prod.C." + END + STRINGA 15 12 + BEGIN + KEY "H1" + PROMPT 139 4 "Disp." + END + + STRINGA 17 146 + BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------" + END + +END + +SECTION BODY ODD 0 COLUMNWISE + + NUMBER FF_FLAGTOTQTA 1 + BEGIN + FLAG "H" + PROMPT 1 1 "" + END + + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "MAGAZZ" + PROMPT 2 1 "" + MESSAGE RESET,1@ + END + SECTION H_MAGAZZINO 1 1 1 GROUP + STRINGA 60 40 1 + BEGIN + KEY "codice magazzino" + PROMPT 2 1 "Magazzino " + FIELD 500@->s0 + MESSAGE COPY,150 + END + END + + SECTION GRUPPI_MAGAZZINO 1 0 0 FILE LF_MAG GROUP CODMAG[1,3] + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "dep" + PROMPT 2 1 "" + MESSAGE RESET,15@ + END + SECTION H_DEPOSITO 1 1 1 GROUP + STRINGA 60 40 1 + BEGIN + KEY "codice dep" + PROMPT 2 1 "Deposito " + FIELD 501@->s0 + MESSAGE COPY,50 + END + END + + SECTION GRUPPI_DEPOSITO 1 0 0 FILE LF_MAG GROUP CODMAG[1,5] + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "gcodart1" + PROMPT 2 1 "" + MESSAGE RESET,14@ + END + SECTION H_GCODART1 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,1 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,1|COPY,1450 + END + END + + SECTION GRUPPI_CODART1 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,13@ + END + SECTION H_GCODART2 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,2 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,2|COPY,1350 + END + END + + SECTION GRUPPI_CODART2 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,12@ + END + SECTION H_GCODART3 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,3 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,3|COPY,1250 + END + END + + SECTION GRUPPI_CODART3 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,11@ + END + SECTION H_GCODART4 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,4 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,4|COPY,1150 + END + END + + SECTION GRUPPI_CODART4 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,10@ + END + SECTION H_GCODART5 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,5 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,5|COPY,1050 + END + END + + SECTION GRUPPI_CODART5 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,9@ + END + SECTION H_GCODART6 1 1 2 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,6 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,6|COPY,950 + END + END + + SECTION GRUPPI_CODART6 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,8@ + END + SECTION H_GCODART7 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,7 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,7|COPY,850 + END + END + + SECTION GRUPPI_CODART7 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,7@ + END + + SECTION H_GCODART8 1 1 1 GROUP + STRINGA 16 12 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 2 1 "" + MESSAGE _USER,CODGRUPPOART,8 + END + STRINGA 17 30 2 + BEGIN + KEY "CODICE GRUPPO" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOART,8|COPY,750 + END + END + + SECTION GRUPPI_CODART8 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,6@ + END + SECTION H_ARTICOLO 1 1 1 GROUP + STRINGA 2020 12 2 + BEGIN + KEY "CODICE articolo" + PROMPT 2 1 "" + FIELD LF_ANAMAG->CODART + END + STRINGA 21 30 2 + BEGIN + KEY "DESCR.articolo" + PROMPT 3 1 "" + FIELD LF_ANAMAG->DESCR + MESSAGE COPY,650 + END + END + + SECTION ARTICOLO 1 0 0 FILE LF_MAG GROUP CODART + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,5@ + END + SECTION H_GLIVGIAC1 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,1|COPY,550 + END + END + + SECTION GRUPPI_LIVGIAC1 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,4@ + END + SECTION H_GLIVGIAC2 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,2|COPY,450 + END + END + + SECTION GRUPPI_LIVGIAC2 1 0 0 FILE LF_MAG GROUP LIVELLO + STRINGA 60 40 1 + BEGIN + FLAGS "H" + KEY "CATMER" + PROMPT 2 1 "" + MESSAGE RESET,3@ + END + + SECTION H_GLIVGIAC3 1 1 1 GROUP + STRINGA 31 50 1 + BEGIN + KEY "Livello giac" + PROMPT 2 1 "" + MESSAGE _USER,GRUPPOGIAC,3|COPY,350 + END + END + + SECTION GRUPPI_LIVGIAC3 1 0 0 FILE LF_MAG GROUP LIVELLO + SECTION H_GLIVGIAC4 1 1 1 GROUP + END + + SECTION TOT_GLIVGIAC4 1 2 2 GROUP + STRINGA 251 2 + BEGIN + KEY "Livello giac4" + PROMPT 2 1 "" + END + STRINGA 250 40 1 + BEGIN + KEY "Livello giac" + PROMPT 3 1 "" + MESSAGE _USER,GRUPPOGIAC,4 + END + STRINGA 253 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + FIELD LF_UMART->UM + END + NUMERO 241 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + FIELD 109->GIAC + PICTURE "########,@#" + MESSAGE ADD,341 + END + NUMERO 242 11 + BEGIN + KEY "ORDF" + PROMPT 7 1 "" + FIELD 109->ordf + PICTURE "########,@#" + MESSAGE ADD,342 + GROUP 10 + END + + NUMERO 243 11 + BEGIN + KEY "ORDC" + PROMPT 8 1 "" + FIELD 109->ordc + PICTURE "########,@#" + MESSAGE ADD,343 + END + NUMERO 244 11 + BEGIN + KEY "ACL" + PROMPT 9 1 "" + FIELD 109->acl + PICTURE "########,@#" + MESSAGE ADD,344 + GROUP 10 + END + + NUMERO 245 11 + BEGIN + KEY "INCL" + PROMPT 10 1 "" + FIELD 109->incl + PICTURE "########,@#" + MESSAGE ADD,345 + END + NUMERO 246 11 + BEGIN + KEY "PRODFIN" + PROMPT 11 1 "" + PICTURE "########,@#" + FIELD 109->prodfin + MESSAGE ADD,346 + GROUP 10 + END + + NUMERO 247 11 + BEGIN + KEY "PRODCOMP" + PROMPT 12 1 "" + PICTURE "########,@#" + FIELD 109->prodcomp + MESSAGE ADD,347 + END + NUMERO 248 11 + BEGIN + KEY "DISPONIBILITA'" + PROMPT 13 1 "" + PICTURE "#######@,@#" + MESSAGE _NUMEXPR,109->giac+109->ORDF-109->ORDC+109->ACL-109->INCL+109->PRODFIN-109->PRODCOMP|ADD,348 + END + END // tot ggiac4 + + END // GGIAC3 + SECTION TOT_GLIVGIAC3 1 2 2 GROUP + STRINGA 377 + BEGIN + KEY "SEP" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 350 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 351 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 341 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,441 + GROUP 3 + END + NUMERO 342 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,442 + GROUP 3 25 + END + NUMERO 343 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,443 + GROUP 3 + END + NUMERO 344 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,444 + GROUP 3 25 + END + NUMERO 345 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,445 + GROUP 3 + END + NUMERO 346 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,446 + GROUP 3 25 + END + NUMERO 347 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,447 + GROUP 3 + END + NUMERO 348 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,448 + GROUP 3 + END + END // tot ggiac3 + + END // GGIAC2 + SECTION TOT_GLIVGIAC2 1 2 2 GROUP + STRINGA 477 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 450 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 451 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 441 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,541 + GROUP 4 + END + NUMERO 442 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,542 + GROUP 4 25 + END + NUMERO 443 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,543 + GROUP 4 + END + NUMERO 444 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,544 + GROUP 4 25 + END + NUMERO 445 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,545 + GROUP 4 + END + NUMERO 446 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,546 + GROUP 4 25 + END + NUMERO 447 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,547 + GROUP 4 + END + NUMERO 448 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,548 + GROUP 4 + END + END // tot ggiac2 + END // GGIAC1 + SECTION TOT_GLIVGIAC1 1 2 2 GROUP + STRINGA 577 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 550 35 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 551 7 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 553 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + END + NUMERO 541 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,641 + GROUP 5 + END + NUMERO 542 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,642 + GROUP 5 25 + END + NUMERO 543 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,643 + GROUP 5 + END + NUMERO 544 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,644 + GROUP 5 25 + END + NUMERO 545 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,645 + GROUP 5 + END + NUMERO 546 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,646 + GROUP 5 25 + END + NUMERO 547 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,647 + GROUP 5 + END + NUMERO 548 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,648 + GROUP 5 + END + END // tot ggiac1 + + END // FILE GIACENZE + SECTION TOT_ARTICOLO 1 2 2 GROUP + STRINGA 677 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 650 30 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 651 12 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale art." + END + STRINGA 653 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + FIELD LF_UMART->UM + MESSAGE COPY,753 + END + NUMERO 641 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,741 + GROUP 6 + END + NUMERO 642 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,742 + GROUP 6 25 + END + NUMERO 643 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,743 + GROUP 6 + END + NUMERO 644 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,744 + GROUP 6 25 + END + NUMERO 645 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,745 + GROUP 6 + END + NUMERO 646 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,746 + GROUP 6 25 + END + NUMERO 647 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,747 + GROUP 6 + END + NUMERO 648 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,748 + GROUP 6 + END + END // TOT ART + + END // GART8 + SECTION TOT_GART8 1 2 2 GROUP + STRINGA 777 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 750 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 751 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 753 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,853 + END + NUMERO 741 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#741|ADD,841 + GROUP 7 + END + NUMERO 742 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#742|ADD,842 + GROUP 7 25 + END + NUMERO 743 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#743|ADD,843 + GROUP 7 + END + NUMERO 744 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#744|ADD,844 + GROUP 7 25 + END + NUMERO 745 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#745|ADD,845 + GROUP 7 + END + NUMERO 746 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#746|ADD,846 + GROUP 7 25 + END + NUMERO 747 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#747|ADD,847 + GROUP 7 + END + NUMERO 748 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE _NUMEXPR,#FF_FLAGTOTQTA*#748|ADD,848 + GROUP 7 + END + END // tot gart8 + + END // GART7 + SECTION TOT_GART7 1 2 2 GROUP + STRINGA 877 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 850 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 851 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 853 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,953 + END + NUMERO 841 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,941 + GROUP 8 + END + NUMERO 842 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,942 + GROUP 8 25 + END + NUMERO 843 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,943 + GROUP 8 + END + NUMERO 844 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,944 + GROUP 8 25 + END + NUMERO 845 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,945 + GROUP 8 + END + NUMERO 846 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,946 + GROUP 8 25 + END + NUMERO 847 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,947 + GROUP 8 + END + NUMERO 848 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,948 + GROUP 8 + END + END // tot gart7 + + END // GART6 + SECTION TOT_GART6 1 2 2 GROUP + STRINGA 977 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 950 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 951 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 953 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1053 + END + NUMERO 941 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1041 + GROUP 9 + END + NUMERO 942 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1042 + GROUP 9 25 + END + NUMERO 943 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1043 + GROUP 9 + END + NUMERO 944 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1044 + GROUP 9 25 + END + NUMERO 945 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1045 + GROUP 9 + END + NUMERO 946 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1046 + GROUP 9 25 + END + NUMERO 947 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1047 + GROUP 9 + END + NUMERO 948 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1048 + GROUP 9 + END + END // tot gart6 + + END // GART5 + SECTION TOT_GART5 1 2 2 GROUP + STRINGA 1077 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1050 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1051 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1053 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1153 + END + NUMERO 1041 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1141 + GROUP 10 + END + NUMERO 1042 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1142 + GROUP 10 25 + END + NUMERO 1043 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1143 + GROUP 10 + END + NUMERO 1044 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1144 + GROUP 10 25 + END + NUMERO 1045 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1145 + GROUP 10 + END + NUMERO 1046 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1146 + GROUP 10 25 + END + NUMERO 1047 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1147 + GROUP 10 + END + NUMERO 1048 11 + BEGIN + KEY "DISP" + PROMPT 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1148 + GROUP 10 + END + END // tot gart5 + + END // GART4 + SECTION TOT_GART4 1 2 2 GROUP + STRINGA 1177 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1150 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1151 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1153 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1253 + END + NUMERO 1141 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1241 + GROUP 11 + END + NUMERO 1142 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1242 + GROUP 11 25 + END + NUMERO 1143 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1243 + GROUP 11 + END + NUMERO 1144 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1244 + GROUP 11 25 + END + NUMERO 1145 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1245 + GROUP 11 + END + NUMERO 1146 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1246 + GROUP 11 25 + END + NUMERO 1147 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1247 + GROUP 11 + END + NUMERO 1148 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1248 + GROUP 11 + END + END // tot gart4 + + END // GART3 + SECTION TOT_GART3 1 2 2 GROUP + STRINGA 1277 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1250 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1251 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1253 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1353 + END + NUMERO 1241 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1341 + GROUP 12 + END + NUMERO 1242 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1342 + GROUP 12 25 + END + NUMERO 1243 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1343 + GROUP 12 + END + NUMERO 1244 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1344 + GROUP 12 25 + END + NUMERO 1245 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1345 + GROUP 12 + END + NUMERO 1246 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1346 + GROUP 12 25 + END + NUMERO 1247 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1347 + GROUP 12 + END + NUMERO 1248 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1348 + GROUP 12 + END + END // tot gart3 + + END // GART2 + SECTION TOT_GART2 1 2 2 GROUP + STRINGA 1377 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1350 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1351 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1353 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,1453 + END + NUMERO 1341 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,1441 + GROUP 13 + END + NUMERO 1342 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,1442 + GROUP 13 25 + END + NUMERO 1343 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,1443 + GROUP 13 + END + NUMERO 1344 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,1444 + GROUP 13 25 + END + NUMERO 1345 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,1445 + GROUP 13 + END + NUMERO 1346 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,1446 + GROUP 13 25 + END + NUMERO 1347 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,1447 + GROUP 13 + END + NUMERO 1348 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,1448 + GROUP 13 + END + END // tot gart2 + + END // GART1 + SECTION TOT_GART1 1 2 2 GROUP + STRINGA 1477 + BEGIN + KEY "PRODC" + PROMPT 6 1 "----------------------------------------------------------------------------------------------------" + END + STRINGA 1450 34 2 + BEGIN + KEY "" + PROMPT 3 2 "" + END + STRINGA 1451 8 2 + BEGIN + KEY "" + PROMPT 2 2 " Totale" + END + STRINGA 1453 3 + BEGIN + KEY "UM" + PROMPT 5 2 "" + MESSAGE COPY,53 + END + NUMERO 1441 11 + BEGIN + KEY "GIAC" + PROMPT 6 2 "" + PICTURE "########,@#" + MESSAGE ADD,41 + GROUP 14 + END + NUMERO 1442 11 + BEGIN + KEY "ORDF" + PROMPT 7 2 "" + PICTURE "########,@#" + MESSAGE ADD,42 + GROUP 14 25 + END + NUMERO 1443 11 + BEGIN + KEY "ORDC" + PROMPT 8 2 "" + PICTURE "########,@#" + MESSAGE ADD,43 + GROUP 14 + END + NUMERO 1444 11 + BEGIN + KEY "ACL" + PROMPT 9 2 "" + PICTURE "########,@#" + MESSAGE ADD,44 + GROUP 14 25 + END + NUMERO 1445 11 + BEGIN + KEY "INCL" + PROMPT 10 2 "" + PICTURE "########,@#" + MESSAGE ADD,45 + GROUP 14 + END + NUMERO 1446 11 + BEGIN + KEY "PRODF" + PROMPT 11 2 "" + PICTURE "########,@#" + MESSAGE ADD,46 + GROUP 14 25 + END + NUMERO 1447 11 + BEGIN + KEY "PRODC" + PROMPT 12 2 "" + PICTURE "########,@#" + MESSAGE ADD,47 + GROUP 14 + END + NUMERO 1448 11 + BEGIN + KEY "DISP" + prompt 13 2 "" + PICTURE "########,@#" + MESSAGE ADD,48 + GROUP 14 + END + END // tot gart1 + + END // GRUPPI DEPOSITO + + SECTION TOT_DEPOSITO 1 1 1 GROUP + SECTION SEP_DEPOSITO 1 1 NORMAL GROUP + STRINGA 77 + BEGIN + KEY "giac" + PROMPT 52 1 "----------------------------------------------------------------------------------------------------" + END + END + STRINGA 51 12 + BEGIN + KEY "CODICE" + PROMPT 2 1 " Totale dep." + END + STRINGA 50 30 + BEGIN + KEY "descr" + PROMPT 3 1 "" + END + STRINGA 53 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + MESSAGE COPY,153 + END + NUMERO 41 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + PICTURE "########,@#" + MESSAGE ADD,141 + GROUP 15 + END + NUMERO 42 11 + BEGIN + KEY "ORDF" + PROMPT 7 1 "" + PICTURE "########,@#" + MESSAGE ADD,142 + GROUP 15 + END + + NUMERO 43 11 + BEGIN + KEY "ORDC" + PROMPT 8 1 "" + PICTURE "########,@#" + MESSAGE ADD,143 + GROUP 15 + END + NUMERO 44 11 + BEGIN + KEY "ACL" + PROMPT 9 1 "" + PICTURE "########,@#" + MESSAGE ADD,144 + GROUP 15 + END + NUMERO 45 11 + BEGIN + KEY "INCL" + PROMPT 10 1 "" + PICTURE "########,@#" + MESSAGE ADD,145 + END + NUMERO 46 11 + BEGIN + KEY "PRODFIN" + PROMPT 11 1 "" + PICTURE "########,@#" + MESSAGE ADD,146 + GROUP 15 + END + NUMERO 47 11 + BEGIN + KEY "PRODCOMP" + PROMPT 12 1 "" + PICTURE "########,@#" + MESSAGE ADD,147 + GROUP 15 + END + NUMERO 48 11 + BEGIN + KEY "DISPONIBILITA'" + PROMPT 13 1 "" + PICTURE "#######@,@#" + MESSAGE ADD,148 + GROUP 15 + END + END // tot depositi + END // MAGAZZ + + SECTION TOT_MAGAZZINO 1 1 1 GROUP + SECTION SEP_MAGAZZINO 1 1 1 NORMAL GROUP + STRINGA 77 + BEGIN + KEY "giac" + PROMPT 52 1 "----------------------------------------------------------------------------------------------------" + END + END + STRINGA 150 30 1 + BEGIN + KEY "Magazzino" + PROMPT 3 1 "" + END + STRINGA 151 12 1 + BEGIN + KEY "Magazzino" + PROMPT 2 1 " Totale mag." + END + STRINGA 153 3 + BEGIN + KEY "UM" + PROMPT 5 1 "" + END + NUMERO 141 11 + BEGIN + KEY "GIAC" + PROMPT 6 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 142 11 + BEGIN + KEY "ORDF" + PROMPT 7 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 143 11 + BEGIN + KEY "ORDC" + PROMPT 8 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 144 11 + BEGIN + KEY "ACL" + PROMPT 9 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 145 11 + BEGIN + KEY "INCL" + PROMPT 10 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 146 11 + BEGIN + KEY "PRODF" + PROMPT 11 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 147 11 + BEGIN + KEY "PRODC" + PROMPT 12 1 "" + PICTURE "########,@#" + GROUP 1 + END + NUMERO 148 11 + BEGIN + KEY "DISP" + PROMPT 13 1 "" + PICTURE "########,@#" + GROUP 1 + END + END // tot magazz + +END // section body, loop anamag + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "--------------" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END // fine footer + +END // fine form diff --git a/mg/mg3500.cpp b/mg/mg3500.cpp new file mode 100755 index 000000000..573ef2301 --- /dev/null +++ b/mg/mg3500.cpp @@ -0,0 +1,98 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include "mglib03.h" +#include "mg3500.h" +#include "mg3frm.h" + +// mg3200 Stampa +class TStampa_storgiac : public TPrint_application +{ + TArray * _files; + TMask * _mask; + TCursor * _cur; + TForm_stampemg * _form; // to be moved into TPrint_application + +protected: + virtual bool print_one(int file) + {return TRUE;} + virtual bool user_create(); + virtual bool user_destroy(); + virtual bool set_print(int i=1); + virtual void set_page(int file,int count) + { } + void setprint_permagazzini(); + void setprint_perarticoli(); + +public: + TStampa_storgiac() {} +}; + + +bool TStampa_storgiac::user_create() +{ + _mask = new TMask("mg3500"); + _files = new TArray(); + _files->add(new TLocalisamfile(LF_STOMAG)); + return TRUE; +} + +bool TStampa_storgiac::user_destroy() +{ + delete _mask; + delete _files; + return TRUE; +} + + +// ORDINAMENTO + +bool TStampa_storgiac::set_print(int i) +{ + while (TRUE) { + if (_mask->run() != K_ENTER) + return FALSE; + TRectype darec(LF_ANAMAG),arec(LF_ANAMAG); + TString cfilter,filter,joinexp; + + joinexp << "ANNOESRIF==" << _mask->get(F_ANNOES) << "|CODART==CODART"; + + _form = new TForm_stampemg("mg3500", ""); + _cur = _form->cursor(); + switch (*_mask->get(F_ORDINE)) + { + case 'C': + _cur->setkey(1); + darec.put("CODART",_mask->get(F_DAART)); + arec.put("CODART",_mask->get(F_AART)); + break; + case 'D': + _cur->setkey(2); + darec.put("DESCR",_mask->get(F_DADES)); + arec.put("DESCR",_mask->get(F_ADES)); + break; + } + _cur->relation()->replace(new TLocalisamfile(LF_STOMAG),1,joinexp); + _cur->setfilter(cfilter); + _cur->setregion(darec,arec); + _form->print(); + delete _form; + } // while true + return TRUE; +} + + +int mg3500(int argc, char* argv[]) +{ + TStampa_storgiac a;// derivata da Application e con uso di form + a.run(argc,argv,"Stampa storico rimanenze"); + return 0; +} diff --git a/mg/mg3500.frm b/mg/mg3500.frm new file mode 100755 index 000000000..35639bb98 --- /dev/null +++ b/mg/mg3500.frm @@ -0,0 +1,155 @@ +#define LF_UMART2 349 +USE LF_ANAMAG KEY 1 +JOIN LF_STOMAG TO LF_ANAMAG INTO ANNOESRIF==1996 CODART==CODART +JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART +JOIN LF_UMART TO LF_STOMAG KEY 2 ALIAS LF_UMART2 INTO CODART==CODART UM==UM +END + +DESCRIPTION +BEGIN + 47->* "Anagrafica articoli" + 109->* "Archivio Giacenze" + MAG->* "Tabella magazzini" + 49->* "Unitą di misura articoli" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 8 + CARATTERE "X" + INIZIALE 5 2 + FINALE 133 +END + +SECTION HEADER ODD 4 + +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 32 +BEGIN + KEY "Intestazione stampa" + PROMPT 45 2 "Stampa storico rimanenze" +END + +STRINGA 5 146 +BEGIN + KEY "Separatore (iniziale)" + PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------" +END + +END + + +SECTION BODY ODD 1 + + SECTION H_ARTICOLO 1 3 1 GROUP + STRINGA 11 20 + BEGIN + KEY "CODART" + PROMPT 2 1 "Articolo " + FIELD LF_ANAMAG->CODART + END + STRINGA 12 50 + BEGIN + KEY "DESCR" + PROMPT 33 1 "" + FIELD LF_ANAMAG->DESCR + END + END + + SECTION GRUPPI_ARTICOLO 1 0 0 COLUMNWISE FILE LF_STOMAG + SECTION HD_ANNI 1 2 1 COLUMNWISE GROUP + NUMERO 13 15 + BEGIN + KEY "offset" + PROMPT 1 1 "" + END + NUMERO 13 6 + BEGIN + KEY "ANNO" + PROMPT 2 1 "Anno" + END + STRINGA 15 12 + BEGIN + KEY "QUANT" + PROMPT 4 1 "Quantitą( " + FIELD LF_UMART->UM + END + NUMERO 16 12 + BEGIN + KEY "VALORE" + PROMPT 5 1 ") Valore" + END + END // HD ANNI + + SECTION BODY_ANNI 1 1 1 COLUMNWISE FILE LF_STOMAG GROUP CODART + NUMERO 13 15 + BEGIN + KEY "offset" + PROMPT 1 1 "" + END + NUMERO 14 6 + BEGIN + KEY "ANNO" + PROMPT 2 1 "" + FIELD LF_STOMAG->ANNOES + END + NUMERO 15 12 + BEGIN + KEY "QUANT" + PROMPT 4 1 "" + PICTURE "###.###,@@@" + MESSAGE _NUMEXPR,LF_STOMAG->QUANT*LF_UMART2@->FC + END + NUMERO 16 12 + BEGIN + KEY "VALORE" + PROMPT 5 1 "" + PICTURE "###.###.###" + MESSAGE _NUMEXPR,LF_STOMAG->VALORE*LF_UMART2@->FC + END + + END // body anni + END // gruppi anni dello stesso articolo + +END // section body, loop anamag + +SECTION FOOTER ODD 2 + STRINGA 100 + BEGIN + KEY "NUMP" + PROMPT 50 1 "--------------" + END + + NUMERO 101 + BEGIN + KEY "NUMPAGE" + PROMPT 50 2 "" + MESSAGE _PAGENO + PICTURE "-###-" + END + +END // fine footer + +END // fine form