root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 2.0 594

Browse Source 
Files correlati     : cg3.exe cg3200a.msk cg3600b.msk
Ricompilazione Demo : [ ]
Commento            :

Nuova implementazione:
2
Implemetare nella stampa mastrini la possibilità di avere il saldo a scalare.

Aggiunto bottone Nuovo in visualizzazione mastrini per inserire un nuovo movimento


git-svn-id: svn://10.65.10.50/trunk@11476 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2003-10-09 07:29:57 +00:00
parent c477d3021c
commit 28f61dc059
4 changed files with 184 additions and 163 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

178
cg/cg3200.cpp
View File

@ -1,11 +1,14 @@
#include <currency.h>
#include <execp.h>
#include <mailbox.h>
#include <modaut.h>
#include <msksheet.h>
#include <printapp.h>
#include <utility.h>
#include "cg3.h"
#include "cg3200.h"
#include "cglib02.h"
#include "cglib03.h"
#include <clifo.h>
#include <pconti.h>
#include <mov.h>
@ -16,11 +19,6 @@
#include <nditte.h>
#include <unloc.h>
#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);
}

4
cg/cg3200.h
View File

@ -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

153
cg/cg3200a.uml
View File

@ -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"

12
cg/cg3600b.uml
View File

@ -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