Patch level : 2.1 035
Files correlati : Quelli delle Patch 2.0 Ricompilazione Demo : [ ] Commento : Riportate le Modifiche dalla veriosne 2.0 patch 734 git-svn-id: svn://10.65.10.50/trunk@12051 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
ea2f5a31eb
commit
1aab1ed435
@ -45,7 +45,8 @@ TArchive_mask::TArchive_mask() : TAutomask("ba2200")
|
||||
str.format("%c:/", d+'A');
|
||||
const bool isrem = xvt_fsys_is_removable_drive(str) != 0;
|
||||
const bool isfix = !isrem && xvt_fsys_is_fixed_drive(str);
|
||||
if (isrem || isfix)
|
||||
const bool isnet = !isrem && !isfix && xvt_fsys_is_network_drive(str);
|
||||
if (isrem || isfix || isnet)
|
||||
{
|
||||
str.rtrim(1); // Togli slash finale
|
||||
codes.add(str);
|
||||
|
||||
@ -1463,7 +1463,10 @@ void TTransfer_file::decimali(TString& campo, int dec)
|
||||
l++;
|
||||
}
|
||||
}
|
||||
campo.insert(".", l-dec);
|
||||
const int dot = l-dec;
|
||||
campo.insert(".", dot);
|
||||
if (campo[dot+1] == ' ') // Controlla se devo mettere lo zero prima dei centesimi!
|
||||
campo[dot+1] = '0';
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
268
cg/cgprassi.men
268
cg/cgprassi.men
@ -1,268 +0,0 @@
|
||||
[PRASSICG_004]
|
||||
Caption = "Contabilita'"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 7
|
||||
Flags = ""
|
||||
Item_01 = "Persone fisiche", "ba4 -1 F", ""
|
||||
Item_02 = "Persone giuridiche", "ba4 -1 G", ""
|
||||
Item_03 = "Ditte", "ba4 -2", ""
|
||||
Item_04 = "Tabelle studio", [PRASSICG_005]
|
||||
Item_05 = "Stampa tabelle studio", [PRASSICG_006]
|
||||
Item_06 = "Scelta contabilita'", [PRASSICG_013]
|
||||
Item_07 = "IVA", [PRASSICG_010]
|
||||
Item_08 = "Parametri di studio", "cg5 -0", ""
|
||||
Item_09 = "Gestione Libro Unico", [PRASSICG_014]
|
||||
Item_10 = "Invio", [PRASSICG_019]
|
||||
Item_11 = "Ricezione", [PRASSICG_020]
|
||||
Item_12 = "Moduli aggiuntivi", <cgaddon.men>
|
||||
|
||||
[PRASSICG_005]
|
||||
Caption = "Tabelle studio"
|
||||
Picture = <ba01.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Condizioni di pagamento", "ba3 -6", ""
|
||||
Item_02 = "Classificazione pagamenti", "ba3 -0 %clr", ""
|
||||
Item_03 = "Descrizioni aggiuntive", "ba3 -0 %dpn", ""
|
||||
Item_04 = "Codici IVA", "ba3 -0 %iva", ""
|
||||
Item_05 = "Codici Attivita'", "ba3 -0 %ais", ""
|
||||
Item_06 = "Libri sociali", "ba3 -0 %itl", ""
|
||||
Item_07 = "Banche", "ba3 -0 %ban", ""
|
||||
Item_08 = "IV direttiva CEE", "ba3 -0 %ivd", ""
|
||||
Item_09 = "Valute", "ba3 -0 %val", ""
|
||||
Item_10 = "Lingue", "ba3 -0 %lng", ""
|
||||
Item_11 = "Versamenti ed interessi IVA", "ba3 -0 %ver", ""
|
||||
Item_12 = "Profili estratto conto", "sc3 -0", ""
|
||||
|
||||
[PRASSICG_006]
|
||||
Caption = "Stampa tabelle studio"
|
||||
Picture = <ba03.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Condizioni di pagamento", "ba3 -9", ""
|
||||
Item_02 = "Classificazione pagamenti", "ba3 -1 %clr", ""
|
||||
Item_03 = "Descrizioni aggiuntive", "ba3 -1 %dpn", ""
|
||||
Item_04 = "Codici IVA", "ba3 -1 %iva", ""
|
||||
Item_05 = "Codici Attivita'", "ba3 -1 %ais", ""
|
||||
Item_06 = "Libri sociali", "ba3 -1 %itl", ""
|
||||
Item_07 = "Banche", "ba3 -1 %ban", ""
|
||||
Item_08 = "IV direttiva CEE", "ba3 -7 S", ""
|
||||
Item_09 = "Valute", "ba3 -1 %val", ""
|
||||
Item_10 = "Lingue", "ba3 -1 %lng", ""
|
||||
Item_11 = "Versamenti ed interessi IVA", "ba3 -1 %ver", ""
|
||||
|
||||
[PRASSICG_007]
|
||||
Caption = "Tabelle ditta"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 7
|
||||
Flags = ""
|
||||
Item_01 = "Parametri ditta", "cg5 -1", "F"
|
||||
Item_02 = "Registri", "ba3 -0 reg", ""
|
||||
Item_03 = "Piano dei conti", "cg0 -0", "F"
|
||||
Item_04 = "Causali", "cg0 -4", "F"
|
||||
Item_05 = "Clienti/Fornitori", "cg0 -1", "F"
|
||||
Item_06 = "Agenti", "pr0 -4", ""
|
||||
Item_07 = "Cambi giornalieri", "ba3 -0 cam", ""
|
||||
Item_08 = "Esercizi", "cg0 -5 esc", "F"
|
||||
Item_09 = "CDC/Commesse", "ba3 -0 cms", ""
|
||||
Item_10 = "Fasi commesse", "ba3 -0 fsc", ""
|
||||
|
||||
[PRASSICG_008]
|
||||
Caption = "Stampa tabelle ditta"
|
||||
Picture = <ba03.bmp>
|
||||
Module = 7
|
||||
Flags = ""
|
||||
Item_01 = "Registri", "ba3 -1 reg", ""
|
||||
Item_02 = "Piano dei conti", "cg1 -0", "F"
|
||||
Item_03 = "Causali", "cg1 -6", "F"
|
||||
Item_04 = "Clienti/Fornitori", "cg1 -1", "F"
|
||||
Item_05 = "Cambi giornalieri", "ba3 -1 cam", ""
|
||||
Item_06 = "IV direttiva CEE", "ba3 -7 D", ""
|
||||
|
||||
[PRASSICG_009]
|
||||
Caption = "Prima nota"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 7
|
||||
Flags = ""
|
||||
Item_01 = "Prima nota", "cg2 -0", "F"
|
||||
Item_02 = "Gestione movimenti provvisori", "cg2 -1", "F"
|
||||
Item_03 = "Visualizzazione mastrini", "cg3 -5", "F"
|
||||
Item_04 = "Visualizzazione saldi", "cg5 -2", "F"
|
||||
Item_05 = "Ricalcolo saldi", "cg4 -0", "F"
|
||||
Item_06 = "IVA", [PRASSICG_010]
|
||||
Item_07 = "Stampe di contabilita`", [PRASSICG_023]
|
||||
Item_08 = "Stampe CDC/Commesse ", <cmprassi.men>
|
||||
Item_09 = "Saldaconto", <scprassi.men>
|
||||
|
||||
[PRASSICG_010]
|
||||
Caption = "IVA"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 5
|
||||
Flags = ""
|
||||
Item_01 = "Parametri liquidazione", "cg5 -3", "F"
|
||||
Item_02 = "Liquidazione", "cg4 -2", "F"
|
||||
Item_03 = "Visualizzazione liquidazione", "cg5 -5", "F"
|
||||
Item_04 = "Comunicazione annuale dati IVA", "cg5 -7", "F"
|
||||
Item_05 = "Riepilogo progressivi", "cg0 -3", "F"
|
||||
Item_06 = "Stampa registri", "cg4 -3", "F"
|
||||
Item_07 = "Liste fatture", [PRASSICG_026]
|
||||
Item_08 = "Gestione acconti IVA", [PRASSICG_027]
|
||||
Item_09 = "Gestione versamenti IVA", [PRASSICG_022]
|
||||
Item_10 = "Gestione autotrasportatori", "cg4 -9", "F"
|
||||
|
||||
[PRASSICG_011]
|
||||
Caption = "Tabelle ministeriali"
|
||||
Picture = <ba01.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Comuni", "ba4 -0", ""
|
||||
Item_02 = "Regioni", "ba3 -0 %rgi", ""
|
||||
Item_03 = "Uffici concessioni", "ba3 -0 %ucc", ""
|
||||
Item_04 = "Uffici imposte dirette", "ba3 -0 %uid", ""
|
||||
Item_05 = "Uffici IVA", "ba3 -0 %uiv", ""
|
||||
Item_06 = "Uffici registro", "ba3 -0 %ure", ""
|
||||
Item_07 = "Centri servizio", "ba3 -0 %ucs", ""
|
||||
|
||||
[PRASSICG_012]
|
||||
Caption = "Stampa tabelle ministeriali"
|
||||
Picture = <ba03.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Comuni", "ba6 -1", ""
|
||||
Item_02 = "Uffici concessioni", "ba3 -1 %ucc", ""
|
||||
Item_03 = "Uffici imposte dirette", "ba3 -1 %uid", ""
|
||||
Item_04 = "Uffici IVA", "ba3 -1 %uiv", ""
|
||||
Item_05 = "Uffici registro", "ba3 -1 %ure", ""
|
||||
Item_06 = "Centri servizio", "ba3 -1 %ucs", ""
|
||||
|
||||
[PRASSICG_013]
|
||||
Caption = "Scelta contabilita'"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 0
|
||||
Flags = "F"
|
||||
Item_01 = "Tabelle ditta", [PRASSICG_007]
|
||||
Item_02 = "Stampa tabelle ditta", [PRASSICG_008]
|
||||
Item_03 = "Prima nota", [PRASSICG_009]
|
||||
Item_04 = "Operazioni di inizio fine es.", [PRASSICG_021]
|
||||
Item_05 = "Servizio", [PRASSICG_016]
|
||||
|
||||
[PRASSICG_014]
|
||||
Caption = "Gestione libro unico"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 7
|
||||
Flags = ""
|
||||
Item_01 = "Gestione libro unico", "ba3 -0 %lbu", ""
|
||||
Item_02 = "Gestione indici libro unico", "ba3 -8", ""
|
||||
Item_03 = "Tabella vidimazioni", "ba3 -0 %vid", ""
|
||||
Item_04 = "Stampa indici libro unico", "ba3 -5", ""
|
||||
Item_05 = "Stampa indici libro unico per ditta", "ba3 -5 A", ""
|
||||
Item_06 = "Ripristino indici libro unico", "cg5 -4 inl", "F"
|
||||
|
||||
[PRASSICG_016]
|
||||
Caption = "Servizio"
|
||||
Picture = <ba04.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Copia Archivi", "cg4 -1", "F"
|
||||
Item_02 = "Ripristino stampa registri", "cg5 -4", "F"
|
||||
Item_03 = "Aggiornamento Tipo Conto", "cg1 -2 T", "FP"
|
||||
Item_04 = "Aggiornamento Tipo Att. su mov.IVA", "cg1 -2 A", "FP"
|
||||
Item_05 = "Aggiornamento flag op.Intrac.", "cg1 -2 I", "FP"
|
||||
Item_06 = "Rinumerazione n. Protocollo", "cg1 -2 P", "FP"
|
||||
Item_07 = "Aggiornamento Codice Attivita'", "cg1 -2 C", "FP"
|
||||
Item_08 = "Riorganizzazione codici esercizio", "cg1 -2 E", "FP"
|
||||
Item_09 = "Correzione righe di prima nota", "cg1 -2 Z", "FP"
|
||||
Item_10 = "Impostazione mese liquidazione", "cg1 -2 M", "FP"
|
||||
Item_11 = "Collegamento bilanci", [PRASSICG_025]
|
||||
|
||||
[PRASSICG_019]
|
||||
Caption = "Invio"
|
||||
Picture = <ba06.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Tabella studio per invio", "cg6 -4 %INS", "F"
|
||||
Item_02 = "Tabella ditta per invio", "cg6 -4 %IND", "F"
|
||||
Item_03 = "Invio contabilita' a sistema", "cg6 -8 S", "F"
|
||||
Item_04 = "Invio contabilita' a PC", "cg6 -8 P", "F"
|
||||
Item_05 = "Ripristino movimenti da inviare", "cg6 -8 R", "F"
|
||||
Item_06 = "Eliminazione file invio", "cg6 -8 C", "FP"
|
||||
|
||||
[PRASSICG_020]
|
||||
Caption = "Ricezione"
|
||||
Picture = <ba06.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Tabella ditte per ricezione", "cg6 -2 %TRA", "F"
|
||||
Item_02 = "Ricezione archivi da sistema", "cg6 -3 S", "F"
|
||||
Item_03 = "Ricezione archivi da PC", "cg6 -3 P", "F"
|
||||
Item_04 = "Scelta ditta per ricezione", "cg6 -7 S", "F"
|
||||
Item_05 = "Ricezione tabelle", "cg6 -5 T", "F"
|
||||
Item_06 = "Lista controllo movimenti", "cg6 -6", "F"
|
||||
Item_07 = "Ricezione movimenti", "cg6 -5 M", "F"
|
||||
Item_08 = "Visualiz. stato ricezione", "cg6 -7 V", "F"
|
||||
Item_09 = "Variazione p.n. da ricevere", "cg6 -7 P", "F"
|
||||
Item_10 = "Variazione iva da ricevere", "cg6 -7 I", "F"
|
||||
Item_11 = "Annul. movimenti da ricevere", "cg6 -7 A", "F"
|
||||
Item_12 = "Variazione saldaconto da ricevere", "cg6 -7 B", "F"
|
||||
|
||||
[PRASSICG_021]
|
||||
Caption = "Operazioni di inizio fine es."
|
||||
Picture = <cg01.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Apertura nuovo esercizio", "cg4 -4 C", "F"
|
||||
Item_02 = "Apertura nuovo esercizio IVA", "cg4 -4 I", "F"
|
||||
Item_03 = "Chiusura/Apertura conti", "cg4 -5", "F"
|
||||
|
||||
[PRASSICG_022]
|
||||
Caption = "Gestione versamenti IVA"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Estrazione versamenti", "cg4 -2 -D", "F"
|
||||
Item_02 = "Gestione versamenti", "ba3 -0 %del", ""
|
||||
Item_03 = "Stampa versamenti", "cg1 -3", "F"
|
||||
Item_04 = "Gestione profili deleghe e distinte", "ba2 -0", ""
|
||||
|
||||
[PRASSICG_023]
|
||||
Caption = "Stampe di contabilita`"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 7
|
||||
Flags = ""
|
||||
Item_01 = "Lista movimenti", "cg3 -0 M", "F"
|
||||
Item_02 = "Lista fatture per clienti/fornitori", "cg3 -0 C", "F"
|
||||
Item_03 = "Stampa Mastrini", "cg3 -1", "F"
|
||||
Item_04 = "Stampa Riepiloghi", "cg3 -4", "F"
|
||||
Item_05 = "Bilancio", "cg1 -4", "F"
|
||||
Item_06 = "Bilancio IV direttiva CEE", "cg1 -5", "F"
|
||||
Item_07 = "Giornale", "cg3 -3", "F"
|
||||
|
||||
[PRASSICG_025]
|
||||
Caption = "Collegamento bilanci"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 7
|
||||
Flags = ""
|
||||
Item_01 = "Ricezione conti e periodi", "trrice", ""
|
||||
Item_02 = "Tabella piano dei conti", "ab0 -1", ""
|
||||
Item_03 = "Tabella periodi di bilancio", "ab0 -0 %pdb", ""
|
||||
Item_04 = "Copia aggancio piano dei conti", "vcopia", ""
|
||||
Item_05 = "Calcolo bilanci", "cb0000", ""
|
||||
|
||||
[PRASSICG_026]
|
||||
Caption = "Liste fatture"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Lista fatture con iva indetraibile", "cg3 -6 I", "F"
|
||||
Item_02 = "Lista fatture per tipo costo/ricavo", "cg3 -6 C", "F"
|
||||
Item_03 = "Lista fatture intracomunitarie", "cg3 -6 N", "F"
|
||||
|
||||
[PRASSICG_027]
|
||||
Caption = "Gestione acconti IVA"
|
||||
Picture = <cg01.bmp>
|
||||
Module = 0
|
||||
Flags = ""
|
||||
Item_01 = "Calcolo acconti", "cg4 -2 -A", "F"
|
||||
Item_02 = "Gestione acconti", "cg4 -6", "F"
|
||||
Item_03 = "Creazione versam. per acconti", "cg4 -7", "F"
|
||||
Item_04 = "Visualizzazione liquidaz. acconti", "cg4 -8", "F"
|
||||
@ -1,6 +1,6 @@
|
||||
[EFMENU_001]
|
||||
Caption = "Gestione effetti"
|
||||
Picture = <ef01.bmp>
|
||||
Picture = <ef01>
|
||||
Module = 34
|
||||
Flags = ""
|
||||
Item_01 = "Aggiornamento effetti", "ef0 -0", "F"
|
||||
|
||||
@ -1,3 +1,3 @@
|
||||
53
|
||||
0
|
||||
$rcondv|0|0|191|0|Righe condizioni di vendita|||
|
||||
$rcondv|0|0|217|0|Righe condizioni di vendita|||
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
53
|
||||
23
|
||||
25
|
||||
TIPO|1|1|0|Tipo (<L>istino,<C>ontratto,<O>fferta)
|
||||
CATVEN|1|2|0|Categoria di vendita (L)
|
||||
TIPOCF|1|1|0|<C>liente o <F>ornitore (C)
|
||||
@ -23,5 +23,7 @@ UMOM|1|2|0|Unit
|
||||
CODLOTTO|1|6|0|Codice lotto (CO)
|
||||
ARTES|8|1|0|Articolo in esaurimento (O)
|
||||
DATAULTAUM|5|8|0|Data ultimo aumento
|
||||
PRZSTO|4|18|5|Prezzo storico
|
||||
DATAPRZSTO|5|8|0|Data prezzo storico
|
||||
1
|
||||
TIPO+CATVEN+TIPOCF+CODCF+COD+TIPORIGA+CODRIGA+UM+NSCAGL|
|
||||
|
||||
@ -126,7 +126,9 @@ bool TRighe_condizioni_vendita::user_create()
|
||||
_msk->hide(F_R_O_DES);
|
||||
_msk->hide(F_R_C_RICERCA);
|
||||
_msk->hide(F_R_O_RICERCA);
|
||||
// _msk->hide(F_R_CO_CODLOTTO);
|
||||
_msk->hide(F_R_C_PRZSTOR);
|
||||
_msk->hide(F_R_C_DATAPRZSTOR);
|
||||
// _msk->hide(F_R_C_CODLOTTO);
|
||||
_msk->hide(F_R_O_ARTES);
|
||||
_codlis_catven= prassid.get_bool("GESLISCV"); // setta il booleano di abilitazione di CATVEN
|
||||
if (!_codlis_catven) key_disable(*_msk, F_R_L_CATVEN); // disabilita condizionalmente le categorie di vendita
|
||||
@ -183,6 +185,8 @@ bool TRighe_condizioni_vendita::user_create()
|
||||
_msk->hide(F_R_C_DES);
|
||||
_msk->hide(F_R_L_RICERCA);
|
||||
_msk->hide(F_R_C_RICERCA);
|
||||
_msk->hide(F_R_C_PRZSTOR);
|
||||
_msk->hide(F_R_C_DATAPRZSTOR);
|
||||
_gest_um= prassid.get_bool("GESUM", NULL, A_OFFERTE); // setta il booleano di abilitazione delle unità di misura
|
||||
_gest_sca= prassid.get_bool("GESSCA", NULL, A_OFFERTE); // setta il booleano di abilitazione degli scaglioni
|
||||
_gest_so= prassid.get_bool("GESSO", NULL, A_OFFERTE); // setta il booleano di abilitazione degli sconti/omaggi
|
||||
|
||||
@ -40,6 +40,8 @@
|
||||
#define F_R_C_RICERCA 154
|
||||
#define F_R_C_DESCF 155
|
||||
#define F_R_C_DES 156
|
||||
#define F_R_C_PRZSTOR 157
|
||||
#define F_R_C_DATAPRZSTOR 158
|
||||
|
||||
// campi riservati alle offerte
|
||||
#define F_R_O_COD 161
|
||||
|
||||
@ -410,7 +410,7 @@ STRING F_R_SCONTO 25
|
||||
BEGIN
|
||||
PROMPT 2 12 "Sconto "
|
||||
FIELD LF_RCONDV->SCONTO
|
||||
FLAG "U"
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
DATE F_R_DATALAST
|
||||
@ -419,9 +419,22 @@ BEGIN
|
||||
FIELD LF_RCONDV->DATAULTAUM
|
||||
END
|
||||
|
||||
CURRENCY F_R_C_PRZSTOR 18
|
||||
BEGIN
|
||||
PROMPT 2 13 "Prezzo storico "
|
||||
FIELD LF_RCONDV->PRZSTO
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
DATE F_R_C_DATAPRZSTOR
|
||||
BEGIN
|
||||
PROMPT 49 13 "Data prezzo storico "
|
||||
FIELD LF_RCONDV->DATAPRZSTO
|
||||
END
|
||||
|
||||
NUMBER F_R_PERCPROVV 5 2
|
||||
BEGIN
|
||||
PROMPT 2 13 "Provvigione % "
|
||||
PROMPT 2 14 "Provvigione % "
|
||||
FIELD LF_RCONDV->PERCPROVV
|
||||
NUM_EXPR (#F_R_PERCPROVV>=0)&&(#F_R_PERCPROVV<=100)
|
||||
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
||||
@ -429,14 +442,14 @@ END
|
||||
|
||||
BOOLEAN F_R_ADDIVA
|
||||
BEGIN
|
||||
PROMPT 2 14 "Addebito IVA"
|
||||
PROMPT 2 15 "Addebito IVA"
|
||||
FIELD LF_RCONDV->ADDIVA
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_R_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 53 14 "Codice IVA "
|
||||
PROMPT 53 15 "Codice IVA "
|
||||
FIELD LF_RCONDV->CODIVA
|
||||
FLAG "U"
|
||||
USE %IVA
|
||||
@ -450,14 +463,14 @@ END
|
||||
|
||||
NUMBER F_R_QOM 15 5
|
||||
BEGIN
|
||||
PROMPT 2 15 "Q.ta' sconto/omaggio "
|
||||
PROMPT 2 16 "Q.ta' sconto/omaggio "
|
||||
FIELD LF_RCONDV->QOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_R_UMOM 2
|
||||
BEGIN
|
||||
PROMPT 47 15 "U.M. q.ta' omaggio "
|
||||
PROMPT 47 16 "U.M. q.ta' omaggio "
|
||||
FIELD LF_RCONDV->UMOM
|
||||
FLAG "U"
|
||||
USE LF_UMART KEY 2
|
||||
@ -471,14 +484,14 @@ END
|
||||
|
||||
NUMBER F_R_QBASE 15 5
|
||||
BEGIN
|
||||
PROMPT 2 16 "Q.ta' base sconto "
|
||||
PROMPT 2 17 "Q.ta' base sconto "
|
||||
FIELD LF_RCONDV->QBASE
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_R_CODARTOM 20
|
||||
BEGIN
|
||||
PROMPT 2 17 "Codice art. omaggio "
|
||||
PROMPT 2 18 "Codice art. omaggio "
|
||||
FIELD LF_RCONDV->CODARTOM
|
||||
FLAG "U"
|
||||
USE LF_ANAMAG
|
||||
@ -492,23 +505,23 @@ END
|
||||
|
||||
CURRENCY F_R_PROMAGGIO 18
|
||||
BEGIN
|
||||
PROMPT 2 18 "Prezzo omaggio "
|
||||
PROMPT 2 19 "Prezzo omaggio "
|
||||
FIELD LF_RCONDV->PROMAGGIO
|
||||
FLAGS "U"
|
||||
DRIVENBY F_CODVAL_R
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
//STRINF F_R_CO_CODLOTTO 6
|
||||
//STRINF F_R_C_CODLOTTO 6
|
||||
//BEGIN
|
||||
//PROMPT 2 18 "Codice lotto "
|
||||
//PROMPT 2 19 "Codice lotto "
|
||||
//FIELD LF_RCONDV->CODLOTTO
|
||||
//FLAG "U"
|
||||
//END
|
||||
|
||||
BOOLEAN F_R_O_ARTES
|
||||
BEGIN
|
||||
PROMPT 57 18 "Art. in esaurimento"
|
||||
PROMPT 57 19 "Art. in esaurimento"
|
||||
FIELD LF_RCONDV->ARTES
|
||||
END
|
||||
|
||||
|
||||
@ -31,6 +31,7 @@ class TStampa_condizioni_vendita: public TPrint_application {
|
||||
bool _listval; // booleano di abilitazione della stampa dei listini in valuta
|
||||
bool _testacomp, _righecomp; // booleani di selezione della stampa completa per testata e righe;
|
||||
bool _printdesagg; // Stampa anche la descrizione aggiuntiva, solo se abilitata anche la stampa completa delle righe
|
||||
bool _printstorico; // Stampa prz storico e Data prz storico
|
||||
bool _testastamp; // booleano di testata completa già stampata
|
||||
bool _gest_val, _gest_um, _gest_sca, _gest_so; // booleani per l'abilitazione di valute, unità di misura, scaglioni e sconti/omaggi
|
||||
bool _filter_by_grm; //Filtro per gruppo merceologico nel caso di stampa righe articoli
|
||||
@ -131,7 +132,8 @@ bool TStampa_condizioni_vendita::user_create() {
|
||||
error_box("Indicare l'archivio sulla linea di comando (L, C o O) oppure selezionarla dalla maschera di partenza");
|
||||
break;
|
||||
}
|
||||
if (gotcha) { // se è stato selezionato correttamente un archivio completa l'inizializzazione
|
||||
if (gotcha)
|
||||
{ // se è stato selezionato correttamente un archivio completa l'inizializzazione
|
||||
_gest_um= prassid.get_bool("GESUM", NULL, indice); // setta il booleano di abilitazione delle unità di misura
|
||||
_gest_sca= prassid.get_bool("GESSCA", NULL, indice); // setta il booleano di abilitazione degli scaglioni
|
||||
_gest_so= prassid.get_bool("GESSO", NULL, indice); // setta il booleano di abilitazione degli sconti/omaggi
|
||||
@ -219,6 +221,7 @@ bool TStampa_condizioni_vendita::set_print(int) {
|
||||
_testacomp= mask.get_bool(F_TESTACOMP); // legge l'abilitazione della stampa completa della testata
|
||||
_righecomp= mask.get_bool(F_RIGHECOMP); // legge l'abilitazione della stampa completa delle righe
|
||||
_printdesagg = mask.get_bool(F_PRINTDESAGG); //legge l'abilitazione della stampa della descrizione aggiuntiva
|
||||
_printstorico = mask.get_bool(F_PRINTSTORICO); //legge l'abilitazione della stampa del prz storico e della relativa data
|
||||
TLocalisamfile &rcondv= _rel->lfile(); // prende il file principale
|
||||
TRectype da(rcondv.curr()); // prepara il record di inizio regione
|
||||
da.zero();
|
||||
@ -300,7 +303,8 @@ CVA CAMBIO DATACAM
|
||||
T CODRIGA UM S QLIM PREZZO SCONTO A CIVA PERCPROV
|
||||
. .................... .. . ...............,..... ..................,.. ......................... . .... .....,..
|
||||
UO QOM QBASE CODARTOM PROMAGGIO CODLOT E
|
||||
.. ...............,..... ...............,..... .................... ..................,.. ...... .
|
||||
DATAPREZZOSTORICO PREZZOSTORICO
|
||||
.. ...............,..... ...............,..... .................... ..................,...................................
|
||||
*/
|
||||
|
||||
bool TStampa_condizioni_vendita::preprocess_page(int i, int c)
|
||||
@ -371,9 +375,13 @@ void TStampa_condizioni_vendita::preprocess_header() {
|
||||
if (_filter_by_grm)
|
||||
set_header(i,"@3gGr.Merc.");
|
||||
set_header(i, "@27gSconto @53gA @55gIVA @60gProvvig. @109gUlt. Aum."); // setta l'header della chiave, della quantità limite e del prezzo
|
||||
if ((_condven=="C") || (_condven=="O")) set_header(i, "@69gLotto"); // setta l'header del lotto
|
||||
if ((_condven=="C") || (_condven=="O"))
|
||||
set_header(i, "@69gLotto"); // setta l'header del lotto
|
||||
set_header(++i, "@1gUMO @5gQuantita' omaggio @27gQuantita' base @49gCod. art. omagg. @70gPrezzo omaggio"); // setta l'header dello sconto/omaggio
|
||||
if (_condven=="O") set_header(i, "@73gEsaur."); // setta l'header dell'articolo in esaurimento
|
||||
if (_condven=="O")
|
||||
set_header(i, "@73gEsaur."); // setta l'header dell'articolo in esaurimento
|
||||
if (_condven=="C" && _printstorico) //header della riga prezii e date storici
|
||||
set_header(++i, "@87gData prezzo storico @109gPrezzo storico");
|
||||
}
|
||||
set_header(++i,(const char*)rw);
|
||||
set_header(++i, "@14g%3s", (const char *) condv.get("COD"));
|
||||
@ -495,8 +503,12 @@ void TStampa_condizioni_vendita::set_page(int file, int) {
|
||||
curr2str("PREZZO", _strprezzo);
|
||||
|
||||
set_row(++i, "Prezzo: #t", &_strprezzo);
|
||||
if (_printstorico && tiporiga[0] == 'A')
|
||||
set_row(++i, "Prezzo storico: @pn", FLD(LF_RCONDV, "PRZSTO", "###.###.###,@@"));
|
||||
set_row(++i, "Pz per conf.: @pn", FLD(-ART1, "PPCONF","###.###.###,@@"));
|
||||
set_row(++i, "Data ultimo aumento: @d", FLD(LF_RCONDV, "DATAULTAUM"));
|
||||
if (_printstorico && tiporiga[0] == 'A')
|
||||
set_row(++i, "Data prezzo storico: @d", FLD(LF_RCONDV, "DATAPRZSTO"));
|
||||
set_row(++i, "Sconto: @25s", FLD(LF_RCONDV, "SCONTO"));
|
||||
set_row(++i, "Addebito IVA: @f", FLD(LF_RCONDV, "ADDIVA"));
|
||||
//set_row(++i, "Codice IVA: @4s", FLD(LF_RCONDV, "CODIVA"));
|
||||
@ -526,7 +538,8 @@ void TStampa_condizioni_vendita::set_page(int file, int) {
|
||||
FLD(LF_RCONDV, "TIPORIGA"), FLD(LF_RCONDV, "CODRIGA"),
|
||||
FLD(LF_RCONDV, "NSCAGL"), FLD(LF_RCONDV, "QLIM","##########,@@@@@"),
|
||||
&_strprezzo, FLD(-ART1,"PPCONF"));
|
||||
switch (tiporiga[0]) {
|
||||
switch (tiporiga[0])
|
||||
{
|
||||
case 'A':
|
||||
set_row(i, "@27g@50s", FLD(-ART1, "DESCR")); //
|
||||
break;
|
||||
@ -568,6 +581,12 @@ void TStampa_condizioni_vendita::set_page(int file, int) {
|
||||
FLD(LF_RCONDV, "QBASE","##########,@@@@@"), FLD(LF_RCONDV, "CODARTOM"),
|
||||
&_stromaggio); // sconto/omaggio
|
||||
}
|
||||
// quarta riga: storico (solo per contratti,opzionale)
|
||||
if (_printstorico)
|
||||
{
|
||||
set_row(++i, "@87g@10s @109g@pn", FLD(LF_RCONDV, "DATAPRZSTO"), FLD(LF_RCONDV, "PRZSTO", "###.###.###,@@"));
|
||||
}
|
||||
|
||||
set_row(++i, ""); // salta una riga
|
||||
}
|
||||
}
|
||||
|
||||
@ -27,7 +27,6 @@
|
||||
|
||||
#define F_TESTACOMP 131
|
||||
#define F_RIGHECOMP 132
|
||||
#define F_PRINTDESAGG 138
|
||||
|
||||
#define F_L_CATVEN 133
|
||||
#define F_L_COD 134
|
||||
@ -36,6 +35,9 @@
|
||||
#define F_DARIGA_A 136
|
||||
#define F_ARIGA_A 137
|
||||
|
||||
#define F_PRINTDESAGG 138
|
||||
#define F_PRINTSTORICO 139
|
||||
|
||||
#define F_C_TIPOCF 141
|
||||
#define F_C_CODCF 142
|
||||
#define F_C_COD 143
|
||||
|
||||
@ -558,6 +558,12 @@ BEGIN
|
||||
PROMPT 30 10 "Descrizione aggiuntiva"
|
||||
END
|
||||
|
||||
BOOLEAN F_PRINTSTORICO //checkbox per stampa prezzostorico e dataprezzostorico
|
||||
BEGIN
|
||||
PROMPT 30 11 "Prezzo storico"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BUTTON DLG_PRINT 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
|
||||
@ -58,8 +58,6 @@ class TViswin;
|
||||
#define RIGA_OMAGGI 'O'
|
||||
#define RIGA_DESCRIZIONI 'D'
|
||||
|
||||
#define MAX_TIPI_DOC 10
|
||||
|
||||
#define MAX_IVA_SLICES 5
|
||||
|
||||
class TDocumento;
|
||||
|
||||
@ -24,22 +24,26 @@ TCodice_numerazione::~TCodice_numerazione()
|
||||
|
||||
const TString& TCodice_numerazione::tipo_doc(int i) const
|
||||
{
|
||||
CHECK(i < MAX_TIPI_DOC, "Impossibbile tipo documento");
|
||||
CHECK(i < 36, "Impossibbile tipo documento");
|
||||
const char * field = i < 17 ? "S2" : "S3";
|
||||
|
||||
if (i > 16)
|
||||
if (i >= 17)
|
||||
i -= 17;
|
||||
return ((TString& ) get(field).mid(i << 2, 4)).trim();
|
||||
TString & tmp = get_tmp_string();
|
||||
tmp = get(field).mid(i * 4, 4);
|
||||
tmp.trim();
|
||||
return tmp;
|
||||
}
|
||||
|
||||
int TCodice_numerazione::ntipi_doc() const
|
||||
{
|
||||
int l = get("S3").len();
|
||||
if (l > 0)
|
||||
return ((l - 1) >> 2) + 18;
|
||||
return ((l - 1) / 4) + 18;
|
||||
l = get("S2").len();
|
||||
return l ? (((l - 1) >> 2) + 1) : 0;
|
||||
return l ? (((l - 1) / 4) + 1) : 0;
|
||||
}
|
||||
|
||||
void TCodice_numerazione::complete_num(long num, TString& codnum) const
|
||||
{
|
||||
codnum = prefisso();
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user