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

Alre correzioni di errori

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4121 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1997-02-07 16:25:24 +00:00
parent 2820e83515
commit f89864d07a
27 changed files with 3155 additions and 3024 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
m770/770100.cpp
View File

@ -317,6 +317,30 @@ bool TSchedaPercipienti::user_create()
set_search_field(F_CODANAGRPERC); set_search_field(F_CODANAGRPERC);
// simulo una chiamata da contabilità
// (lo lascio per eventuali prove)
// real totdocla = ZERO;
// real spesela = ZERO;
// real compensola = ZERO;
// real impostela = ZERO;
// real ritenutela = ZERO;
// TToken_string s(80);
// s.add(3);
// s.add("M");
// s.add("F");
// s.add(30010);
// s.add(1);
// s.add("2");
// s.add("05-02-1997");
// s.add(totdocla.string());
// s.add(spesela.string());
// s.add(compensola.string());
// s.add(impostela.string());
// s.add(ritenutela.string());
// const char* name = "770 -0";
// TMessage mla(name, "LINK770", s);
// mla.send();
// Collegamento da contabilita' // Collegamento da contabilita'
TMailbox m; TMailbox m;
TMessage* msg = m.next_s("LINK770"); TMessage* msg = m.next_s("LINK770");
@ -446,21 +470,20 @@ void TSchedaPercipienti::init_query_mode(TMask& m)
{ {
case fattura: case fattura:
setta_nprog(m, variazione); setta_nprog(m, variazione);
// m.send_key(K_AUTO_ENTER,0); m.send_key(K_AUTO_ENTER,0);
return; return;
break; break;
case pagamento: case pagamento:
if (coll_datanum()) if (coll_datanum())
{ {
setta_nprog(m, variazione); setta_nprog(m, variazione);
// m.send_key(K_AUTO_ENTER, 0); m.send_key(K_AUTO_ENTER,0);
} }
return; return;
break; break;
case occasionale: case occasionale:
/* // setta_nprog(m,FALSE); // Sempre in aggiunta
setta_nprog(m,FALSE); // Sempre in aggiunta m.send_key(K_AUTO_ENTER, 0);
m.send_key(K_AUTO_ENTER, 0); */
return; return;
break; break;
default: default:
@ -782,7 +805,7 @@ bool TSchedaPercipienti::check_handler(TMask_field& f, KEY k)
f.warning_box ("La differenza tra il totale dei versamenti " f.warning_box ("La differenza tra il totale dei versamenti "
"e il totale delle ritenute non puo' superare " "e il totale delle ritenute non puo' superare "
"le %s lire", THRESOLD.string()); "le %s lire", THRESOLD.string());
return FALSE; return forzatura;
} }
} }
return TRUE; return TRUE;

680
m770/770100b.uml
View File

