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

Patch level : 01.00 0282

Browse Source 
Files correlati     : f23.dir f23.trr f9.dir f9.trr

Bug                 :
Aggiornamento FePA
This commit is contained in:
Alessandro Bonazzi 2025-06-09 01:43:12 +02:00
parent db4c3beed4
commit 6b4b3c7978
3 changed files with 134 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ba/ba4300.h
View File

@ -1,6 +1,10 @@
#ifndef __BA4300_H
#define __BA4300_H
#ifndef __NDITTE_H
#include <nditte.h>
#endif
#define FN_CODDITTA "CODITTA" /* FLD_GD1_PROGD */
#define FN_TIPOA "TIPOA" /* LST_GD1_TIPOA */
#define FN_RAGSOC "RAGSOC" /* FLD_GD1_RAGSOC */
@ -45,6 +49,7 @@
#define FN_DECCARINT "DECCARINT" /* FLD_GD3_DECCARINT */
#define RDB_GD1_FREQVIVA 102
#define LST_GD3_TIPOF 106
#define FLD_GD3_FIRMAT 107
#define FLD_GD3_FIRMAT_ANAGR_RAGSOC 108
#define CHK_GD3_ESILOR 109
@ -106,7 +111,6 @@
#define FLD_GD1_FIRMAT 166
#define FLD_GD1_FIRMAT_ANAGR_RAGSOC 167
#define CHK_GD1_ARTIG 168
#define FLD_SOCIOUNICO 193 // ATANCION!
#define FLD_GD1_DATAISCRAA 169
#define FLD_GD1_NISCRAA 170
#define FLD_GD1_COMAA 171
@ -131,6 +135,8 @@
#define FLD_GD1_RAGSOCH 190
#define FLD_GD1_MAIL 191
#define FLD_GD1_VALUTA 192
#define FLD_SOCIOUNICO 193
#define FLD_REGFISC 194
#define CHK_IN_PRESELEN 195
#define CHK_IN_CESSIVA 196
@ -145,6 +151,11 @@
#define FLD_CODEORI 205
#define FLD_GD1_PEC 206
#define FLD_GD1_PADESTIN 207
#define F_TITOLO 208
#define F_TIPOEMITT 209
#define F_EMITT 210
#define F_DESEMITT 211
#define F_INTCAF 303
#define F_DICHP 304

149
src/ba/ba4300a.uml
View File

