Patch level :10.0 808
Files correlati : Ricompilazione Demo : [ ] Commento : Riporto dalla 11.0: _contabilizzazione contratti premio _tabcom necessarie per la contab...premio _collegamento del contratto contabilizzato alla prima nota _configurazione hardy abbastanza avanti git-svn-id: svn://10.65.10.50/branches/R_10_00@20883 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
545e047be5
commit
4fa383ebd2
@ -167,24 +167,24 @@ END
|
||||
STRING F_CO_POST_NUM 4
|
||||
BEGIN
|
||||
PROMPT 20 10 "Numerazione "
|
||||
/*USE %NUM
|
||||
USE %NUM
|
||||
INPUT CODTAB F_CO_POST_NUM
|
||||
DISPLAY "Codice@8" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CO_POST_NUM CODTAB
|
||||
CHECKTYPE REQUIRED*/
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CoPostNum
|
||||
END
|
||||
|
||||
STRING F_CO_POST_TIP 4
|
||||
BEGIN
|
||||
PROMPT 42 10 "Tipo "
|
||||
/*USE %TIP
|
||||
USE %TIP
|
||||
INPUT CODTAB F_CO_POST_TIP
|
||||
DISPLAY "Codice@8" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CO_POST_TIP CODTAB
|
||||
CHECKTYPE REQUIRED*/
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CoPostTip
|
||||
END
|
||||
|
||||
@ -244,24 +244,24 @@ END
|
||||
STRING F_CO_RIFA_NUM 4
|
||||
BEGIN
|
||||
PROMPT 20 14 "Numerazione "
|
||||
/*USE %NUM
|
||||
USE %NUM
|
||||
INPUT CODTAB F_CO_RIFA_NUM
|
||||
DISPLAY "Codice@8" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CO_RIFA_NUM CODTAB
|
||||
CHECKTYPE REQUIRED*/
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CoRifaNum
|
||||
END
|
||||
|
||||
STRING F_CO_RIFA_TIP 4
|
||||
BEGIN
|
||||
PROMPT 42 14 "Tipo "
|
||||
/*USE %TIP
|
||||
USE %TIP
|
||||
INPUT CODTAB F_CO_RIFA_TIP
|
||||
DISPLAY "Codice@8" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CO_RIFA_TIP CODTAB
|
||||
CHECKTYPE REQUIRED*/
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CoRifaTip
|
||||
END
|
||||
|
||||
|
||||
@ -2,6 +2,7 @@
|
||||
#include <recarray.h>
|
||||
#include <relapp.h>
|
||||
|
||||
#include <mov.h>
|
||||
#include <cfven.h>
|
||||
#include <doc.h>
|
||||
#include <rdoc.h>
|
||||
@ -23,6 +24,7 @@ class TDocumenti_premio_msk : public TAutomask
|
||||
protected:
|
||||
bool find_prezzo_articolo(const TString& codart, real& prezzo, TString& um) const;
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
virtual bool on_key(KEY key);
|
||||
|
||||
public:
|
||||
TDocumenti_premio_msk();
|
||||
@ -33,6 +35,17 @@ TDocumenti_premio_msk::TDocumenti_premio_msk() : TAutomask("ha0300a")
|
||||
{
|
||||
}
|
||||
|
||||
//metodo standard per far funzionare il shift+f12 in modo da poter cambiare lo stato
|
||||
bool TDocumenti_premio_msk::on_key(KEY key)
|
||||
{
|
||||
if (key == K_SHIFT + K_F12)
|
||||
{
|
||||
enable(F_STATO);
|
||||
return true;
|
||||
}
|
||||
return TAutomask::on_key(key);
|
||||
}
|
||||
|
||||
bool TDocumenti_premio_msk::find_prezzo_articolo(const TString& codart, real& prezzo, TString& um) const
|
||||
{
|
||||
//1) contratto
|
||||
@ -156,6 +169,18 @@ bool TDocumenti_premio_msk::on_field_event(TOperable_field& o, TField_event e, l
|
||||
}
|
||||
}
|
||||
break;
|
||||
case F_COLLEGA:
|
||||
if (e == fe_button)
|
||||
{
|
||||
const long numreg_cg = get_long(F_NUMREG);
|
||||
if (numreg_cg > 0)
|
||||
{
|
||||
TRectype mov(LF_MOV);
|
||||
mov.put(MOV_NUMREG, numreg_cg);
|
||||
mov.edit();
|
||||
}
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
};
|
||||
@ -320,35 +345,38 @@ void TDocumenti_premio::write_rows(const TMask& m)
|
||||
rec.put(RDOC_TIPORIGA, HARDY_TIPORIGA_MERCE);
|
||||
}
|
||||
//salva la riga di tipo somme anticipate/rimborsate (H02) che in realtà è in testata
|
||||
const int righedoc_items = righedoc.rows();
|
||||
TRectype& last_rec = righedoc.row(righedoc_items + 1, true);
|
||||
const real anticipato = m.get_real(F_ANTICIPATO);
|
||||
const real maturato = m.get_real(F_RESTITUITO);
|
||||
last_rec.put(RCA_2_ANTICIPATO, anticipato);
|
||||
last_rec.put(RCA_2_RESTITUITO, maturato);
|
||||
last_rec.put(RDOC_TIPORIGA, HARDY_TIPORIGA_SOMMA);
|
||||
last_rec.put(RDOC_QTA, 1);
|
||||
|
||||
//panegirico sul codice iva (che ci va sennò col cavolo che si riesce a contabilizzare il contratto)
|
||||
TString80 codspp;
|
||||
//questo vale solo per i contratti di Anticip/Rifatturazione
|
||||
TConfig config(CONFIG_DITTA, "ha");
|
||||
const char tipo_contr = m.get(F_TIPOCONTR)[0];
|
||||
switch (tipo_contr)
|
||||
if (tipo_contr == 'A' || tipo_contr == 'R')
|
||||
{
|
||||
case 'A': codspp = config.get("CoAntSpe"); break;
|
||||
case 'R': codspp = config.get("CoRifaSpe"); break;
|
||||
default: break;
|
||||
const int righedoc_items = righedoc.rows();
|
||||
TRectype& last_rec = righedoc.row(righedoc_items + 1, true);
|
||||
const real anticipato = m.get_real(F_ANTICIPATO);
|
||||
const real maturato = m.get_real(F_RESTITUITO);
|
||||
last_rec.put(RCA_2_ANTICIPATO, anticipato);
|
||||
last_rec.put(RCA_2_RESTITUITO, maturato);
|
||||
last_rec.put(RDOC_TIPORIGA, HARDY_TIPORIGA_SOMMA);
|
||||
last_rec.put(RDOC_QTA, 1);
|
||||
|
||||
//panegirico sul codice iva (che ci va sennò col cavolo che si riesce a contabilizzare il contratto)
|
||||
TString80 codspp;
|
||||
switch (tipo_contr)
|
||||
{
|
||||
case 'A': codspp = config.get("CoAntSpe"); break;
|
||||
case 'R': codspp = config.get("CoRifaSpe"); break;
|
||||
default: break;
|
||||
}
|
||||
last_rec.put(RDOC_CODART, codspp);
|
||||
|
||||
//cerca se il cliente ha un'iva speciale (1 cliente su 1E+6, ma tant'è...)
|
||||
TCli_for clifo(m.get(F_TIPOCF)[0], m.get_long(F_CODCF));
|
||||
TString4 codiva(clifo.vendite().get(CFV_ASSFIS));
|
||||
//per i restanti 1E+6 - 1 clienti...
|
||||
if (!codiva.full())
|
||||
codiva = cache().get("SPP", codspp, "S3");
|
||||
last_rec.put(RDOC_CODIVA, codiva);
|
||||
}
|
||||
last_rec.put(RDOC_CODART, codspp);
|
||||
|
||||
//cerca se il cliente ha un'iva speciale (1 cliente su 1E+6, ma tant'è...)
|
||||
TCli_for clifo(m.get(F_TIPOCF)[0], m.get_long(F_CODCF));
|
||||
TString4 codiva(clifo.vendite().get(CFV_ASSFIS));
|
||||
//per i restanti 1E+6 - 1 clienti...
|
||||
if (!codiva.full())
|
||||
codiva = cache().get("SPP", codspp, "S3");
|
||||
last_rec.put(RDOC_CODIVA, codiva);
|
||||
|
||||
//e alla fine della fiera scrive tutto ufficialmente
|
||||
righedoc.rewrite();
|
||||
}
|
||||
@ -356,6 +384,7 @@ void TDocumenti_premio::write_rows(const TMask& m)
|
||||
|
||||
void TDocumenti_premio::init_query_mode(TMask& m)
|
||||
{
|
||||
m.disable(F_STATO);
|
||||
}
|
||||
|
||||
void TDocumenti_premio::init_insert_mode(TMask& m)
|
||||
|
||||
@ -25,8 +25,10 @@
|
||||
#define F_TIPOCONTR 224
|
||||
#define F_DATACOMP 225
|
||||
#define F_DATAFCOMP 226
|
||||
#define F_ANTICIPATO 227
|
||||
#define F_RESTITUITO 228
|
||||
#define F_NUMREG 227
|
||||
#define F_COLLEGA 228
|
||||
#define F_ANTICIPATO 229
|
||||
#define F_RESTITUITO 230
|
||||
|
||||
#define F_RIGHE 500 //questo va messo 500 sennò ve0 si incazza e non funziona più
|
||||
|
||||
|
||||
@ -257,19 +257,40 @@ BEGIN
|
||||
ADD RUN ba3 -6
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 9 "Validita':"
|
||||
END
|
||||
|
||||
DATE F_DATACOMP
|
||||
BEGIN
|
||||
PROMPT 2 9 "Inizio validita' "
|
||||
PROMPT 13 9 "Inizio "
|
||||
FIELD DATACOMP
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_DATAFCOMP
|
||||
BEGIN
|
||||
PROMPT 35 9 "Fine validita' "
|
||||
PROMPT 33 9 "Fine "
|
||||
FIELD DATAFCOMP
|
||||
END
|
||||
|
||||
NUMBER F_NUMREG 7
|
||||
BEGIN
|
||||
PROMPT 54 9 "N.reg.CG "
|
||||
FIELD NUMREG
|
||||
FLAGS "DUG"
|
||||
MESSAGE EMPTY DISABLE,F_COLLEGA
|
||||
MESSAGE ENABLE,F_COLLEGA
|
||||
END
|
||||
|
||||
BUTTON F_COLLEGA 2 1
|
||||
BEGIN
|
||||
PROMPT 74 9 "CG mov."
|
||||
PICTURE BMP_DARROWR
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 3
|
||||
BEGIN
|
||||
PROMPT 2 10 "@bSomme anticipate/restituite"
|
||||
|
||||
@ -5,6 +5,6 @@ Module = 46
|
||||
Flags = "F"
|
||||
Item_01 = "Configurazione Hardy", "ha0 -1", ""
|
||||
Item_02 = "Gestione contratti premio", "ha0 -2", ""
|
||||
Item_03 = "Contabilizzazione contratti premio", "ha0 -3", ""
|
||||
Item_03 = "Contabilizzazione contratti premio", "ve6 -1", "F"
|
||||
Item_04 = "Generazione NAC", "ha0 -4", ""
|
||||
Item_05 = "Gestione listini", "ve2 -4", ""
|
||||
|
||||
@ -12,7 +12,10 @@ Fields=B6,1|B7,1|B8,1|B9,1|B10,1|B11,1|B12,1|B13,1|B14,1|B15,1
|
||||
Fields=FPC,1
|
||||
|
||||
[Data]
|
||||
NUM|HCO|Contratto||HCA HCP||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||X|||||||||||||||
|
||||
TIP|HCO|Contratto Hardy||1259||hacontr|hacontr||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||
ELD|HACON|Contabilizzazione contratti premio Hardy||HCA HCR||5|HCO|HCO|22|HCA|5|||3|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||
NUM|HCO|Contratto premio||HCA HCP HCR||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||X|||X|| || | | | | | |
|
||||
TIP|HCA|Contratto premio cliente ANTICIPATO||1255 1 1 1||pippo|hacontr|PAN|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||
TIP|HCR|Contratto premio cliente RIFATTURAZIONE||1255 1 1 1||pippo|hacontr|PAN|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||
TIP|HCP|Contratto premio cliente POSTICIPATO||||pippo|hacontr|PPO|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||
TRI|H01|Merce|||||||M||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||
TRI|H02|Somma anticipata|||||||S||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user