@ -1,340 +1,340 @@
#include "770100a.h" #include "770100a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Scheda percipienti" -1 -1 78 20 PAGE "Scheda percipienti" -1 -1 78 20
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
FIELD LF_SCPERC->CODDITTA FIELD LF_SCPERC->CODDITTA
KEY 1 KEY 1
END END
LIST F_TIPOA 1 9 LIST F_TIPOA 1 9
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FIELD LF_SCPERC->TIPOA FIELD LF_SCPERC->TIPOA
ITEM "F|Fisica" ITEM "F|Fisica"
ITEM "G|Giuridica" ITEM "G|Giuridica"
KEY 1 KEY 1
FLAGS "D" FLAGS "D"
END END
NUMBER F_CODANAGR 5 NUMBER F_CODANAGR 5
BEGIN BEGIN
PROMPT 12 0 "" PROMPT 12 0 ""
FIELD LF_SCPERC->CODANAGR FIELD LF_SCPERC->CODANAGR
MESSAGE COPY, F_CODANAGR_G MESSAGE COPY, F_CODANAGR_G
KEY 1 KEY 1
FLAGS "D" FLAGS "D"
END END
STRING F_RAGSOC2 50 STRING F_RAGSOC2 50
BEGIN BEGIN
PROMPT 19 0 "" PROMPT 19 0 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_NPROG 4 NUMBER F_NPROG 4
BEGIN BEGIN
PROMPT 72 0 "" PROMPT 72 0 ""
FIELD LF_SCPERC->NPROG FIELD LF_SCPERC->NPROG
FLAGS "D" FLAGS "D"
KEY 1 KEY 1
END END
STRING F_CODCAUS 2 STRING F_CODCAUS 2
BEGIN BEGIN
FIELD LF_SCPERC->CODCAUS FIELD LF_SCPERC->CODCAUS
PROMPT 0 1 "" PROMPT 0 1 ""
USE %CA7 SELECT (I0!="1015")&&((S1="C")||(S1="D")||(S1="D1")||(S1="E")||(S1="E1")||(S1="E2")||(S1="G")||(S1="G1")) USE %CA7 SELECT (I0!="1015")&&((S1="C")||(S1="D")||(S1="D1")||(S1="E")||(S1="E1")||(S1="E2")||(S1="G")||(S1="G1"))
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB F_CODCAUS INPUT CODTAB F_CODCAUS
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "Descrizione @60" S0 DISPLAY "Descrizione @60" S0
DISPLAY "Codice tributo" I0 DISPLAY "Codice tributo" I0
DISPLAY "Articolo di bilancio" I3 DISPLAY "Articolo di bilancio" I3
DISPLAY "C.T." B2 DISPLAY "C.T." B2
DISPLAY "T.S." B3 DISPLAY "T.S." B3
DISPLAY "R.A." B0 DISPLAY "R.A." B0
DISPLAY "Causale D" S2 DISPLAY "Causale D" S2
DISPLAY "Causale D1" S3 DISPLAY "Causale D1" S3
OUTPUT F_CODCAUS CODTAB OUTPUT F_CODCAUS CODTAB
OUTPUT F_CODTRIB I0 OUTPUT F_CODTRIB I0
OUTPUT F_DESCRCAUS S0 OUTPUT F_DESCRCAUS S0
OUTPUT F_CODQUA S1 OUTPUT F_CODQUA S1
OUTPUT F_ARTBIL I3 OUTPUT F_ARTBIL I3
OUTPUT F_IC B3 OUTPUT F_IC B3
OUTPUT F_CT B2 OUTPUT F_CT B2
OUTPUT F_RIT B0 OUTPUT F_RIT B0
OUTPUT F_QUOTAIMP R4 OUTPUT F_QUOTAIMP R4
OUTPUT F_PERRIT R0 OUTPUT F_PERRIT R0
OUTPUT F_FLAG_INPS B4 OUTPUT F_FLAG_INPS B4
OUTPUT F_PERC_INPS R1 OUTPUT F_PERC_INPS R1
OUTPUT F_PERC_ASS_INPS R2 OUTPUT F_PERC_ASS_INPS R2
OUTPUT F_PERC_COMMIT_INPS R3 OUTPUT F_PERC_COMMIT_INPS R3
OUTPUT F_CASSA_PREV R5 OUTPUT F_CASSA_PREV R5
OUTPUT SPF_CAUSD S2 OUTPUT SPF_CAUSD S2
OUTPUT SPF_CAUSD1 S3 OUTPUT SPF_CAUSD1 S3
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
ADD RUN 773mod -3 %CA7 ADD RUN 773mod -3 %CA7
END END
STRING F_CODQUA 2 STRING F_CODQUA 2
BEGIN BEGIN
PROMPT 12 1 "" PROMPT 12 1 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_CODTRIB 4 NUMBER F_CODTRIB 4
BEGIN BEGIN
PROMPT 6 1 "" PROMPT 6 1 ""
FLAGS "D" FLAGS "D"
END END
STRING F_DESCRCAUS 60 STRING F_DESCRCAUS 60
BEGIN BEGIN
PROMPT 16 1 "" PROMPT 16 1 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_ARTBIL 2 NUMBER F_ARTBIL 2
BEGIN BEGIN
PROMPT 0 2 "Art.bil." PROMPT 0 2 "Art.bil."
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_IC BOOLEAN F_IC
BEGIN BEGIN
PROMPT 13 2 "T.S." PROMPT 13 2 "T.S."
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_CT BOOLEAN F_CT
BEGIN BEGIN
PROMPT 20 2 "C.T." PROMPT 20 2 "C.T."
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_RIT BOOLEAN F_RIT
BEGIN BEGIN
PROMPT 27 2 "Rit." PROMPT 27 2 "Rit."
FLAGS "D" FLAGS "D"
END END
STRING SPF_CAUSD 1 STRING SPF_CAUSD 1
BEGIN BEGIN
PROMPT 34 2 "Causale D " PROMPT 34 2 "Causale D "
FLAGS "D" FLAGS "D"
END END
STRING SPF_CAUSD1 1 STRING SPF_CAUSD1 1
BEGIN BEGIN
PROMPT 47 2 "Causale D1 " PROMPT 47 2 "Causale D1 "
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_FORCED BOOLEAN F_FORCED
BEGIN BEGIN
FIELD LF_SCPERC->FORZATURA FIELD LF_SCPERC->FORZATURA
PROMPT 65 2 "Forzatura" PROMPT 65 2 "Forzatura"
HELP "Attivare questo flag per forzare la registrazione anche di dati incongruenti" HELP "Attivare questo flag per forzare la registrazione anche di dati incongruenti"
END END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 0 4 "Data " PROMPT 0 4 "Data "
FIELD LF_SCPERC->DATADOC FIELD LF_SCPERC->DATADOC
WARNING "Manca la data del documento" WARNING "Manca la data del documento"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 17 4 "Numero " PROMPT 17 4 "Numero "
FIELD LF_SCPERC->NUMDOC FIELD LF_SCPERC->NUMDOC
END END
NUMBER F_COMPENS 15 NUMBER F_COMPENS 15
BEGIN BEGIN
PROMPT 33 4 "Compenso " PROMPT 33 4 "Compenso "
FIELD LF_SCPERC->COMPENSO FIELD LF_SCPERC->COMPENSO
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
MESSAGE K_TAB, F_TOTDOC MESSAGE K_TAB, F_TOTDOC
END END
NUMBER F_IVA 15 NUMBER F_IVA 15
BEGIN BEGIN
PROMPT 59 4 "Iva " PROMPT 59 4 "Iva "
FIELD LF_SCPERC->IVA FIELD LF_SCPERC->IVA
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
MESSAGE K_TAB, F_TOTDOC MESSAGE K_TAB, F_TOTDOC
END END
NUMBER F_SPESE 15 NUMBER F_SPESE 15
BEGIN BEGIN
PROMPT 0 5 "Spese " PROMPT 0 5 "Spese "
FIELD LF_SCPERC->SPESE FIELD LF_SCPERC->SPESE
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
MESSAGE K_TAB, F_TOTDOC MESSAGE K_TAB, F_TOTDOC
END END
NUMBER F_TOTDOC 15 NUMBER F_TOTDOC 15
BEGIN BEGIN
PROMPT 23 5 "Totale " PROMPT 23 5 "Totale "
FIELD LF_SCPERC->TOTALE FIELD LF_SCPERC->TOTALE
PICTURE "." PICTURE "."
FLAGS "RD" FLAGS "RD"
NUM_CALC {#F_COMPENS + #F_SPESE + #F_IVA} NUM_CALC {#F_COMPENS + #F_SPESE + #F_IVA}
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 47 5 "Competenza:" PROMPT 47 5 "Competenza:"
END END
NUMBER F_MESECOMP 2 NUMBER F_MESECOMP 2
BEGIN BEGIN
PROMPT 58 5 "Mese " PROMPT 58 5 "Mese "
FIELD LF_SCPERC->MESEC FIELD LF_SCPERC->MESEC
NUM_EXPR {(#THIS>=0) && (#THIS<13)} NUM_EXPR {(#THIS>=0) && (#THIS<13)}
WARNING "Mese non valido" WARNING "Mese non valido"
HELP "Inserire il mese di competenza" HELP "Inserire il mese di competenza"
FLAGS "Z" FLAGS "Z"
END END
NUMBER F_ANNOCOMP 4 NUMBER F_ANNOCOMP 4
BEGIN BEGIN
PROMPT 67 5 "Anno " PROMPT 67 5 "Anno "
FIELD LF_SCPERC->ANNOC FIELD LF_SCPERC->ANNOC
NUM_EXPR {(#THIS==0)||((#THIS>1900)&&(#THIS<2100))} NUM_EXPR {(#THIS==0)||((#THIS>1900)&&(#THIS<2100))}
WARNING "Anno non valido" WARNING "Anno non valido"
HELP "Inserire l'anno di competenza" HELP "Inserire l'anno di competenza"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bPagamenti" PROMPT 1 7 "@bPagamenti"
END END
SPREADSHEET F_PAGAMENTI 79 5 SPREADSHEET F_PAGAMENTI 79 5
BEGIN BEGIN
PROMPT 0 8 "" PROMPT 0 8 ""
ITEM "Data@10" ITEM "Data@10"
ITEM "Compenso@15" ITEM "Compenso@15"
ITEM "Spese@15" ITEM "Spese@15"
ITEM "Imponibile@15" ITEM "Imponibile@15"
ITEM "% R.a.@7" ITEM "% R.a.@7"
ITEM "Ritenuta effettuata" ITEM "Ritenuta effettuata"
ITEM "Cont.SSN/INPS perc." ITEM "Cont.SSN/INPS perc."
ITEM "Cont.SSN/INPS complessivi" ITEM "Cont.SSN/INPS complessivi"
ITEM "Netto corrisposto" ITEM "Netto corrisposto"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 14 "@bVersamenti" PROMPT 1 14 "@bVersamenti"
END END
SPREADSHEET F_VERSAMENTI 79 5 SPREADSHEET F_VERSAMENTI 79 5
BEGIN BEGIN
PROMPT 0 15 "" PROMPT 0 15 ""
ITEM "1015" ITEM "1015"
ITEM "Data@10" ITEM "Data@10"
ITEM "Luogo" ITEM "Luogo"
ITEM "Tipo" ITEM "Tipo"
ITEM "Serie-ABI@5" ITEM "Serie-ABI@5"
ITEM "Numero-CAB@11" ITEM "Numero-CAB@11"
ITEM "Progressivo banca" ITEM "Progressivo banca"
ITEM "Ritenuta@15" ITEM "Ritenuta@15"
END END
// MAI VISUALIZZATO // MAI VISUALIZZATO
NUMBER F_CODANAGR_G 5 NUMBER F_CODANAGR_G 5
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
USE LF_ANAG KEY 1 USE LF_ANAG KEY 1
INPUT TIPOA F_TIPOA INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGR INPUT CODANAGR F_CODANAGR
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
OUTPUT F_RAGSOC2 RAGSOC OUTPUT F_RAGSOC2 RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "HG" FLAGS "HG"
END END
// MAI VISUALIZZATO // MAI VISUALIZZATO
NUMBER F_PERC_INPS 6 NUMBER F_PERC_INPS 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
PICTURE ".2" PICTURE ".2"
FLAGS "H" FLAGS "H"
END END
// MAI VISUALIZZATO // MAI VISUALIZZATO
NUMBER F_PERC_ASS_INPS 6 NUMBER F_PERC_ASS_INPS 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
PICTURE ".2" PICTURE ".2"
FLAGS "H" FLAGS "H"
END END
// MAI VISUALIZZATO // MAI VISUALIZZATO
NUMBER F_PERC_COMMIT_INPS 6 NUMBER F_PERC_COMMIT_INPS 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
PICTURE ".2" PICTURE ".2"
FLAGS "H" FLAGS "H"
END END
// MAI VISUALIZZATO // MAI VISUALIZZATO
BOOLEAN F_FLAG_INPS BOOLEAN F_FLAG_INPS
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "H" FLAGS "H"
END END
// MAI VISUALIZZATO // MAI VISUALIZZATO
NUMBER F_CASSA_PREV 6 NUMBER F_CASSA_PREV 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
PICTURE ".2" PICTURE ".2"
FLAGS "H" FLAGS "H"
END END
// MAI VISUALIZZATO // MAI VISUALIZZATO
NUMBER F_QUOTAIMP 6 NUMBER F_QUOTAIMP 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "H" FLAGS "H"
END END
// MAI VISUALIZZATO // MAI VISUALIZZATO
NUMBER F_PERRIT 5 NUMBER F_PERRIT 5
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
PICTURE ".2" PICTURE ".2"
FLAGS "H" FLAGS "H"
END END
// MAI VISUALIZZATO // MAI VISUALIZZATO
NUMBER F_TOTRIT 15 NUMBER F_TOTRIT 15
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FIELD LF_SCPERC->TOTRIT FIELD LF_SCPERC->TOTRIT
FLAGS "H" FLAGS "H"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
#include "770100c.uml" #include "770100c.uml"
#include "770100d.uml" #include "770100d.uml"

365
m770/770100d.uml
View File

@ -1,182 +1,183 @@
// m70100d.uml - VERSAMENTI // m70100d.uml - VERSAMENTI
PAGE "Versamento " -1 -1 68 11 PAGE "Versamento " -1 -1 68 11
BOOLEAN 101 BOOLEAN 101
BEGIN BEGIN
PROMPT 1 1 "Codice tributo 1015 " PROMPT 1 1 "Codice tributo 1015 "
FIELD LF_RVER->VERS1015 FIELD LF_RVER->VERS1015
END END
GROUPBOX DLG_NULL 68 3 GROUPBOX DLG_NULL 68 3
BEGIN BEGIN
PROMPT 1 2 "@bDati versamento" PROMPT 1 2 "@bDati versamento"
END END
DATE 102 DATE 102
BEGIN BEGIN
PROMPT 2 3 "Data " PROMPT 2 3 "Data "
FIELD LF_RVER->DATAVERS FIELD LF_RVER->DATAVERS
VALIDATE REQIF_FUNC 5 103 104 105 106 107 VALIDATE REQIF_FUNC 5 103 104 105 106 107
WARNING "Inserire la data del versamento" WARNING "Inserire la data del versamento"
GROUP 1 GROUP 1
END END
STRING 103 1 STRING 103 1
BEGIN BEGIN
PROMPT 19 3 "Luogo " PROMPT 19 3 "Luogo "
HELP "Indicare il luogo del versamento" HELP "Indicare il luogo del versamento"
SHEET "Cod.|Descrizione@30" SHEET "Cod.|Descrizione@30"
INPUT 103 INPUT 103
ITEM " |Nessuno" ITEM " |Nessuno"
ITEM "T|Tesoreria" ITEM "T|Tesoreria"
ITEM "C|Concessione" ITEM "C|Concessione"
OUTPUT 103 OUTPUT 103
OUTPUT 71 OUTPUT 71
FLAGS "U" FLAGS "U"
FIELD LF_RVER->LUOVERS FIELD LF_RVER->LUOVERS
GROUP 1 GROUP 1
END END
STRING 71 12 STRING 71 12
BEGIN BEGIN
PROMPT 29 3 "" PROMPT 29 3 ""
FLAGS "D" FLAGS "D"
END END
TEXT 209 TEXT 209
BEGIN BEGIN
PROMPT 2 5 "Serie " PROMPT 2 5 "Serie "
GROUP 2 4 GROUP 2 4
END END
TEXT 210 TEXT 210
BEGIN BEGIN
PROMPT 2 5 "Codice ABI " PROMPT 2 5 "Codice ABI "
GROUP 2 6 GROUP 2 6
END END
TEXT 212 TEXT 212
BEGIN BEGIN
PROMPT 25 5 "Codice CAB " PROMPT 25 5 "Codice CAB "
GROUP 2 6 GROUP 2 6
END END
TEXT 213 TEXT 213
BEGIN BEGIN
PROMPT 25 5 "Quietanza " PROMPT 25 5 "Quietanza "
GROUP 2 3 GROUP 2 3
END END
TEXT 211 TEXT 211
BEGIN BEGIN
PROMPT 25 5 "Numero " PROMPT 25 5 "Numero "
GROUP 2 4 5 GROUP 2 4 5
END END
STRING 104 1 STRING 104 1
BEGIN BEGIN
PROMPT 42 3 "Tipo " PROMPT 42 3 "Tipo "
FIELD LF_RVER->TIPOVERS FIELD LF_RVER->TIPOVERS
SHEET "Cod.|Descrizione@30" SHEET "Cod.|Descrizione@30"
INPUT 104 INPUT 104
ITEM " |Nessuno" ITEM " |Nessuno"
ITEM "C|C/C Postale" ITEM "C|C/C Postale"
ITEM "D|Distinta" ITEM "D|Distinta"
ITEM "B|Delega bancaria" ITEM "B|Delega bancaria"
OUTPUT 104 OUTPUT 104
OUTPUT 70 OUTPUT 70
GROUP 1 GROUP 1
FLAGS "U" FLAGS "U"
END END
STRING 70 16 STRING 70 16
BEGIN BEGIN
PROMPT 51 3 "" PROMPT 51 3 ""
FLAGS "D" FLAGS "D"
END END
STRING 105 5 STRING 105 5
BEGIN BEGIN
PROMPT 16 5 "" PROMPT 16 5 ""
FIELD LF_RVER->SERIE FIELD LF_RVER->SERIE
FLAGS "ZG" FLAGS "ZG"
WARNING "Inserire la serie/codice ABI" WARNING "Inserire la serie/codice ABI"
GROUP 1 2 4 6 GROUP 1 2 4 6
END END
STRING 106 11 STRING 106 11
BEGIN BEGIN
PROMPT 39 5 "" PROMPT 39 5 ""
FIELD LF_RVER->NUMERO FIELD LF_RVER->NUMERO
VALIDATE REQIF_FUNC 2 103 104 VALIDATE REQIF_FUNC 2 103 104
WARNING "Inserire il numero" WARNING "Inserire il numero"
HELP "Inserire il numero" HELP "Inserire il numero"
MESSAGE COPY,72 MESSAGE COPY,72
FLAGS "G" FLAGS "G"
GROUP 1 2 3 4 5 GROUP 1 2 3 4 5
END END
NUMBER 72 5
BEGIN NUMBER 72 5
PROMPT 39 5 "" BEGIN
FIELD LF_RVER->NUMERO PROMPT 39 5 ""
VALIDATE REQIF_FUNC 2 103 104 FIELD LF_RVER->NUMERO
WARNING "Inserire il codice CAB" VALIDATE REQIF_FUNC 2 103 104
HELP "CODICE CAB LUNGO 5" WARNING "Inserire il codice CAB"
MESSAGE COPY,106 HELP "CODICE CAB LUNGO 5"
FLAGS "HZG" MESSAGE COPY,106
GROUP 2 6 FLAGS "HZ"
END GROUP 2 6
END
NUMBER 107 6
BEGIN NUMBER 107 6
PROMPT 2 6 "Progressivo per versamento banca " BEGIN
FLAGS "ZG" PROMPT 2 6 "Progressivo per versamento banca "
GROUP 2 6 FLAGS "ZG"
END GROUP 2 6
END
// "Se indico la data aloora devo indicare anche l'importo"
NUMBER 108 15 // "Se indico la data aloora devo indicare anche l'importo"
BEGIN NUMBER 108 15
PROMPT 2 7 "Importo versato " BEGIN
PICTURE "." PROMPT 2 7 "Importo versato "
FLAGS "R" PICTURE "."
FIELD LF_RVER->RITENUTA FLAGS "R"
VALIDATE REQIF_FUNC 1 102 FIELD LF_RVER->RITENUTA
WARNING "Inserire la ritenuta" VALIDATE REQIF_FUNC 1 102
HELP "Inserire la ritenuta" WARNING "Inserire la ritenuta"
GROUP 3 HELP "Inserire la ritenuta"
END GROUP 3
END
NUMBER VERF_NUMVERS 6
BEGIN NUMBER VERF_NUMVERS 6
PROMPT 80 80 "NUMVERS " BEGIN
FLAGS "D" PROMPT 80 80 "NUMVERS "
END FLAGS "D"
END
BUTTON DLG_OK 9 2
BEGIN BUTTON DLG_OK 9 2
PROMPT -14 -1 "" BEGIN
END PROMPT -14 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN BUTTON DLG_CANCEL 9 2
PROMPT -24 -1 "" BEGIN
// MESSAGE CLEAR,103|CLEAR,104|CLEAR,105|CLEAR,106|CLEAR,107|CLEAR,108 PROMPT -24 -1 ""
END // MESSAGE CLEAR,103|CLEAR,104|CLEAR,105|CLEAR,106|CLEAR,107|CLEAR,108
END
BUTTON DLG_AZZERA 9 2
BEGIN BUTTON DLG_AZZERA 9 2
PROMPT -34 -1 "A~zzera" BEGIN
MESSAGE RESET,1@|RESET,2@|RESET,3@|RESET,101 PROMPT -34 -1 "A~zzera"
END MESSAGE RESET,1@|RESET,2@|RESET,3@|RESET,101
END
BUTTON DLG_SELPAG 9 2
BEGIN BUTTON DLG_SELPAG 9 2
PROMPT -44 -1 "~Pagamenti" BEGIN
HELP "Seleziona i pagamenti collegati" PROMPT -44 -1 "~Pagamenti"
END HELP "Seleziona i pagamenti collegati"
END
ENDPAGE
ENDPAGE
ENDMASK
ENDMASK

2498
m770/770102.cpp
View File

File diff suppressed because it is too large Load Diff

388
m770/770102.h
View File

@ -1,194 +1,194 @@
#ifndef __M70102_H #ifndef __M70102_H
#define __M70102_H #define __M70102_H
#ifndef __MSKSHEET_H #ifndef __MSKSHEET_H
#include <msksheet.h> #include <msksheet.h>
#endif #endif
#ifndef __CONFIG_H #ifndef __CONFIG_H
#include <config.h> #include <config.h>
#endif #endif
#ifndef __RELAPP_H #ifndef __RELAPP_H
#include <relapp.h> #include <relapp.h>
#endif #endif
#ifndef __77LIB_H #ifndef __77LIB_H
#include "77lib.h" #include "77lib.h"
#endif #endif
#ifndef __770100a_H #ifndef __770100a_H
#include "770100a.h" #include "770100a.h"
#endif #endif
// Id della maschera di edit dello sheet pagamenti // Id della maschera di edit dello sheet pagamenti
#define MPAG_DATAPAG 101 #define MPAG_DATAPAG 101
#define MPAG_COMPENSO 102 #define MPAG_COMPENSO 102
#define MPAG_SPESA 103 #define MPAG_SPESA 103
#define MPAG_IMPONIBILE 104 #define MPAG_IMPONIBILE 104
#define MPAG_PERCRA 105 #define MPAG_PERCRA 105
#define MPAG_RITPAG 106 #define MPAG_RITPAG 106
#define MPAG_INPSPERC 107 #define MPAG_INPSPERC 107
#define MPAG_INPSCOMP 108 #define MPAG_INPSCOMP 108
#define MPAG_NETTO 109 #define MPAG_NETTO 109
// Id della maschera di edit dello sheet versamenti // Id della maschera di edit dello sheet versamenti
#define F_VERS_1015 101 #define F_VERS_1015 101
#define F_DATAVERS 102 #define F_DATAVERS 102
#define F_LUOVERS 103 #define F_LUOVERS 103
#define F_TIPOVERS 104 #define F_TIPOVERS 104
#define F_ABI 105 // abi e cab #define F_ABI 105 // abi e cab
#define F_CAB 72 #define F_CAB 72
#define SM_PROGRBANCA 107 #define SM_PROGRBANCA 107
#define F_RITVERS 108 #define F_RITVERS 108
// Posizioni nella riga // Posizioni nella riga
const int SS_POS_NUMVERS = 8; const int SS_POS_NUMVERS = 8;
const int SS_POS_RITPAG = 5; const int SS_POS_RITPAG = 5;
const int SS_POS_NRIGA = 5; const int SS_POS_NRIGA = 5;
const int SS_POS_NVER = 6; const int SS_POS_NVER = 6;
const int SS_POS_RITVERS = 7; const int SS_POS_RITVERS = 7;
// Posizioni nell'array-sheet dei pagamenti // Posizioni nell'array-sheet dei pagamenti
const int AS_POS_NRIGA = 5; const int AS_POS_NRIGA = 5;
const int AS_POS_NVER = 6; const int AS_POS_NVER = 6;
const int AS_POS_RITPAG = 4; const int AS_POS_RITPAG = 4;
#define COLONNE_SIGNIFICATIVE_SPREADSHEET_VERSAMENTI 7 #define COLONNE_SIGNIFICATIVE_SPREADSHEET_VERSAMENTI 7
#define COLONNE_SIGNIFICATIVE_SPREADSHEET_PAGAMENTI 7 #define COLONNE_SIGNIFICATIVE_SPREADSHEET_PAGAMENTI 7
class TSchedaPercipienti : public TRelation_application class TSchedaPercipienti : public TRelation_application
{ {
private: private:
bool _from_modify; bool _from_modify;
bool _azzerato_pag; bool _azzerato_pag;
TLink770 _coll; TLink770 _coll;
TSchedaPE* _rel; TSchedaPE* _rel;
TMask* _msk[2]; TMask* _msk[2];
long _codanagr; long _codanagr;
TString16 _tipoa; TString16 _tipoa;
TString80 _ragsoc; TString80 _ragsoc;
int _nproga; int _nproga;
int _mode; int _mode;
TLocalisamfile* _per, *_scper, *_rver, *_rpag; TLocalisamfile* _per, *_scper, *_rver, *_rpag;
long _rigavers; long _rigavers;
long _lastvers, _lastpag, _last_scheda; long _lastvers, _lastpag, _last_scheda;
long _numreg; // NUMREG inviato dalla 1. nota long _numreg; // NUMREG inviato dalla 1. nota
int _anno_dic; // anno dichiarazione int _anno_dic; // anno dichiarazione
// Collegamento versamento->pagamenti // Collegamento versamento->pagamenti
TBit_array _selected; TBit_array _selected;
TNikArray_sheet* _pags; TNikArray_sheet* _pags;
real _tot_compenso, _tot_spese, _tot_netto; real _tot_compenso, _tot_spese, _tot_netto;
real _tot_vers, _tot_rit; real _tot_vers, _tot_rit;
private: private:
void get_ragsoc(const char* tipoa, const long codanagr); void get_ragsoc(const char* tipoa, const long codanagr);
static void work_tipoluogo(TMask_field& f); static void work_tipoluogo(TMask_field& f);
static bool check_pagamenti (TMask_field& f, KEY key); static bool check_pagamenti (TMask_field& f, KEY key);
static real calcola_imponibile (TMask_field& f,const real& compenso,const bool force=FALSE); static real calcola_imponibile (TMask_field& f,const real& compenso,const bool force=FALSE);
static bool calcola_ritenuta (TMask_field& f,const real& compenso,const bool forza=FALSE,const real perc=ZERO); static bool calcola_ritenuta (TMask_field& f,const real& compenso,const bool forza=FALSE,const real perc=ZERO);
static real calcola_netto (TMask_field& f); static real calcola_netto (TMask_field& f);
real calcola_imponibile(const real& compenso); real calcola_imponibile(const real& compenso);
real calcola_ritenuta (const real& imponibile, TString& sPercRa, real calcola_ritenuta (const real& imponibile, TString& sPercRa,
real& rPercCassaPrev, real &rPercContrInps, real& rPercAssContrInps, real& rPercCassaPrev, real &rPercContrInps, real& rPercAssContrInps,
real& rQuotaCommitContrInps, bool& bContrInps); real& rQuotaCommitContrInps, bool& bContrInps);
static long get_numvers (TMask_field& f); static long get_numvers (TMask_field& f);
static void setta_ritvers(TMask_field& f, const real& ritenuta); static void setta_ritvers(TMask_field& f, const real& ritenuta);
static bool nprog_handler (TMask_field& f, KEY key); static bool nprog_handler (TMask_field& f, KEY key);
static bool codanagr_handler (TMask_field& f, KEY key); static bool codanagr_handler (TMask_field& f, KEY key);
static bool codditta_handler (TMask_field& f, KEY key); static bool codditta_handler (TMask_field& f, KEY key);
static bool check_compensi (TMask_field& f, KEY k); static bool check_compensi (TMask_field& f, KEY k);
static bool check_spese (TMask_field& f, KEY k); static bool check_spese (TMask_field& f, KEY k);
// Handler del versamento // Handler del versamento
static bool vers_notify (TSheet_field& s, int r, KEY key); static bool vers_notify (TSheet_field& s, int r, KEY key);
static bool pags_notify (TSheet_field& s, int r, KEY key); static bool pags_notify (TSheet_field& s, int r, KEY key);
static bool vers1015_handler (TMask_field& f, KEY key); static bool vers1015_handler (TMask_field& f, KEY key);
static bool compilato_vers(TMask_field& f); static bool compilato_vers(TMask_field& f);
// static bool pag_handler (TMask_field& f, KEY key); // static bool pag_handler (TMask_field& f, KEY key);
static bool compenso_handler (TMask_field& f, KEY key); static bool compenso_handler (TMask_field& f, KEY key);
static bool imponibile_handler (TMask_field& f, KEY key); static bool imponibile_handler (TMask_field& f, KEY key);
static bool percra_handler (TMask_field& f, KEY key); static bool percra_handler (TMask_field& f, KEY key);
static bool spesa_handler (TMask_field& f, KEY key); static bool spesa_handler (TMask_field& f, KEY key);
static bool netto_handler (TMask_field& f, KEY k); static bool netto_handler (TMask_field& f, KEY k);
static bool tipo_hndl (TMask_field& f, KEY key); static bool tipo_hndl (TMask_field& f, KEY key);
static bool luo_hndl (TMask_field& f, KEY key); static bool luo_hndl (TMask_field& f, KEY key);
static bool abicab_hndl (TMask_field& f, KEY key); static bool abicab_hndl (TMask_field& f, KEY key);
static bool check_handler (TMask_field& f, KEY key); static bool check_handler (TMask_field& f, KEY key);
static bool check_ritenuta (TMask_field& f, KEY k); static bool check_ritenuta (TMask_field& f, KEY k);
static bool check_causale (TMask_field& f, KEY k); static bool check_causale (TMask_field& f, KEY k);
static bool forced_handler (TMask& m, KEY key); static bool forced_handler (TMask& m, KEY key);
static bool ver_notify (int r, KEY key); static bool ver_notify (int r, KEY key);
static bool pag_select (TMask_field& f, KEY key); static bool pag_select (TMask_field& f, KEY key);
static bool ver_azzera (TMask_field& f, KEY key); static bool ver_azzera (TMask_field& f, KEY key);
static bool pag_azzera (TMask_field& f, KEY key); static bool pag_azzera (TMask_field& f, KEY key);
void enable_vers_cells (int r, bool enable=TRUE); void enable_vers_cells (int r, bool enable=TRUE);
void disable_vers_cells (int r) { enable_vers_cells(r,FALSE); } void disable_vers_cells (int r) { enable_vers_cells(r,FALSE); }
bool vers_attached(const long numvers); bool vers_attached(const long numvers);
void pag_pack(); void pag_pack();
void ver_pack(); void ver_pack();
static bool setta_nprog (TMask& m, const bool variazione=FALSE, static bool setta_nprog (TMask& m, const bool variazione=FALSE,
const char* codanagr=NULL); const char* codanagr=NULL);
protected: protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
virtual TRelation* get_relation() const { return _rel; } virtual TRelation* get_relation() const { return _rel; }
virtual TMask* get_mask(int mode); virtual TMask* get_mask(int mode);
virtual bool changing_mask(int mode); virtual bool changing_mask(int mode);
virtual void init_query_mode (TMask&); virtual void init_query_mode (TMask&);
virtual void init_query_insert_mode (TMask&); virtual void init_query_insert_mode (TMask&);
virtual void init_insert_mode(TMask&); virtual void init_insert_mode(TMask&);
virtual void init_modify_mode(TMask&); virtual void init_modify_mode(TMask&);
virtual int rewrite(const TMask& m); virtual int rewrite(const TMask& m);
virtual int write(const TMask& m); virtual int write(const TMask& m);
virtual int read(TMask& m); virtual int read(TMask& m);
virtual void on_config_change(); virtual void on_config_change();
void init_mask(TMask&); void init_mask(TMask&);
TMask* load_mask(int n); TMask* load_mask(int n);
void fill_sheet(TMask&); void fill_sheet(TMask&);
bool scrivi_dati_per(TRectype& rec); bool scrivi_dati_per(TRectype& rec);
void mask2rel(const TMask& m); void mask2rel(const TMask& m);
void rec2row(TToken_string& r, TRectype& rec, int row); void rec2row(TToken_string& r, TRectype& rec, int row);
void update_lasts(TMask& m); void update_lasts(TMask& m);
void attach_pag_vers (int pag, long numvers); void attach_pag_vers (int pag, long numvers);
void detach_pag_vers (int pag); void detach_pag_vers (int pag);
void new_row(TSheet_field& ver_pag, int r, bool vers); void new_row(TSheet_field& ver_pag, int r, bool vers);
bool my_empty_items(TToken_string& r, bool versamenti); bool my_empty_items(TToken_string& r, bool versamenti);
int anno_dic() const { return _anno_dic; } int anno_dic() const { return _anno_dic; }
public: public:
bool _flag_cg; bool _flag_cg;
void load_pag_sheet(const long numvers); void load_pag_sheet(const long numvers);
TTipo_coll tipo_coll() const { return _coll._tipo_coll; } TTipo_coll tipo_coll() const { return _coll._tipo_coll; }
void compila_testata(TMask& m); void compila_testata(TMask& m);
bool coll_variazione() const; bool coll_variazione() const;
bool coll_datanum() const { return _coll._datadoc.not_empty() && _coll._numdoc.not_empty(); } bool coll_datanum() const { return _coll._datadoc.not_empty() && _coll._numdoc.not_empty(); }
bool esiste_perc(TMask& m, const char* coda=NULL); bool esiste_perc(TMask& m, const char* coda=NULL);
TSheet_field& pags() const; TSheet_field& pags() const;
TSheet_field& vers() const; TSheet_field& vers() const;
TSchedaPercipienti (); TSchedaPercipienti ();
~TSchedaPercipienti() {}; ~TSchedaPercipienti() {};
}; };
inline TSchedaPercipienti& app() { return (TSchedaPercipienti&) main_app();} inline TSchedaPercipienti& app() { return (TSchedaPercipienti&) main_app();}
#endif #endif

107
m770/770200.cpp
View File

@ -20,7 +20,7 @@ class TVersa_rit : public TApplication
real _versato; real _versato;
TRelation* _rel; TRelation* _rel;
TCursor* _cur; TCursor* _cur;
TBrowse_sheet* _sheet_perc; TCursor_sheet* _sheet_perc;
TArray_sheet* _schede; TArray_sheet* _schede;
TArray_sheet* _pagam; TArray_sheet* _pagam;
TMask* _msk; TMask* _msk;
@ -84,7 +84,31 @@ TCursor* TVersa_rit::meik_curs(TRelation* rel)
bool TVersa_rit::create() bool TVersa_rit::create()
{ {
TApplication::create(); TApplication::create();
// simulo una chiamata da contabilità
// (lo lascio per eventuali prove)
// real totdocla = ZERO;
// real spesela = ZERO;
// real compensola = ZERO;
// real impostela = ZERO;
// real ritenutela = 70000;
// TToken_string s(80);
// s.add(4);
// s.add("M");
// s.add("F");
// s.add(30010);
// s.add(1);
// s.add("2");
// s.add("05-02-1997");
// s.add(totdocla.string());
// s.add(spesela.string());
// s.add(compensola.string());
// s.add(impostela.string());
// s.add(ritenutela.string());
// const char* name = "770 -1";
// TMessage mla(name, "LINK770", s);
// mla.send();
// Collegamento da contabilita' // Collegamento da contabilita'
TMailbox m; TMailbox m;
@ -112,44 +136,20 @@ bool TVersa_rit::create()
_msk->set(F_DATA, _coll._datadoc); _msk->set(F_DATA, _coll._datadoc);
_msk->set(F_VERSATO, _coll._ritenute.string()); _msk->set(F_VERSATO, _coll._ritenute.string());
KEY kp = _msk->run();
if (kp != K_ENTER)
return FALSE;
else
{
_data = _msk->get(F_DATA);
_luogo = _msk->get(F_LUOGO)[0];
_tipo = _msk->get(F_TIPO)[0];
_versato = real(_msk->get(F_VERSATO));
if (_tipo == DELEGA_BANCARIA)
{
_serie = _msk->get(F_ABI);
_numero = _msk->get(F_CAB);
}
else
{
_serie = _msk->get(F_SERIE);
_numero = _msk->get(F_NUMERO);
}
}
TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODANAGRPERC);
TToken_string siblings; // non ho ricerche alternative _sheet_perc = new TCursor_sheet(_cur,
_sheet_perc = new TBrowse_sheet(_cur," |TIPOA|CODANAGR|6->RAGSOC", "Selezione percipienti", " |TIPOA|CODANAGR|6->RAGSOC",
"@1|Tipo|Codice|Ragione sociale@50", 8, &dummy,siblings); "Selezione percipienti",
_sheet_perc->maximize(); "@1|Tipo|Codice|Ragione sociale@50",
8, 3);
_schede = new TArray_sheet(-1, -1, 0, 0, "Selezione Schede","@1|T|Codice|Ragione@50|N.|Data@10"); _schede = new TArray_sheet(3, 3, -3, -3,
_schede->maximize(); "Selezione schede",
"@1|T|Codice|Scheda n.|Data@10|Ragione@50");
_pagam = new TArray_sheet(-1, -1, 0, 0, "Selezione Ritenute da versare", _pagam = new TArray_sheet(3, 3, -3, -3,
"@1|T|Codice|Scheda n.|Riga n.|Ritenuta@15"); "Selezione ritenute da versare",
_pagam->maximize(); "@1|T|Codice|Scheda n.|Riga n.|Ritenuta@15");
_apags.destroy(); _apags.destroy();
dispatch_e_menu (BAR_ITEM(1)); dispatch_e_menu (BAR_ITEM(1));
return TRUE; return TRUE;
} }
@ -351,7 +351,7 @@ void TVersa_rit::build_pagam_sheet(const long codditta)
TToken_string& r = _schede->row(i); TToken_string& r = _schede->row(i);
char tipoa = r.get_char(1); char tipoa = r.get_char(1);
long codanagr = r.get_long(2); long codanagr = r.get_long(2);
const int nprog = r.get_int(4); const int nprog = r.get_int(3);
TToken_string* tpag = find(codditta,tipoa,codanagr,nprog); TToken_string* tpag = find(codditta,tipoa,codanagr,nprog);
@ -411,9 +411,9 @@ void TVersa_rit::build_schede_sheet(const long codditta)
rr.add(" "); // Spazio per selezionare rr.add(" "); // Spazio per selezionare
rr.add(tipoa); rr.add(tipoa);
rr.add(codanagr); rr.add(codanagr);
rr.add(ragsoc);
rr.add(nprog); rr.add(nprog);
rr.add(datadoc); rr.add(datadoc);
rr.add(ragsoc);
_schede->add(rr); _schede->add(rr);
} }
sch.next(); sch.next();
@ -424,8 +424,33 @@ void TVersa_rit::build_schede_sheet(const long codditta)
bool TVersa_rit::do_all() bool TVersa_rit::do_all()
{ {
KEY kp; KEY kp;
long items = 0L; long items = 0L;
// esecuzione prima maschera: richiesta estremi versamento
kp = _msk->run();
if (kp != K_ENTER)
return FALSE;
else
{
_data = _msk->get(F_DATA);
_luogo = _msk->get(F_LUOGO)[0];
_tipo = _msk->get(F_TIPO)[0];
_versato = real(_msk->get(F_VERSATO));
if (_tipo == DELEGA_BANCARIA)
{
_serie = _msk->get(F_ABI);
_numero = _msk->get(F_CAB);
}
else
{
_serie = _msk->get(F_SERIE);
_numero = _msk->get(F_NUMERO);
}
}
// loop di gestione sheet di scelta percipiente,
// scelta scheda e scelta pagamento da versare
while (TRUE) while (TRUE)
{ {
items = _sheet_perc->items(); items = _sheet_perc->items();

22
m770/770200a.uml
View File

@ -1,6 +1,6 @@
#include "770200a.h" #include "770200a.h"
PAGE "MODULO 770 - Collegamento versamento ritenute" -1 -1 75 15 PAGE "Versamento ritenute" -1 -1 75 15
GROUPBOX DLG_NULL 74 3 GROUPBOX DLG_NULL 74 3
BEGIN BEGIN
@ -34,24 +34,6 @@ BEGIN
FLAGS "H" FLAGS "H"
END END
// Questo campo serve solo per poter istanziare un browse_sheet nel programma
NUMBER F_CODANAGRPERC 5
BEGIN
PROMPT 15 8 ""
USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGRPERC
DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR
DISPLAY "Cognome - Nome o Ragione sociale@50" LF_ANAG->RAGSOC
OUTPUT F_TIPOA TIPOA
OUTPUT F_CODANAGRPERC CODANAGR
// OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC
FLAGS "HG"
END
GROUPBOX DLG_NULL 74 5 GROUPBOX DLG_NULL 74 5
BEGIN BEGIN
PROMPT 1 4 "@bDati versamento" PROMPT 1 4 "@bDati versamento"
@ -152,7 +134,7 @@ BEGIN
GROUP 2 6 GROUP 2 6
END END
NUMBER F_CAB 6 NUMBER F_CAB 5
BEGIN BEGIN
PROMPT 39 7 "" PROMPT 39 7 ""
FLAGS "Z" FLAGS "Z"

1608
m770/771100.cpp
View File

File diff suppressed because it is too large Load Diff

2
m770/771230b.uml
View File

@ -51,7 +51,7 @@ BEGIN
FLAGS "HG" FLAGS "HG"
END END
STRING F_RAGSOC2 45 STRING F_RAGSOC2 50 45
BEGIN BEGIN
PROMPT 24 0 "" PROMPT 24 0 ""
FLAGS "D" FLAGS "D"

2
m770/771230f.uml
View File

@ -53,7 +53,7 @@ BEGIN
FLAGS "HG" FLAGS "HG"
END END
STRING F_RAGSOC2 45 STRING F_RAGSOC2 50 45
BEGIN BEGIN
PROMPT 24 0 "" PROMPT 24 0 ""
FLAGS "D" FLAGS "D"

2
m770/771230h.uml
View File

@ -54,7 +54,7 @@ BEGIN
FLAGS "HG" FLAGS "HG"
END END
STRING F_RAGSOC2 45 STRING F_RAGSOC2 50 45
BEGIN BEGIN
PROMPT 24 0 "" PROMPT 24 0 ""
FLAGS "D" FLAGS "D"

2
m770/771230l.uml
View File

@ -54,7 +54,7 @@ BEGIN
FLAGS "HG" FLAGS "HG"
END END
STRING F_RAGSOC2 45 STRING F_RAGSOC2 50 45
BEGIN BEGIN
PROMPT 24 0 "" PROMPT 24 0 ""
FLAGS "D" FLAGS "D"

46
m770/771231.cpp
View File

@ -1,8 +1,5 @@
// 771231.cpp - Quadri F // 771231.cpp - Quadri F
// //
// Lista modifiche
// 12. 1.96 Controlla codcaus anche dopo che e' stato immesso (nf)
//
#include <relapp.h> #include <relapp.h>
#include <config.h> #include <config.h>
#include <msksheet.h> #include <msksheet.h>
@ -64,7 +61,8 @@ class TQuadroF : public TRelation_application
static bool eprov_handler(TMask_field& f, KEY k); static bool eprov_handler(TMask_field& f, KEY k);
static bool ealiq_handler(TMask_field& f, KEY k); static bool ealiq_handler(TMask_field& f, KEY k);
static bool fsogg_handler(TMask_field& f, KEY k); static bool fsogg_handler(TMask_field& f, KEY k);
static bool faliq_handler(TMask_field& f, KEY k); static bool faliq_handler(TMask_field& f, KEY k);
static bool mainmsk_handler(TMask& m, KEY k);
static bool a_notify(TSheet_field& s, int r, KEY k); static bool a_notify(TSheet_field& s, int r, KEY k);
static bool b_notify(TSheet_field& s, int r, KEY k); static bool b_notify(TSheet_field& s, int r, KEY k);
static bool c_notify(TSheet_field& s, int r, KEY k); static bool c_notify(TSheet_field& s, int r, KEY k);
@ -90,7 +88,8 @@ class TQuadroF : public TRelation_application
void init_mask (TMask&); void init_mask (TMask&);
void fill_ss(TMask& m); void fill_ss(TMask& m);
void riempi_prospetto(TMask& m, const char prosp); void riempi_prospetto(TMask& m, const char prosp);
int re_write(const TMask& m, bool re); int re_write(const TMask& m, bool re);
int elimina();
public: public:
TString16 _quadro, _aliq_caus; TString16 _quadro, _aliq_caus;
@ -194,6 +193,7 @@ bool TQuadroF::user_create()
_msk->set_handler(E_ALI, ealiq_handler); _msk->set_handler(E_ALI, ealiq_handler);
_msk->set_handler(F_SOGG, fsogg_handler); _msk->set_handler(F_SOGG, fsogg_handler);
_msk->set_handler(F_ALI, faliq_handler); _msk->set_handler(F_ALI, faliq_handler);
_msk->set_handler(mainmsk_handler);
TSheet_field& p_a = (TSheet_field&) _msk->field(F_A); TSheet_field& p_a = (TSheet_field&) _msk->field(F_A);
p_a.set_notify(a_notify); p_a.set_notify(a_notify);
p_a.sheet_mask().set_handler(S_CODC, codc_handler); p_a.sheet_mask().set_handler(S_CODC, codc_handler);
@ -242,7 +242,7 @@ bool TQuadroF::user_create()
_msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar _msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar
_msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar _msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar _msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
_msk->set_handler(mainmsk_handler);
TSheet_field& p_b = (TSheet_field&) _msk->field(F_B); TSheet_field& p_b = (TSheet_field&) _msk->field(F_B);
p_b.sheet_mask().set_handler(S_CODC, codc_handler); p_b.sheet_mask().set_handler(S_CODC, codc_handler);
p_b.sheet_mask().set_handler(S_ALIQ, aliq_handler); p_b.sheet_mask().set_handler(S_ALIQ, aliq_handler);
@ -266,7 +266,7 @@ bool TQuadroF::user_create()
_msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar _msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar
_msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar _msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar _msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
_msk->set_handler(mainmsk_handler);
TSheet_field& p_b = (TSheet_field&) _msk->field(F_B); TSheet_field& p_b = (TSheet_field&) _msk->field(F_B);
p_b.sheet_mask().set_handler(S_CODC, codc_handler); p_b.sheet_mask().set_handler(S_CODC, codc_handler);
p_b.sheet_mask().set_handler(S_ALIQ, aliq_handler); p_b.sheet_mask().set_handler(S_ALIQ, aliq_handler);
@ -656,6 +656,26 @@ int TQuadroF::re_write(const TMask& m, bool re)
} }
else else
return err_b; return err_b;
}
int TQuadroF::elimina()
{
int err;
// eliminazione righe del quadro
TRectype& recrf = _rf->curr();
recrf.zero();
recrf.put("CODDITTA",_codditta);
_rf->setkey(1);
for (err = _rf->read(_isequal, _lock); // stato iniziale
err == NOERR; // condizione di uscita
err = _rf->read(_isequal, _lock)) // incremento
{
_rf->remove(); // eliminazione riga quadro
}
if (err == _iskeynotfound)
_rf->reread();
return err;
} }
bool TQuadroF::remove() bool TQuadroF::remove()
@ -761,6 +781,16 @@ bool TQuadroF::d_notify(TSheet_field& s, int r, KEY k)
break; break;
} }
return TRUE; return TRUE;
}
bool TQuadroF::mainmsk_handler(TMask& m, KEY k)
{
if (k == K_ESC)
{
TOperable_field& f = m.focus_field();
m.set_focus_field(f.dlg());
}
return TRUE;
} }
bool TQuadroF::eprov_handler(TMask_field& f, KEY k) bool TQuadroF::eprov_handler(TMask_field& f, KEY k)
@ -956,7 +986,7 @@ real TQuadroF::calcola_rope(TMask_field& f, const real& sogg, const bool force)
m.reset(id_rope); m.reset(id_rope);
// Nel prospetto A oltre alla ritenuta operata setto anche S_SALD // Nel prospetto A oltre alla ritenuta operata setto anche S_SALD
if ((app()._tipo_prosp == 'E') && (m.get_sheet()->dlg() == F_A)) if ((app()._tipo_prosp == 'A') && (m.get_sheet()->dlg() == F_A))
{ {
const real pa_col5(f.mask().get(S_TACC)); const real pa_col5(f.mask().get(S_TACC));
real pa_col6 = pa_col4 - pa_col5; real pa_col6 = pa_col4 - pa_col5;

15
m770/771231a.h
View File

@ -1,12 +1,6 @@
// 771231a.h - quadro F // 771231a.h - quadro F
// *NOTA* gli identificatori fino al 119 sono per spreadsheet // *NOTA* gli identificatori fino al 119 sono per spreadsheet
#define F_CODDITTA 101
#define F_RAGDITTA 102
#define F_A 103
#define F_B 104
#define F_C 105
#define F_D 106
#define F_A1 120 #define F_A1 120
#define F_A2 121 #define F_A2 121
#define F_A3 122 #define F_A3 122
@ -20,7 +14,12 @@
#define F_SOGG 130 #define F_SOGG 130
#define F_ROP 131 #define F_ROP 131
#define F_CODCAU 132 #define F_CODCAU 132
#define DLG_AZZERA 133
#define F_CODDITTA 134
#define F_RAGDITTA 135
#define F_A 136
#define F_B 137
#define F_C 138
#define F_D 139

106
m770/771231a.uml
View File

@ -1,3 +1,7 @@
// Gruppi utilizzati :
// 1 - identifica il codice ditta di intestazione da replicare sulle pagine
// 2 - identifica la descrizione ditta di intestazione da replicare sulle pagine
#include "771231a.h" #include "771231a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
@ -20,13 +24,15 @@ BEGIN
FIELD LF_QUAF->CODDITTA FIELD LF_QUAF->CODDITTA
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "GRD" FLAGS "GRD"
MESSAGE COPY,1@
END END
STRING F_RAGDITTA 50 STRING F_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
MESSAGE COPY,2@
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -34,7 +40,7 @@ BEGIN
PROMPT 1 3 "@bProspetto A" PROMPT 1 3 "@bProspetto A"
END END
SPREADSHEET F_A 0 8 SPREADSHEET F_A 78 8
BEGIN BEGIN
PROMPT 0 4 "" PROMPT 0 4 ""
ITEM "Causale" ITEM "Causale"
@ -47,55 +53,55 @@ BEGIN
ITEM "Somma versata@15" ITEM "Somma versata@15"
END END
GROUPBOX DLG_NULL 78 6 GROUPBOX DLG_NULL 0 6
BEGIN BEGIN
PROMPT 1 12 "" PROMPT 1 13 ""
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 3 13 "A1 Importo di col.7 ..." PROMPT 3 14 "A1 Importo di col.7 ..."
END END
NUMBER F_A1 15 NUMBER F_A1 15
BEGIN BEGIN
PROMPT 60 13 "" PROMPT 60 14 ""
PICTURE "." PICTURE "."
FIELD LF_QUAF->A1 FIELD LF_QUAF->A1
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 3 14 "A2 Importo di col.7 di cui si chiede il rimborso" PROMPT 3 15 "A2 Importo di col.7 di cui si chiede il rimborso"
END END
NUMBER F_A2 15 NUMBER F_A2 15
BEGIN BEGIN
PROMPT 60 14 "" PROMPT 60 15 ""
PICTURE "." PICTURE "."
FIELD LF_QUAF->A2 FIELD LF_QUAF->A2
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 3 15 "A3 Somme soggette a ritenuta ..." PROMPT 3 16 "A3 Somme soggette a ritenuta ..."
END END
NUMBER F_A3 15 NUMBER F_A3 15
BEGIN BEGIN
PROMPT 60 15 "" PROMPT 60 16 ""
PICTURE "." PICTURE "."
FIELD LF_QUAF->A3 FIELD LF_QUAF->A3
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 3 16 "A4 Ritenute operate ..." PROMPT 3 17 "A4 Ritenute operate ..."
END END
NUMBER F_A4 15 NUMBER F_A4 15
BEGIN BEGIN
PROMPT 60 16 "" PROMPT 60 17 ""
PICTURE "." PICTURE "."
FIELD LF_QUAF->A4 FIELD LF_QUAF->A4
END END
@ -104,14 +110,33 @@ ENDPAGE
PAGE "Prospetto B,C" -1 -1 78 18 PAGE "Prospetto B,C" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER DLG_NULL 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "RD"
GROUP 1
END
STRING DLG_NULL 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
GROUP 2
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 0 "@bProspetto B" PROMPT 1 3 "@bProspetto B"
END END
SPREADSHEET F_B 78 6 SPREADSHEET F_B 78 6
BEGIN BEGIN
PROMPT 0 1 "" PROMPT 0 4 ""
ITEM "Causale" ITEM "Causale"
ITEM "Descrizione@50" ITEM "Descrizione@50"
ITEM "Aliquota" ITEM "Aliquota"
@ -121,12 +146,12 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 8 "@bProspetto C" PROMPT 1 11 "@bProspetto C"
END END
SPREADSHEET F_C 78 6 SPREADSHEET F_C 78 6
BEGIN BEGIN
PROMPT 0 9 "" PROMPT 0 12 ""
ITEM "Causale" ITEM "Causale"
ITEM "Descrizione@50" ITEM "Descrizione@50"
ITEM "Aliquota" ITEM "Aliquota"
@ -138,14 +163,33 @@ ENDPAGE
PAGE "Prospetto D,E,F" -1 -1 78 18 PAGE "Prospetto D,E,F" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER DLG_NULL 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "RD"
GROUP 1
END
STRING DLG_NULL 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
GROUP 2
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 0 "@bProspetto D" PROMPT 1 3 "@bProspetto D"
END END
SPREADSHEET F_D 78 6 SPREADSHEET F_D 78 6
BEGIN BEGIN
PROMPT 0 1 "" PROMPT 0 4 ""
ITEM "Causale" ITEM "Causale"
ITEM "Descrizione@50" ITEM "Descrizione@50"
ITEM "Aliquota" ITEM "Aliquota"
@ -155,36 +199,36 @@ END
GROUPBOX DLG_NULL 0 5 GROUPBOX DLG_NULL 0 5
BEGIN BEGIN
PROMPT 1 8 "@bProspetto E" PROMPT 1 11 "@bProspetto E"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 9 "Importo complessivo delle cambiali " PROMPT 2 12 "Importo complessivo delle cambiali "
END END
NUMBER E_CAMBIAL 15 NUMBER E_CAMBIAL 15
BEGIN BEGIN
PROMPT 60 9 "" PROMPT 60 12 ""
PICTURE "." PICTURE "."
FIELD LF_QUAF->E_CAMBIALI FIELD LF_QUAF->E_CAMBIALI
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 10 "Proventi soggetti a ritenuta " PROMPT 2 13 "Proventi soggetti a ritenuta "
END END
NUMBER E_PROVENTI 15 NUMBER E_PROVENTI 15
BEGIN BEGIN
PROMPT 60 10 "" PROMPT 60 13 ""
PICTURE "." PICTURE "."
FIELD LF_QUAF->E_SOGRIT FIELD LF_QUAF->E_SOGRIT
END END
NUMBER E_ALI 5 NUMBER E_ALI 5
BEGINE BEGINE
PROMPT 2 11 "Aliquota " PROMPT 2 14 "Aliquota "
FIELD LF_QUAF->E_ALIQUOTA FIELD LF_QUAF->E_ALIQUOTA
PICTURE ".2" PICTURE ".2"
NUM_EXPR {(#THIS>=0) && (#THIS<=100)} NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
@ -192,19 +236,19 @@ END
NUMBER E_ROP 15 NUMBER E_ROP 15
BEGIN BEGIN
PROMPT 43 11 "Ritenuta operata " PROMPT 43 14 "Ritenuta operata "
PICTURE "." PICTURE "."
FIELD LF_QUAF->E_ROPE FIELD LF_QUAF->E_ROPE
END END
GROUPBOX DLG_NULL 0 5 GROUPBOX DLG_NULL 0 5
BEGIN BEGIN
PROMPT 1 13 "@bProspetto F" PROMPT 1 16 "@bProspetto F"
END END
STRING F_CODCAU 2 STRING F_CODCAU 2
BEGIN BEGIN
PROMPT 2 14 "Causale " PROMPT 2 17 "Causale "
USE %CA7 SELECT (S1="F") USE %CA7 SELECT (S1="F")
VALIDATE REQIF_FUNC 3 F_SOGG F_ALI F_ROP VALIDATE REQIF_FUNC 3 F_SOGG F_ALI F_ROP
INPUT CODTAB F_CODCAU INPUT CODTAB F_CODCAU
@ -227,20 +271,20 @@ END
STRING F_DESCRCAUS 60 STRING F_DESCRCAUS 60
BEGIN BEGIN
PROMPT 16 14 "" PROMPT 16 17 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_SOGG 15 NUMBER F_SOGG 15
BEGIN BEGIN
PROMPT 2 15 "Somme soggette a ritenuta " PROMPT 2 18 "Somme soggette a ritenuta "
PICTURE "." PICTURE "."
FIELD LF_QUAF->F_SOGRIT FIELD LF_QUAF->F_SOGRIT
END END
NUMBER F_ALI 5 NUMBER F_ALI 5
BEGIN BEGIN
PROMPT 51 15 "Aliquota " PROMPT 51 18 "Aliquota "
PICTURE ".2" PICTURE ".2"
NUM_EXPR {(#THIS>=0) && (#THIS<=100)} NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
FIELD LF_QUAF->F_ALIQUOTA FIELD LF_QUAF->F_ALIQUOTA
@ -248,7 +292,7 @@ END
NUMBER F_ROP 15 NUMBER F_ROP 15
BEGIN BEGIN
PROMPT 2 16 "Ritenuta operata " PROMPT 2 19 "Ritenuta operata "
PICTURE "." PICTURE "."
FIELD LF_QUAF->F_ROPE FIELD LF_QUAF->F_ROPE
END END

4
m770/771231b.uml
View File

@ -81,9 +81,9 @@ BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_NULL 9 2 BUTTON DLG_AZZERA 9 2
BEGIN BEGIN
PROMPT -33 -1 "Azzera" PROMPT -33 -1 "A~zzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
END END

12
m770/771231c.uml
View File

@ -1,6 +1,6 @@
// 771231c.uml - quadro F prospetto B-C-D // 771231c.uml - quadro F prospetto B-C-D
PAGE "Prospetto B-C-D" -1 -1 76 9 PAGE "" -1 -1 76 9
NUMBER 101 2 NUMBER 101 2
BEGIN BEGIN
@ -52,18 +52,18 @@ END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_NULL 9 2 BUTTON DLG_AZZERA 9 2
BEGIN BEGIN
PROMPT -33 -1 "Azzera" PROMPT -33 -1 "A~zzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
END END
ENDPAGE ENDPAGE

4
m770/771232b.uml
View File

@ -60,9 +60,9 @@ BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_NULL 9 2 BUTTON DLG_AZZERA 9 2
BEGIN BEGIN
PROMPT -33 -1 "Azzera" PROMPT -33 -1 "A~zzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
END END

6
m770/771233b.uml
View File

@ -58,11 +58,11 @@ END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_NULL 9 2 BUTTON DLG_AZZERA 9 2
BEGIN BEGIN
PROMPT -33 -1 "Azzera" PROMPT -33 -1 "A~zzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
END END

112
m770/776100a.uml
View File

@ -1,56 +1,56 @@
#include "776100a.h" #include "776100a.h"
PAGE "Manutenzione dichiarazione" -1 -1 64 8 PAGE "Manutenzione dichiarazione" -1 -1 64 8
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Codice " PROMPT 1 1 "Codice "
USE LF_NDITTE SELECT LF_BASE->CODDITTA!="" USE LF_NDITTE SELECT LF_BASE->CODDITTA!=""
JOIN LF_BASE INTO CODDITTA==CODDITTA JOIN LF_BASE INTO CODDITTA==CODDITTA
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_RAGDITTA RAGSOC OUTPUT F_RAGDITTA RAGSOC
HELP "Codice della ditta da selezionare" HELP "Codice della ditta da selezionare"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Manca la ditta" WARNING "Manca la ditta"
KEY 1 KEY 1
GROUP 1 GROUP 1
END END
STRING F_RAGDITTA 50 STRING F_RAGDITTA 50
BEGIN BEGIN
PROMPT 1 2 "Rag. Soc. " PROMPT 1 2 "Rag. Soc. "
USE LF_NDITTE KEY 2 SELECT LF_BASE->CODDITTA!="" USE LF_NDITTE KEY 2 SELECT LF_BASE->CODDITTA!=""
JOIN LF_BASE INTO CODDITTA==CODDITTA JOIN LF_BASE INTO CODDITTA==CODDITTA
INPUT RAGSOC F_RAGDITTA INPUT RAGSOC F_RAGDITTA
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGDITTA RAGSOC OUTPUT F_RAGDITTA RAGSOC
HELP "Ragione sociale della ditta da selezionare" HELP "Ragione sociale della ditta da selezionare"
KEY 2 KEY 2
GROUP 1 GROUP 1
END END
NUMBER F_ANNODIC 4 NUMBER F_ANNODIC 4
BEGIN BEGIN
PROMPT 1 4 "Anno dichiarazione " PROMPT 1 4 "Anno dichiarazione "
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -12 -1 "Fine" PROMPT -22 -1 "Fine"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2
m770/776100b.uml
View File

@ -20,7 +20,7 @@ BEGIN
FLAGS "H" FLAGS "H"
END END
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 76 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END

2
m770/776200.cpp
View File

@ -60,7 +60,7 @@ bool TImmissioneDichiarazione::do_it()
if (enter_dichiar_770(codditta, _anno_dic)) if (enter_dichiar_770(codditta, _anno_dic))
message_box("Dichiarazione inserita"); message_box("Dichiarazione inserita");
} }
_msk->close(); _msk->close_modal();
return tasto == K_ENTER; return tasto == K_ENTER;
} }

130
m770/776500.cpp
View File

@ -27,8 +27,10 @@ class TParametri_genera : public TApplication
virtual bool create() ; virtual bool create() ;
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
public: public:
bool main_loop(); KEY registra(TMask& m, bool check_dirty);
bool main_loop();
// D = stampa ditta, S = stampa a livello di studio // D = stampa ditta, S = stampa a livello di studio
TParametri_genera(char livello='D') : _liv(toupper(livello)) {} TParametri_genera(char livello='D') : _liv(toupper(livello)) {}
}; };
@ -41,68 +43,108 @@ void TParametri_genera::on_config_change()
_anno_dic = (int)conf.get_long(ANNO_SEL, _section); _anno_dic = (int)conf.get_long(ANNO_SEL, _section);
} }
KEY TParametri_genera::registra(TMask& m, bool check_dirty)
{
KEY k = K_YES;
if (check_dirty && m.dirty())
k = yesnocancel_box("Registrare le modifiche?");
if (k == K_YES)
{
m.autosave(*_rel);
_rel->rewrite();
}
return k;
}
bool TParametri_genera::main_loop() bool TParametri_genera::main_loop()
{ {
KEY tasto;
TMask msk ("776500a");
long codditta, codditta_prec; long codditta, codditta_prec;
int i = 0; int i = 0;
KEY tasto;
TMask msk("776500a");
msk.open_modal();
// da dichiarazioni selezionate
if (_liv == 'S') if (_liv == 'S')
{ {
codditta_prec = get_firm_770(); codditta_prec = get_firm_770();
while ((codditta = _cnf->get_long(DITTE_SEL, _section, i++)) != 0L) tasto = K_TAB;
// loop di scansione dichiarazioni selezionate
while ((codditta = _cnf->get_long(DITTE_SEL, _section, i++)) != 0L
&& tasto != K_QUIT)
{ {
set_firm_770(codditta); set_firm_770(codditta);
_rel->lfile().put("CODDITTA", codditta); _rel->lfile().put("CODDITTA", codditta);
_rel->read(); _rel->read();
msk.autoload(*_rel); msk.autoload(*_rel);
tasto = msk.run(); tasto = K_TAB;
if (tasto == K_ESC) continue; // loop di gestione maschera
while (tasto != K_ESC && tasto != K_QUIT)
{
tasto = msk.run();
switch (tasto)
{
case K_ESC:
if (registra(msk,TRUE) == K_ESC)
tasto = K_TAB;
break;
case K_QUIT:
if (registra(msk,TRUE) == K_ESC)
tasto = K_TAB;
break;
case K_SAVE:
registra(msk,FALSE);
default:
break;
}
} // endloop di gestione maschera
if (tasto == K_SAVE) } // endloop di scansione dichiarazioni selezionate
{
msk.autosave(*_rel);
_rel->rewrite();
}
if (tasto == K_QUIT) break;
}
set_firm_770(codditta_prec); set_firm_770(codditta_prec);
return FALSE; }
}
// dalla manutenzione dichiarazione
else else
{ {
codditta = get_firm_770(); codditta = get_firm_770();
_rel->lfile().put("CODDITTA", codditta); _rel->lfile().put("CODDITTA", codditta);
_rel->read(); _rel->read();
msk.autoload(*_rel); msk.autoload(*_rel);
tasto = msk.run(); tasto = K_TAB;
if (tasto == K_ESC) // loop di gestione maschera
{ while (tasto != K_ESC && tasto != K_QUIT)
_risposta = 1; {
return FALSE; tasto = msk.run();
} switch (tasto)
{
if (tasto == K_SAVE) case K_ESC:
{ if (registra(msk,TRUE) == K_ESC)
msk.autosave(*_rel); tasto = K_TAB;
_rel->rewrite(); _risposta = 1;
_risposta = 1; break;
} case K_QUIT:
if (registra(msk,TRUE) == K_ESC)
if (tasto == K_QUIT) tasto = K_TAB;
{ _risposta = 0;
_risposta = 0; break;
return FALSE; case K_SAVE:
} registra(msk,FALSE);
_risposta = 1;
default:
break;
}
} // endloop di gestione maschera
} }
msk.close_modal();
return FALSE; return FALSE;
} }