@ -21,7 +21,7 @@ END
ENDPAGE
PAGE "Pag. 1" -1 -1 77 19
PAGE "Dati anagrafici" -1 -1 77 19
GROUPBOX DLG_NULL 76 4
BEGIN
@ -98,7 +98,7 @@ BEGIN
FLAGS "HG"
END
GROUPBOX DLG_NULL 76 6
GROUPBOX DLG_NULL 76 7
BEGIN
PROMPT 0 4 "@bAnagrafica"
END
@ -167,7 +167,7 @@ END
STRING FLD_GD1_VALUTA 3
BEGIN
PROMPT 36 8 "Codice valuta di riferimento"
PROMPT 25 8 "Valuta di riferimento"
FIELD VALUTA
USE %VAL
INPUT CODTAB FLD_GD1_VALUTA
@ -178,14 +178,45 @@ BEGIN
FLAGS "DU"
END
GOLEM FLD_GD1_OGGETTI 10 2
BEGIN
PROMPT 55 8 ""
FIELD OGGETTI
FLAGS "M"
END
LIST FLD_REGFISC 30
BEGIN
PROMPT 1 9 "Regime Fiscale "
ITEM "RF01|RF01 Ordinario"
ITEM "RF02|RF02 Contribuenti minimi"
ITEM "RF04|RF04 Agricoltura e pesca"
ITEM "RF05|RF05 Vendita sali e tabacchi"
ITEM "RF06|RF06 Commercio fiammiferi"
ITEM "RF07|RF07 Editoria"
ITEM "RF08|RF08 Gest. servizi tel. pub."
ITEM "RF09|RF09 Rivendita DdT"
ITEM "RF10|RF10 Intr., giochi"
ITEM "RF11|RF11 Agenzie viaggi e turismo"
ITEM "RF12|RF12 Agriturismo"
ITEM "RF13|RF13 Vendite a domicilio"
ITEM "RF14|RF14 Riv. usato arte col."
ITEM "RF15|RF15 Asta d’arte, col."
ITEM "RF16|RF16 IVA per cassa P.A."
ITEM "RF17|RF17 IVA per cassa"
ITEM "RF18|RF18 Altro"
ITEM "RF19|RF19 Regime forfettario"
FIELD REGFISC
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 10 "@bAttività prevalente"
PROMPT 0 11 "@bAttività prevalente"
END
STRING FLD_GD1_CODATTPREV 5
BEGIN
PROMPT 1 11 "Codice "
PROMPT 1 12 "Codice "
FIELD LF_NDITTE->CODATTPREV
FLAGS "URZ"
USE %AIS
@ -201,7 +232,7 @@ END
STRING FLD_GD1_CODATTPREV_TABATT_DESCR 50
BEGIN
PROMPT 1 12 "Descrizione "
PROMPT 1 13 "Descrizione "
USE %AIS KEY 2
INPUT S0 FLD_GD1_CODATTPREV_TABATT_DESCR
DISPLAY "Attivita'@50" S0
@ -214,57 +245,50 @@ END
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 14 "@bRecapiti telefonici e telematici"
PROMPT 0 15 "@bRecapiti telefonici e telematici"
END
STRING FLD_GD1_PTEL 10
BEGIN
PROMPT 1 15 "Telefono : Prefisso "
PROMPT 1 16 "Telefono : Prefisso "
FIELD LF_NDITTE->PTEL
HELP "Prefisso telefonico della ditta"
END
STRING FLD_GD1_TEL 30
BEGIN
PROMPT 34 15 "Numero "
PROMPT 34 16 "Numero "
FIELD LF_NDITTE->TEL
HELP "Numero telefonico della ditta"
END
STRING FLD_GD1_PFAX 10
BEGIN
PROMPT 1 16 "FAX : Prefisso "
PROMPT 1 17 "FAX : Prefisso "
FIELD LF_NDITTE->PFAX
HELP "Prefisso telefonico del fax della ditta"
END
STRING FLD_GD1_FAX 30
BEGIN
PROMPT 34 16 "Numero "
PROMPT 34 17 "Numero "
FIELD LF_NDITTE->FAX
HELP "Numero telefonico del fax della ditta"
END
STRING FLD_GD1_MAIL 50
BEGIN
PROMPT 1 17 "E-Mail : "
PROMPT 1 18 "E-Mail : "
FIELD LF_NDITTE->MAIL
HELP "Indirizzo e-mail della ditta"
END
STRING FLD_GD1_PEC 80 50
BEGIN
PROMPT 1 18 "Pec : "
PROMPT 1 19 "Pec : "
FIELD PEC
END
GOLEM FLD_GD1_OGGETTI 10 2
BEGIN
PROMPT 64 20 ""
FIELD OGGETTI
FLAGS "M"
END
BUTTON DLG_ATT 10 2
BEGIN
PROMPT -14 -1 "~Attivita'"
@ -291,7 +315,7 @@ END
ENDPAGE
PAGE "Pag. 2" -1 -1 77 18
PAGE "Iscrizioni e parametri" -1 -1 77 18
GROUPBOX DLG_NULL 76 4
BEGIN
@ -443,7 +467,7 @@ END
ENDPAGE
PAGE "Pag. 3" -1 -1 77 18
PAGE "Dati attività e banca" -1 -1 77 18
GROUPBOX DLG_NULL 76 4
BEGIN
@ -632,7 +656,7 @@ END
ENDPAGE
PAGE "Pag. 4" -1 -1 77 18
PAGE "Cariche e firmatari" -1 -1 77 18
GROUPBOX DLG_NULL 76 4
BEGIN
@ -654,13 +678,21 @@ BEGIN
GROUP 2
END
STRING FLD_GD3_FIRMAT 5
LIST LST_GD3_TIPOF 1 10
BEGIN
PROMPT 1 4 "Intermediario "
ITEM "F|Fisica"
ITEM "G|Giuridica"
FIELD LF_NDITTE->TIPOF
END
STRING FLD_GD3_FIRMAT 5
BEGIN
PROMPT 30 4 ""
FIELD LF_NDITTE->FIRMAT
FLAGS "R"
USE LF_ANAG KEY 1
INPUT TIPOA "F"
INPUT TIPOA LST_GD3_TIPOF SELECT
INPUT CODANAGR FLD_GD3_FIRMAT
DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR
@ -670,7 +702,7 @@ BEGIN
HELP "Codice anagrafico dell'intermediario"
CHECKTYPE NORMAL
WARNING "Anagrafica assente"
ADD RUN ba4 -1
ADD RUN ba4 -1 #LST_GD3_TIPOF
END
STRING FLD_GD3_FIRMAT_ANAGR_RAGSOC 50
@ -678,14 +710,14 @@ BEGIN
PROMPT 17 5 ""
HELP "Nome dell'intermediario"
USE LF_ANAG KEY 2
INPUT TIPOA "F"
INPUT TIPOA LST_GD3_TIPOF SELECT
INPUT RAGSOC FLD_GD3_FIRMAT_ANAGR_RAGSOC
DISPLAY "Nome@50" RAGSOC
DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR
OUTPUT FLD_GD3_FIRMAT CODANAGR
OUTPUT FLD_GD3_FIRMAT_ANAGR_RAGSOC RAGSOC
ADD RUN ba4 -1
ADD RUN ba4 -1 #LST_GD3_TIPOF
END
STRING F_INTCAF 10
@ -810,7 +842,7 @@ BEGIN
HELP "Codice dell'anagrafica del rappresentante legale"
CHECKTYPE NORMAL
WARNING "Anagrafica assente"
ADD RUN ba4 -1
ADD RUN ba4 -1 F
END
STRING FLD_GD3_RAPPR_ANAGR_RAGSOC 50
@ -822,7 +854,7 @@ BEGIN
COPY DISPLAY FLD_GD3_FIRMAT_ANAGR_RAGSOC
OUTPUT FLD_GD3_RAPPR CODANAGR
OUTPUT FLD_GD3_RAPPR_ANAGR_RAGSOC RAGSOC
ADD RUN ba4 -1
ADD RUN ba4 -1 F
GROUP 4
END
@ -897,7 +929,7 @@ END
ENDPAGE
PAGE "Pag. 5" -1 -1 77 18
PAGE "INTRA" -1 -1 77 18
GROUPBOX DLG_NULL 76 4
BEGIN
@ -1018,6 +1050,61 @@ BEGIN
ADD RUN ba4 -1
END
STRING F_TITOLO 2
BEGIN
PROMPT 2 17 "Titolo onorifico "
FIELD TITOLO
USE %TIT
INPUT CODTAB F_TITOLO
DISPLAY "Codice titolo " CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TITOLO CODTAB
HELP "Codice del titolo onorifico"
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 1 19 "@bSoggetto Emittente/Intemediario"
FLAGS "R"
END
LIST F_TIPOEMITT 1 10
BEGIN
PROMPT 2 20 "Tipo persona "
ITEM "F|Fisica"
ITEM "G|Giuridica"
FIELD TIPOEMITT
END
NUMBER F_EMITT 6
BEGIN
PROMPT 35 20 "Codice "
USE LF_ANAG
INPUT TIPOA F_TIPOEMITT SELECT
INPUT CODANAGR F_EMITT
DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR
DISPLAY "Denominazione@50" RAGSOC
OUTPUT F_EMITT CODANAGR
OUTPUT F_DESEMITT RAGSOC
FIELD EMITT
CHECKTYPE NORMAL
ADD RUN ba4 -1
END
STRING F_DESEMITT 50
BEGIN
PROMPT 2 21 "Denominazione "
USE LF_ANAG KEY 2
INPUT TIPOA F_TIPOEMITT SELECT
INPUT RAGSOC F_DESEMITT
DISPLAY "Denominazione@50" RAGSOC
DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR
COPY OUTPUT F_EMITT
CHECKTYPE NORMAL
ADD RUN ba4 -1
END
ENDPAGE
ENDMASK

7
src/ba/bamenu.men
View File

@ -8,9 +8,10 @@ Item_02 = "Amministrazione", <cgarea.men>, "", 10212
Item_03 = "Acquisti e vendite", <vearea.men>, "", 10211
Item_04 = "Magazzino e Produzione", <mgarea.men>, "", 10215
Item_05 = "Fatturazione Elettronica", <fpmenu.men>, "", 10239
Item_06 = "Gestione Lavanderie", <lvmenu.men>, "", 10220
Item_07 = "Manutenzione", [MENU_015], "", 10210
Item_08 = "Preferiti", [MENU_PREFERITI], "", 10216
Item_06 = "Fatturazione Elettronica (FePa)", <fpmenuf.men>, "", 10239
Item_07 = "Gestione Lavanderie", <lvmenu.men>, "", 10220
Item_08 = "Manutenzione", [MENU_015], "", 10210
Item_09 = "Preferiti", [MENU_PREFERITI], "", 10216
[MENU_001]
Caption = "Gestione Anagrafiche"