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

Patch level : 1102

Browse Source 
Files correlati     : ha0.exe ha0300a.msk
Ricompilazione Demo : [ ]
Commento            :
Aggiunta gestione cliente di fatturazione alla gestione contratti ed alla generazione NAC


git-svn-id: svn://10.65.10.50/branches/R_10_00@22448 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2011-10-07 15:59:54 +00:00
parent eb6532d6e7
commit b788b164bd
6 changed files with 58 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ha/ha0300.cpp
View File

@ -359,7 +359,7 @@ void TDocumenti_premio::write_rows(const TMask& m)
for (int i = sm.fields()-1; i >= 0; i--) //giro su tutti i campi della maschera di riga...
{
TMask_field& mf = sm.fld(i); //aggiunge solo quelli che hanno un field
if ((mf.field() != NULL) && (mf.dlg() > 100)) //> 100 per evitare errori sui campi dlg_null
if ((mf.dlg() > 100) && (mf.field() != NULL)) //> 100 per evitare errori sui campi dlg_null
{
const int idx = sheet.cid2index(mf.dlg());
mf.field()->write(row->get(idx), rec);
@ -386,11 +386,10 @@ void TDocumenti_premio::write_rows(const TMask& m)
//panegirico sul codice iva (che ci va sennò col cavolo che si riesce a contabilizzare il contratto)
TString80 codspp;
TConfig config(CONFIG_DITTA, "ha");
switch (tipo_contr)
{
case 'A': codspp = config.get("CoAntSpe"); break;
case 'R': codspp = config.get("CoRifaSpe"); break;
case 'A': codspp = ini_get_string(CONFIG_DITTA, "ha", "CoAntSpe"); break;
case 'R': codspp = ini_get_string(CONFIG_DITTA, "ha", "CoRifaSpe"); break;
default: break;
}
last_rec.put(RDOC_CODART, codspp);
@ -399,7 +398,7 @@ void TDocumenti_premio::write_rows(const TMask& m)
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())
if (codiva.blank())
codiva = cache().get("SPP", codspp, "S3");
last_rec.put(RDOC_CODIVA, codiva);
}

2
ha/ha0300a.h
View File

@ -8,6 +8,8 @@
#define F_TIPOCF 205
#define F_CODCF 206
#define F_DESCF 207
#define F_CODCFATT 208
#define F_DESCFATT 209
#define F_CODCONTR 210
#define F_DESCONTR 211

47
ha/ha0300a.uml
View File

@ -13,9 +13,14 @@ BEGIN
PROMPT 1 0 ""
END
RADIOBUTTON F_TIPOCONTR 1 76
TEXT DLG_NULL
BEGIN
PROMPT 2 0 "@bTipo contratto"
PROMPT 1 1 "@bTipo contratto"
END
RADIOBUTTON F_TIPOCONTR 1 70
BEGIN
PROMPT 16 0 ""
ITEM "A|Anticipo"
MESSAGE CLEAR,F_DATAFCOMP|ENABLE,1@|CLEAR,F_CODLIS|REQUIRED,F_CODCONTR
ITEM "P|Posticipo"
@ -61,10 +66,9 @@ END
NUMBER F_CODCF 6
BEGIN
PROMPT 2 3 "Cliente "
PROMPT 2 2 "Cliente "
WARNING "Cliente assente"
HELP "Codice del cliente del documento"
FLAGS "R"
FIELD CODCF
USE LF_CLIFO KEY 1
INPUT TIPOCF "C"
@ -83,7 +87,7 @@ STRING F_DESCF 50
BEGIN
WARNING "Cliente assente"
HELP "Ragione sociale del cliente del documento"
PROMPT 24 3 ""
PROMPT 24 2 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_DESCF
@ -96,6 +100,37 @@ BEGIN
ADD RUN cg0 -1 C
END
NUMBER F_CODCFATT 6
BEGIN
PROMPT 2 3 "Cli. fatt."
WARNING "Inserire un codice >= 200000"
HELP "Codice del cliente cui fatturare >= 200000"
FIELD DOC2
COPY USE F_CODCF
INPUT TIPOCF "C"
INPUT CODCF F_CODCFATT
COPY DISPLAY F_CODCF
OUTPUT F_CODCFATT CODCF
OUTPUT F_DESCFATT RAGSOC
CHECKTYPE NORMAL
ADD RUN cg0 -1 C
END
STRING F_DESCFATT 50
BEGIN
WARNING "Cliente assente"
HELP "Ragione sociale del cliente cui fatturare"
PROMPT 24 3 ""
COPY USE F_DESCF
INPUT TIPOCF "C"
INPUT RAGSOC F_DESCFATT
COPY DISPLAY F_DESCF
COPY OUTPUT F_CODCFATT
CHECKTYPE NORMAL
ADD RUN cg0 -1 C
END
LIST F_PROVV 1
BEGIN
PROMPT 140 101 ""
@ -129,7 +164,7 @@ BEGIN
INPUT ANNO F_ANNO SELECT
INPUT NDOC F_NDOC
DISPLAY "Numero" NDOC
DISPLAY "Data doc." DATADOC
DISPLAY "Data doc.@10" DATADOC
DISPLAY "Inizio@10" DATACOMP
DISPLAY "Fine@10" DATAFCOMP
DISPLAY "Tipo" TIPODOC

