diff --git a/cg/cg3200.cpp b/cg/cg3200.cpp index 28458884d..e42e4b440 100755 --- a/cg/cg3200.cpp +++ b/cg/cg3200.cpp @@ -1,11 +1,14 @@ #include -#include -#include #include #include #include #include +#include "cg3.h" +#include "cg3200.h" +#include "cglib02.h" +#include "cglib03.h" + #include #include #include @@ -16,11 +19,6 @@ #include #include -#include "cg3.h" -#include "cg3200.h" -#include "cglib02.h" -#include "cglib03.h" - class TMastrini_record : public TRectype { TBill _bill; @@ -37,11 +35,11 @@ public: const TString& TMastrini_record::get_str(const char* fieldname) const { - if (strcmp(fieldname, "DESCR") == 0) + if (strcmp(fieldname, RMV_DESCR) == 0) { - const int g = atoi(TRectype::get_str("GRUPPO")); - const int c = atoi(TRectype::get_str("CONTO")); - const long s = atol(TRectype::get_str("SOTTOCONTO")); + const int g = atoi(TRectype::get_str(RMV_GRUPPO)); + const int c = atoi(TRectype::get_str(RMV_CONTO)); + const long s = atol(TRectype::get_str(RMV_SOTTOCONTO)); ((TBill&)_bill).set(g, c, s); const TString& descr = _bill.descrizione(); return descr; @@ -51,14 +49,14 @@ const TString& TMastrini_record::get_str(const char* fieldname) const int TMastrini_record::length(const char* fieldname) const { - if (strcmp(fieldname, "DESCR") == 0) + if (strcmp(fieldname, RMV_DESCR) == 0) return 50; return TRectype::length(fieldname); } TFieldtypes TMastrini_record::type(const char* fieldname) const { - if (strcmp(fieldname, "DESCR") == 0) + if (strcmp(fieldname, RMV_DESCR) == 0) return _alfafld; return TRectype::type(fieldname); } @@ -90,7 +88,7 @@ class TMastrini_application : public TPrintapp TDate _data_ini,_data_fine,_data_finese,_data_finesesucc,_ultima_data_reg; TDate _datareg,_datadoc,_data_inizioese,_datareg_stampa,_inizioes; int _cur1,_cur2,_gruppo,_conto,_numcarat,_stampanum,_numivd,_annoiva; - int _numrig,_natdoc,_tipo,_tipostampa,_g_prec,_c_prec,_numrivd_int; + int _numrig,_natdoc,_tipo,_selez_mastrini,_g_prec,_c_prec,_numrivd_int; real _progredare,_progreavere,_totprogre_dare_al,_totprogre_avere_al; real _totprogre_dare,_totprogre_avere,_importo; real _riporto_dare,_riporto_avere,_riporto_parziale_dare,_riporto_parziale_avere; @@ -106,8 +104,9 @@ class TMastrini_application : public TPrintapp int _gruppocontr,_contocontr,_nummast,_pagina; long _sottocontocontr; - bool _stampaprogre,_stampatotiva,_stampatot,_stampa_mov_prov, _stampa_des_contro; + bool _stampaprogre,_stampatotiva,_stampatot,_stampa_mov_prov; bool _stampato,_devi_stampare_footer; + int _stampa_saldo_des; int _annomsk,_annoesmsk,_annoes,_annomsksucc,_tipo_mask,_anno_ghost; int _anno_corrente,_anno_precedente,_indbil,_numero_pag; @@ -240,16 +239,22 @@ int TMastrini_application::righe_rimaste_da_stampare() void TMastrini_application::process_link(int id, const char* txt) { - const char* const app = "cg2 -0"; + TRectype mov(LF_MOV); + mov.put(MOV_NUMREG, txt); + mov.edit(); + + /* Vecchio modo barbaro ed obsoleto + const char* const app = "cg2 -0"; TToken_string ss(10); ss.add("1"); ss.add(txt); - + TMessage fs(cmd2name(app), MSG_LN, ss); fs.send(); TExternal_app pn(app); pn.run(); + */ } // Visualizzo le commesse se necessario @@ -703,7 +708,7 @@ bool TMastrini_application::data_inizio(TMask_field& f, KEY k) } else { - if (data == botime) + if (!data.ok()) return f.error_box(TR("La data deve essere obbligatoriamente indicata")); if (app().date2esc(data) == 0) @@ -759,8 +764,6 @@ bool TMastrini_application::data_fine(TMask_field& f, KEY k) f.error_box(TR("La data finale non puo' essere inferiore alla data di partenza")); return FALSE; } - - } return TRUE; } @@ -935,7 +938,7 @@ void TMastrini_application::fai_stampa198() _c_contr = rmov.get(RMV_CONTOC); _s_contr = rmov.get(RMV_SOTTOCONTOC); - if (_stampa_des_contro) + if (_stampa_saldo_des == 3) { if (_sottocontocontr > 0) { @@ -977,7 +980,7 @@ void TMastrini_application::stampa_totali_commessa() { set_row (_rw,"@100g%r", &_totale_commessa_dare); set_row (_rw,"@117g%r", &_totale_commessa_avere); - if (!_stampa_des_contro) + if (_stampa_saldo_des < 3) set_row (_rw,"@135g%r", &_saldo_commessa); } } @@ -1197,16 +1200,19 @@ void TMastrini_application::stampa_totali198() set_row (++_rw,"@32g%s@100g%r", TR("TOTALI PROGRESSIVI"), &_totprogre_dare); set_row (_rw,"@117g%r", &_totprogre_avere); + set_row (_rw,"@135g%r", &_saldo_progressivi); - if (!_stampa_des_contro) + // il saldo totale movimenti non viene stampato se stampo le descrizioni delle contropartite + if (_stampa_saldo_des < 3) set_row (_rw,"@151g%r", &_saldo_movimenti); + if (_stampaprogre) //Progressivi attuali { _saldo_progre_al = _totprogre_dare_al - _totprogre_avere_al; set_row(++_rw,"@32g%s@55g%s", TR("TOTALI PROGRESSIVI AL"), _ultima_data_reg.string()); set_row (_rw,"@100g%r", &_totprogre_dare_al); set_row (_rw,"@117g%r", &_totprogre_avere_al); - if (!_stampa_des_contro) + if (_stampa_saldo_des < 3) set_row (_rw,"@135g%r", &_saldo_progre_al); } @@ -1238,7 +1244,7 @@ void TMastrini_application::carica_array_totali198() _totprogre_dare=_progredare+_totale_periodo_dare; _totprogre_avere=_progreavere+_totale_periodo_avere; - if (_stampa_des_contro) + if (_stampa_saldo_des == 3) r.add("@32g%s@100g%s@117g%s"); else r.add("@32g%s@100g%s@117g%s@151g%s"); @@ -1249,7 +1255,7 @@ void TMastrini_application::carica_array_totali198() _lista.add(r); r = ""; - if (_stampa_des_contro) + if (_stampa_saldo_des == 3) r.add("@32g%s@100g%s@117g%s"); else r.add("@32g%s@100g%s@117g%s@135g%s"); @@ -1445,16 +1451,16 @@ bool TMastrini_application::preprocess_page(int file, int counter) _saldo_movimenti = ZERO; _saldo_progressivi = ZERO; _saldo_progre_prec = ZERO; - if (_tipostampa == 2) + if (_selez_mastrini == 2) { calcola_progressivi(TRUE); _totale_saldo = _saldo_progre_prec; } - if ((_tipostampa == 1) || (_tipostampa == 2)) + if ((_selez_mastrini == 1) || (_selez_mastrini == 2)) { - if ((_tipostampa == 1 && almeno_un_record()) || - (_tipostampa == 2 && _totale_saldo != ZERO)) + if ((_selez_mastrini == 1 && almeno_un_record()) || + (_selez_mastrini == 2 && _totale_saldo != ZERO)) { _puoi_stampare = TRUE; @@ -1478,7 +1484,7 @@ bool TMastrini_application::preprocess_page(int file, int counter) } } else - if (_tipostampa == 3) + if (_selez_mastrini == 3) { calcola_progressivi(); if (_progredare == ZERO && _progreavere == ZERO && !almeno_un_record()) @@ -1989,13 +1995,12 @@ bool TMastrini_application::preprocess_page(int file, int counter) if (_numcarat == 1) // Stampa 132 caratteri set_row (_rw,"@83g%s", (const char*) _importo_str); - else - if (_numcarat == 2) // Stampa 198 caratteri - { - _saldo_progressivi += _importo; - _saldo_movimenti += _importo; - set_row (_rw,"@100g%s", (const char*) _importo_str); - } + else // Stampa 198 caratteri + { + _saldo_progressivi += _importo; + _saldo_movimenti += _importo; + set_row (_rw,"@100g%s", (const char*) _importo_str); + } } else if (_sezione == "A") { @@ -2006,13 +2011,12 @@ bool TMastrini_application::preprocess_page(int file, int counter) if (_numcarat == 1) // Stampa 132 caratteri set_row (_rw,"@100g%s", (const char*) _importo_str); - else - if (_numcarat == 2) // Stampa 198 caratteri - { - _saldo_progressivi -= _importo; - _saldo_movimenti -= _importo; - set_row (_rw,"@117g%s", (const char*) _importo_str); - } + else // Stampa 198 caratteri + { + _saldo_progressivi -= _importo; + _saldo_movimenti -= _importo; + set_row (_rw,"@117g%s", (const char*) _importo_str); + } } const int righe_rimaste = printer().rows_left(); @@ -2043,18 +2047,21 @@ bool TMastrini_application::preprocess_page(int file, int counter) datasuccstring=datasucc.string(); if (((gruppof!=_gruppo)||(contof!=_conto)||(sottocf!=_sottoc))||(rmov.eof())) datasucc = (""); - if (datasucc != _dataregrmov) + if (datasucc != _dataregrmov || _stampa_saldo_des == 2) { if (_flag_del_cazzo) { calcola_progressivi(); _saldo_progressivi += _saldo_progre_prec; - set_row (_rw,"@134g%r", &_saldo_progressivi); + set_row (_rw,"@135g%r", &_saldo_progressivi); _saldo_progressivi -= _saldo_progre_prec; _flag_del_cazzo = FALSE; } - if (!_stampa_des_contro) - set_row (_rw,"@135g%r", &_saldo_progressivi); + else + { + if (_stampa_saldo_des < 3) // Stampa saldo (non descrizioni) + set_row (_rw,"@135g%r", &_saldo_progressivi); + } } rmov.readat(rec); @@ -2157,7 +2164,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter) { if (_nummast == 1 || _nummast == 3) { - if (_tipostampa == 3) + if (_selez_mastrini == 3) { reset_print(); if (_numcarat == 1) @@ -2168,7 +2175,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter) if (_stampatotiva) stampa_totaliiva(); } - else if (_tipostampa == 2) + else if (_selez_mastrini == 2) { reset_print(); if ((_totale_saldo != 0.0) && (_puoi_stampare)) @@ -2181,7 +2188,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter) if (_stampatotiva) stampa_totaliiva(); } - else if (_tipostampa == 1) + else if (_selez_mastrini == 1) { reset_print(); if (_puoi_stampare) @@ -2207,7 +2214,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter) carica_array_totali198(); } - if (_tipostampa == 3) + if (_selez_mastrini == 3) { reset_print(); if (_numcarat == 1) @@ -2215,7 +2222,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter) else stampa_totali198_II(); } - else if (_tipostampa == 2) + else if (_selez_mastrini == 2) { reset_print(); if ((_totale_saldo != 0.0) && (_puoi_stampare)) @@ -2224,7 +2231,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter) else stampa_totali198_II(); } - else if (_tipostampa == 1) + else if (_selez_mastrini == 1) { reset_print(); if (_puoi_stampare) @@ -2426,10 +2433,10 @@ bool TMastrini_application::set_print(int m) _stampatotiva = _msk->get_bool(F_STAMPATOTIVA); _stampanum = _msk->get_int(F_STAMPANUM); _stampa_mov_prov = _msk->get_bool(F_STAMPAMOVPROV); - _tipostampa = _msk->get_int(F_TIPOSTAMPA); + _selez_mastrini = _msk->get_int(F_SELEZ_STAMPA); _numcarat = _msk->get_int(F_NUMCARAT); - _stampa_des_contro = (_numcarat==2) && _msk->get_bool(F_CONTRODES); + _stampa_saldo_des = _numcarat==2 ? _msk->get_int(F_SALDO_DES) : 0; _nummast = _msk->get_int(F_NUMMAST); _data_ini = _msk->get_date(F_DATAINI); _data_fine = _msk->get_date(F_DATAFINE); @@ -2495,7 +2502,7 @@ bool TMastrini_application::set_print(int m) _riga.destroy(); _lista.destroy(); - switch (_tipostampa) + switch (_selez_mastrini) { case 1: _totale_saldo = 1.0; break; case 2: _totale_saldo = 0.0; break; @@ -2579,30 +2586,30 @@ void TMastrini_application::preprocess_header() { if (_nummast == 1) { - if (_tipostampa == 3) + if (_selez_mastrini == 3) // Tutti crea_intestazione(); else - if (_tipostampa == 2) + if (_selez_mastrini == 2) // Con saldo non nullo { - if ((_totale_saldo != 0.0) && (_puoi_stampare)) + if ((!_totale_saldo.is_zero()) && (_puoi_stampare)) crea_intestazione(); } - else if (_tipostampa == 1) + else if (_selez_mastrini == 1) if (_puoi_stampare) crea_intestazione(); } else if (_nummast == 3 && !_gia_stampata_intestazione) { - if (_tipostampa == 3) + if (_selez_mastrini == 3) // Tutti crea_intestazione(); else - if (_tipostampa == 2) + if (_selez_mastrini == 2) // Con saldo non nullo { - if ((_totale_saldo != 0.0) && (_puoi_stampare)) + if ((!_totale_saldo.is_zero()) && (_puoi_stampare)) crea_intestazione(); } - else if (_tipostampa == 1) + else if (_selez_mastrini == 1) // Movimentati nel periodo if (_puoi_stampare) crea_intestazione(); } @@ -2726,9 +2733,6 @@ void TMastrini_application::ricerca_dati_ditta() void TMastrini_application::crea_intestazione() { TString sep(133),sep1(198); - sep = ""; - - reset_header(); int np = get_page_number(); @@ -2833,11 +2837,11 @@ void TMastrini_application::crea_intestazione() sep.fill('_'); set_header (9, (const char *) sep); } - else if (_numcarat == 2) + else { sep1.fill('_'); //Stampa 198 - (sep1(198)) set_header (6,"@0g%s", (const char*)sep1); - if (_stampa_des_contro) + if (_stampa_saldo_des == 3) { set_header (7,"%s@23g%s@183g%s@190g%s@197g%s", TR("Operazione"), TR("Documento"), @@ -2855,17 +2859,25 @@ void TMastrini_application::crea_intestazione() if (_stampanum < 3) set_header (8,"@11g%s", TR("Numero")); - if (_stampa_des_contro) + switch (_stampa_saldo_des) { - set_header (8,"@23g%s@34g%s@42g%s@70g%s@112g%s@127g%s@135g%s@183g%s@189g%s@197g%s", - TR("Data"), TR("Numero"), TR("Cod.Causale"), TR("Descrizione"), TR("Dare"), TR("Avere"), - TR("Contropartita"), TR("Iva"), TR("Protoc."), TR("C")); - } - else - { + case 1: set_header (8,"@23g%s@34g%s@42g%s@70g%s@112g%s@127g%s@135g%s@152g%s@169g%s@183g%s@189g%s@197g%s", TR("Data"), TR("Numero"), TR("Cod.Causale"), TR("Descrizione"), TR("Dare"), TR("Avere"), TR("Saldo progre."), TR("Saldo movim."), TR("Partita"), TR("Iva"), TR("Protoc."), TR("C")); + break; + case 2: + set_header (8,"@23g%s@34g%s@42g%s@70g%s@112g%s@127g%s@135g%s@152g%s@169g%s@183g%s@189g%s@197g%s", + TR("Data"), TR("Numero"), TR("Cod.Causale"), TR("Descrizione"), TR("Dare"), TR("Avere"), + TR("Saldo scalare"), TR("Saldo movim."), TR("Partita"), TR("Iva"), TR("Protoc."), TR("C")); + break; + case 3: + set_header (8,"@23g%s@34g%s@42g%s@70g%s@112g%s@127g%s@135g%s@183g%s@189g%s@197g%s", + TR("Data"), TR("Numero"), TR("Cod.Causale"), TR("Descrizione"), TR("Dare"), TR("Avere"), + TR("Contropartita"), TR("Iva"), TR("Protoc."), TR("C")); + break; + default: + break; } if (_stampa_mov_prov) @@ -2885,11 +2897,11 @@ void TMastrini_application::crea_intestazione() set_header (10,"@83g%s", real2str(_progredare)); set_header (10,"@100g%s", real2str(_progreavere)); } - if (_numcarat == 2) + else { set_header (10,"@70g%s@100g%s", TR("PROGRESSIVI PRECEDENTI"), real2str(_progredare)); set_header (10,"@117g%s", real2str(_progreavere)); - if (!_stampa_des_contro) + if (_stampa_saldo_des < 3) set_header (10,"@135g%s", real2str(_saldo_progre_prec)); } _riporto_dare = _progredare; @@ -3039,7 +3051,7 @@ int TMastrini_application::crea_intestazione(int start_riga) { sep1.fill('_'); //Stampa 198 - (sep1(198)) set_row (r++,"@0g%s", (const char*)sep1); - if (_stampa_des_contro) + if (_stampa_saldo_des == 2) set_row (r++,FR("Operazione@23gDocumento@183gReg@190gNumero@197gA")); else set_row (r++,FR("Operazione@23gDocumento@169gContro@183gReg@190gNumero@197gA")); @@ -3049,7 +3061,7 @@ int TMastrini_application::crea_intestazione(int start_riga) if (_stampanum < 3) set_row (r,"@11gnumero"); set_row (r,FR("@23gData@34gNumero@42gCod.Causale@70gDescrizione@112gDare@127gAvere")); - if (_stampa_des_contro) + if (_stampa_saldo_des == 2) set_row (r++,FR("@135gContropartita@183gIva@189gProtoc.@197gC")); else set_row (r++,FR("@135gSaldo progre.@152gSaldo movim.@169gPartita@183gIva@189gProtoc.@197gC")); @@ -3340,7 +3352,7 @@ int TMastrini_application::stampa_progressivi(int start_riga) { set_row (r,FR("@70gPROGRESSIVI PRECEDENTI@100g%r"), &_progredare); set_row (r,"@117g%r", &_progreavere); - if (!_stampa_des_contro) + if (_stampa_saldo_des < 3) set_row (r++,"@135g%r", &_saldo_progre_prec); } diff --git a/cg/cg3200.h b/cg/cg3200.h index 2ceee183d..08ac3db5d 100755 --- a/cg/cg3200.h +++ b/cg/cg3200.h @@ -34,7 +34,7 @@ #define F_STAMPANUM 112 #define F_STAMPAPROGRE 113 #define F_STAMPATOTIVA 114 -#define F_TIPOSTAMPA 115 +#define F_SELEZ_STAMPA 115 #define F_STAMPAMOVPROV 116 #define F_DACDC 117 #define F_ACDC 118 @@ -46,7 +46,7 @@ #define F_MEMORIZZA 500 #define F_NUMCARAT 501 #define F_NUMMAST 502 -#define F_CONTRODES 503 +#define F_SALDO_DES 503 #define F_CODDITTA 504 #define F_RAGSOC 505 #define F_SCELTE 506 diff --git a/cg/cg3200a.uml b/cg/cg3200a.uml index ad4ccb3a6..084453cff 100755 --- a/cg/cg3200a.uml +++ b/cg/cg3200a.uml @@ -24,7 +24,7 @@ PAGE "Stampa Mastrini" -1 -1 78 20 NUMBER F_CODDITTA 5 BEGIN - PROMPT 4 1 "Ditta " + PROMPT 1 1 "Ditta " FLAGS "FRD" USE LF_NDITTE KEY 1 CHECKTYPE REQUIRED @@ -37,33 +37,24 @@ END STRING F_RAGSOC 50 BEGIN - PROMPT 4 2 "Ragione sociale " + PROMPT 15 1 "" FLAGS "D" END -TEXT 96 +LIST F_TIPOCF_INI 25 BEGIN - PROMPT 4 11 "Dalla data competenza" -END - -TEXT 97 -BEGIN - PROMPT 40 11 "Alla data competenza " -END - -TEXT 98 -BEGIN - PROMPT 4 11 "Dalla data operazione " -END - -TEXT 99 -BEGIN - PROMPT 40 11 "Alla data operazione " + PROMPT 1 3 "Ricerca " + ITEM " |Gruppo/conto/sottoconto" + MESSAGE HIDE,2@|HIDE,3@|SHOW,1@ + ITEM "C|Clienti" + MESSAGE HIDE,1@|HIDE,3@|SHOW,2@ + ITEM "F|Fornitori" + MESSAGE HIDE,1@|HIDE,2@|SHOW,3@ END NUMBER F_ANNO 4 BEGIN - PROMPT 47 1 "Codice esercizio " + PROMPT 56 3 "Esercizio " USE ESC INPUT CODTAB F_ANNO DISPLAY "Codice Esercizio" CODTAB @@ -78,26 +69,15 @@ BEGIN ADD NONE END -LIST F_TIPOCF_INI 25 -BEGIN - PROMPT 4 4 "Ricerca " - ITEM " |Gruppo/conto/sottoconto" - MESSAGE HIDE,2@|HIDE,3@|SHOW,1@ - ITEM "C|Clienti" - MESSAGE HIDE,1@|HIDE,3@|SHOW,2@ - ITEM "F|Fornitori" - MESSAGE HIDE,1@|HIDE,2@|SHOW,3@ -END - NUMBER F_GRUPPOINI 3 BEGIN - PROMPT 4 5 "Da Gruppo - Conto - Sottoconto " + PROMPT 1 4 "Da Gruppo - Conto - Sottoconto " GROUP 9 END NUMBER F_CONTOINI_CONTO 3 BEGIN - PROMPT 41 5 "" + PROMPT 39 4 "" USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") INPUT GRUPPO F_GRUPPOINI INPUT CONTO F_CONTOINI_CONTO @@ -116,7 +96,7 @@ END NUMBER F_SOTTOCINI_CONTO 6 BEGIN - PROMPT 48 5 "" + PROMPT 48 4 "" USE LF_PCON SELECT SOTTOCONTO!="" INPUT GRUPPO F_GRUPPOINI INPUT CONTO F_CONTOINI_CONTO @@ -135,7 +115,7 @@ END STRING F_DESCRINI_CONTO 50 BEGIN - PROMPT 4 6 "Descrizione " + PROMPT 1 5 "Descrizione " USE LF_PCON KEY 2 CHECKTYPE NORMAL INPUT DESCR F_DESCRINI_CONTO @@ -149,7 +129,7 @@ END NUMBER F_SOTTOCINI_CLIENTE 6 BEGIN - PROMPT 48 5 "" + PROMPT 18 4 "" USE LF_CLIFO CHECKTYPE NORMAL INPUT TIPOCF "C" @@ -166,7 +146,7 @@ END STRING F_DESCRINI_CLIENTE 50 BEGIN - PROMPT 4 6 "Ragione sociale C " + PROMPT 1 5 "Ragione sociale C " FIELD LF_CLIFO->RAGSOC USE LF_CLIFO KEY 2 INPUT TIPOCF "C" @@ -182,7 +162,7 @@ END NUMBER F_SOTTOCINI_FORN 6 BEGIN - PROMPT 48 5 "" + PROMPT 18 4 "" USE LF_CLIFO CHECKTYPE NORMAL INPUT TIPOCF "F" @@ -200,7 +180,7 @@ END STRING F_DESCRINI_FORN 50 BEGIN - PROMPT 4 6 "Ragione Sociale F " + PROMPT 1 5 "Ragione Sociale F " USE LF_CLIFO KEY 2 INPUT TIPOCF "F" INPUT RAGSOC F_DESCRINI_FORN @@ -215,7 +195,7 @@ END LIST F_TIPOCF_FINE 25 BEGIN - PROMPT 4 7 "Ricerca " + PROMPT 1 6 "Ricerca " ITEM " |Gruppo/conto/sottoconto" MESSAGE HIDE,5@|HIDE,6@|SHOW,4@ ITEM "C|Clienti" @@ -226,13 +206,13 @@ END NUMBER F_GRUPPOFINE 3 BEGIN - PROMPT 4 8 "A Gruppo - Conto - Sottoconto " + PROMPT 1 7 "A Gruppo - Conto - Sottoconto " GROUP 9 END NUMBER F_CONTOFINE_CONTO 3 BEGIN - PROMPT 41 8 "" + PROMPT 39 7 "" USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") /* &&(TMCF="") */ INPUT GRUPPO F_GRUPPOFINE INPUT CONTO F_CONTOFINE_CONTO @@ -254,7 +234,7 @@ END NUMBER F_CONTOFINE_CLIENTE 3 BEGIN - PROMPT 41 8 "" + PROMPT 11 7 "" USE LF_PCON SELECT TMCF="C" INPUT GRUPPO F_GRUPPOFINE INPUT CONTO F_CONTOFINE_CLIENTE @@ -273,7 +253,7 @@ END NUMBER F_CONTOFINE_FORN 3 BEGIN - PROMPT 41 8 "" + PROMPT 11 7 "" USE LF_PCON SELECT TMCF="F" INPUT GRUPPO F_GRUPPOFINE INPUT CONTO F_CONTOFINE_FORN @@ -294,7 +274,7 @@ END NUMBER F_SOTTOCFINE_CONTO 6 BEGIN - PROMPT 48 8 "" + PROMPT 48 7 "" USE LF_PCON SELECT SOTTOCONTO!="" INPUT GRUPPO F_GRUPPOFINE INPUT CONTO F_CONTOFINE_CONTO @@ -314,7 +294,7 @@ END STRING F_DESCRFINE_CONTO 50 BEGIN - PROMPT 4 9 "Descrizione " + PROMPT 1 8 "Descrizione " USE LF_PCON KEY 2 CHECKTYPE NORMAL INPUT DESCR F_DESCRFINE_CONTO @@ -328,7 +308,7 @@ END NUMBER F_SOTTOCFINE_CLIENTE 6 BEGIN - PROMPT 48 8 "" + PROMPT 18 7 "" USE LF_CLIFO CHECKTYPE NORMAL WARNING "Cliente inesistente o mancante" @@ -346,7 +326,7 @@ END STRING F_DESCRFINE_CLIENTE 50 BEGIN - PROMPT 4 9 "Ragione sociale " + PROMPT 1 8 "Ragione sociale " FIELD LF_CLIFO->RAGSOC CHECKTYPE NORMAL USE LF_CLIFO KEY 2 @@ -363,7 +343,7 @@ END NUMBER F_SOTTOCFINE_FORN 6 BEGIN - PROMPT 48 8 "" + PROMPT 18 7 "" USE LF_CLIFO CHECKTYPE NORMAL WARNING "Fornitore inesistente o mancante" @@ -381,7 +361,7 @@ END STRING F_DESCRFINE_FORN 50 BEGIN - PROMPT 4 9 "Ragione Sociale " + PROMPT 1 8 "Ragione Sociale " USE LF_CLIFO KEY 2 CHECKTYPE NORMAL INPUT TIPOCF "F" @@ -395,67 +375,88 @@ BEGIN GROUP 6 9 END +TEXT 96 +BEGIN + PROMPT 1 9 "Dalla data competenza" +END + +TEXT 97 +BEGIN + PROMPT 40 9 "Alla data competenza " +END + +TEXT 98 +BEGIN + PROMPT 1 9 "Dalla data operazione " +END + +TEXT 99 +BEGIN + PROMPT 40 9 "Alla data operazione " +END + DATE F_DATAINI BEGIN - PROMPT 26 11 "" + PROMPT 26 9 "" END DATE F_DATAFINE BEGIN - PROMPT 62 11 "" + PROMPT 62 9 "" END BOOLEAN F_STAMPATOTIVA BEGIN - PROMPT 4 12 "Stampa totali documenti IVA" + PROMPT 1 10 "Stampa totali documenti IVA" GROUP 8 END BOOLEAN F_STAMPAPROGRE BEGIN - PROMPT 40 12 "Stampa progressivi attuali" + PROMPT 40 10 "Stampa progressivi attuali" GROUP 8 END BOOLEAN F_STAMPAMOVPROV BEGIN - PROMPT 4 13 "Stampa movimenti provvisori" + PROMPT 1 11 "Stampa movimenti provvisori" GROUP 8 END BOOLEAN F_SORTDESC BEGIN - PROMPT 40 13 "Stampa ordinata per descrizione" + PROMPT 40 11 "Stampa ordinata per descrizione" GROUP 8 END -LIST F_NUMCARAT 20 +RADIOBUTTON F_NUMCARAT 1 30 BEGIN - PROMPT 4 14 "Tipo di stampa " - ITEM "1|Nomale (132 crt.)" - MESSAGE HIDE,F_CONTRODES - ITEM "2|Estesa (198 crt.)" - MESSAGE SHOW,F_CONTRODES + PROMPT 1 11 "" + ITEM "1|Stampa Nomale (132 crt.)" + MESSAGE HIDE,F_SALDO_DES + ITEM "2|Stampa Estesa (198 crt.)" + MESSAGE SHOW,F_SALDO_DES END -RADIOBUTTON F_CONTRODES 1 38 +RADIOBUTTON F_SALDO_DES 1 38 BEGIN - PROMPT 42 13 "" - ITEM " |Stampa saldi progressivi" - ITEM "X|Stampa descrizione contropartite" + PROMPT 40 11 "" + ITEM "1|Stampa saldi progressivi" + ITEM "2|Stampa saldo scalare" + ITEM "3|Stampa descrizione contropartite" END LIST F_STAMPANUM 15 BEGIN - PROMPT 4 15 "Stampa numerazione " + PROMPT 1 15 "Stampa numerazione " ITEM "1|Operazione" ITEM "2|Riga giornale" ITEM "3|Nessuna" END -LIST F_TIPOSTAMPA 34 +LIST F_SELEZ_STAMPA 34 BEGIN - PROMPT 4 16 "Selezione mastrini " + PROMPT 1 16 "Selezione mastrini " ITEM "1|Movimentati nel periodo" ITEM "2|Con saldo diverso da 0" ITEM "3|Tutti" @@ -463,7 +464,7 @@ END GROUPBOX DLG_NULL 71 5 BEGIN - PROMPT 4 17 "@bCentri di costo / Commesse" + PROMPT 1 17 "@bCentri di costo / Commesse" GROUP 7 END @@ -533,13 +534,13 @@ PAGE "Parametri" -1 -1 78 20 BOOLEAN F_SEPARATOR BEGIN - PROMPT 4 1 "Non stampare il separatore delle migliaia" + PROMPT 1 1 "Non stampare il separatore delle migliaia" GROUP 8 END LIST F_NUMMAST 10 BEGIN - PROMPT 4 2 "Mastrini per pagina " + PROMPT 1 2 "Mastrini per pagina " ITEM "1|Uno" ITEM "2|Due" ITEM "3|Continua" @@ -601,7 +602,7 @@ END NUMBER F_GRUPPOINI 3 BEGIN - PROMPT 44 2 "" + PROMPT 14 2 "" END NUMBER F_CONTOINI_CLIENTE 3 @@ -772,7 +773,7 @@ END NUMBER F_GRUPPOFINE 3 BEGIN - PROMPT 44 4 "" + PROMPT 14 4 "" END NUMBER F_CONTOFINE_CLIENTE 3 @@ -941,7 +942,7 @@ END DATE F_DATAFINE BEGIN - PROMPT 44 6 "Alla data " + PROMPT 14 6 "Alla data " END BOOLEAN F_STAMPATOTIVA @@ -970,7 +971,7 @@ BEGIN ITEM "3|Nessuna" END -LIST F_TIPOSTAMPA 34 +LIST F_SELEZ_STAMPA 34 BEGIN PROMPT 1 10 "Tipo stampa " ITEM "1|Mastrini movimentati nel periodo" diff --git a/cg/cg3600b.uml b/cg/cg3600b.uml index 3b2a274f4..58e3c7325 100755 --- a/cg/cg3600b.uml +++ b/cg/cg3600b.uml @@ -4,13 +4,21 @@ TOOLBAR "" 0 -3 0 3 BUTTON DLG_LINK 10 2 BEGIN - PROMPT -12 -11 "Colle~ga" + PROMPT -13 -11 "Colle~ga" PICTURE BMP_LINK END +BUTTON DLG_NEWREC 10 2 +BEGIN + PROMPT -23 -11 "~Nuovo" + PICTURE BMP_NEWREC + PICTURE BMP_NEWRECDN + MESSAGE RUN,cg2 -0 +END + BUTTON DLG_CANCEL 10 2 BEGIN - PROMPT -22 -11 "" + PROMPT -33 -11 "" END ENDPAGE