4
m770/776500a.uml
View File

@ -4,7 +4,7 @@ TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
@ -24,7 +24,7 @@ END
ENDPAGE ENDPAGE
PAGE "Prospetto dati generali" -1 -1 78 18 PAGE "Parametri di generazione" -1 -1 78 18
#define G_ABICAB 1 #define G_ABICAB 1
#define G_DISTINTA 2 #define G_DISTINTA 2

10
m770/776600.cpp
View File

@ -20,7 +20,7 @@ class TEstinti_app : public TApplication
TLocalisamfile* _base, *_basebis; TLocalisamfile* _base, *_basebis;
TRelation* _rel; TRelation* _rel;
TCursor* _cur; TCursor* _cur;
TBrowse_sheet* _estint_sheet; TCursor_sheet* _estint_sheet;
static bool show_estinti(TMask_field& f, KEY k); static bool show_estinti(TMask_field& f, KEY k);
void force_output(int dlg, const long cod); void force_output(int dlg, const long cod);
@ -76,10 +76,8 @@ bool TEstinti_app::create()
TString16 filt; TString16 filt;
filt.format("CODDIC=%ld", _codditta); filt.format("CODDIC=%ld", _codditta);
_cur = new TCursor(_rel, filt); _cur = new TCursor(_rel, filt);
TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY); _estint_sheet = new TCursor_sheet(_cur,"CODDITTA|9->RAGSOC", "Elenco estinti",
TToken_string siblings; "Codice|Ragione sociale@50", 0x18, 3);
_estint_sheet = new TBrowse_sheet(_cur,"CODDITTA|9->RAGSOC", "Elenco estinti",
"Codice|Ragione sociale@50", 8, &dummy, siblings);
_msk->set_handler(F_ESTINTI, show_estinti); _msk->set_handler(F_ESTINTI, show_estinti);
dispatch_e_menu (BAR_ITEM(1)); dispatch_e_menu (BAR_ITEM(1));
return TRUE; return TRUE;
@ -198,7 +196,7 @@ bool TEstinti_app::main_loop()
break; break;
} }
} }
_msk->close(); _msk->close_modal();
return FALSE; return FALSE;
} }

13
m770/776600a.uml
View File

@ -30,19 +30,6 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
// serve solo per costruire un Browse_sheet. v. 776600.cpp
NUMBER F_CODDIC_DUMMY 5
BEGIN
PROMPT 1 1 ""
USE LF_BASE KEY 2
JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
OUTPUT F_CODDIC CODDITTA
FLAGS "HG"
END
NUMBER F_CODDIC 5 NUMBER F_CODDIC 5
BEGIN BEGIN
PROMPT 1 3 "Soggetto dichiarante " PROMPT 1 3 "Soggetto dichiarante "

2
m770/77qe2b.uml
View File

@ -51,7 +51,7 @@ BEGIN
FLAGS "HG" FLAGS "HG"
END END
STRING F_RAGSOC2 45 STRING F_RAGSOC2 50 45
BEGIN BEGIN
PROMPT 24 0 "" PROMPT 24 0 ""
FLAGS "D" FLAGS "D"