COrrezione stampa by Enrica
git-svn-id: svn://10.65.10.50/trunk@866 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
4a3fda6075
commit
c7a7073462
167
cg/cg3100.cpp
167
cg/cg3100.cpp
@ -51,8 +51,8 @@ HIDDEN const char* err_msg[] = {"La data operazione non appartiene a nessun eser
|
|||||||
"Codice causale non presente in tabella",
|
"Codice causale non presente in tabella",
|
||||||
"Codice causale sospeso",
|
"Codice causale sospeso",
|
||||||
"Nella causale e' stato attivato il segnale non va in allegato",
|
"Nella causale e' stato attivato il segnale non va in allegato",
|
||||||
"Tipo documento non presente in tabella",
|
|
||||||
"Tipo documento non corrisponde a quello indicato in causale",
|
"Tipo documento non corrisponde a quello indicato in causale",
|
||||||
|
"Tipo documento non presente in tabella",
|
||||||
"Codice registro non corrisponde a quello indicato in causale",
|
"Codice registro non corrisponde a quello indicato in causale",
|
||||||
"Codice registro non presente in tabella",
|
"Codice registro non presente in tabella",
|
||||||
"Codice registro sospeso",
|
"Codice registro sospeso",
|
||||||
@ -95,14 +95,13 @@ class TListaMov_application : public TPrintapp
|
|||||||
long _numreg, _numreg_fin, _numreg_ini, _codalleg, _numeroregp,_codclifosucc;
|
long _numreg, _numreg_fin, _numreg_ini, _codalleg, _numeroregp,_codclifosucc;
|
||||||
long _codcf_prec, _numr, _numero;
|
long _codcf_prec, _numr, _numero;
|
||||||
int _ae, _anno, _annoes, _annoeser;
|
int _ae, _anno, _annoes, _annoeser;
|
||||||
char _tipo;
|
|
||||||
real _totdocumenti, _totdoc, _totimponibile, _totimposta, _importo;
|
real _totdocumenti, _totdoc, _totimponibile, _totimposta, _importo;
|
||||||
real _op_esenti, _op_non_imp, _impo, _impos;
|
real _op_esenti, _op_non_imp, _impo, _impos;
|
||||||
real _tot_dare, _tot_avere, _tot_avere_giornaliero;
|
real _tot_dare, _tot_avere, _tot_avere_giornaliero;
|
||||||
real _tot_dare_giornaliero, _tot_dare_generale, _tot_avere_generale;
|
real _tot_dare_giornaliero, _tot_dare_generale, _tot_avere_generale;
|
||||||
bool _intra, _no_preprocess_page, _salto_pagina, _stampa_anno_comp,_esiste_riga_iva,_nonesiste_riga_iva;
|
bool _intra, _no_preprocess_page, _salto_pagina, _stampa_anno_comp,_esiste_riga_iva,_nonesiste_riga_iva;
|
||||||
bool _stampa_parte_iva,_alleg_causale,_stampa_mess_alleg_iva,_allegb,_ricser;
|
bool _stampa_parte_iva,_alleg_causale,_stampa_mess_alleg_iva,_allegb,_ricser;
|
||||||
bool _settata_prima_riga, _causale_gia_stampata;
|
bool _settata_prima_riga, _causale_gia_stampata,_mov_di_sola_iva;
|
||||||
int _cur1,_cur2,_cur2b,_cur3,_cur4,_decidi,_tipod,_controllo_mov_errati;
|
int _cur1,_cur2,_cur2b,_cur3,_cur4,_decidi,_tipod,_controllo_mov_errati;
|
||||||
int _numero_riga, _alleg, _tiporegistro, _tipocr, _scelta_stampa, _nr, _n;
|
int _numero_riga, _alleg, _tiporegistro, _tipocr, _scelta_stampa, _nr, _n;
|
||||||
liste _tipo_lista;
|
liste _tipo_lista;
|
||||||
@ -683,9 +682,9 @@ void TListaMov_application::stampa_errori_rmov()
|
|||||||
if (saldi.read() != NOERR)
|
if (saldi.read() != NOERR)
|
||||||
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto non presente in Saldi p.d.c.");
|
set_row(_nr++, "@11gCodice gruppo/conto/sottoconto non presente in Saldi p.d.c.");
|
||||||
|
|
||||||
TRecnotype numrec = current_cursor()->file(LF_RMOV).recno();
|
//TRecnotype numrec = current_cursor()->file(LF_RMOV).recno();
|
||||||
stampa_errori_contropartita();
|
//stampa_errori_contropartita();
|
||||||
current_cursor()->file(LF_RMOV).readat(numrec);
|
//current_cursor()->file(LF_RMOV).readat(numrec);
|
||||||
}
|
}
|
||||||
|
|
||||||
void TListaMov_application::stampa_errori_contropartita()
|
void TListaMov_application::stampa_errori_contropartita()
|
||||||
@ -795,9 +794,9 @@ void TListaMov_application::set_page(int file, int count)
|
|||||||
// set_row(_nr,"@5g@3s",FLD(LF_MOV,MOV_CODCAUS));
|
// set_row(_nr,"@5g@3s",FLD(LF_MOV,MOV_CODCAUS));
|
||||||
// set_row(_nr,"@9g#.20t", &_descr_causale);
|
// set_row(_nr,"@9g#.20t", &_descr_causale);
|
||||||
set_row(_nr,"@30g@24s",FLD(LF_RMOV,RMV_DESCR));
|
set_row(_nr,"@30g@24s",FLD(LF_RMOV,RMV_DESCR));
|
||||||
set_row(_nr,"@56g@3n",FLD(LF_RMOV,RMV_GRUPPO));
|
set_row(_nr,"@56g@pn",FLD(LF_RMOV,RMV_GRUPPO,"###"));
|
||||||
set_row(_nr,"@60g@3n",FLD(LF_RMOV,RMV_CONTO));
|
set_row(_nr,"@60g@pn",FLD(LF_RMOV,RMV_CONTO,"###"));
|
||||||
set_row(_nr,"@64g@6n",FLD(LF_RMOV,RMV_SOTTOCONTO));
|
set_row(_nr,"@64g@pn",FLD(LF_RMOV,RMV_SOTTOCONTO,"######"));
|
||||||
set_row(_nr,"@71g#.21t",&_descr);
|
set_row(_nr,"@71g#.21t",&_descr);
|
||||||
_appoggio = current_cursor()->curr(LF_RMOV).get(RMV_SEZIONE);
|
_appoggio = current_cursor()->curr(LF_RMOV).get(RMV_SEZIONE);
|
||||||
if ((_appoggio=="D")||(_appoggio=="d"))
|
if ((_appoggio=="D")||(_appoggio=="d"))
|
||||||
@ -812,13 +811,6 @@ void TListaMov_application::set_page(int file, int count)
|
|||||||
dep = "";
|
dep = "";
|
||||||
_n = 1;
|
_n = 1;
|
||||||
set_row (_n++,(const char*)dep);
|
set_row (_n++,(const char*)dep);
|
||||||
/*
|
|
||||||
set_row (_n, "Operazione n. @18g@7n", FLD(LF_MOV,MOV_NUMREG));
|
|
||||||
set_row (_n, "@26gdel@30g@d",FLD(LF_MOV,MOV_DATAREG));
|
|
||||||
set_row (_n, "@41g@40s@r",FLD(LF_MOV,MOV_DESCR));
|
|
||||||
set_row (_n, "@82gdoc. @87g@7s",FLD(LF_MOV,MOV_NUMDOC));
|
|
||||||
set_row (_n, "@95gdel@99g@d", FLD(LF_MOV,MOV_DATADOC));
|
|
||||||
*/
|
|
||||||
set_row (_n, "Operazione n. @14g@7n", FLD(LF_MOV,MOV_NUMREG));
|
set_row (_n, "Operazione n. @14g@7n", FLD(LF_MOV,MOV_NUMREG));
|
||||||
set_row (_n, "@22gdel@26g@d",FLD(LF_MOV,MOV_DATAREG));
|
set_row (_n, "@22gdel@26g@d",FLD(LF_MOV,MOV_DATAREG));
|
||||||
set_row (_n, "@37g@36s",FLD(LF_MOV,MOV_DESCR));
|
set_row (_n, "@37g@36s",FLD(LF_MOV,MOV_DESCR));
|
||||||
@ -864,9 +856,9 @@ void TListaMov_application::stampa_intestazione()
|
|||||||
sep = "";
|
sep = "";
|
||||||
set_row (1,(const char*)sep);
|
set_row (1,(const char*)sep);
|
||||||
if (_tipo_elenco == "C")
|
if (_tipo_elenco == "C")
|
||||||
set_row (2, "@bCliente@9g@6n", FLD(LF_MOV,MOV_CODCF));
|
set_row (2, "@bCliente@8g@6n", FLD(LF_MOV,MOV_CODCF));
|
||||||
else
|
else
|
||||||
set_row (2, "@bFornitore@12g@6n", FLD(LF_MOV,MOV_CODCF));
|
set_row (2, "@bFornitore@10g@6n", FLD(LF_MOV,MOV_CODCF));
|
||||||
set_row (2, "@b@18g#.35t", &_ragsoc);
|
set_row (2, "@b@18g#.35t", &_ragsoc);
|
||||||
set_row (2, "@b@54gInd #.29t", &_indcf);
|
set_row (2, "@b@54gInd #.29t", &_indcf);
|
||||||
set_row (2, "@b@87g#.10t", &_civcf);
|
set_row (2, "@b@87g#.10t", &_civcf);
|
||||||
@ -907,10 +899,10 @@ bool TListaMov_application::preprocess_page(int file,int counter)
|
|||||||
_datacomp = current_cursor()->curr(LF_MOV).get_date(MOV_DATACOMP);
|
_datacomp = current_cursor()->curr(LF_MOV).get_date(MOV_DATACOMP);
|
||||||
_causale = current_cursor()->curr(LF_MOV).get(MOV_CODCAUS);
|
_causale = current_cursor()->curr(LF_MOV).get(MOV_CODCAUS);
|
||||||
_registro = current_cursor()->curr(LF_MOV).get(MOV_REG);
|
_registro = current_cursor()->curr(LF_MOV).get(MOV_REG);
|
||||||
_anno = current_cursor()->curr(LF_MOV).get_int(MOV_ANNOIVA);
|
_anno = current_cursor()->curr(LF_MOV).get_int(MOV_ANNOIVA);
|
||||||
_tipodoc = current_cursor()->curr(LF_MOV).get(MOV_TIPODOC);
|
_tipodoc = current_cursor()->curr(LF_MOV).get(MOV_TIPODOC);
|
||||||
_datareg = current_cursor()->file(LF_MOV).get_date(MOV_DATAREG);
|
_datareg = current_cursor()->file(LF_MOV).get_date(MOV_DATAREG);
|
||||||
_tipo = current_cursor()->file(LF_MOV).get_char(MOV_TIPO);
|
_tipo_elenco = current_cursor()->file(LF_MOV).get(MOV_TIPO);
|
||||||
_codcf = current_cursor()->file(LF_MOV).get_long(MOV_CODCF);
|
_codcf = current_cursor()->file(LF_MOV).get_long(MOV_CODCF);
|
||||||
_numero = current_cursor()->file(LF_MOV).get_long(MOV_NUMREG);
|
_numero = current_cursor()->file(LF_MOV).get_long(MOV_NUMREG);
|
||||||
_codval = cur->curr(LF_MOV).get(MOV_CODVALI);
|
_codval = cur->curr(LF_MOV).get(MOV_CODVALI);
|
||||||
@ -918,7 +910,14 @@ bool TListaMov_application::preprocess_page(int file,int counter)
|
|||||||
|
|
||||||
_causale_gia_stampata = FALSE;
|
_causale_gia_stampata = FALSE;
|
||||||
_ae = date2esc(_datareg);
|
_ae = date2esc(_datareg);
|
||||||
|
|
||||||
|
if (_registro.not_empty()) //si tratta di fattura
|
||||||
|
if (current_cursor()->is_first_match(LF_RMOV))
|
||||||
|
_mov_di_sola_iva = FALSE;
|
||||||
|
else _mov_di_sola_iva = TRUE;
|
||||||
|
|
||||||
|
_descr_doc = DescrDoc(_tipodoc);
|
||||||
|
|
||||||
TLocalisamfile& fl = current_cursor()->file(LF_MOV);
|
TLocalisamfile& fl = current_cursor()->file(LF_MOV);
|
||||||
TRectype da (fl.curr());
|
TRectype da (fl.curr());
|
||||||
TRectype a (fl.curr());
|
TRectype a (fl.curr());
|
||||||
@ -969,7 +968,7 @@ bool TListaMov_application::preprocess_page(int file,int counter)
|
|||||||
if (!_causale_gia_stampata)
|
if (!_causale_gia_stampata)
|
||||||
{
|
{
|
||||||
set_row(_nr,"@4g%3s", (const char*) _causale);
|
set_row(_nr,"@4g%3s", (const char*) _causale);
|
||||||
set_row(_nr,"@8g%.20s@r", (const char*) _descr_causale);
|
set_row(_nr,"@8g%-.20s", (const char*) _descr_causale);
|
||||||
_causale_gia_stampata = TRUE;
|
_causale_gia_stampata = TRUE;
|
||||||
}
|
}
|
||||||
int gruppo = current_cursor()->curr(LF_RMOV).get_int(RMV_GRUPPO);
|
int gruppo = current_cursor()->curr(LF_RMOV).get_int(RMV_GRUPPO);
|
||||||
@ -1060,7 +1059,7 @@ bool TListaMov_application::preprocess_page(int file,int counter)
|
|||||||
if (!_causale_gia_stampata)
|
if (!_causale_gia_stampata)
|
||||||
{
|
{
|
||||||
set_row(_nr,"@4g%3s", (const char*) _causale);
|
set_row(_nr,"@4g%3s", (const char*) _causale);
|
||||||
set_row(_nr,"@8g%.20s@r", (const char*) _descr_causale);
|
set_row(_nr,"@8g%-.20s", (const char*) _descr_causale);
|
||||||
_causale_gia_stampata = TRUE;
|
_causale_gia_stampata = TRUE;
|
||||||
}
|
}
|
||||||
long gruppo = atol(current_cursor()->curr(LF_RMOV).get(RMV_GRUPPO));
|
long gruppo = atol(current_cursor()->curr(LF_RMOV).get(RMV_GRUPPO));
|
||||||
@ -1217,7 +1216,7 @@ bool TListaMov_application::preprocess_page(int file,int counter)
|
|||||||
set_row(2,"@42g@6,rs",FLD(LF_MOV,MOV_NUMDOC));
|
set_row(2,"@42g@6,rs",FLD(LF_MOV,MOV_NUMDOC));
|
||||||
set_row(2,"@49g@3s",FLD(LF_MOV,MOV_CODCAUS));
|
set_row(2,"@49g@3s",FLD(LF_MOV,MOV_CODCAUS));
|
||||||
set_row(2,"@53g@2s",FLD(LF_MOV,MOV_TIPODOC));
|
set_row(2,"@53g@2s",FLD(LF_MOV,MOV_TIPODOC));
|
||||||
set_row(2,"@56g%.12s@r", (const char *)_descr_doc);
|
set_row(2,"@56g%-.12s", (const char *)_descr_doc);
|
||||||
set_row(2,"@68g@pN",FLD(LF_MOV,MOV_TOTDOC,"###.###.###.###"));
|
set_row(2,"@68g@pN",FLD(LF_MOV,MOV_TOTDOC,"###.###.###.###"));
|
||||||
set_row(2,"@84g@pN",FLD(LF_RMOVIVA,RMI_IMPONIBILE,"###.###.###.###"));
|
set_row(2,"@84g@pN",FLD(LF_RMOVIVA,RMI_IMPONIBILE,"###.###.###.###"));
|
||||||
set_row(2,"@101g@4s",FLD(LF_RMOVIVA,RMI_CODIVA));
|
set_row(2,"@101g@4s",FLD(LF_RMOVIVA,RMI_CODIVA));
|
||||||
@ -1278,16 +1277,23 @@ print_action TListaMov_application::postprocess_page(int file,int count)
|
|||||||
reset_print();
|
reset_print();
|
||||||
_err.reset();
|
_err.reset();
|
||||||
int n = 1;
|
int n = 1;
|
||||||
|
int r = 0;
|
||||||
|
if (_scelta_stampa == 0)
|
||||||
|
if (_registro.not_empty() && _mov_di_sola_iva)
|
||||||
|
{
|
||||||
|
compila_clifo();
|
||||||
|
set_row(++r, "@1g%3s %-.20s@25g%-35s %6ld %-50s", (const char*)_causale, (const char*)_descr_causale,
|
||||||
|
(const char*) _descr_doc, _codcf, (const char*)_ragsoc);
|
||||||
|
}
|
||||||
if ( _scelta_stampa == 0 && _stampa_parte_iva )
|
if ( _scelta_stampa == 0 && _stampa_parte_iva )
|
||||||
{
|
{
|
||||||
int r = 0;
|
|
||||||
for (int j = 0; j < _c.items(); j++)
|
for (int j = 0; j < _c.items(); j++)
|
||||||
{
|
{
|
||||||
TRigaiva& riga = (TRigaiva&)_c[j];
|
TRigaiva& riga = (TRigaiva&)_c[j];
|
||||||
//r = j+1;
|
//r = j+1;
|
||||||
r++;
|
r++;
|
||||||
set_row(r, "Imponibile@12g%15.0r", &riga._imponibile);
|
set_row(r, "Imponibile@12g%r", &riga._imponibile);
|
||||||
set_row(r, "@31gImposta@39g%15.0r", &riga._imposta);
|
set_row(r, "@31gImposta@39g%r", &riga._imposta);
|
||||||
set_row(r, "@58gCodice Iva@69g%3s", (const char*)riga._codiva);
|
set_row(r, "@58gCodice Iva@69g%3s", (const char*)riga._codiva);
|
||||||
switch (riga._tipodet)
|
switch (riga._tipodet)
|
||||||
{
|
{
|
||||||
@ -1309,20 +1315,21 @@ print_action TListaMov_application::postprocess_page(int file,int count)
|
|||||||
}
|
}
|
||||||
real corrval = current_cursor()->file(LF_MOV).get_real(MOV_CORRVALUTA);
|
real corrval = current_cursor()->file(LF_MOV).get_real(MOV_CORRVALUTA);
|
||||||
real corrlire = current_cursor()->file(LF_MOV).get_real(MOV_CORRLIRE);
|
real corrlire = current_cursor()->file(LF_MOV).get_real(MOV_CORRLIRE);
|
||||||
|
TString vall (corrval.string("###.###.###.###,@@"));
|
||||||
if (corrval != ZERO)
|
if (corrval != ZERO)
|
||||||
{
|
{
|
||||||
set_row(++r,"Corr.in lire@14g%r", &corrlire);
|
set_row(++r,"Corr.in lire@14g%r", &corrlire);
|
||||||
set_row(r,"@34gCorr.in valuta@49g%r", &corrval);
|
set_row(r,"@34gCorr.in valuta@49g%s", (const char*)vall);
|
||||||
set_row(r,"@66g%.3s", (const char *)_codval);
|
set_row(r,"@70g%-3s", (const char *)_codval);
|
||||||
}
|
}
|
||||||
if (_esiste_riga_iva)
|
if (_esiste_riga_iva)
|
||||||
set_row(++r, "@11gPresenti righe IVA in una registrazione senza IVA");
|
set_row(++r, "@11gPresenti righe IVA in una registrazione senza IVA");
|
||||||
if (_nonesiste_riga_iva)
|
if (_nonesiste_riga_iva)
|
||||||
set_row(++r, "@11gNon presente alcuna riga IVA in una registrazione con IVA");
|
set_row(++r, "@11gNon presente alcuna riga IVA in una registrazione con IVA");
|
||||||
_c.destroy();
|
_c.destroy();
|
||||||
if (r > 0)
|
}
|
||||||
n = ++r;
|
if (r > 0)
|
||||||
}
|
n = ++r;
|
||||||
TRecnotype pos, items;
|
TRecnotype pos, items;
|
||||||
bool FINITO = FALSE;
|
bool FINITO = FALSE;
|
||||||
if ((_scelta_stampa == 0)&&(_controllo_mov_errati != 3)&&(_tot_dare != _tot_avere))
|
if ((_scelta_stampa == 0)&&(_controllo_mov_errati != 3)&&(_tot_dare != _tot_avere))
|
||||||
@ -1342,7 +1349,7 @@ print_action TListaMov_application::postprocess_page(int file,int count)
|
|||||||
TCursor * cur = current_cursor();
|
TCursor * cur = current_cursor();
|
||||||
cur->save_status();
|
cur->save_status();
|
||||||
++(*cur);
|
++(*cur);
|
||||||
datarec = cur->file(LF_MOV).get_date(MOV_DATAREG);
|
datarec = cur->file(LF_MOV).get_date(MOV_DATAREG);
|
||||||
--(*cur);
|
--(*cur);
|
||||||
cur->restore_status();
|
cur->restore_status();
|
||||||
}
|
}
|
||||||
@ -1399,15 +1406,16 @@ break;
|
|||||||
real corrlire = cur->file(LF_MOV).get_real(MOV_CORRLIRE);
|
real corrlire = cur->file(LF_MOV).get_real(MOV_CORRLIRE);
|
||||||
if (corrval != ZERO)
|
if (corrval != ZERO)
|
||||||
{
|
{
|
||||||
|
TString vall (corrval.string("###.###.###.###,@@"));
|
||||||
set_row(rr,"Corr.in lire@14g%r", &corrlire);
|
set_row(rr,"Corr.in lire@14g%r", &corrlire);
|
||||||
set_row(rr,"@34gCorr.in valuta@49g%r", &corrval);
|
set_row(rr,"@34gCorr.in valuta@49g%s", (const char*) vall);
|
||||||
/*
|
/*
|
||||||
if (_simbolo.not_empty())
|
if (_simbolo.not_empty())
|
||||||
set_row(1,"@65g%.5s", (const char *)_simbolo);
|
set_row(1,"@65g%.5s", (const char *)_simbolo);
|
||||||
else
|
else
|
||||||
set_row(1,"@65g%.3s", (const char *)_codval);
|
set_row(1,"@65g%.3s", (const char *)_codval);
|
||||||
*/
|
*/
|
||||||
set_row(rr++,"@66g%.3s", (const char *)_codval);
|
set_row(rr++,"@70g%-3s", (const char *)_codval);
|
||||||
}
|
}
|
||||||
_totdocumenti += _totdoc;
|
_totdocumenti += _totdoc;
|
||||||
TRecnotype pos, items;
|
TRecnotype pos, items;
|
||||||
@ -1434,15 +1442,15 @@ break;
|
|||||||
TString blank = "";
|
TString blank = "";
|
||||||
set_row(rr++,(const char*)blank);
|
set_row(rr++,(const char*)blank);
|
||||||
if ((_tipo_elenco == "C")||(_tipo_elenco == "c"))
|
if ((_tipo_elenco == "C")||(_tipo_elenco == "c"))
|
||||||
set_row(rr++, "@bTotali Cliente@18gDocumenti Totale documenti@45gAllegati:@56gImponibile@75gImposta@94gop. esenti@112gop. non imp.");
|
set_row(rr++, "@bTotali Cliente@18gDocumenti Totale documenti@47gAllegati:@63gImponibile@82gImposta@95gop. esenti@110gop. non imp.");
|
||||||
else
|
else
|
||||||
set_row(rr++, "@bTotali Fornitore@18gDocumenti Totale documenti@47gAllegati:@56gImponibile@75gImposta@94gop. esenti@112gop. non imp.");
|
set_row(rr++, "@bTotali Fornitore@18gDocumenti Totale documenti@49gAllegati:@63gImponibile@82gImposta@95gop. esenti@110gop. non imp.");
|
||||||
set_row(rr, "@b@18g%9d", _documenti);
|
set_row(rr, "@b@18g%9d", _documenti);
|
||||||
set_row(rr, "@b@28g%r", &_totdocumenti);
|
set_row(rr, "@b@29g%r", &_totdocumenti);
|
||||||
set_row(rr, "@b@56g%r", &_totimponibile);
|
set_row(rr, "@b@58g%r", &_totimponibile);
|
||||||
set_row(rr, "@b@75g%r", &_totimposta);
|
set_row(rr, "@b@74g%r", &_totimposta);
|
||||||
set_row(rr, "@b@94g%r", &_op_esenti);
|
set_row(rr, "@b@90g%r", &_op_esenti);
|
||||||
set_row(rr, "@b@112g%r", &_op_non_imp);
|
set_row(rr, "@b@106g%r", &_op_non_imp);
|
||||||
_totimposta = 0;
|
_totimposta = 0;
|
||||||
_totimponibile = 0;
|
_totimponibile = 0;
|
||||||
_op_esenti = 0;
|
_op_esenti = 0;
|
||||||
@ -1563,6 +1571,10 @@ else _err.set(3);
|
|||||||
if (_annoeser != ae)
|
if (_annoeser != ae)
|
||||||
_err.set(6);
|
_err.set(6);
|
||||||
|
|
||||||
|
if (_tipodoc != "")
|
||||||
|
if (!RicercaDoc(_tipodoc))
|
||||||
|
_err.set(11);
|
||||||
|
|
||||||
if (_causale.not_empty()) //se indicata la causale
|
if (_causale.not_empty()) //se indicata la causale
|
||||||
{
|
{
|
||||||
if (_caus->curr().empty())
|
if (_caus->curr().empty())
|
||||||
@ -1575,12 +1587,14 @@ else _err.set(3);
|
|||||||
if (_stampa_mess_alleg_iva && _alleg_causale)
|
if (_stampa_mess_alleg_iva && _alleg_causale)
|
||||||
_err.set(9);
|
_err.set(9);
|
||||||
}
|
}
|
||||||
if (_tipodoc == "" || _tipodoc != _tipodocumento)
|
if (_tipodoc != _tipodocumento)
|
||||||
_err.set(10);
|
_err.set(10);
|
||||||
if (_tipodoc != "")
|
/*
|
||||||
if (!RicercaDoc(_tipodoc))
|
if (_tipodoc != "")
|
||||||
_err.set(11);
|
if (!RicercaDoc(_tipodoc))
|
||||||
if (_registro == "" || _registro != _reg_causale)
|
_err.set(11);
|
||||||
|
*/
|
||||||
|
if (_registro != _reg_causale)
|
||||||
_err.set(12);
|
_err.set(12);
|
||||||
|
|
||||||
if (_registro.not_empty()) //movimento iva (fatture)
|
if (_registro.not_empty()) //movimento iva (fatture)
|
||||||
@ -1620,14 +1634,14 @@ else _err.set(3);
|
|||||||
if (_codcf == 0l)
|
if (_codcf == 0l)
|
||||||
_err.set(16);
|
_err.set(16);
|
||||||
}
|
}
|
||||||
if ((tipo == 1 && _tipo != 'C') || (tipo == 2 && _tipo != 'F'))
|
if ((tipo == 1 && _tipo_elenco != "C") || (tipo == 2 && _tipo_elenco != "F"))
|
||||||
_err.set(17);
|
_err.set(17);
|
||||||
|
|
||||||
TLocalisamfile clifo(LF_CLIFO);
|
TLocalisamfile clifo(LF_CLIFO);
|
||||||
clifo.setkey(1);
|
clifo.setkey(1);
|
||||||
clifo.zero();
|
clifo.zero();
|
||||||
clifo.put(CLI_CODCF, _codcf);
|
clifo.put(CLI_CODCF, _codcf);
|
||||||
clifo.put(CLI_TIPOCF,_tipo);
|
clifo.put(CLI_TIPOCF,_tipo_elenco);
|
||||||
if (clifo.read() == NOERR)
|
if (clifo.read() == NOERR)
|
||||||
{
|
{
|
||||||
bool sosp = clifo.get_bool(CLI_SOSPESO);
|
bool sosp = clifo.get_bool(CLI_SOSPESO);
|
||||||
@ -1638,27 +1652,29 @@ else _err.set(3);
|
|||||||
long calleg = clifo.get_long(CLI_CODALLEG);
|
long calleg = clifo.get_long(CLI_CODALLEG);
|
||||||
if (!occ)
|
if (!occ)
|
||||||
{
|
{
|
||||||
if (_stampa_mess_alleg_iva && alleg == 1)
|
if (_stampa_mess_alleg_iva && alleg == '1')
|
||||||
_err.set(19);
|
_err.set(19);
|
||||||
if (calleg != 0l)
|
if (calleg != 0l)
|
||||||
|
{
|
||||||
if (calleg == _codcf)
|
if (calleg == _codcf)
|
||||||
_err.set(20);
|
_err.set(20);
|
||||||
clifo.zero();
|
clifo.zero();
|
||||||
clifo.put(CLI_CODCF, calleg);
|
clifo.put(CLI_CODCF, calleg);
|
||||||
clifo.put(CLI_TIPOCF,_tipo);
|
clifo.put(CLI_TIPOCF,_tipo_elenco);
|
||||||
if (clifo.read() == NOERR)
|
if (clifo.read() == NOERR)
|
||||||
{
|
{
|
||||||
bool sospall = clifo.get_bool(CLI_SOSPESO);
|
bool sospall = clifo.get_bool(CLI_SOSPESO);
|
||||||
long codall = clifo.get_long(CLI_CODALLEG);
|
long codall = clifo.get_long(CLI_CODALLEG);
|
||||||
char alleg = clifo.get_char(CLI_ALLEG);
|
char alleg = clifo.get_char(CLI_ALLEG);
|
||||||
if (sospall)
|
if (sospall)
|
||||||
_err.set(21);
|
_err.set(21);
|
||||||
if (codall != 0l)
|
if (codall != 0l)
|
||||||
_err.set(22);
|
_err.set(22);
|
||||||
if (_stampa_mess_alleg_iva && alleg == 1)
|
if (_stampa_mess_alleg_iva && alleg == '1')
|
||||||
_err.set(23);
|
_err.set(23);
|
||||||
}
|
}
|
||||||
else _err.set(24);
|
else _err.set(24);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else _err.set(25);
|
else _err.set(25);
|
||||||
@ -1750,14 +1766,15 @@ bool TListaMov_application::segnala_errori_ogniriga()
|
|||||||
|
|
||||||
TConto tc (gruppo,conto,sottoconto);
|
TConto tc (gruppo,conto,sottoconto);
|
||||||
|
|
||||||
TRecnotype numerorec = rmov.recno();
|
/*
|
||||||
if (contropartita())
|
TRecnotype numerorec = rmov.recno();
|
||||||
{
|
if (contropartita())
|
||||||
rmov.readat(nrec);
|
{
|
||||||
return TRUE;
|
rmov.readat(nrec);
|
||||||
}
|
return TRUE;
|
||||||
rmov.readat(numerorec);
|
}
|
||||||
|
rmov.readat(numerorec);
|
||||||
|
*/
|
||||||
if (anno != _annoeser || datareg != _datareg)
|
if (anno != _annoeser || datareg != _datareg)
|
||||||
{
|
{
|
||||||
rmov.readat(nrec);
|
rmov.readat(nrec);
|
||||||
@ -2489,7 +2506,7 @@ void TListaMov_application::preprocess_header()
|
|||||||
set_header (soh++, "@86gtutte le causali");
|
set_header (soh++, "@86gtutte le causali");
|
||||||
sep.fill('-');
|
sep.fill('-');
|
||||||
set_header (soh++, (const char *) sep);
|
set_header (soh++, (const char *) sep);
|
||||||
set_header (soh++, "Rg Cod Causale@30gDescrizione@56gCodice conto@71gDescrizione conto@98gDare@116gAvere@130gSB");
|
set_header (soh, "Rg Cod Causale@30gDescrizione@56gCodice conto@71gDescrizione conto@98gDare@116gAvere@130gSB");
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
|
||||||
|
|||||||
140
cg/cg3100.h
140
cg/cg3100.h
@ -1,68 +1,72 @@
|
|||||||
#ifndef __CG3100_H
|
#ifndef __CG3100_H
|
||||||
#define __CG3100_H
|
#define __CG3100_H
|
||||||
|
|
||||||
#define TAB_REG "REG"
|
#define TAB_REG "REG"
|
||||||
#define TAB_TPD "%TPD"
|
#define TAB_TPD "%TPD"
|
||||||
#define TAB_VAL "%VAL"
|
#define TAB_VAL "%VAL"
|
||||||
#define TAB_IVA "%IVA"
|
#define TAB_IVA "%IVA"
|
||||||
|
|
||||||
#define F_CODDITTA 101
|
#define F_CODDITTA 101
|
||||||
#define F_DATASTAMPA 102
|
#define F_DATASTAMPA 102
|
||||||
#define F_RAGSOC 104
|
#define F_RAGSOC 104
|
||||||
#define F_CONTROLLO 105
|
#define F_CONTROLLO 105
|
||||||
#define F_ANNO 106
|
#define F_ANNO 106
|
||||||
#define F_ALLEGATO 107
|
#define F_ALLEGATO 107
|
||||||
#define F_DATAINI 108
|
#define F_DATAINI 108
|
||||||
#define F_DATAFIN 109
|
#define F_DATAFIN 109
|
||||||
#define F_NUMEROINI 110
|
#define F_NUMEROINI 110
|
||||||
#define F_NUMEROFIN 111
|
#define F_NUMEROFIN 111
|
||||||
#define F_CAUSALEINI 112
|
#define F_CAUSALEINI 112
|
||||||
#define F_CAUSALEFIN 113
|
#define F_CAUSALEFIN 113
|
||||||
#define F_REGISTROINI 114
|
#define F_REGISTROINI 114
|
||||||
#define F_REGISTROFIN 115
|
#define F_REGISTROFIN 115
|
||||||
#define F_STAMPA 116
|
#define F_STAMPA 116
|
||||||
#define F_TIPOELENCO 117
|
#define F_TIPOELENCO 117
|
||||||
#define F_CODICEINI 118
|
#define F_CODICEINI 118
|
||||||
#define F_CODICEFIN 119
|
#define F_CODICEFIN 119
|
||||||
#define F_CAMBIO 120
|
#define F_CAMBIO 120
|
||||||
#define F_DECIDI 121
|
#define F_DECIDI 121
|
||||||
#define F_ANNOC 122
|
#define F_ANNOC 122
|
||||||
#define F_CODICEINI1 123
|
#define F_CODICEINI1 123
|
||||||
#define F_CODICEFIN1 124
|
#define F_CODICEFIN1 124
|
||||||
#define F_MOVIMENTI 125
|
#define F_MOVIMENTI 125
|
||||||
#define F_STAMPAMOVP 126
|
#define F_STAMPAMOVP 126
|
||||||
|
#define F_RAGSOCINI 127
|
||||||
#define ST_DATA 0x0001
|
#define F_RAGSOCFIN 128
|
||||||
#define ST_NUMERO 0x0002
|
#define F_RAGSOCINI1 129
|
||||||
#define ST_CAUSALE 0x0004
|
#define F_RAGSOCFIN1 130
|
||||||
#define ST_REGISTRO 0x0008
|
|
||||||
#define ST_DATI_IVA 0x0010
|
#define ST_DATA 0x0001
|
||||||
#define ST_CONTROLLO 0x0020
|
#define ST_NUMERO 0x0002
|
||||||
#define ST_SOLO_MOVERR 0x0040
|
#define ST_CAUSALE 0x0004
|
||||||
#define ST_SENZA_CONTR 0x0080
|
#define ST_REGISTRO 0x0008
|
||||||
#define ST_MESSAGGI 0x0100
|
#define ST_DATI_IVA 0x0010
|
||||||
#define ST_ANNO_COMP 0x0200
|
#define ST_CONTROLLO 0x0020
|
||||||
#define ST_MESS_ALLEG 0x0400
|
#define ST_SOLO_MOVERR 0x0040
|
||||||
#define ST_COMPLETA_DATA 0x0800
|
#define ST_SENZA_CONTR 0x0080
|
||||||
#define ST_COMPLETA_NUM 0x1000
|
#define ST_MESSAGGI 0x0100
|
||||||
#define ST_COMPLETA_CAUS 0x2000
|
#define ST_ANNO_COMP 0x0200
|
||||||
#define ST_COMPLETA_REG 0x4000
|
#define ST_MESS_ALLEG 0x0400
|
||||||
#define ST_CODICE 0x8000
|
#define ST_COMPLETA_DATA 0x0800
|
||||||
|
#define ST_COMPLETA_NUM 0x1000
|
||||||
#endif // __CG3100_H
|
#define ST_COMPLETA_CAUS 0x2000
|
||||||
|
#define ST_COMPLETA_REG 0x4000
|
||||||
|
#define ST_CODICE 0x8000
|
||||||
|
|
||||||
|
#endif // __CG3100_H
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
476
cg/cg3100a.uml
476
cg/cg3100a.uml
@ -1,227 +1,249 @@
|
|||||||
#include "cg3100.h"
|
#include "cg3100.h"
|
||||||
|
|
||||||
PAGE "" -1 -1 76 20
|
PAGE "" -1 -1 76 20
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Ditta "
|
PROMPT 2 1 "Ditta "
|
||||||
FLAGS "FRD"
|
FLAGS "FRD"
|
||||||
USE LF_NDITTE KEY 1
|
USE LF_NDITTE KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODDITTA F_CODDITTA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODDITTA CODDITTA
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Ragione sociale "
|
PROMPT 2 2 "Ragione sociale "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATASTAMPA
|
DATE F_DATASTAMPA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 48 1 "Data stampa "
|
PROMPT 48 1 "Data stampa "
|
||||||
HELP "Data in cui viene effettuata la stampa"
|
HELP "Data in cui viene effettuata la stampa"
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 3
|
GROUP 3
|
||||||
PROMPT 2 3 "Anno esercizio "
|
PROMPT 2 3 "Anno esercizio "
|
||||||
HELP "Anno d'esercizio di cui si vuole la lista"
|
HELP "Anno d'esercizio di cui si vuole la lista"
|
||||||
USE ESC
|
USE ESC
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
INPUT CODTAB F_ANNO
|
INPUT CODTAB F_ANNO
|
||||||
DISPLAY "Anno" CODTAB
|
DISPLAY "Anno" CODTAB
|
||||||
DISPLAY "Data inizio esercizio" D0
|
DISPLAY "Data inizio esercizio" D0
|
||||||
DISPLAY "Data fine esercizio" D1
|
DISPLAY "Data fine esercizio" D1
|
||||||
OUTPUT F_ANNO CODTAB
|
OUTPUT F_ANNO CODTAB
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
END
|
END
|
||||||
|
|
||||||
RADIOBUTTON F_MOVIMENTI 38
|
RADIOBUTTON F_MOVIMENTI 38
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 30 3 "Scelta stampa "
|
PROMPT 30 3 "Scelta stampa "
|
||||||
HELP "Indicare il tipo di stampa"
|
HELP "Indicare il tipo di stampa"
|
||||||
ITEM "0|Lista movimenti"
|
ITEM "0|Lista movimenti"
|
||||||
MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|SHOW,F_STAMPA|HIDE,1@|RESET,1@
|
MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|SHOW,F_STAMPA|HIDE,1@|RESET,1@
|
||||||
ITEM "1|Lista movimenti di sola prima nota"
|
ITEM "1|Lista movimenti di sola prima nota"
|
||||||
MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI|HIDE,F_STAMPA|RESET,F_STAMPA
|
MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI|HIDE,F_STAMPA|RESET,F_STAMPA
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
LIST F_CONTROLLO 21
|
LIST F_CONTROLLO 21
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Controllo movimenti errati "
|
PROMPT 2 7 "Controllo movimenti errati "
|
||||||
HELP "Indicare il tipo di controllo per movimenti errati"
|
HELP "Indicare il tipo di controllo per movimenti errati"
|
||||||
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@
|
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@
|
||||||
ITEM "2|Si" MESSAGE SHOW,1@
|
ITEM "2|Si" MESSAGE SHOW,1@
|
||||||
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
|
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
TEXT DLG_NULL
|
TEXT DLG_NULL
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PROMPT 2 8 "Stampa messaggi : "
|
PROMPT 2 8 "Stampa messaggi : "
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_ANNOC
|
BOOLEAN F_ANNOC
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PROMPT 20 8 "Anno di competenza "
|
PROMPT 20 8 "Anno di competenza "
|
||||||
HELP "Indicare se stampa l'anno di competenza"
|
HELP "Indicare se stampa l'anno di competenza"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_ALLEGATO
|
BOOLEAN F_ALLEGATO
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PROMPT 20 9 "Allegato iva "
|
PROMPT 20 9 "Allegato iva "
|
||||||
HELP "Indicare se stampare l'allegato IVA"
|
HELP "Indicare se stampare l'allegato IVA"
|
||||||
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
|
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
|
||||||
MESSAGE FALSE ENABLE,F_STAMPA
|
MESSAGE FALSE ENABLE,F_STAMPA
|
||||||
END
|
END
|
||||||
|
|
||||||
RADIOBUTTON F_DECIDI 10
|
RADIOBUTTON F_DECIDI 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Stampa "
|
PROMPT 2 10 "Stampa "
|
||||||
HELP "Indicare il criterio di scelta dei movimenti"
|
HELP "Indicare il criterio di scelta dei movimenti"
|
||||||
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
|
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
|
||||||
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
|
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAINI
|
DATE F_DATAINI
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 19 11 "Stampa mov. dalla data "
|
<<<<<<< cg3100a.uml
|
||||||
HELP "Data da cui iniziare la stampa"
|
PROMPT 19 11 "Stampa mov. dalla data "
|
||||||
GROUP 3
|
HELP "Data da cui iniziare la stampa"
|
||||||
END
|
=======
|
||||||
|
PROMPT 16 11 "Stampa mov. dalla data "
|
||||||
DATE F_DATAFIN
|
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
|
||||||
BEGIN
|
>>>>>>> 1.12
|
||||||
PROMPT 55 11 "alla data "
|
GROUP 3
|
||||||
HELP "Data fino a cui stampare i movimenti"
|
END
|
||||||
GROUP 3
|
|
||||||
END
|
DATE F_DATAFIN
|
||||||
|
BEGIN
|
||||||
NUMBER F_NUMEROINI 7
|
<<<<<<< cg3100a.uml
|
||||||
BEGIN
|
PROMPT 55 11 "alla data "
|
||||||
PROMPT 19 12 "Stampa mov. dal numero "
|
HELP "Data fino a cui stampare i movimenti"
|
||||||
HELP "Numero del movimento da cui iniziare la stampa"
|
=======
|
||||||
USE LF_MOV KEY 1
|
PROMPT 52 11 "alla data "
|
||||||
INPUT NUMREG F_NUMEROINI
|
>>>>>>> 1.12
|
||||||
DISPLAY "Numero@6" NUMREG
|
GROUP 3
|
||||||
DISPLAY "Data@10" DATAREG
|
END
|
||||||
DISPLAY "Causale" CODCAUS
|
|
||||||
DISPLAY "Documento" NUMDOC
|
NUMBER F_NUMEROINI 7
|
||||||
DISPLAY "Descrizione@50" DESCR
|
BEGIN
|
||||||
OUTPUT F_NUMEROINI NUMREG
|
<<<<<<< cg3100a.uml
|
||||||
CHECKTYPE NORMAL
|
PROMPT 19 12 "Stampa mov. dal numero "
|
||||||
FLAGS "R"
|
HELP "Numero del movimento da cui iniziare la stampa"
|
||||||
GROUP 2
|
=======
|
||||||
END
|
PROMPT 16 12 "Stampa mov. dal numero "
|
||||||
|
>>>>>>> 1.12
|
||||||
NUMBER F_NUMEROFIN 7
|
USE LF_MOV KEY 1
|
||||||
BEGIN
|
INPUT NUMREG F_NUMEROINI
|
||||||
PROMPT 55 12 "al numero "
|
DISPLAY "Numero@6" NUMREG
|
||||||
HELP "Numero del movimenti fino cui fare la stampa"
|
DISPLAY "Data@10" DATAREG
|
||||||
COPY USE F_NUMEROINI
|
DISPLAY "Causale" CODCAUS
|
||||||
INPUT NUMREG F_NUMEROFIN
|
DISPLAY "Documento" NUMDOC
|
||||||
COPY DISPLAY F_NUMEROINI
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_NUMEROFIN NUMREG
|
OUTPUT F_NUMEROINI NUMREG
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
|
GROUP 2
|
||||||
WARNING "Limite superiore errato"
|
END
|
||||||
GROUP 2
|
|
||||||
END
|
NUMBER F_NUMEROFIN 7
|
||||||
|
BEGIN
|
||||||
STRING F_CAUSALEINI 3
|
<<<<<<< cg3100a.uml
|
||||||
BEGIN
|
PROMPT 55 12 "al numero "
|
||||||
PROMPT 2 14 "Stampa dalla causale "
|
HELP "Numero del movimenti fino cui fare la stampa"
|
||||||
USE LF_CAUSALI KEY 1
|
=======
|
||||||
INPUT CODCAUS F_CAUSALEINI
|
PROMPT 52 12 "al numero "
|
||||||
DISPLAY "Codice causale" CODCAUS
|
>>>>>>> 1.12
|
||||||
DISPLAY "Descrizione@50" DESCR
|
COPY USE F_NUMEROINI
|
||||||
OUTPUT F_CAUSALEINI CODCAUS
|
INPUT NUMREG F_NUMEROFIN
|
||||||
FLAGS "UR"
|
COPY DISPLAY F_NUMEROINI
|
||||||
HELP "Causale di inizio stampa: vuoto = inizio archivio"
|
OUTPUT F_NUMEROFIN NUMREG
|
||||||
END
|
CHECKTYPE NORMAL
|
||||||
|
FLAGS "R"
|
||||||
STRING F_CAUSALEFIN 3
|
NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
|
||||||
BEGIN
|
WARNING "Limite superiore errato"
|
||||||
PROMPT 40 14 "alla causale "
|
GROUP 2
|
||||||
COPY USE F_CAUSALEINI
|
END
|
||||||
INPUT CODCAUS F_CAUSALEFIN
|
|
||||||
DISPLAY "Codice causale" CODCAUS
|
STRING F_CAUSALEINI 3
|
||||||
DISPLAY "Descrizione@50" DESCR
|
BEGIN
|
||||||
OUTPUT F_CAUSALEFIN CODCAUS
|
PROMPT 2 14 "Stampa dalla causale "
|
||||||
FLAGS "UR"
|
USE LF_CAUSALI KEY 1
|
||||||
HELP "Causale di fine stampa: vuoto = fine archivio"
|
INPUT CODCAUS F_CAUSALEINI
|
||||||
END
|
DISPLAY "Codice causale" CODCAUS
|
||||||
|
DISPLAY "Descrizione@50" DESCR
|
||||||
STRING F_REGISTROINI 3
|
OUTPUT F_CAUSALEINI CODCAUS
|
||||||
BEGIN
|
FLAGS "U"
|
||||||
PROMPT 2 15 "Stampa dal registro iva "
|
HELP "Causale di inizio stampa: vuoto = inizio archivio"
|
||||||
USE REG SELECT I0<"3"
|
VALIDATE ZEROFILL_FUNC 3
|
||||||
//INPUT CODTAB[1,5] F_ANNO SELECT
|
END
|
||||||
INPUT CODTAB[5,7] F_REGISTROINI
|
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
STRING F_CAUSALEFIN 3
|
||||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
BEGIN
|
||||||
DISPLAY "Descrizione@40" S0
|
PROMPT 40 14 "alla causale "
|
||||||
OUTPUT F_REGISTROINI CODTAB[5,7]
|
COPY USE F_CAUSALEINI
|
||||||
FLAGS "UR"
|
INPUT CODCAUS F_CAUSALEFIN
|
||||||
//CHECKTYPE NORMAL
|
DISPLAY "Codice causale" CODCAUS
|
||||||
HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
|
DISPLAY "Descrizione@50" DESCR
|
||||||
END
|
OUTPUT F_CAUSALEFIN CODCAUS
|
||||||
|
FLAGS "U"
|
||||||
STRING F_REGISTROFIN 3
|
HELP "Causale di fine stampa: vuoto = fine archivio"
|
||||||
BEGIN
|
VALIDATE ZEROFILL_FUNC 3
|
||||||
PROMPT 40 15 "al reg. iva "
|
END
|
||||||
COPY USE F_REGISTROINI
|
|
||||||
//INPUT CODTAB[1,5] F_ANNO SELECT
|
STRING F_REGISTROINI 3
|
||||||
INPUT CODTAB[5,7] F_REGISTROFIN
|
BEGIN
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
PROMPT 2 15 "Stampa dal registro iva "
|
||||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
USE REG SELECT I0<"3"
|
||||||
DISPLAY "Descrizione@40" S0
|
//INPUT CODTAB[1,5] F_ANNO SELECT
|
||||||
OUTPUT F_REGISTROFIN CODTAB[5,7]
|
INPUT CODTAB[5,7] F_REGISTROINI
|
||||||
FLAGS "UR"
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
//CHECKTYPE NORMAL
|
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||||
HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
|
DISPLAY "Descrizione@40" S0
|
||||||
END
|
OUTPUT F_REGISTROINI CODTAB[5,7]
|
||||||
|
FLAGS "U"
|
||||||
BOOLEAN F_STAMPA
|
//CHECKTYPE NORMAL
|
||||||
BEGIN
|
HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
|
||||||
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
VALIDATE ZEROFILL_FUNC 3
|
||||||
HELP "Indicare se stampare i valori degli imponibili, dell'imposte e i codici IVA"
|
END
|
||||||
END
|
|
||||||
|
STRING F_REGISTROFIN 3
|
||||||
BOOLEAN F_STAMPAMOVP
|
BEGIN
|
||||||
BEGIN
|
PROMPT 40 15 "al reg. iva "
|
||||||
PROMPT 2 17 "Stampa movimenti provvisori "
|
COPY USE F_REGISTROINI
|
||||||
HELP "Indicare se stampare i movimenti provvisori"
|
//INPUT CODTAB[1,5] F_ANNO SELECT
|
||||||
END
|
INPUT CODTAB[5,7] F_REGISTROFIN
|
||||||
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
/*
|
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||||
TEXT DLG_NULL
|
DISPLAY "Descrizione@40" S0
|
||||||
BEGIN
|
OUTPUT F_REGISTROFIN CODTAB[5,7]
|
||||||
PROMPT 2 17 "N.B. se non indicato nessun valore stampa completa in ordine di data"
|
FLAGS "U"
|
||||||
END
|
//CHECKTYPE NORMAL
|
||||||
*/
|
HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
|
||||||
|
VALIDATE ZEROFILL_FUNC 3
|
||||||
BUTTON DLG_OK 9 2
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT -12 -1 ""
|
BOOLEAN F_STAMPA
|
||||||
END
|
BEGIN
|
||||||
|
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
||||||
BUTTON DLG_QUIT 9 2
|
HELP "Indicare se stampare i valori degli imponibili, dell'imposte e i codici IVA"
|
||||||
BEGIN
|
END
|
||||||
PROMPT -22 -1 ""
|
|
||||||
END
|
BOOLEAN F_STAMPAMOVP
|
||||||
|
BEGIN
|
||||||
ENDPAGE
|
PROMPT 2 17 "Stampa movimenti provvisori "
|
||||||
|
HELP "Indicare se stampare i movimenti provvisori"
|
||||||
ENDMASK
|
END
|
||||||
|
|
||||||
|
/*
|
||||||
|
TEXT DLG_NULL
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 17 "N.B. se non indicato nessun valore stampa completa in ordine di data"
|
||||||
|
END
|
||||||
|
*/
|
||||||
|
|
||||||
|
BUTTON DLG_PRINT 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -12 -1 "~Stampa"
|
||||||
|
MESSAGE EXIT,K_ENTER
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_QUIT 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -22 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|||||||
437
cg/cg3100b.uml
437
cg/cg3100b.uml
@ -1,218 +1,219 @@
|
|||||||
#include "cg3100.h"
|
#include "cg3100.h"
|
||||||
|
|
||||||
PAGE "" -1 -1 73 16
|
PAGE "" -1 -1 73 16
|
||||||
|
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Ditta "
|
PROMPT 2 1 "Ditta "
|
||||||
FLAGS "FRD"
|
FLAGS "FRD"
|
||||||
USE LF_NDITTE KEY 1
|
USE LF_NDITTE KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODDITTA F_CODDITTA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Ragione sociale @50" RAGSOC
|
DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
OUTPUT F_CODDITTA CODDITTA
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Ragione sociale "
|
PROMPT 2 2 "Ragione sociale "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATASTAMPA
|
DATE F_DATASTAMPA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 48 1 "Data stampa "
|
PROMPT 48 1 "Data stampa "
|
||||||
HELP "Data in cui viene effettuata la stampa"
|
HELP "Data in cui viene effettuata la stampa"
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Anno esercizio "
|
PROMPT 2 4 "Anno esercizio "
|
||||||
HELP "Anno d'esercizio di cui si vuole la stampa"
|
HELP "Anno d'esercizio di cui si vuole la stampa"
|
||||||
USE ESC KEY 1
|
USE ESC KEY 1
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
INPUT CODTAB F_ANNO
|
INPUT CODTAB F_ANNO
|
||||||
DISPLAY "Anno" CODTAB
|
DISPLAY "Anno" CODTAB
|
||||||
DISPLAY "Data inizio esercizio" D0
|
DISPLAY "Data inizio esercizio" D0
|
||||||
DISPLAY "Data fine esercizio" D1
|
DISPLAY "Data fine esercizio" D1
|
||||||
OUTPUT F_ANNO CODTAB
|
OUTPUT F_ANNO CODTAB
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAINI
|
DATE F_DATAINI
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Stampa movimenti dalla data "
|
PROMPT 2 5 "Stampa movimenti dalla data "
|
||||||
HELP "Data da cui iniziare la stampa"
|
HELP "Data da cui iniziare la stampa"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAFIN
|
DATE F_DATAFIN
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 45 5 "alla data "
|
PROMPT 45 5 "alla data "
|
||||||
HELP "Data fino a cui eseguire la stampa"
|
HELP "Data fino a cui eseguire la stampa"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_TIPOELENCO 9
|
LIST F_TIPOELENCO 9
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Tipo elenco "
|
PROMPT 2 6 "Tipo elenco "
|
||||||
HELP "Indicare cosa includere nella stampa"
|
HELP "Indicare cosa includere nella stampa"
|
||||||
ITEM "C|Clienti"
|
ITEM "C|Clienti"
|
||||||
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
||||||
ITEM "F|Fornitori"
|
ITEM "F|Fornitori"
|
||||||
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
||||||
ITEM "E|Entrambi"
|
ITEM "E|Entrambi"
|
||||||
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
|
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODICEINI 6
|
NUMBER F_CODICEINI 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Stampa dal codice "
|
PROMPT 2 7 "Stampa dal codice "
|
||||||
HELP "Indicare il codice da cui iniziare la stampa"
|
HELP "Indicare il codice da cui iniziare la stampa"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE LF_CLIFO
|
USE LF_CLIFO
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
INPUT CODCF F_CODICEINI
|
INPUT CODCF F_CODICEINI
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEINI CODCF
|
OUTPUT F_CODICEINI CODCF
|
||||||
OUTPUT F_RAGSOCINI RAGSOC
|
OUTPUT F_RAGSOCINI RAGSOC
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOCINI 50
|
STRING F_RAGSOCINI 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 ""
|
PROMPT 2 8 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE LF_CLIFO KEY 2
|
USE LF_CLIFO KEY 2
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
INPUT RAGSOC F_RAGSOCINI
|
INPUT RAGSOC F_RAGSOCINI
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
OUTPUT F_RAGSOCINI RAGSOC
|
OUTPUT F_RAGSOCINI RAGSOC
|
||||||
OUTPUT F_CODICEINI CODCF
|
OUTPUT F_CODICEINI CODCF
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODICEFIN 6
|
NUMBER F_CODICEFIN 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "al codice "
|
PROMPT 2 9 "al codice "
|
||||||
HELP "Indicare il codice a cui terminare la stampa"
|
HELP "Indicare il codice a cui terminare la stampa"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
COPY USE F_CODICEINI
|
COPY USE F_CODICEINI
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
INPUT CODCF F_CODICEFIN
|
INPUT CODCF F_CODICEFIN
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEFIN CODCF
|
OUTPUT F_CODICEFIN CODCF
|
||||||
OUTPUT F_RAGSOCFIN RAGSOC
|
OUTPUT F_RAGSOCFIN RAGSOC
|
||||||
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
||||||
WARNING "Limite superiore errato"
|
WARNING "Limite superiore errato"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOCFIN 50
|
STRING F_RAGSOCFIN 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 ""
|
PROMPT 2 10 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE LF_CLIFO KEY 2
|
USE LF_CLIFO KEY 2
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
INPUT RAGSOC F_RAGSOCFIN
|
INPUT RAGSOC F_RAGSOCFIN
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
OUTPUT F_RAGSOCFIN RAGSOC
|
OUTPUT F_RAGSOCFIN RAGSOC
|
||||||
OUTPUT F_CODICEFIN CODCF
|
OUTPUT F_CODICEFIN CODCF
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODICEINI1 6
|
NUMBER F_CODICEINI1 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Stampa dal codice "
|
PROMPT 2 7 "Stampa dal codice "
|
||||||
HELP "Indicare il codice da cui iniziare la stampa"
|
HELP "Indicare il codice da cui iniziare la stampa"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
USE LF_CLIFO KEY 1
|
USE LF_CLIFO KEY 1
|
||||||
INPUT TIPOCF "C"
|
INPUT TIPOCF "C"
|
||||||
INPUT CODCF F_CODICEINI1
|
INPUT CODCF F_CODICEINI1
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEINI1 CODCF
|
OUTPUT F_CODICEINI1 CODCF
|
||||||
OUTPUT F_RAGSOCINI1 RAGSOC
|
OUTPUT F_RAGSOCINI1 RAGSOC
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOCINI1 50
|
STRING F_RAGSOCINI1 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 ""
|
PROMPT 2 8 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
USE LF_CLIFO KEY 2
|
USE LF_CLIFO KEY 2
|
||||||
INPUT TIPOCF "C"
|
INPUT TIPOCF "C"
|
||||||
INPUT RAGSOC F_RAGSOCINI1
|
INPUT RAGSOC F_RAGSOCINI1
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
OUTPUT F_RAGSOCINI1 RAGSOC
|
OUTPUT F_RAGSOCINI1 RAGSOC
|
||||||
OUTPUT F_CODICEINI1 CODCF
|
OUTPUT F_CODICEINI1 CODCF
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODICEFIN1 6
|
NUMBER F_CODICEFIN1 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "al codice "
|
PROMPT 2 9 "al codice "
|
||||||
HELP "Indicare il codice a cui terminare la stampa"
|
HELP "Indicare il codice a cui terminare la stampa"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
COPY USE F_CODICEINI1
|
COPY USE F_CODICEINI1
|
||||||
INPUT TIPOCF "F"
|
INPUT TIPOCF "F"
|
||||||
INPUT CODCF F_CODICEFIN1
|
INPUT CODCF F_CODICEFIN1
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEFIN1 CODCF
|
OUTPUT F_CODICEFIN1 CODCF
|
||||||
OUTPUT F_RAGSOCFIN1 RAGSOC
|
OUTPUT F_RAGSOCFIN1 RAGSOC
|
||||||
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
|
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
|
||||||
WARNING "Limite superiore errato"
|
WARNING "Limite superiore errato"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOCFIN1 50
|
STRING F_RAGSOCFIN1 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 ""
|
PROMPT 2 10 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
USE LF_CLIFO KEY 2
|
USE LF_CLIFO KEY 2
|
||||||
INPUT TIPOCF "F"
|
INPUT TIPOCF "F"
|
||||||
INPUT RAGSOC F_RAGSOCFIN1
|
INPUT RAGSOC F_RAGSOCFIN1
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
OUTPUT F_RAGSOCFIN1 RAGSOC
|
OUTPUT F_RAGSOCFIN1 RAGSOC
|
||||||
OUTPUT F_CODICEFIN1 CODCF
|
OUTPUT F_CODICEFIN1 CODCF
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_CAMBIO
|
BOOLEAN F_CAMBIO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Cambio pagina per cliente/fornitore "
|
PROMPT 2 12 "Cambio pagina per cliente/fornitore "
|
||||||
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
|
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPAMOVP
|
BOOLEAN F_STAMPAMOVP
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 13 "Stampa movimenti provvisori "
|
PROMPT 2 13 "Stampa movimenti provvisori "
|
||||||
HELP "Indicare se stampare i movimenti provvisori"
|
HELP "Indicare se stampare i movimenti provvisori"
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 9 2
|
BUTTON DLG_PRINT 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 "~Stampa"
|
||||||
END
|
MESSAGE EXIT,K_ENTER
|
||||||
|
END
|
||||||
BUTTON DLG_QUIT 9 2
|
|
||||||
BEGIN
|
BUTTON DLG_QUIT 9 2
|
||||||
PROMPT -22 -1 ""
|
BEGIN
|
||||||
END
|
PROMPT -22 -1 ""
|
||||||
|
END
|
||||||
ENDPAGE
|
|
||||||
|
ENDPAGE
|
||||||
ENDMASK
|
|
||||||
|
ENDMASK
|
||||||
|
|||||||
221
cg/cg3100c.uml
221
cg/cg3100c.uml
@ -1,110 +1,111 @@
|
|||||||
|
|
||||||
#include "cg3100.h"
|
#include "cg3100.h"
|
||||||
|
|
||||||
PAGE "" -1 -1 76 19
|
PAGE "" -1 -1 76 19
|
||||||
|
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Ditta "
|
PROMPT 2 2 "Ditta "
|
||||||
FLAGS "FRD"
|
FLAGS "FRD"
|
||||||
USE LF_NDITTE KEY 1
|
USE LF_NDITTE KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODDITTA F_CODDITTA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Ragione sociale @50" RAGSOC
|
DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
OUTPUT F_CODDITTA CODDITTA
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Ragione sociale "
|
PROMPT 2 3 "Ragione sociale "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Anno esercizio "
|
PROMPT 2 5 "Anno esercizio "
|
||||||
HELP "Anno d'esercizio di cui si vuole la stampa"
|
HELP "Anno d'esercizio di cui si vuole la stampa"
|
||||||
USE ESC
|
USE ESC
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
INPUT CODTAB F_ANNO
|
INPUT CODTAB F_ANNO
|
||||||
DISPLAY "Anno" CODTAB
|
DISPLAY "Anno" CODTAB
|
||||||
DISPLAY "Data inizio esercizio" D0
|
DISPLAY "Data inizio esercizio" D0
|
||||||
DISPLAY "Data fine esercizio" D1
|
DISPLAY "Data fine esercizio" D1
|
||||||
OUTPUT F_ANNO CODTAB
|
OUTPUT F_ANNO CODTAB
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATASTAMPA
|
DATE F_DATASTAMPA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Data stampa "
|
PROMPT 2 6 "Data stampa "
|
||||||
HELP "Data in cui viene effettuata la stampa"
|
HELP "Data in cui viene effettuata la stampa"
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
END
|
END
|
||||||
|
|
||||||
RADIOBUTTON F_DECIDI 10
|
RADIOBUTTON F_DECIDI 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Stampa "
|
PROMPT 2 8 "Stampa "
|
||||||
HELP "Criteri di selezione dei movimenti"
|
HELP "Criteri di selezione dei movimenti"
|
||||||
ITEM "2|data"
|
ITEM "2|data"
|
||||||
MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@
|
MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@
|
||||||
ITEM "1|numero"
|
ITEM "1|numero"
|
||||||
MESSAGE DISABLE,1@|RESET,1@|ENABLE,2@
|
MESSAGE DISABLE,1@|RESET,1@|ENABLE,2@
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAINI
|
DATE F_DATAINI
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 19 9 "Stampa mov. dalla data "
|
PROMPT 19 9 "Stampa mov. dalla data "
|
||||||
HELP "Data da cui iniziare la stampa dei movimenti"
|
HELP "Data da cui iniziare la stampa dei movimenti"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAFIN
|
DATE F_DATAFIN
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 55 9 "alla data "
|
PROMPT 55 9 "alla data "
|
||||||
HELP "Data a cui terminare la stampa dei movimenti"
|
HELP "Data a cui terminare la stampa dei movimenti"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_NUMEROINI 7
|
NUMBER F_NUMEROINI 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 19 10 "Stampa mov. dal numero "
|
PROMPT 19 10 "Stampa mov. dal numero "
|
||||||
HELP "Numero da cui iniziare la stampa dei movimenti"
|
HELP "Numero da cui iniziare la stampa dei movimenti"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_NUMEROFIN 7
|
NUMBER F_NUMEROFIN 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 55 10 "al numero "
|
PROMPT 55 10 "al numero "
|
||||||
HELP "Numero a cui terminare la stampa dei movimenti"
|
HELP "Numero a cui terminare la stampa dei movimenti"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPAMOVP
|
BOOLEAN F_STAMPAMOVP
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Stampa movimenti provvisori "
|
PROMPT 2 12 "Stampa movimenti provvisori "
|
||||||
HELP "Indicare se stampare i movimenti provvisori"
|
HELP "Indicare se stampare i movimenti provvisori"
|
||||||
END
|
END
|
||||||
|
|
||||||
TEXT DLG_NULL
|
TEXT DLG_NULL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
|
PROMPT 2 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 9 2
|
BUTTON DLG_PRINT 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -12 -1 ""
|
PROMPT -12 -1 "~Stampa"
|
||||||
END
|
MESSAGE EXIT,K_ENTER
|
||||||
|
END
|
||||||
BUTTON DLG_QUIT 9 2
|
|
||||||
BEGIN
|
BUTTON DLG_QUIT 9 2
|
||||||
PROMPT -22 -1 ""
|
BEGIN
|
||||||
END
|
PROMPT -22 -1 ""
|
||||||
|
END
|
||||||
ENDPAGE
|
|
||||||
|
ENDPAGE
|
||||||
ENDMASK
|
|
||||||
|
ENDMASK
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user