diff --git a/ef/ef0.cpp b/ef/ef0.cpp index fc1da39e6..fa8f7a456 100755 --- a/ef/ef0.cpp +++ b/ef/ef0.cpp @@ -6,13 +6,19 @@ int main(int argc, char** argv) { - const int op = argc < 2 ? 0 : atoi(argv[1]+1)+1; + const int op = argc < 2 ? 0 : atoi(argv[1]+1); int res = 1; switch (op) { - case 1: res = ef0100(argc,argv) ; break; - case 2: res = ef0200(argc,argv) ; break; - default: error_box(usage, argv[0]); break; - } + case 0: + res = ef0100(argc,argv); + break; + case 1: + res = ef0200(argc,argv); + break; + default: + error_box(usage, argv[0]); + break; + } return res; } diff --git a/ef/ef0100.cpp b/ef/ef0100.cpp index 6685df064..9c5f982eb 100755 --- a/ef/ef0100.cpp +++ b/ef/ef0100.cpp @@ -4,8 +4,8 @@ #include #include #include -#include -#include +#include "effetti.h" +#include "cession.h" #include "ef0.h" #include "ef0100.h" #include "ef0101.h" @@ -74,7 +74,7 @@ void Variazione_Effetti::common_f(const TMask& m) long nprogtr=m.get_long(F_NPROGTR); _rel->lfile().zero(); - m.autosave(_rel); + m.autosave(*_rel); // LF_CESS SAVER! _rel->destroy_rows(); obb_pack(); @@ -96,7 +96,7 @@ void Variazione_Effetti::common_f(const TMask& m) int Variazione_Effetti::read(TMask& m) { - m.autoload(_rel); + m.autoload(*_rel); // LF_CESS loader! TToken_string riga(80); obb_sheet().reset(); @@ -145,7 +145,7 @@ bool Variazione_Effetti::user_destroy() bool Variazione_Effetti::codcf_handler(TMask_field& f, KEY k) { - long codcf=atol(f.get()),n=0; + long codcf = atol(f.get()), n = 0; TString ragsoc(50); TToken_string line; TLocalisamfile clifo(LF_CLIFO); diff --git a/ef/ef0100a.uml b/ef/ef0100a.uml index 6a62359cd..6cc5567bc 100755 --- a/ef/ef0100a.uml +++ b/ef/ef0100a.uml @@ -15,274 +15,274 @@ END NUMBER F_NPROGTR 7 BEGIN - PROMPT 2 1 "Numero " - FIELD LF_EFFETTI->NPROGTR - FLAGS "R" - KEY 1 - USE LF_EFFETTI KEY 1 - JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C" - INPUT NPROGTR F_NPROGTR - DISPLAY "Nr. Progressivo" NPROGTR - DISPLAY "Codice cliente" CODCF - DISPLAY "Data scadenza" DATASCAD - DISPLAY "Data fattura" DATAFATT - DISPLAY "Numero fattura" NFATT - DISPLAY "Importo fattura @R" IMPFATT - DISPLAY "Importo effetto @R" IMPORTO - DISPLAY "Tipo" TIPOPAG - DISPLAY "Nr distinta" NDIST - DISPLAY "Tipo distinta" TIPODIST - OUTPUT F_NPROGTR NPROGTR - OUTPUT F_CODCF CODCF - OUTPUT F_DATASCAD DATASCAD - OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC - CHECKTYPE REQUIRED - HELP "Inserire il numero progressivo dell'effetto" + PROMPT 2 1 "Numero " + FIELD LF_EFFETTI->NPROGTR + FLAGS "R" + KEY 1 + USE LF_EFFETTI KEY 1 + JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C" + INPUT NPROGTR F_NPROGTR + DISPLAY "Nr. Progressivo" NPROGTR + DISPLAY "Codice cliente" CODCF + DISPLAY "Data scadenza" DATASCAD + DISPLAY "Data fattura" DATAFATT + DISPLAY "Numero fattura" NFATT + DISPLAY "Importo fattura @R" IMPFATT + DISPLAY "Importo effetto @R" IMPORTO + DISPLAY "Tipo" TIPOPAG + DISPLAY "Nr distinta" NDIST + DISPLAY "Tipo distinta" TIPODIST + OUTPUT F_NPROGTR NPROGTR + OUTPUT F_CODCF CODCF + OUTPUT F_DATASCAD DATASCAD + OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC + CHECKTYPE REQUIRED + HELP "Inserire il numero progressivo dell'effetto" END NUMBER F_CODCF 6 BEGIN - PROMPT 2 2 "Cod. cliente " - FIELD LF_EFFETTI->CODCF - KEY 2 - USE LF_EFFETTI KEY 2 - JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C" - INPUT CODCF F_CODCF - INPUT NPROGTR F_NPROGTR - DISPLAY "Codice cliente" CODCF - DISPLAY "Nr. progressivo" NPROGTR - DISPLAY "Data scadenza" DATASCAD - DISPLAY "Data fattura" DATAFATT - DISPLAY "Numero fattura" NFATT - DISPLAY "Importo fattura @R" IMPFATT - DISPLAY "Importo effetto @R" IMPORTO - DISPLAY "Tipo" TIPOPAG - DISPLAY "Nr distinta" NDIST - DISPLAY "Tipo distinta" TIPODIST - COPY OUTPUT F_NPROGTR - CHECKTYPE REQUIRED - HELP "Inserire il codice del cliente. F8 ricerca cliente." + PROMPT 2 2 "Cod. cliente " + FIELD LF_EFFETTI->CODCF + KEY 2 + USE LF_EFFETTI KEY 2 + JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C" + INPUT CODCF F_CODCF + INPUT NPROGTR F_NPROGTR + DISPLAY "Codice cliente" CODCF + DISPLAY "Nr. progressivo" NPROGTR + DISPLAY "Data scadenza" DATASCAD + DISPLAY "Data fattura" DATAFATT + DISPLAY "Numero fattura" NFATT + DISPLAY "Importo fattura @R" IMPFATT + DISPLAY "Importo effetto @R" IMPORTO + DISPLAY "Tipo" TIPOPAG + DISPLAY "Nr distinta" NDIST + DISPLAY "Tipo distinta" TIPODIST + COPY OUTPUT F_NPROGTR + CHECKTYPE REQUIRED + HELP "Inserire il codice del cliente. F8 ricerca cliente." END STRING F_CFRAGSOC 50 BEGIN - PROMPT 25 2 "" - USE LF_CLIFO KEY 2 - INPUT TIPOCF "C" - INPUT RAGSOC F_CFRAGSOC - DISPLAY "Ragione sociale@50" RAGSOC - DISPLAY "Codice" CODCF - OUTPUT F_CODCF CODCF - OUTPUT F_CFRAGSOC RAGSOC - CHECKTYPE REQUIRED + PROMPT 25 2 "" + USE LF_CLIFO KEY 2 + INPUT TIPOCF "C" + INPUT RAGSOC F_CFRAGSOC + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Codice" CODCF + OUTPUT F_CODCF CODCF + OUTPUT F_CFRAGSOC RAGSOC + CHECKTYPE REQUIRED END -LIST F_TIPOPAG 16 +LIST F_TIPOPAG 18 BEGIN - PROMPT 2 4 "Tipo effetto " - FIELD LF_EFFETTI->TIPOPAG - ITEM "2|Tratta" - MESSAGE DISABLE,F_CODFOR|RESET,F_CODFOR - ITEM "3|Ricevuta bancaria" - MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR - ITEM "4|Cessione" - MESSAGE ENABLE,F_CODFOR|UNDO,F_CODFOR - ITEM "5|Paghero'" - MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR - HELP "Inserire il tipo dell'effetto" + PROMPT 2 4 "Tipo effetto " + FIELD LF_EFFETTI->TIPOPAG + ITEM "2|Tratta" + MESSAGE DISABLE,F_CODFOR|RESET,F_CODFOR + ITEM "3|Ricevuta bancaria" + MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR + ITEM "4|Cessione" + MESSAGE ENABLE,F_CODFOR|UNDO,F_CODFOR + ITEM "5|Paghero'" + MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR + HELP "Inserire il tipo dell'effetto" END STRING F_ULTCLASS 1 BEGIN - PROMPT 42 4 "Ulteriore classificazione " - FIELD LF_EFFETTI->ULTCLASS - USE %CLR - INPUT CODTAB[1,1] F_TIPOPAG SELECT - INPUT CODTAB[2,2] F_ULTCLASS - DISPLAY "Classificazione" CODTAB[2,2] - DISPLAY "Descrizione@50" S0 - OUTPUT F_ULTCLASS CODTAB[2,2] - HELP "Inserire l'ulteriore classificazione dell'effetto" + PROMPT 42 4 "Ulteriore classificazione " + FIELD LF_EFFETTI->ULTCLASS + USE %CLR + INPUT CODTAB[1,1] F_TIPOPAG SELECT + INPUT CODTAB[2,2] F_ULTCLASS + DISPLAY "Classificazione" CODTAB[2,2] + DISPLAY "Descrizione@50" S0 + OUTPUT F_ULTCLASS CODTAB[2,2] + HELP "Inserire l'ulteriore classificazione dell'effetto" END DATE F_DATASCAD BEGIN - PROMPT 2 5 "Data scadenza " - FIELD LF_EFFETTI->DATASCAD - KEY 3 - USE LF_EFFETTI KEY 3 - JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C" - INPUT DATASCAD F_DATASCAD - INPUT NPROGTR F_NPROGTR - DISPLAY "Data scadenza" DATASCAD - DISPLAY "Nr progressivo" NPROGTR - DISPLAY "Codice cliente" CODCF - DISPLAY "Data fattura" DATAFATT - DISPLAY "Numero fattura" NFATT - DISPLAY "Importo fattura @R" IMPFATT - DISPLAY "Importo effetto @R" IMPORTO - DISPLAY "Tipo" TIPOPAG - DISPLAY "Nr distinta" NDIST - DISPLAY "Tipo distinta" TIPODIST - COPY OUTPUT F_NPROGTR - CHECKTYPE REQUIRED - HELP "Inserire la data di scadenza dell'effetto" + PROMPT 2 5 "Data scadenza " + FIELD LF_EFFETTI->DATASCAD + KEY 3 + USE LF_EFFETTI KEY 3 + JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C" + INPUT DATASCAD F_DATASCAD + INPUT NPROGTR F_NPROGTR + DISPLAY "Data scadenza" DATASCAD + DISPLAY "Nr progressivo" NPROGTR + DISPLAY "Codice cliente" CODCF + DISPLAY "Data fattura" DATAFATT + DISPLAY "Numero fattura" NFATT + DISPLAY "Importo fattura @R" IMPFATT + DISPLAY "Importo effetto @R" IMPORTO + DISPLAY "Tipo" TIPOPAG + DISPLAY "Nr distinta" NDIST + DISPLAY "Tipo distinta" TIPODIST + COPY OUTPUT F_NPROGTR + CHECKTYPE REQUIRED + HELP "Inserire la data di scadenza dell'effetto" END NUMBER F_IMPORTO 15 BEGIN - PROMPT 42 5 "Importo effetto " - FIELD LF_EFFETTI->IMPORTO - FLAGS "R" - PICTURE "." - HELP "Inserire l'importo dell'effetto" - VALIDATE NOT_EMPTY_FUNC - WARNING "Manca l'importo dell'effetto" + PROMPT 42 5 "Importo effetto " + FIELD LF_EFFETTI->IMPORTO + FLAGS "R" + PICTURE "." + HELP "Inserire l'importo dell'effetto" + VALIDATE NOT_EMPTY_FUNC + WARNING "Manca l'importo dell'effetto" END STRING F_NFATT 7 BEGIN - PROMPT 2 7 "Nr. fattura " - FIELD LF_EFFETTI->NFATT - VALIDATE NOT_EMPTY_FUNC - HELP "Inserire il numero della fattura" - WARNING "Manca il numero della fattura" + PROMPT 2 7 "Nr. fattura " + FIELD LF_EFFETTI->NFATT + VALIDATE NOT_EMPTY_FUNC + HELP "Inserire il numero della fattura" + WARNING "Manca il numero della fattura" END DATE F_DATAFATT BEGIN - PROMPT 2 8 "Data fattura " - FIELD LF_EFFETTI->DATAFATT - VALIDATE NOT_EMPTY_FUNC - HELP "Inserire la data della fattura" - WARNING "Manca la data della fattura" + PROMPT 2 8 "Data fattura " + FIELD LF_EFFETTI->DATAFATT + VALIDATE NOT_EMPTY_FUNC + HELP "Inserire la data della fattura" + WARNING "Manca la data della fattura" END NUMBER F_IMPFATT 15 BEGIN - PROMPT 42 8 "Importo fattura " - FIELD LF_EFFETTI->IMPFATT - FLAGS "R" - PICTURE "." - NUM_EXPR {#THIS_FIELD>=#F_IMPORTO} - HELP "Inserire l'importo della fattura" - WARNING "L'importo dell'effetto deve essere contenuto nell'importo di fattura" + PROMPT 42 8 "Importo fattura " + FIELD LF_EFFETTI->IMPFATT + FLAGS "R" + PICTURE "." + NUM_EXPR {#THIS_FIELD>=#F_IMPORTO} + HELP "Inserire l'importo della fattura" + WARNING "L'importo dell'effetto deve essere contenuto nell'importo di fattura" END NUMBER F_NRATA 3 BEGIN - PROMPT 2 9 "Nr. rata " - FIELD LF_EFFETTI->NRATA - HELP "Inserire il numero della rata" + PROMPT 2 9 "Nr. rata " + FIELD LF_EFFETTI->NRATA + HELP "Inserire il numero della rata" END BOOLEAN F_ULTRATA BEGIN - PROMPT 42 9 "Ultima rata" - FIELD LF_EFFETTI->ULTRATA - HELP "Inserire se e' l'ultima rata relativa alla fattura" + PROMPT 42 9 "Ultima rata" + FIELD LF_EFFETTI->ULTRATA + HELP "Inserire se e' l'ultima rata relativa alla fattura" END GROUPBOX DLG_NULL 38 4 BEGIN - PROMPT 1 10 "Banca d'appoggio" + PROMPT 1 10 "Banca d'appoggio" END NUMBER F_CODABI 5 BEGIN - PROMPT 2 11 "Codice ABI " - FIELD LF_EFFETTI->CODABI - FLAGS "RZ" - USE %BAN KEY 1 SELECT CODTAB ?="?????" - INPUT CODTAB F_CODABI - DISPLAY "Codice ABI" CODTAB[1,5] - DISPLAY "Codice CAB" CODTAB[6,10] - DISPLAY "Denominazione@50" S0 - OUTPUT F_CODABI CODTAB[1,5] - OUTPUT F_CODCAB CODTAB[6,10] - CHECKTYPE REQUIRED - HELP "Inserire il codice ABI della banca d'appoggio" + PROMPT 2 11 "Codice ABI " + FIELD LF_EFFETTI->CODABI + FLAGS "RZ" + USE %BAN KEY 1 SELECT CODTAB ?="?????" + INPUT CODTAB F_CODABI + DISPLAY "Codice ABI" CODTAB[1,5] + DISPLAY "Codice CAB" CODTAB[6,10] + DISPLAY "Denominazione@50" S0 + OUTPUT F_CODABI CODTAB[1,5] + OUTPUT F_CODCAB CODTAB[6,10] + CHECKTYPE REQUIRED + HELP "Inserire il codice ABI della banca d'appoggio" END NUMBER F_CODCAB 5 BEGIN - PROMPT 2 12 "Codice CAB " - FIELD LF_EFFETTI->CODCAB - FLAGS "RZ" - USE %BAN - INPUT CODTAB[1,5] F_CODABI - INPUT CODTAB[6,10] F_CODCAB - COPY DISPLAY F_CODABI - OUTPUT F_CODABI CODTAB[1,5] - OUTPUT F_CODCAB CODTAB[6,10] - CHECKTYPE REQUIRED - HELP "Inserire il codice CAB della banca d'appoggio" + PROMPT 2 12 "Codice CAB " + FIELD LF_EFFETTI->CODCAB + FLAGS "RZ" + USE %BAN + INPUT CODTAB[1,5] F_CODABI + INPUT CODTAB[6,10] F_CODCAB + COPY DISPLAY F_CODABI + OUTPUT F_CODABI CODTAB[1,5] + OUTPUT F_CODCAB CODTAB[6,10] + CHECKTYPE REQUIRED + HELP "Inserire il codice CAB della banca d'appoggio" END GROUPBOX DLG_NULL 38 4 BEGIN - PROMPT 41 10 "Banca di presentazione" + PROMPT 41 10 "Banca di presentazione" END NUMBER F_CODABIP 5 BEGIN - PROMPT 42 11 "Codice ABI " - FIELD LF_EFFETTI->CODABIP - FLAGS "RZ" - USE %BAN KEY 1 SELECT CODTAB ?="?????" - INPUT CODTAB F_CODABIP - DISPLAY "Codice ABI" CODTAB[1,5] - DISPLAY "Codice CAB" CODTAB[6,10] - DISPLAY "Denominazione@50" S0 - OUTPUT F_CODABIP CODTAB[1,5] - OUTPUT F_CODCABP CODTAB[6,10] - CHECKTYPE NORMAL - HELP "Inserire il codice ABI della banca di presentazione effetti" + PROMPT 42 11 "Codice ABI " + FIELD LF_EFFETTI->CODABIP + FLAGS "RZ" + USE %BAN KEY 1 SELECT CODTAB ?="?????" + INPUT CODTAB F_CODABIP + DISPLAY "Codice ABI" CODTAB[1,5] + DISPLAY "Codice CAB" CODTAB[6,10] + DISPLAY "Denominazione@50" S0 + OUTPUT F_CODABIP CODTAB[1,5] + OUTPUT F_CODCABP CODTAB[6,10] + CHECKTYPE NORMAL + HELP "Inserire il codice ABI della banca di presentazione effetti" END NUMBER F_CODCABP 5 BEGIN - PROMPT 42 12 "Codice CAB " - FIELD LF_EFFETTI->CODCABP - FLAGS "RZ" - USE %BAN - INPUT CODTAB[1,5] F_CODABIP - INPUT CODTAB[6,10] F_CODCABP - COPY DISPLAY F_CODABIP - OUTPUT F_CODABIP CODTAB[1,5] - OUTPUT F_CODCABP CODTAB[6,10] - CHECKTYPE NORMAL - HELP "Inserire il codice CAB della banca di presentazione effetti" + PROMPT 42 12 "Codice CAB " + FIELD LF_EFFETTI->CODCABP + FLAGS "RZ" + USE %BAN + INPUT CODTAB[1,5] F_CODABIP + INPUT CODTAB[6,10] F_CODCABP + COPY DISPLAY F_CODABIP + OUTPUT F_CODABIP CODTAB[1,5] + OUTPUT F_CODCABP CODTAB[6,10] + CHECKTYPE NORMAL + HELP "Inserire il codice CAB della banca di presentazione effetti" END GROUPBOX DLG_NULL 78 4 BEGIN - PROMPT 1 14 "Dati stampa" + PROMPT 1 14 "Dati stampa" END DATE F_DATAEMISS BEGIN - PROMPT 2 15 "Data di emissione " - FIELD LF_EFFETTI->DATAEMISS + PROMPT 2 15 "Data di emissione " + FIELD LF_EFFETTI->DATAEMISS END NUMBER F_NUMEMISS 8 BEGIN - PROMPT 48 15 "Nr. di emissione " - FIELD LF_EFFETTI->NUMEMISS + PROMPT 48 15 "Nr. di emissione " + FIELD LF_EFFETTI->NUMEMISS END NUMBER F_IMPBOLLO 15 BEGIN - PROMPT 2 16 "Importo bollo " - FIELD LF_EFFETTI->IMPBOLLO - FLAGS "R" - PICTURE "." + PROMPT 2 16 "Importo bollo " + FIELD LF_EFFETTI->IMPBOLLO + FLAGS "R" + PICTURE "." END BOOLEAN F_EFFSTAMP BEGIN - PROMPT 48 16 "Effetto stampato" - FIELD LF_EFFETTI->EFFSTAMP + PROMPT 48 16 "Effetto stampato" + FIELD LF_EFFETTI->EFFSTAMP END ENDPAGE @@ -291,116 +291,116 @@ PAGE "Pag. 2" 0 -1 0 19 GROUPBOX DLG_NULL 78 4 BEGIN - PROMPT 1 0 "Dati distinta" + PROMPT 1 0 "Dati distinta" END LIST F_TIPODIST 15 BEGIN - PROMPT 2 1 "Tipo distinta " - FIELD LF_EFFETTI->TIPODIST - ITEM " |** Nessuno **" - MESSAGE DISABLE,2@|RESET,2@ - ITEM "I|All'incasso" - MESSAGE ENABLE,2@|UNDO,2@ - ITEM "B|Salvo buon fine" - MESSAGE ENABLE,2@|UNDO,2@ - ITEM "S|Allo sconto" - MESSAGE ENABLE,2@|UNDO,2@ - HELP "Inserire il tipo di distinta" + PROMPT 2 1 "Tipo distinta " + FIELD LF_EFFETTI->TIPODIST + ITEM " |** Nessuno **" + MESSAGE DISABLE,2@|RESET,2@ + ITEM "I|All'incasso" + MESSAGE ENABLE,2@|UNDO,2@ + ITEM "B|Salvo buon fine" + MESSAGE ENABLE,2@|UNDO,2@ + ITEM "S|Allo sconto" + MESSAGE ENABLE,2@|UNDO,2@ + HELP "Inserire il tipo di distinta" END NUMBER F_NDIST 8 BEGIN - PROMPT 53 1 "Nr Distinta " - FIELD LF_EFFETTI->NDIST - FLAGS "D" - VALIDATE NOT_EMPTY_FUNC - HELP "Inserire il numero della distinta" - WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta" - GROUP 2 + PROMPT 53 1 "Nr Distinta " + FIELD LF_EFFETTI->NDIST + FLAGS "D" + VALIDATE NOT_EMPTY_FUNC + HELP "Inserire il numero della distinta" + WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta" + GROUP 2 END DATE F_DATADIST BEGIN - PROMPT 2 2 "Data distinta " - FIELD LF_EFFETTI->DATADIST - FLAGS "D" - HELP "Inserire la data della distinta" - GROUP 2 + PROMPT 2 2 "Data distinta " + FIELD LF_EFFETTI->DATADIST + FLAGS "D" + HELP "Inserire la data della distinta" + GROUP 2 END BOOLEAN F_DISTSTAM BEGIN - PROMPT 36 2 "Stampata" - FIELD LF_EFFETTI->DISTSTAM - FLAGS "D" - HELP "Inserire se la distinta e' stato stampata" - GROUP 2 + PROMPT 36 2 "Stampata" + FIELD LF_EFFETTI->DISTSTAM + FLAGS "D" + HELP "Inserire se la distinta e' stato stampata" + GROUP 2 END NUMBER F_NRIGADIST 6 BEGIN - PROMPT 53 2 "Nr di riga " - FIELD LF_EFFETTI->NRIGADIST - FLAGS "D" - HELP "Inserire il numero di riga della distinta" - GROUP 2 + PROMPT 53 2 "Nr di riga " + FIELD LF_EFFETTI->NRIGADIST + FLAGS "D" + HELP "Inserire il numero di riga della distinta" + GROUP 2 END GROUPBOX DLG_NULL 78 3 BEGIN - PROMPT 1 4 "Dati Ri.Ba." + PROMPT 1 4 "Dati Ri.Ba." END DATE F_DATARIBA BEGIN - PROMPT 2 5 "Data Ri.Ba. " - FIELD LF_EFFETTI->DATARIBA - HELP "Inserire la data della Ricevuta Bancaria" + PROMPT 2 5 "Data Ri.Ba. " + FIELD LF_EFFETTI->DATARIBA + HELP "Inserire la data della Ricevuta Bancaria" END BOOLEAN F_DISRIBAEST BEGIN - PROMPT 49 5 "Distinta Ri.Ba. estratta" - FIELD LF_EFFETTI->DISRIBAEST + PROMPT 49 5 "Distinta Ri.Ba. estratta" + FIELD LF_EFFETTI->DISRIBAEST END NUMBER F_CODFOR 6 BEGIN - PROMPT 2 7 "Cod. fornitore " - FIELD LF_EFFETTI->CODFOR - USE LF_CLIFO KEY 1 - INPUT TIPOCF "F" - INPUT CODCF F_CODFOR - DISPLAY "Codice" CODCF - DISPLAY "Ragione Sociale@50" RAGSOC - DISPLAY "Sospeso" SOSPESO - OUTPUT F_CODFOR CODCF - CHECKTYPE NORMAL - HELP "Inserire il codice del fornitore relativo alla cessione" + PROMPT 2 7 "Cod. fornitore " + FIELD LF_EFFETTI->CODFOR + USE LF_CLIFO KEY 1 + INPUT TIPOCF "F" + INPUT CODCF F_CODFOR + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Sospeso" SOSPESO + OUTPUT F_CODFOR CODCF + CHECKTYPE NORMAL + HELP "Inserire il codice del fornitore relativo alla cessione" END BOOLEAN F_EFFCONT BEGIN - PROMPT 49 7 "Effetto contabilizzato" - FIELD LF_EFFETTI->EFFCONT - HELP "Inserire se l'effetto e' contabilizzato" + PROMPT 49 7 "Effetto contabilizzato" + FIELD LF_EFFETTI->EFFCONT + HELP "Inserire se l'effetto e' contabilizzato" END SPREADSHEET F_SHEET_EFF 76 4 BEGIN - PROMPT 2 10 "Obbligati principali" - ITEM "Ragione Sociale@50" - ITEM "Localita'@35" - ITEM "Stato" - ITEM "Cod. comune" - ITEM "Comune@50" + PROMPT 2 10 "Obbligati principali" + ITEM "Ragione Sociale@50" + ITEM "Localita'@35" + ITEM "Stato" + ITEM "Cod. comune" + ITEM "Comune@50" END BOOLEAN F_EFFCOMP BEGIN - PROMPT 2 15 "Effetto compilato" - FIELD LF_EFFETTI->EFFCOMP + PROMPT 2 15 "Effetto compilato" + FIELD LF_EFFETTI->EFFCOMP END ENDPAGE diff --git a/ef/ef0101.cpp b/ef/ef0101.cpp index 98c70a46f..4af28fce2 100755 --- a/ef/ef0101.cpp +++ b/ef/ef0101.cpp @@ -1,5 +1,5 @@ -#include -#include +#include "effetti.h" +#include "cession.h" #include "ef0101.h" ///////////////////////////////////////////////////////////// diff --git a/ef/ef0200.cpp b/ef/ef0200.cpp index 3fc246c8d..71807ed92 100755 --- a/ef/ef0200.cpp +++ b/ef/ef0200.cpp @@ -6,7 +6,7 @@ #include #include #include -#include +#include "effetti.h" #include "ef0.h" #include "ef0200.h" @@ -18,14 +18,14 @@ class Creazione_Effetti_da_EC : public TApplication void Load_Partite_Aperte(const long cli); static bool Gen_Handler(TMask_field& f, KEY k); - static bool Gen_Notify(int r, KEY k); + static bool Gen_Notify(TSheet_field& sheet, int r, KEY k); static bool Cli_Handler(TMask_field& f, KEY k); virtual bool create(); virtual bool destroy(); virtual bool menu(MENU_TAG m); public: real get_res() {return _residuo;} - void set_res(real& a) {_residuo = a;} + void set_res(const real& a) {_residuo = a;} TMask* get_msk() {return _msk;} Creazione_Effetti_da_EC() : _residuo(0.0) {} }; @@ -117,11 +117,11 @@ bool Creazione_Effetti_da_EC::Gen_Handler(TMask_field& f, KEY k) return TRUE; } -bool Creazione_Effetti_da_EC::Gen_Notify(int r, KEY k) +bool Creazione_Effetti_da_EC::Gen_Notify(TSheet_field& sheet, int r, KEY k) { - TSheet_field& S=(TSheet_field&)app().get_msk()->field(F_SHEET_EFF); + TToken_string & row = sheet.row(r); + const real importo(row.get(1)); static real old_rata; - real importo; switch (k) { @@ -133,36 +133,42 @@ bool Creazione_Effetti_da_EC::Gen_Notify(int r, KEY k) } break; case K_SPACE: - old_rata=(real)(const char*)S.row(r).get(1); + old_rata = importo; break; - case K_DEL: - app().set_res(app().get_res() + (real)(const char*)S.row(r).get(1)); + case K_DEL: + { + const real new_res = app().get_res() + importo; + + app().set_res(new_res); + } break; case K_ENTER: - app().set_res(app().get_res() - (real)(const char*)S.row(r).get(1) + old_rata); - if (app().get_res()<0) { - warning_box("Non e' possibile superare l'importo da ripartire"); - if (old_rata.is_zero()) + const real new_res = app().get_res() - importo + old_rata; + if (new_res < ZERO) { - app().set_res(app().get_res() + (real)(const char*)S.row(r).get(1)); - S.row(r).add(app().get_res().string(),1); - app().set_res(0.0); - } else - { - app().set_res(app().get_res() + (real)(const char*)S.row(r).get(1) - old_rata); - S.row(r).add(old_rata.string(),1); - } - } - importo=(real)(const char*)S.row(r).get(1); - importo+=(real)(const char*)S.row(r).get(2); - importo+=(real)(const char*)S.row(r).get(3); - S.row(r).add(importo.string(),4); + warning_box("Non e' possibile superare l'importo da ripartire"); + if (old_rata.is_zero()) + { + row.add(app().get_res().string(),1); + app().set_res(ZERO); + } + else + row.add(old_rata.string(),1); + } + else + app().set_res(new_res); + real totale = importo; + + totale+= real(row.get(2)); + totale+= real(row.get(3)); + row.add(totale.string(),4); + } break; default: break; } - S.mask().set(F_RESIDUO,app().get_res().string(".")); + sheet.mask().set(F_RESIDUO,app().get_res().string(".")); return TRUE; } @@ -170,9 +176,9 @@ bool Creazione_Effetti_da_EC::Cli_Handler(TMask_field&f, KEY k) { if (f.focusdirty()) { - TSheet_field& S=(TSheet_field&)f.mask().field(F_SHEET_EFF); - S.reset(); - S.force_update(); + TSheet_field& sheet =(TSheet_field&)f.mask().field(F_SHEET_EFF); + sheet.reset(); + sheet.force_update(); } return TRUE; } @@ -180,13 +186,13 @@ bool Creazione_Effetti_da_EC::Cli_Handler(TMask_field&f, KEY k) bool Creazione_Effetti_da_EC::create() { _msk = new TMask("ef0200a"); - TSheet_field& Sheet_Eff = (TSheet_field&) _msk->field(F_SHEET_EFF); - Sheet_Eff.set_notify(Gen_Notify); - Sheet_Eff.enable_column(4,FALSE); - TMask& SMask=Sheet_Eff.sheet_mask(); - SMask.set_handler(F_RATA,Gen_Handler); - SMask.set_handler(F_SPESE,Gen_Handler); - SMask.set_handler(F_BOLLI,Gen_Handler); + TSheet_field& sheet = (TSheet_field&) _msk->field(F_SHEET_EFF); + sheet.set_notify(Gen_Notify); + sheet.enable_column(4,FALSE); + TMask& mask= sheet.sheet_mask(); + mask.set_handler(F_RATA,Gen_Handler); + mask.set_handler(F_SPESE,Gen_Handler); + mask.set_handler(F_BOLLI,Gen_Handler); _msk->set_handler(F_CODCF,Cli_Handler); dispatch_e_menu(BAR_ITEM(1)); return TRUE; @@ -208,8 +214,8 @@ bool Creazione_Effetti_da_EC::menu(MENU_TAG) { case K_ENTER: // first check if the application can write effects { - TSheet_field& S=(TSheet_field&)get_msk()->field(F_SHEET_EFF); - if (!_residuo && S.items()>0) + TSheet_field& sheet =(TSheet_field&)get_msk()->field(F_SHEET_EFF); + if (!_residuo && sheet.items()>0) message_box("Perform writing procedure..."); break; } @@ -224,8 +230,8 @@ bool Creazione_Effetti_da_EC::menu(MENU_TAG) _residuo+=(real)_Partite_aperte->row(i).get(4); delete _Partite_aperte; get_msk()->set(F_RESIDUO,_residuo.string(".")); - TSheet_field& S=(TSheet_field&)get_msk()->field(F_SHEET_EFF); - S.reset(); + TSheet_field& sheet = (TSheet_field&)get_msk()->field(F_SHEET_EFF); + sheet.reset(); break; } default: diff --git a/ef/ef0200a.uml b/ef/ef0200a.uml index 4d90fc654..db6dc852a 100755 --- a/ef/ef0200a.uml +++ b/ef/ef0200a.uml @@ -4,163 +4,163 @@ PAGE "Selezione dati" -1 1 78 21 GROUPBOX DLG_NULL 76 5 BEGIN - PROMPT 1 0 "Dati clienti" + PROMPT 1 0 "Dati clienti" END NUMBER F_CODCF 6 BEGIN - PROMPT 2 1 "Cliente " - USE LF_CLIFO KEY 1 - JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C" - JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF - INPUT TIPOCF "C" - INPUT CODCF F_CODCF - DISPLAY "Codice" CODCF - DISPLAY "Ragione Sociale@50" RAGSOC - DISPLAY "Codice fiscale@16" COFI - DISPLAY "Partita IVA@11" PAIV - DISPLAY "Comune@50" LF_COMUNI->DENCOM - OUTPUT F_CODCF CODCF - OUTPUT F_RAGSOC RAGSOC - OUTPUT F_INDIRIZZO INDCF - OUTPUT F_CODABI CODABI - OUTPUT F_CODCAB CODCAB - OUTPUT F_ADDSPINC LF_CFVEN->ADDSPINC - OUTPUT F_ADDBOLLIRB LF_CFVEN->ADDBOLLIRB - OUTPUT F_ADDBOLLITR LF_CFVEN->ADDBOLLITR - OUTPUT F_ADDBNS1500 LF_CFVEN->ADDBNS1500 - OUTPUT F_COMUNE LF_COMUNI->DENCOM - OUTPUT F_PROV LF_COMUNI->PROVCOM - HELP "Inserire il codice del cliente" + PROMPT 2 1 "Cliente " + USE LF_CLIFO KEY 1 + JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C" + JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF + INPUT TIPOCF "C" + INPUT CODCF F_CODCF + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Codice fiscale@16" COFI + DISPLAY "Partita IVA@11" PAIV + DISPLAY "Comune@50" LF_COMUNI->DENCOM + OUTPUT F_CODCF CODCF + OUTPUT F_RAGSOC RAGSOC + OUTPUT F_INDIRIZZO INDCF + OUTPUT F_CODABI CODABI + OUTPUT F_CODCAB CODCAB + OUTPUT F_ADDSPINC LF_CFVEN->ADDSPINC + OUTPUT F_ADDBOLLIRB LF_CFVEN->ADDBOLLIRB + OUTPUT F_ADDBOLLITR LF_CFVEN->ADDBOLLITR + OUTPUT F_ADDBNS1500 LF_CFVEN->ADDBNS1500 + OUTPUT F_COMUNE LF_COMUNI->DENCOM + OUTPUT F_PROV LF_COMUNI->PROVCOM + HELP "Inserire il codice del cliente" END STRING F_RAGSOC 50 BEGIN - PROMPT 22 1 "" - USE LF_CLIFO KEY 2 - JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C" - JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF - INPUT TIPOCF "C" - INPUT RAGSOC F_RAGSOC - DISPLAY "Ragione Sociale@50" RAGSOC - DISPLAY "Codice" CODCF - DISPLAY "Codice fiscale@16" COFI - DISPLAY "Partita IVA@11" PAIV - COPY OUTPUT F_CODCF + PROMPT 22 1 "" + USE LF_CLIFO KEY 2 + JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C" + JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF + INPUT TIPOCF "C" + INPUT RAGSOC F_RAGSOC + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Codice" CODCF + DISPLAY "Codice fiscale@16" COFI + DISPLAY "Partita IVA@11" PAIV + COPY OUTPUT F_CODCF END STRING F_INDIRIZZO 35 BEGIN - PROMPT 2 2 "Indirizzo " - FLAGS "D" + PROMPT 2 2 "Indirizzo " + FLAGS "D" END STRING F_COMUNE 50 BEGIN - PROMPT 2 3 "Comune " - FLAGS "D" + PROMPT 2 3 "Comune " + FLAGS "D" END STRING F_PROV 2 BEGIN - PROMPT 70 3 "" - FLAGS "D" + PROMPT 70 3 "" + FLAGS "D" END NUMBER F_CODABI 5 BEGIN - PROMPT 2 5 "Banca d'appoggio " - FLAGS "RZ" - USE %BAN KEY 1 SELECT CODTAB ?="?????" - INPUT CODTAB F_CODABI - DISPLAY "Codice ABI" CODTAB[1,5] - DISPLAY "Codice CAB" CODTAB[6,10] - DISPLAY "Denominazione@50" S0 - OUTPUT F_CODABI CODTAB[1,5] - OUTPUT F_CODCAB CODTAB[6,10] - CHECKTYPE NORMAL - HELP "Inserire il codice della banca d'appoggio" + PROMPT 2 5 "Banca d'appoggio " + FLAGS "RZ" + USE %BAN KEY 1 SELECT CODTAB ?="?????" + INPUT CODTAB F_CODABI + DISPLAY "Codice ABI" CODTAB[1,5] + DISPLAY "Codice CAB" CODTAB[6,10] + DISPLAY "Denominazione@50" S0 + OUTPUT F_CODABI CODTAB[1,5] + OUTPUT F_CODCAB CODTAB[6,10] + CHECKTYPE NORMAL + HELP "Inserire il codice della banca d'appoggio" END NUMBER F_CODCAB 5 BEGIN - PROMPT 32 5 "" - FLAGS "RZ" - USE %BAN - INPUT CODTAB[1,5] F_CODABI - INPUT CODTAB[6,10] F_CODCAB - COPY DISPLAY F_CODABI - COPY OUTPUT F_CODABI - CHECKTYPE NORMAL + PROMPT 32 5 "" + FLAGS "RZ" + USE %BAN + INPUT CODTAB[1,5] F_CODABI + INPUT CODTAB[6,10] F_CODCAB + COPY DISPLAY F_CODABI + COPY OUTPUT F_CODABI + CHECKTYPE NORMAL END -LIST F_TIPOEFF 16 +LIST F_TIPOEFF 18 BEGIN - PROMPT 43 5 "Tipo effetto " - ITEM "2|Tratta" - ITEM "3|Ricevuta bancaria" - HELP "Inserire il tipo dell'effetto" + PROMPT 43 5 "Tipo effetto " + ITEM "2|Tratta" + ITEM "3|Ricevuta bancaria" + HELP "Inserire il tipo dell'effetto" END GROUPBOX DLG_NULL 35 4 BEGIN - PROMPT 1 6 "Addebiti" + PROMPT 1 6 "Addebiti" END BOOLEAN F_ADDSPINC BEGIN - PROMPT 2 7 "Sp. incasso" - HELP "Flag di addebito delle spese d'incasso" + PROMPT 2 7 "Sp. incasso" + HELP "Flag di addebito delle spese d'incasso" END BOOLEAN F_ADDBOLLIRB BEGIN - PROMPT 19 7 "Bolli R.B." - HELP "Flag di addebito bolli delle R.B. " + PROMPT 19 7 "Bolli R.B." + HELP "Flag di addebito bolli delle R.B. " END BOOLEAN F_ADDBOLLITR BEGIN - PROMPT 2 8 "Bolli Tr." - HELP "Flag di addebito bolli delle tratte" + PROMPT 2 8 "Bolli Tr." + HELP "Flag di addebito bolli delle tratte" END BOOLEAN F_ADDBNS1500 BEGIN - PROMPT 19 8 "Bollo esente" - HELP "Flag di addebito dei bolli" + PROMPT 19 8 "Bollo esente" + HELP "Flag di addebito dei bolli" END BUTTON DLG_PARTITE 9 2 BEGIN - PROMPT 39 8 "~Partite" - MESSAGE EXIT,K_F6 + PROMPT 39 8 "~Partite" + MESSAGE EXIT,K_F6 END BUTTON DLG_OK 9 2 BEGIN - PROMPT 52 8 "" + PROMPT 52 8 "" END BUTTON DLG_QUIT 9 2 BEGIN - PROMPT 65 8 "" + PROMPT 65 8 "" END STRING F_RESIDUO 15 BEGIN - PROMPT 2 10 "Residuo da ripartire " - FLAGS "RD" + PROMPT 2 10 "Residuo da ripartire " + FLAGS "RD" END SPREADSHEET F_SHEET_EFF 74 8 BEGIN - PROMPT 2 12 "Immissione effetti" - ITEM "Data scad." - ITEM "Importo rata@15 R" - ITEM "Spese incasso@15 R" - ITEM "Importo bolli@15 R" - ITEM "Importo effetto@15 R" + PROMPT 2 12 "Immissione effetti" + ITEM "Data scad." + ITEM "Importo rata@15 R" + ITEM "Spese incasso@15 R" + ITEM "Importo bolli@15 R" + ITEM "Importo effetto@15 R" END ENDPAGE