16
ha/ha0500.cpp
View File

@ -23,19 +23,9 @@ protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
THardy_elab_docs_mask();
~THardy_elab_docs_mask();
THardy_elab_docs_mask() : TAutomask ("ha0500a") {}
};
THardy_elab_docs_mask::THardy_elab_docs_mask() : TAutomask ("ha0500a")
{
}
THardy_elab_docs_mask::~THardy_elab_docs_mask()
{
}
bool THardy_elab_docs_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
@ -498,7 +488,7 @@ bool THardy_elab_docs::genera_nac(const TMask& mask, TArray& contratti_cliente,
{
TContratto_premi& contratto = *(TContratto_premi*)riga;
const long ndoc = contratto.numero(); //il numdoc del contratto serve nelle segnalazioni
const long codcf = contratto.codcf(); //il codice cliente ci serve nella generazione della NAC..
const long codcf = contratto.codcf_fatt(); //il codice cliente ci serve nella generazione della NAC..
const char tipo_contratto = contratto.tipo_contratto(); //..e pure il tipo di contratto in esame!
//segnaliamo l'elaborazione del contratto sul log
@ -672,7 +662,7 @@ bool THardy_elab_docs::genera_nac(const TMask& mask, TArray& contratti_cliente,
real reso_storico = rdoc->get_real(RCA_2_RESO_STORICO);
reso_storico += rdoc->get_real(RCA_2_RESO_CORRENTE);
rdoc->put(RCA_2_RESO_STORICO, reso_storico);
//se il contratto è andato a pareggio avverte dilegentemente l'operatore
//se il contratto è andato a pareggio avverte diligentemente l'operatore
if (reso_storico >= anticipato)
log_msg << " -- Contratto pareggiato!";

7
ha/halib.cpp
View File

@ -32,6 +32,13 @@ char TContratto_premi::tipo_contratto() const
return 'P';
}
long TContratto_premi::codcf_fatt() const
{
long cod = get_long(DOC_DOC2);
if (cod <= 0)
cod = codcf();
return cod;
}
TContratto_premi::TContratto_premi(char provv, int anno, const char* codnum, long ndoc)
: TDocumento(provv, anno, codnum, ndoc)

1
ha/halib.h
View File

@ -37,6 +37,7 @@ static TString4 _tipo_ant, _tipo_post, _tipo_rifa;
public:
char tipo_contratto() const;
long codcf_fatt() const;
TContratto_premi(char provv, int anno, const char* codnum, long ndoc);
TContratto_premi(const TRectype& rec_doc);