From 9d6307bb7edbca326f23b3fcd7d42bf4f87e8bc6 Mon Sep 17 00:00:00 2001 From: luciano Date: Fri, 20 Dec 1996 16:15:08 +0000 Subject: [PATCH] Tolti i bastardi ControlM git-svn-id: svn://10.65.10.50/trunk@4029 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- m770/770100a.uml | 332 +++--- m770/771100.cpp | 1578 +++++++++++++------------- m770/771100.h | 242 ++-- m770/771100a.uml | 528 ++++----- m770/771100b.uml | 654 +++++------ m770/771100c.uml | 568 +++++----- m770/771100d.uml | 382 +++---- m770/771100e.uml | 412 +++---- m770/771100f.uml | 270 ++--- m770/771100g.uml | 520 ++++----- m770/771100h.uml | 428 +++---- m770/771150a.uml | 1020 ++++++++--------- m770/771200.cpp | 2034 ++++++++++++++++----------------- m770/771200.h | 378 +++---- m770/771200a.uml | 264 ++--- m770/771200b.uml | 2000 ++++++++++++++++----------------- m770/771200c.uml | 246 ++-- m770/771200d.uml | 612 +++++----- m770/771200e.uml | 254 ++--- m770/771200f.uml | 834 +++++++------- m770/771200g.uml | 244 ++-- m770/771200h.uml | 450 ++++---- m770/771200i.uml | 214 ++-- m770/771234a.uml | 722 ++++++------ m770/771300a.uml | 2780 +++++++++++++++++++++++----------------------- m770/771400a.uml | 1050 ++++++++--------- m770/771400b.uml | 984 ++++++++-------- m770/775100.cpp | 316 +++--- m770/775100a.uml | 182 +-- m770/776100b.uml | 2476 ++++++++++++++++++++--------------------- m770/776500a.uml | 322 +++--- m770/776600.cpp | 394 +++---- m770/776600a.uml | 196 ++-- m770/77qaall.uml | 96 +- 34 files changed, 11991 insertions(+), 11991 deletions(-) diff --git a/m770/770100a.uml b/m770/770100a.uml index 8a6547fdc..43f453951 100755 --- a/m770/770100a.uml +++ b/m770/770100a.uml @@ -1,166 +1,166 @@ -#include "770100a.h" -TOOLBAR "" 0 18 0 4 - -BUTTON F_GESTPERC 22 2 -BEGIN - PROMPT -13 -3 "~Percipienti" - MESSAGE RUN,775,-0,#F_CODDITTA,#F_TIPOA,#F_CODANAGR -END - -#include - -ENDPAGE - -PAGE "Scheda percipienti" -1 -1 78 21 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "RDG" - KEY 1 - CHECKTYPE REQUIRED - USE LF_NDITTE KEY 1 - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale @50" RAGSOC - OUTPUT F_RAGDITTA RAGSOC - FIELD LF_SCPERC->CODDITTA -END - -STRING F_RAGDITTA 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "D" -END - -NUMBER F_ANNODIC 4 -BEGIN - PROMPT 52 4 "Anno dichiarazione " - FLAGS "DR" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 7 "@bDati percipiente" -END - -LIST F_TIPOA 1 9 -BEGIN - PROMPT 1 8 "" - ITEM "F|Fisica" - ITEM "G|Giuridica" - KEY 1 - FIELD LF_SCPERC->TIPOA -END - -NUMBER F_CODANAGR 5 -BEGIN - PROMPT 80 80 "" - FLAGS "D" - FIELD LF_SCPERC->CODANAGR - CHECKTYPE REQUIRED - KEY 1 -END - -NUMBER F_CODANAGRPERC 5 -BEGIN - PROMPT 15 8 "" - USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (TIPOA=#F_TIPOA)) - 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 - MESSAGE COPY, F_CODANAGR - ADD RUN 775 -0 - GROUP 2 -END - -NUMBER F_CODANAGRCOM 5 -BEGIN - PROMPT 15 8 "" - USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA) - INPUT TIPOA F_TIPOA - INPUT CODANAGR F_CODANAGRCOM - DISPLAY "Tipo " TIPOA - DISPLAY "Codice " CODANAGR - DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC - OUTPUT F_TIPOA TIPOA - OUTPUT F_CODANAGRCOM CODANAGR - OUTPUT F_RAGSOCCOM RAGSOC - MESSAGE COPY, F_CODANAGR - MESSAGE COPY, F_CODANAGRPERC - ADD RUN BA4 -1 - FLAGS "H" - GROUP 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 25 8 "" - FLAGS "H" -END - -STRING F_RAGSOCCOM 50 -BEGIN - PROMPT 25 8 "" - USE LF_ANAG KEY 2 - INPUT RAGSOC F_RAGSOCCOM - DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC - DISPLAY "Tipo" TIPOA - DISPLAY "Codice" CODANAGR - OUTPUT F_RAGSOCCOM RAGSOC - OUTPUT F_CODANAGRCOM CODANAGR - OUTPUT F_TIPOA TIPOA - ADD RUN BA4 -1 - MESSAGE COPY, F_RAGSOC - MESSAGE COPY, F_RAGSOCPER - GROUP 1 -END - -STRING F_RAGSOCPER 50 -BEGIN - PROMPT 25 8 "" - FLAGS "D" - GROUP 2 - MESSAGE COPY, F_RAGSOC -END - -NUMBER F_NPROG 6 -BEGIN - PROMPT 1 10 "@bScheda numero " - CHECKTYPE REQUIRED - KEY 1 - FIELD LF_SCPERC->NPROG - USE LF_SCPERC - INPUT CODDITTA F_CODDITTA SELECT - INPUT TIPOA F_TIPOA SELECT - INPUT CODANAGR F_CODANAGR SELECT - INPUT NPROG F_NPROG - DISPLAY "N°" NPROG - DISPLAY "Data doc.@10" DATADOC - DISPLAY "Num.@8" NUMDOC - DISPLAY "Cau." CODCAUS - DISPLAY "Tot. doc.@15" TOTALE - DISPLAY "Compenso@15" COMPENSO - DISPLAY "Spese@15" SPESE - DISPLAY "Iva@15" IVA - OUTPUT F_TIPOA TIPOA - OUTPUT F_CODANAGR CODANAGR - OUTPUT F_NPROG NPROG -END - -ENDPAGE - -ENDMASK - +#include "770100a.h" +TOOLBAR "" 0 18 0 4 + +BUTTON F_GESTPERC 22 2 +BEGIN + PROMPT -13 -3 "~Percipienti" + MESSAGE RUN,775,-0,#F_CODDITTA,#F_TIPOA,#F_CODANAGR +END + +#include + +ENDPAGE + +PAGE "Scheda percipienti" -1 -1 78 21 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "RDG" + KEY 1 + CHECKTYPE REQUIRED + USE LF_NDITTE KEY 1 + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale @50" RAGSOC + OUTPUT F_RAGDITTA RAGSOC + FIELD LF_SCPERC->CODDITTA +END + +STRING F_RAGDITTA 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "D" +END + +NUMBER F_ANNODIC 4 +BEGIN + PROMPT 52 4 "Anno dichiarazione " + FLAGS "DR" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 7 "@bDati percipiente" +END + +LIST F_TIPOA 1 9 +BEGIN + PROMPT 1 8 "" + ITEM "F|Fisica" + ITEM "G|Giuridica" + KEY 1 + FIELD LF_SCPERC->TIPOA +END + +NUMBER F_CODANAGR 5 +BEGIN + PROMPT 80 80 "" + FLAGS "D" + FIELD LF_SCPERC->CODANAGR + CHECKTYPE REQUIRED + KEY 1 +END + +NUMBER F_CODANAGRPERC 5 +BEGIN + PROMPT 15 8 "" + USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (TIPOA=#F_TIPOA)) + 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 + MESSAGE COPY, F_CODANAGR + ADD RUN 775 -0 + GROUP 2 +END + +NUMBER F_CODANAGRCOM 5 +BEGIN + PROMPT 15 8 "" + USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA) + INPUT TIPOA F_TIPOA + INPUT CODANAGR F_CODANAGRCOM + DISPLAY "Tipo " TIPOA + DISPLAY "Codice " CODANAGR + DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC + OUTPUT F_TIPOA TIPOA + OUTPUT F_CODANAGRCOM CODANAGR + OUTPUT F_RAGSOCCOM RAGSOC + MESSAGE COPY, F_CODANAGR + MESSAGE COPY, F_CODANAGRPERC + ADD RUN BA4 -1 + FLAGS "H" + GROUP 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 25 8 "" + FLAGS "H" +END + +STRING F_RAGSOCCOM 50 +BEGIN + PROMPT 25 8 "" + USE LF_ANAG KEY 2 + INPUT RAGSOC F_RAGSOCCOM + DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC + DISPLAY "Tipo" TIPOA + DISPLAY "Codice" CODANAGR + OUTPUT F_RAGSOCCOM RAGSOC + OUTPUT F_CODANAGRCOM CODANAGR + OUTPUT F_TIPOA TIPOA + ADD RUN BA4 -1 + MESSAGE COPY, F_RAGSOC + MESSAGE COPY, F_RAGSOCPER + GROUP 1 +END + +STRING F_RAGSOCPER 50 +BEGIN + PROMPT 25 8 "" + FLAGS "D" + GROUP 2 + MESSAGE COPY, F_RAGSOC +END + +NUMBER F_NPROG 6 +BEGIN + PROMPT 1 10 "@bScheda numero " + CHECKTYPE REQUIRED + KEY 1 + FIELD LF_SCPERC->NPROG + USE LF_SCPERC + INPUT CODDITTA F_CODDITTA SELECT + INPUT TIPOA F_TIPOA SELECT + INPUT CODANAGR F_CODANAGR SELECT + INPUT NPROG F_NPROG + DISPLAY "N°" NPROG + DISPLAY "Data doc.@10" DATADOC + DISPLAY "Num.@8" NUMDOC + DISPLAY "Cau." CODCAUS + DISPLAY "Tot. doc.@15" TOTALE + DISPLAY "Compenso@15" COMPENSO + DISPLAY "Spese@15" SPESE + DISPLAY "Iva@15" IVA + OUTPUT F_TIPOA TIPOA + OUTPUT F_CODANAGR CODANAGR + OUTPUT F_NPROG NPROG +END + +ENDPAGE + +ENDMASK + diff --git a/m770/771100.cpp b/m770/771100.cpp index ef44d59fc..be36cfde2 100755 --- a/m770/771100.cpp +++ b/m770/771100.cpp @@ -1,789 +1,789 @@ -// 771100.cpp - Manutenzione dati anagrafici -// -// 771mod -0 A : "Dichiarante" -// 771mod -0 C : "Rappresentante" -// 771mod -0 D : "Scritture contabili" -// 771mod -0 E : "Dati C.A.A.F." -// 771mod -0 F : "Direttore / Professionista" -// 771mod -0 G : "Concessione / UIDD" -// -// Lista modifiche: -// -// 1.4.96 Rappresentante: codice e carica rappr. non vengono piu' registrati -// su NDITTE ma bensi' su BASE -// -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include "771.h" -#include "771100.h" -#include "../ba/ba4200.h" -#include "../ba/ba4300.h" // per il f_coddittah -#include -#include -#include -#include "77lib.h" -#include "../ba/ba4500.h" - -class TDati_anagrafici : public TApplication -{ - private: - static bool indirizzo (TMask_field&, KEY); - static bool cod_conc (TMask_field&, KEY); - static bool niscraa (TMask_field&, KEY); - static bool ditta_caaf(TMask_field&, KEY); - static bool attivita_handler(TMask_field&, KEY); - static bool fisica_handler(TMask_field&, KEY); - static bool giuridica_handler(TMask_field&, KEY); - static bool anagrafica_handler(TMask_field&, KEY); - static bool anagr_dich_handler(TMask_field&, KEY); -// bottone ditta in DatiCAAF - static bool DCditta_handler(TMask_field&, KEY); - TMask* _msk; - TRelation* _rel; - char _ana; - long _codditta; - bool Dichiarante() const { return _ana == 'A'; } - bool Rappresentante() const { return _ana == 'C'; } - bool ScrittureContabili() const { return _ana == 'D'; } - bool DatiCAAF() const { return _ana == 'E'; } - bool DirProf() const { return _ana == 'F'; } - bool ConcUIDD() const { return _ana == 'G'; } - public: - TString _titolo; - virtual bool create(); - virtual bool destroy(); - virtual bool menu(MENU_TAG m); - bool main_loop(); - void registra(); - void registra_fis_giu(); - void registra_rappr(); - void registra_caaf(); - void registra_dirprof(); - void registra_dativari(); - static bool codditta_hnd(TMask_field& f, KEY k); - TDati_anagrafici(char anagrafica); -}; - -TDati_anagrafici::TDati_anagrafici(char anagrafica) : _titolo(50), _ana(toupper(anagrafica)) -{ - if (Dichiarante()) - _titolo = "Dichiarante"; - - if (Rappresentante()) - _titolo = "Rappresentante"; - - if (ScrittureContabili()) - _titolo = "Scritture contabili"; - - if (DatiCAAF()) - _titolo = "Dati C.A.A."; - - if (DirProf()) - _titolo = "Direttore / Professionista"; - - if (ConcUIDD()) - _titolo = "Concessione / UIDD"; -} - -HIDDEN TDati_anagrafici& app() { return (TDati_anagrafici &) main_app(); } - -bool TDati_anagrafici::codditta_hnd(TMask_field& f, KEY k) -{ - if (k == K_TAB && !(f.mask().is_running()) ) - { - TString16 codditta; codditta << app()._codditta; - if (codditta != "0") - { - f.set(codditta); - f.check(); - } - } - return TRUE; -} - -bool TDati_anagrafici::attivita_handler(TMask_field& m, KEY k) -{ - if (k != K_SPACE) - return TRUE; - - app().registra(); - m.mask().stop_run(K_ESC); - - TString appname; - - appname = "ba4 -4"; - - TString body(16); - - body << "1" << "|"; - body << m.mask().get(F_CODDITTA) << "|"; -// body << m.mask().get(F_ATTIV) << "|"; -// body << m.mask().get(F_ATTIV); - - TMessage msg(cmd2name(appname), MSG_LN, (const char*) body); - - TMailbox mb; - mb.send(msg); - TExternal_app a(appname); - a.run(); - m.set_focus(); - - return TRUE; -} - -bool TDati_anagrafici::DCditta_handler(TMask_field& f, KEY k) -{ - if (k != K_SPACE) - return TRUE; - else - { - TMask& m = f.mask(); - app().registra(); - m.stop_run(K_ESC); - const long lDittaCaaf = m.get_long(F_DITTACAAF); - TToken_string body(16); - body.add("1"); // usa la chiave 1 - body.add(lDittaCaaf); // ditta per il campo codice ditta - body.add(lDittaCaaf); // ditta per il secondo campo codice ditta - TString16 cmd("ba4 -2"); - TMessage msg(cmd2name(cmd), MSG_LN, (const char*) body); - msg.send(); - TExternal_app a(cmd); - a.run(); - m.set_focus(); - } - return TRUE; -} - -bool TDati_anagrafici::fisica_handler(TMask_field& m, KEY k) -{ - if (k != K_SPACE) - return TRUE; - - app().registra(); - m.mask().stop_run(K_ESC); - - TToken_string body(16); - - body << "1" << "|"; - body << m.mask().get(F_ANAGR); - - TString16 cmd ("ba4 -1 F"); - - TMessage msg(cmd, MSG_LN, (const char*) body); - TMailbox mb; - mb.send(msg); - - TExternal_app a(cmd); - a.run(); - - m.set_focus(); - - return FALSE; -} - -bool TDati_anagrafici::giuridica_handler(TMask_field& m, KEY k) -{ - if (k != K_SPACE) - return TRUE; - - app().registra(); - m.mask().stop_run(K_ESC); - - TToken_string body(16); - - body << "1" << "|"; - body << m.mask().get(F_ANAGR); - - TString16 cmd ("ba4 -1 G"); - - TMessage msg(cmd, MSG_LN, (const char*) body); - TMailbox mb; - mb.send(msg); - - TExternal_app a(cmd); - a.run(); - m.set_focus(); - - return FALSE; -} - -bool TDati_anagrafici::anagrafica_handler(TMask_field& m, KEY k) -{ - TString16 cmd; - - if (k != K_SPACE) - return TRUE; - - app().registra(); - m.mask().stop_run(K_ESC); - - TToken_string body(16); - - body << "1" << "|"; - body << m.mask().get(F_ANAGR); - - char tipoa = m.mask().get(ASCF_TIPOA)[0]; - - if (tipoa == 'F') - cmd = "ba4 -1 F"; - else - if (tipoa == 'G') - cmd = "ba4 -1 G"; - - TMessage msg(cmd, MSG_LN, (const char*) body); - TMailbox mb; - mb.send(msg); - - TExternal_app a(cmd); - a.run(); - - m.set_focus(); - - return FALSE; -} - -bool TDati_anagrafici::anagr_dich_handler(TMask_field& m, KEY k) -{ - TString16 cmd; - - if (k != K_SPACE) - return TRUE; - - app().registra(); - m.mask().stop_run(K_ESC); - - TToken_string body(16); - - body << "1" << "|"; - body << m.mask().get(F_ANAGR); - - char tipoa = m.mask().get(F_TIPOA)[0]; - - if (tipoa == 'F') - cmd = "ba4 -1 F"; - else - if (tipoa == 'G') - cmd = "ba4 -1 G"; - - TMessage msg(cmd, MSG_LN, (const char*) body); - TMailbox mb; - mb.send(msg); - - TExternal_app a(cmd); - a.run(); - - m.set_focus(); - - return FALSE; -} - -bool TDati_anagrafici::indirizzo (TMask_field& f, KEY k) -{ - TLocalisamfile anag (LF_ANAG, FALSE); - TLocalisamfile comuni (LF_COMUNI, FALSE); - long codanagr; - char tipoa; - TString ragione,nome,cognome,ind,civ,cap,com,prov,codcom; - - if (k == K_TAB) - { - tipoa = f.mask().get (ASCF_TIPOA)[0]; - codanagr = f.mask().get_long(F_ANAGR); - -// Ricerca sull'archivio anagrafiche dei dati relativi al depositario - anag.setkey(1); - anag.zero(); - anag.put("TIPOA", tipoa); - anag.put("CODANAGR", codanagr); - if (anag.read() == NOERR) - { - ragione = anag.get("RAGSOC"); - codcom = anag.get("COMRF"); - - if (codcom != "") - { - ind = anag.get("INDRF"); - civ = anag.get("CIVRF"); - cap = anag.get("CAPRF"); - } - else - { - ind = anag.get("INDRES"); - civ = anag.get("CIVRES"); - cap = anag.get("CAPRES"); - codcom = anag.get("COMRES"); - } - } - - if (tipoa == 'F') - { - cognome = ragione.mid(0,30); - nome = ragione.mid(30,20); - f.mask().hide(F_RAGIONE); - f.mask().show(F_COGNOME); - f.mask().show(F_NOME); - f.mask().set(F_COGNOME, cognome); - f.mask().set(F_NOME, nome); - } - else - if (tipoa == 'G') - { - f.mask().hide(F_COGNOME); - f.mask().hide(F_NOME); - f.mask().show(F_RAGIONE); - f.mask().set(F_RAGIONE, ragione); - } - - // Ricerca dati relativi al comune del depositario - - comuni.setkey(1); - comuni.zero(); - comuni.put("STATO", ""); - comuni.put("COM", codcom); - if (comuni.read() == NOERR) - { - com = comuni.get("DENCOM"); - prov = comuni.get("PROVCOM"); - } - - f.mask().set(F_IND, ind); - f.mask().set(F_CIV, civ); - f.mask().set(F_CAP, cap); - f.mask().set(F_COM, com); - f.mask().set(F_PROV, prov); - } - return TRUE; -} - -bool TDati_anagrafici::cod_conc (TMask_field& f, KEY k) -{ - TLocalisamfile anag (LF_ANAG); - TLocalisamfile comuni (LF_COMUNI); - long codanagr; - char tipoa; - int codconc,uffiidd,codcs; - TString codcom; - - if ( k == K_TAB )// && f.mask().is_running() ) - { - tipoa = f.mask().get (F_TIPOA)[0]; - codanagr = f.mask().get_long(F_ANAGR); - -// Setta il prompt del button di uscita sull'anagrafica del dichiarante -// if (tipoa == 'G') -// f.mask().field(F_ANAGR_DICH).set_prompt("Giuridiche"); -// if (tipoa == 'F') -// f.mask().field(F_ANAGR_DICH).set_prompt("Fisiche"); - -// Ricerca sull'archivio anagrafiche dei dati - anag.setkey(1); - anag.zero(); - anag.put("TIPOA", tipoa); - anag.put("CODANAGR", codanagr); - if (anag.read() == NOERR) - { - codcom = anag.get("COMRF"); - - if (codcom == "") - codcom = anag.get("COMRES"); - } - -// Ricerca dati relativi al comune - comuni.setkey(1); - comuni.zero(); - comuni.put("STATO", ""); - comuni.put("COM", codcom); - if (comuni.read() == NOERR) - { - codconc = comuni.get_int("UFFCONC"); - uffiidd = comuni.get_int("UFFIIDD1"); - codcs = comuni.get_int("UFFCSERV"); - - if (uffiidd == 0) - uffiidd = comuni.get_int("UFFIIDD2"); - - if (uffiidd == 0) - uffiidd = comuni.get_int("UFFIIDD3"); - - if (codconc != 0) - f.mask().set(F_CODCONC1, codconc); - if (uffiidd != 0) - f.mask().set(F_CODUI, uffiidd); - if (codcs != 0) - f.mask().set(F_CODCS, codcs); - - f.mask().check_field(F_CODCS); - f.mask().check_field(F_CODUI); - } - } - return TRUE; -} - - -bool TDati_anagrafici::niscraa(TMask_field& f, KEY k) -{ - if (k == K_TAB && !f.mask().is_running()) - { - TLocalisamfile base (LF_BASE); - TLocalisamfile ditte(LF_NDITTE); - TString16 niscraa = ""; - long dittacaaf = 0; - - long codditta = f.mask().get_long(F_CODDITTA); - - base.setkey(1); - base.zero(); - base.put("CODDITTA", codditta); - if (base.read() == NOERR) - { - dittacaaf = base.get_long("DITTACAAF"); - - ditte.setkey(1); - ditte.zero(); - ditte.put(NDT_CODDITTA, dittacaaf); - if (ditte.read() == NOERR) - niscraa = ditte.get(NDT_NISCRAA); - } - f.mask().set(F_NISCRAA, niscraa); - if (dittacaaf != 0) - f.mask().set(F_DITTACAAF, dittacaaf); - } - return TRUE; -} - -bool TDati_anagrafici::ditta_caaf(TMask_field& f, KEY k) -{ - if (k == K_TAB || k == K_ENTER) - { - long caaf = f.mask().get_long(F_ANAGR); - long ditta = atol(f.get()); - - if (caaf == 0 && ditta != 0) - return f.warning_box("Se non indicato il codice del CAAF la ditta non deve essere indicata"); - - if (caaf != 0 && ditta == 0) - return f.warning_box("Se indicato il codice del CAAF deve essere indicata anche la ditta a cui e' collegato"); - } - return TRUE; -} - -bool TDati_anagrafici::create() -{ - TApplication::create(); - _rel = new TRelation (LF_NDITTE); - _rel->add(LF_BASE, "CODDITTA=CODDITTA"); - _rel->add(LF_BASEBIS, "CODDITTA=CODDITTA"); - - _codditta = get_firm_770(); - - if (Dichiarante()) - { - char tipo_pers = tipo_persona(_codditta); - if (tipo_pers == ' ' || tipo_pers == '\0') - { - message_box("Il titolare della ditta non e' stato compilato correttamente."); - return TRUE; - } - if (tipo_pers == 'G') - { - _msk = new TMask ("771100b"); - _msk->set_handler(F_GIURIDICA, giuridica_handler); - } - else - if (tipo_pers == 'F') - { - _msk = new TMask ("771100a"); - _msk->set_handler(F_FISICA, fisica_handler); - } - _msk->set_handler(F_ATTIVITA, attivita_handler); - } - - if (Rappresentante()) - { - _msk = new TMask ("771100c"); - _msk->set_handler(F_FISICA, fisica_handler); - } - - if (ScrittureContabili()) - { - _msk = new TMask ("771100d"); - _msk->set_handler(F_ANAGR, indirizzo); - _msk->set_handler(F_ATTIVITA, attivita_handler); - _msk->set_handler(F_ANAGRAFICA, anagrafica_handler); - } - - if (DatiCAAF()) - { - _msk = new TMask ("771100e"); - _msk->set_handler(F_ANAGR, niscraa); - _msk->set_handler(F_GIURIDICA, giuridica_handler); - _msk->set_handler(F_DITTACAAF, ditta_caaf); -// bottone ditte - _msk->set_handler(DCF_DITTA, DCditta_handler); - _msk->set_mode(NO_MODE); - } - - if (DirProf()) - { - _msk = new TMask ("771100f"); - _msk->set_handler(F_FISICA, fisica_handler); - } - - if (ConcUIDD()) - { - _msk = new TMask ("771100g"); - _msk->field(F_CODCONC2).set_dirty(); - _msk->set_handler(F_CODCONC2, cod_conc); - _msk->set_handler(F_BTN_GIURIDICA, anagr_dich_handler); - _msk->set_handler(F_BTN_FISICA, anagr_dich_handler); - } - - TString16 codditta; codditta << _codditta; - if (codditta != "0") - _msk->set(F_CODDITTA,codditta); - - dispatch_e_menu (BAR_ITEM(1)); - - return TRUE; -} - -bool TDati_anagrafici::destroy() -{ - delete _msk; - delete _rel; - return TApplication::destroy(); -} - -bool TDati_anagrafici::main_loop() -{ - KEY tasto = K_ESC; - _msk->open_modal(); - - while (tasto != K_QUIT) - { - _rel->lfile().put("CODDITTA", _codditta); - _rel->read(); - _msk->autoload(*_rel); - tasto = _msk->run(); - - switch (tasto) - { - case K_ESC : - break; - case K_QUIT : - break; - case K_SAVE : - registra(); - break; - default: - break; - } - } - - _msk->close(); - return FALSE; -} - -void TDati_anagrafici::registra() -{ - if (_ana == 'A' || _ana == 'B') - registra_fis_giu(); - - if (_ana == 'C') - registra_rappr(); - - if (_ana == 'E') - registra_caaf(); - - if (_ana == 'F') - registra_dirprof(); - - if (_ana == 'G') - registra_dativari(); -} - -void TDati_anagrafici::registra_fis_giu() -{ - TLocalisamfile base(LF_BASE); - long codditta; - - codditta = _msk->get_long(F_CODDITTA); - - base.setkey(1); - base.zero(); - base.put("CODDITTA", codditta); - if (base.read() == NOERR) - { - int rss = _msk->get_int(F_RSS); - base.put("RSS", rss); - base.rewrite(); - } - else - { - int rss = _msk->get_int(F_RSS); - base.zero(); - base.put("CODDITTA", codditta); - base.put("RSS", rss); - base.write(); - } -} - -void TDati_anagrafici::registra_rappr() -{ - TLocalisamfile base(LF_BASE); - const long codditta = _msk->get_long(F_CODDITTA); - const long CodiceRappr = _msk->get_long(F_ANAGR); - const int CaricaRappr = _msk->get_int(F_CARRAP); - - base.setkey(1); - base.zero(); - base.put("CODDITTA", codditta); - if (base.read() == NOERR) - { - base.put("RAPPR", CodiceRappr); - base.put("CARRAPP", CaricaRappr); - base.rewrite(); - } - else - { - base.zero(); - base.put("RAPPR", CodiceRappr); - base.put("CARRAPP", CaricaRappr); - base.write(); - } -} - -void TDati_anagrafici::registra_caaf() -{ - TLocalisamfile ditte(LF_NDITTE); - TLocalisamfile base (LF_BASE); - long codditta; - char tipoa = 'G'; - -// Registro il codice caaf sull'archivio base - codditta = _msk->get_long(F_CODDITTA); - - base.setkey(1); - base.zero(); - base.put("CODDITTA", codditta); - if (base.read() == NOERR) - { - long codice = _msk->get_long(F_ANAGR); - long dittacaaf = _msk->get_long(F_DITTACAAF); - - base.put("CODCAAF", codice); - base.put("DITTACAAF", dittacaaf); - base.rewrite(); - } - else - { - long codice = _msk->get_long(F_ANAGR); - long dittacaaf = _msk->get_long(F_DITTACAAF); - - base.zero(); - base.put("CODDITTA", codditta); - base.put("CODCAAF", codice); - base.put("DITTACAAF", dittacaaf); - base.write(); - } -} - -void TDati_anagrafici::registra_dirprof() -{ - TLocalisamfile base (LF_BASE); - long codditta; - - codditta = _msk->get_long(F_CODDITTA); - - base.setkey(1); - base.zero(); - base.put("CODDITTA", codditta); - if (base.read() == NOERR) - { - long codpro = _msk->get_long(F_ANAGR); - bool flart4 = _msk->get_bool(F_CONTROLLI); - - base.put("CODPRO", codpro); - base.put("FLART4", flart4); - base.rewrite(); - } - else - { - long codpro = _msk->get_long(F_ANAGR); - bool flart4 = _msk->get_bool(F_CONTROLLI); - - base.zero(); - base.put("CODDITTA", codditta); - base.put("CODPRO", codpro); - base.put("FLART4", flart4); - base.write(); - } -} - -void TDati_anagrafici::registra_dativari() -{ - TLocalisamfile base(LF_BASEBIS); - long codditta; - - codditta = _msk->get_long(F_CODDITTA); - - base.setkey(1); - base.zero(); - base.put("CODDITTA", codditta); - if (base.read() == NOERR) - { - TString16 codconc1(_msk->get(F_CODCONC1)); - TString16 codconc2(_msk->get(F_CODCONC2)); - TString16 codconc3(_msk->get(F_CODCONC3)); - int codtes1 = _msk->get_int(F_CODTES1); - int codtes2 = _msk->get_int(F_CODTES2); - int codtes3 = _msk->get_int(F_CODTES3); - base.put("L0CCONC1", codconc1); - base.put("L0CCONC2", codconc2); - base.put("L0CCONC3", codconc3); - base.put("L0CTES1", codtes1); - base.put("L0CTES2", codtes2); - base.put("L0CTES3", codtes3); - base.rewrite(); - } - else - { - TString16 codconc1(_msk->get(F_CODCONC1)); - TString16 codconc2(_msk->get(F_CODCONC2)); - TString16 codconc3(_msk->get_int(F_CODCONC3)); - int codtes1 = _msk->get_int(F_CODTES1); - int codtes2 = _msk->get_int(F_CODTES2); - int codtes3 = _msk->get_int(F_CODTES3); - base.zero(); - base.put("CODDITTA", codditta); - base.put("L0CCONC1", codconc1); - base.put("L0CCONC2", codconc2); - base.put("L0CCONC3", codconc3); - base.put("L0CTES1", codtes1); - base.put("L0CTES2", codtes2); - base.put("L0CTES3", codtes3); - base.write(); - } -} - -bool TDati_anagrafici::menu(MENU_TAG m) -{ - if (m == BAR_ITEM(1)) - return main_loop(); - return FALSE; -} - -int m71100 (int argc, char* argv[]) -{ - TDati_anagrafici main_app(*argv[2]); - main_app.run(argc, argv, main_app._titolo); - return TRUE; -} +// 771100.cpp - Manutenzione dati anagrafici +// +// 771mod -0 A : "Dichiarante" +// 771mod -0 C : "Rappresentante" +// 771mod -0 D : "Scritture contabili" +// 771mod -0 E : "Dati C.A.A.F." +// 771mod -0 F : "Direttore / Professionista" +// 771mod -0 G : "Concessione / UIDD" +// +// Lista modifiche: +// +// 1.4.96 Rappresentante: codice e carica rappr. non vengono piu' registrati +// su NDITTE ma bensi' su BASE +// +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include "771.h" +#include "771100.h" +#include "../ba/ba4200.h" +#include "../ba/ba4300.h" // per il f_coddittah +#include +#include +#include +#include "77lib.h" +#include "../ba/ba4500.h" + +class TDati_anagrafici : public TApplication +{ + private: + static bool indirizzo (TMask_field&, KEY); + static bool cod_conc (TMask_field&, KEY); + static bool niscraa (TMask_field&, KEY); + static bool ditta_caaf(TMask_field&, KEY); + static bool attivita_handler(TMask_field&, KEY); + static bool fisica_handler(TMask_field&, KEY); + static bool giuridica_handler(TMask_field&, KEY); + static bool anagrafica_handler(TMask_field&, KEY); + static bool anagr_dich_handler(TMask_field&, KEY); +// bottone ditta in DatiCAAF + static bool DCditta_handler(TMask_field&, KEY); + TMask* _msk; + TRelation* _rel; + char _ana; + long _codditta; + bool Dichiarante() const { return _ana == 'A'; } + bool Rappresentante() const { return _ana == 'C'; } + bool ScrittureContabili() const { return _ana == 'D'; } + bool DatiCAAF() const { return _ana == 'E'; } + bool DirProf() const { return _ana == 'F'; } + bool ConcUIDD() const { return _ana == 'G'; } + public: + TString _titolo; + virtual bool create(); + virtual bool destroy(); + virtual bool menu(MENU_TAG m); + bool main_loop(); + void registra(); + void registra_fis_giu(); + void registra_rappr(); + void registra_caaf(); + void registra_dirprof(); + void registra_dativari(); + static bool codditta_hnd(TMask_field& f, KEY k); + TDati_anagrafici(char anagrafica); +}; + +TDati_anagrafici::TDati_anagrafici(char anagrafica) : _titolo(50), _ana(toupper(anagrafica)) +{ + if (Dichiarante()) + _titolo = "Dichiarante"; + + if (Rappresentante()) + _titolo = "Rappresentante"; + + if (ScrittureContabili()) + _titolo = "Scritture contabili"; + + if (DatiCAAF()) + _titolo = "Dati C.A.A."; + + if (DirProf()) + _titolo = "Direttore / Professionista"; + + if (ConcUIDD()) + _titolo = "Concessione / UIDD"; +} + +HIDDEN TDati_anagrafici& app() { return (TDati_anagrafici &) main_app(); } + +bool TDati_anagrafici::codditta_hnd(TMask_field& f, KEY k) +{ + if (k == K_TAB && !(f.mask().is_running()) ) + { + TString16 codditta; codditta << app()._codditta; + if (codditta != "0") + { + f.set(codditta); + f.check(); + } + } + return TRUE; +} + +bool TDati_anagrafici::attivita_handler(TMask_field& m, KEY k) +{ + if (k != K_SPACE) + return TRUE; + + app().registra(); + m.mask().stop_run(K_ESC); + + TString appname; + + appname = "ba4 -4"; + + TString body(16); + + body << "1" << "|"; + body << m.mask().get(F_CODDITTA) << "|"; +// body << m.mask().get(F_ATTIV) << "|"; +// body << m.mask().get(F_ATTIV); + + TMessage msg(cmd2name(appname), MSG_LN, (const char*) body); + + TMailbox mb; + mb.send(msg); + TExternal_app a(appname); + a.run(); + m.set_focus(); + + return TRUE; +} + +bool TDati_anagrafici::DCditta_handler(TMask_field& f, KEY k) +{ + if (k != K_SPACE) + return TRUE; + else + { + TMask& m = f.mask(); + app().registra(); + m.stop_run(K_ESC); + const long lDittaCaaf = m.get_long(F_DITTACAAF); + TToken_string body(16); + body.add("1"); // usa la chiave 1 + body.add(lDittaCaaf); // ditta per il campo codice ditta + body.add(lDittaCaaf); // ditta per il secondo campo codice ditta + TString16 cmd("ba4 -2"); + TMessage msg(cmd2name(cmd), MSG_LN, (const char*) body); + msg.send(); + TExternal_app a(cmd); + a.run(); + m.set_focus(); + } + return TRUE; +} + +bool TDati_anagrafici::fisica_handler(TMask_field& m, KEY k) +{ + if (k != K_SPACE) + return TRUE; + + app().registra(); + m.mask().stop_run(K_ESC); + + TToken_string body(16); + + body << "1" << "|"; + body << m.mask().get(F_ANAGR); + + TString16 cmd ("ba4 -1 F"); + + TMessage msg(cmd, MSG_LN, (const char*) body); + TMailbox mb; + mb.send(msg); + + TExternal_app a(cmd); + a.run(); + + m.set_focus(); + + return FALSE; +} + +bool TDati_anagrafici::giuridica_handler(TMask_field& m, KEY k) +{ + if (k != K_SPACE) + return TRUE; + + app().registra(); + m.mask().stop_run(K_ESC); + + TToken_string body(16); + + body << "1" << "|"; + body << m.mask().get(F_ANAGR); + + TString16 cmd ("ba4 -1 G"); + + TMessage msg(cmd, MSG_LN, (const char*) body); + TMailbox mb; + mb.send(msg); + + TExternal_app a(cmd); + a.run(); + m.set_focus(); + + return FALSE; +} + +bool TDati_anagrafici::anagrafica_handler(TMask_field& m, KEY k) +{ + TString16 cmd; + + if (k != K_SPACE) + return TRUE; + + app().registra(); + m.mask().stop_run(K_ESC); + + TToken_string body(16); + + body << "1" << "|"; + body << m.mask().get(F_ANAGR); + + char tipoa = m.mask().get(ASCF_TIPOA)[0]; + + if (tipoa == 'F') + cmd = "ba4 -1 F"; + else + if (tipoa == 'G') + cmd = "ba4 -1 G"; + + TMessage msg(cmd, MSG_LN, (const char*) body); + TMailbox mb; + mb.send(msg); + + TExternal_app a(cmd); + a.run(); + + m.set_focus(); + + return FALSE; +} + +bool TDati_anagrafici::anagr_dich_handler(TMask_field& m, KEY k) +{ + TString16 cmd; + + if (k != K_SPACE) + return TRUE; + + app().registra(); + m.mask().stop_run(K_ESC); + + TToken_string body(16); + + body << "1" << "|"; + body << m.mask().get(F_ANAGR); + + char tipoa = m.mask().get(F_TIPOA)[0]; + + if (tipoa == 'F') + cmd = "ba4 -1 F"; + else + if (tipoa == 'G') + cmd = "ba4 -1 G"; + + TMessage msg(cmd, MSG_LN, (const char*) body); + TMailbox mb; + mb.send(msg); + + TExternal_app a(cmd); + a.run(); + + m.set_focus(); + + return FALSE; +} + +bool TDati_anagrafici::indirizzo (TMask_field& f, KEY k) +{ + TLocalisamfile anag (LF_ANAG, FALSE); + TLocalisamfile comuni (LF_COMUNI, FALSE); + long codanagr; + char tipoa; + TString ragione,nome,cognome,ind,civ,cap,com,prov,codcom; + + if (k == K_TAB) + { + tipoa = f.mask().get (ASCF_TIPOA)[0]; + codanagr = f.mask().get_long(F_ANAGR); + +// Ricerca sull'archivio anagrafiche dei dati relativi al depositario + anag.setkey(1); + anag.zero(); + anag.put("TIPOA", tipoa); + anag.put("CODANAGR", codanagr); + if (anag.read() == NOERR) + { + ragione = anag.get("RAGSOC"); + codcom = anag.get("COMRF"); + + if (codcom != "") + { + ind = anag.get("INDRF"); + civ = anag.get("CIVRF"); + cap = anag.get("CAPRF"); + } + else + { + ind = anag.get("INDRES"); + civ = anag.get("CIVRES"); + cap = anag.get("CAPRES"); + codcom = anag.get("COMRES"); + } + } + + if (tipoa == 'F') + { + cognome = ragione.mid(0,30); + nome = ragione.mid(30,20); + f.mask().hide(F_RAGIONE); + f.mask().show(F_COGNOME); + f.mask().show(F_NOME); + f.mask().set(F_COGNOME, cognome); + f.mask().set(F_NOME, nome); + } + else + if (tipoa == 'G') + { + f.mask().hide(F_COGNOME); + f.mask().hide(F_NOME); + f.mask().show(F_RAGIONE); + f.mask().set(F_RAGIONE, ragione); + } + + // Ricerca dati relativi al comune del depositario + + comuni.setkey(1); + comuni.zero(); + comuni.put("STATO", ""); + comuni.put("COM", codcom); + if (comuni.read() == NOERR) + { + com = comuni.get("DENCOM"); + prov = comuni.get("PROVCOM"); + } + + f.mask().set(F_IND, ind); + f.mask().set(F_CIV, civ); + f.mask().set(F_CAP, cap); + f.mask().set(F_COM, com); + f.mask().set(F_PROV, prov); + } + return TRUE; +} + +bool TDati_anagrafici::cod_conc (TMask_field& f, KEY k) +{ + TLocalisamfile anag (LF_ANAG); + TLocalisamfile comuni (LF_COMUNI); + long codanagr; + char tipoa; + int codconc,uffiidd,codcs; + TString codcom; + + if ( k == K_TAB )// && f.mask().is_running() ) + { + tipoa = f.mask().get (F_TIPOA)[0]; + codanagr = f.mask().get_long(F_ANAGR); + +// Setta il prompt del button di uscita sull'anagrafica del dichiarante +// if (tipoa == 'G') +// f.mask().field(F_ANAGR_DICH).set_prompt("Giuridiche"); +// if (tipoa == 'F') +// f.mask().field(F_ANAGR_DICH).set_prompt("Fisiche"); + +// Ricerca sull'archivio anagrafiche dei dati + anag.setkey(1); + anag.zero(); + anag.put("TIPOA", tipoa); + anag.put("CODANAGR", codanagr); + if (anag.read() == NOERR) + { + codcom = anag.get("COMRF"); + + if (codcom == "") + codcom = anag.get("COMRES"); + } + +// Ricerca dati relativi al comune + comuni.setkey(1); + comuni.zero(); + comuni.put("STATO", ""); + comuni.put("COM", codcom); + if (comuni.read() == NOERR) + { + codconc = comuni.get_int("UFFCONC"); + uffiidd = comuni.get_int("UFFIIDD1"); + codcs = comuni.get_int("UFFCSERV"); + + if (uffiidd == 0) + uffiidd = comuni.get_int("UFFIIDD2"); + + if (uffiidd == 0) + uffiidd = comuni.get_int("UFFIIDD3"); + + if (codconc != 0) + f.mask().set(F_CODCONC1, codconc); + if (uffiidd != 0) + f.mask().set(F_CODUI, uffiidd); + if (codcs != 0) + f.mask().set(F_CODCS, codcs); + + f.mask().check_field(F_CODCS); + f.mask().check_field(F_CODUI); + } + } + return TRUE; +} + + +bool TDati_anagrafici::niscraa(TMask_field& f, KEY k) +{ + if (k == K_TAB && !f.mask().is_running()) + { + TLocalisamfile base (LF_BASE); + TLocalisamfile ditte(LF_NDITTE); + TString16 niscraa = ""; + long dittacaaf = 0; + + long codditta = f.mask().get_long(F_CODDITTA); + + base.setkey(1); + base.zero(); + base.put("CODDITTA", codditta); + if (base.read() == NOERR) + { + dittacaaf = base.get_long("DITTACAAF"); + + ditte.setkey(1); + ditte.zero(); + ditte.put(NDT_CODDITTA, dittacaaf); + if (ditte.read() == NOERR) + niscraa = ditte.get(NDT_NISCRAA); + } + f.mask().set(F_NISCRAA, niscraa); + if (dittacaaf != 0) + f.mask().set(F_DITTACAAF, dittacaaf); + } + return TRUE; +} + +bool TDati_anagrafici::ditta_caaf(TMask_field& f, KEY k) +{ + if (k == K_TAB || k == K_ENTER) + { + long caaf = f.mask().get_long(F_ANAGR); + long ditta = atol(f.get()); + + if (caaf == 0 && ditta != 0) + return f.warning_box("Se non indicato il codice del CAAF la ditta non deve essere indicata"); + + if (caaf != 0 && ditta == 0) + return f.warning_box("Se indicato il codice del CAAF deve essere indicata anche la ditta a cui e' collegato"); + } + return TRUE; +} + +bool TDati_anagrafici::create() +{ + TApplication::create(); + _rel = new TRelation (LF_NDITTE); + _rel->add(LF_BASE, "CODDITTA=CODDITTA"); + _rel->add(LF_BASEBIS, "CODDITTA=CODDITTA"); + + _codditta = get_firm_770(); + + if (Dichiarante()) + { + char tipo_pers = tipo_persona(_codditta); + if (tipo_pers == ' ' || tipo_pers == '\0') + { + message_box("Il titolare della ditta non e' stato compilato correttamente."); + return TRUE; + } + if (tipo_pers == 'G') + { + _msk = new TMask ("771100b"); + _msk->set_handler(F_GIURIDICA, giuridica_handler); + } + else + if (tipo_pers == 'F') + { + _msk = new TMask ("771100a"); + _msk->set_handler(F_FISICA, fisica_handler); + } + _msk->set_handler(F_ATTIVITA, attivita_handler); + } + + if (Rappresentante()) + { + _msk = new TMask ("771100c"); + _msk->set_handler(F_FISICA, fisica_handler); + } + + if (ScrittureContabili()) + { + _msk = new TMask ("771100d"); + _msk->set_handler(F_ANAGR, indirizzo); + _msk->set_handler(F_ATTIVITA, attivita_handler); + _msk->set_handler(F_ANAGRAFICA, anagrafica_handler); + } + + if (DatiCAAF()) + { + _msk = new TMask ("771100e"); + _msk->set_handler(F_ANAGR, niscraa); + _msk->set_handler(F_GIURIDICA, giuridica_handler); + _msk->set_handler(F_DITTACAAF, ditta_caaf); +// bottone ditte + _msk->set_handler(DCF_DITTA, DCditta_handler); + _msk->set_mode(NO_MODE); + } + + if (DirProf()) + { + _msk = new TMask ("771100f"); + _msk->set_handler(F_FISICA, fisica_handler); + } + + if (ConcUIDD()) + { + _msk = new TMask ("771100g"); + _msk->field(F_CODCONC2).set_dirty(); + _msk->set_handler(F_CODCONC2, cod_conc); + _msk->set_handler(F_BTN_GIURIDICA, anagr_dich_handler); + _msk->set_handler(F_BTN_FISICA, anagr_dich_handler); + } + + TString16 codditta; codditta << _codditta; + if (codditta != "0") + _msk->set(F_CODDITTA,codditta); + + dispatch_e_menu (BAR_ITEM(1)); + + return TRUE; +} + +bool TDati_anagrafici::destroy() +{ + delete _msk; + delete _rel; + return TApplication::destroy(); +} + +bool TDati_anagrafici::main_loop() +{ + KEY tasto = K_ESC; + _msk->open_modal(); + + while (tasto != K_QUIT) + { + _rel->lfile().put("CODDITTA", _codditta); + _rel->read(); + _msk->autoload(*_rel); + tasto = _msk->run(); + + switch (tasto) + { + case K_ESC : + break; + case K_QUIT : + break; + case K_SAVE : + registra(); + break; + default: + break; + } + } + + _msk->close(); + return FALSE; +} + +void TDati_anagrafici::registra() +{ + if (_ana == 'A' || _ana == 'B') + registra_fis_giu(); + + if (_ana == 'C') + registra_rappr(); + + if (_ana == 'E') + registra_caaf(); + + if (_ana == 'F') + registra_dirprof(); + + if (_ana == 'G') + registra_dativari(); +} + +void TDati_anagrafici::registra_fis_giu() +{ + TLocalisamfile base(LF_BASE); + long codditta; + + codditta = _msk->get_long(F_CODDITTA); + + base.setkey(1); + base.zero(); + base.put("CODDITTA", codditta); + if (base.read() == NOERR) + { + int rss = _msk->get_int(F_RSS); + base.put("RSS", rss); + base.rewrite(); + } + else + { + int rss = _msk->get_int(F_RSS); + base.zero(); + base.put("CODDITTA", codditta); + base.put("RSS", rss); + base.write(); + } +} + +void TDati_anagrafici::registra_rappr() +{ + TLocalisamfile base(LF_BASE); + const long codditta = _msk->get_long(F_CODDITTA); + const long CodiceRappr = _msk->get_long(F_ANAGR); + const int CaricaRappr = _msk->get_int(F_CARRAP); + + base.setkey(1); + base.zero(); + base.put("CODDITTA", codditta); + if (base.read() == NOERR) + { + base.put("RAPPR", CodiceRappr); + base.put("CARRAPP", CaricaRappr); + base.rewrite(); + } + else + { + base.zero(); + base.put("RAPPR", CodiceRappr); + base.put("CARRAPP", CaricaRappr); + base.write(); + } +} + +void TDati_anagrafici::registra_caaf() +{ + TLocalisamfile ditte(LF_NDITTE); + TLocalisamfile base (LF_BASE); + long codditta; + char tipoa = 'G'; + +// Registro il codice caaf sull'archivio base + codditta = _msk->get_long(F_CODDITTA); + + base.setkey(1); + base.zero(); + base.put("CODDITTA", codditta); + if (base.read() == NOERR) + { + long codice = _msk->get_long(F_ANAGR); + long dittacaaf = _msk->get_long(F_DITTACAAF); + + base.put("CODCAAF", codice); + base.put("DITTACAAF", dittacaaf); + base.rewrite(); + } + else + { + long codice = _msk->get_long(F_ANAGR); + long dittacaaf = _msk->get_long(F_DITTACAAF); + + base.zero(); + base.put("CODDITTA", codditta); + base.put("CODCAAF", codice); + base.put("DITTACAAF", dittacaaf); + base.write(); + } +} + +void TDati_anagrafici::registra_dirprof() +{ + TLocalisamfile base (LF_BASE); + long codditta; + + codditta = _msk->get_long(F_CODDITTA); + + base.setkey(1); + base.zero(); + base.put("CODDITTA", codditta); + if (base.read() == NOERR) + { + long codpro = _msk->get_long(F_ANAGR); + bool flart4 = _msk->get_bool(F_CONTROLLI); + + base.put("CODPRO", codpro); + base.put("FLART4", flart4); + base.rewrite(); + } + else + { + long codpro = _msk->get_long(F_ANAGR); + bool flart4 = _msk->get_bool(F_CONTROLLI); + + base.zero(); + base.put("CODDITTA", codditta); + base.put("CODPRO", codpro); + base.put("FLART4", flart4); + base.write(); + } +} + +void TDati_anagrafici::registra_dativari() +{ + TLocalisamfile base(LF_BASEBIS); + long codditta; + + codditta = _msk->get_long(F_CODDITTA); + + base.setkey(1); + base.zero(); + base.put("CODDITTA", codditta); + if (base.read() == NOERR) + { + TString16 codconc1(_msk->get(F_CODCONC1)); + TString16 codconc2(_msk->get(F_CODCONC2)); + TString16 codconc3(_msk->get(F_CODCONC3)); + int codtes1 = _msk->get_int(F_CODTES1); + int codtes2 = _msk->get_int(F_CODTES2); + int codtes3 = _msk->get_int(F_CODTES3); + base.put("L0CCONC1", codconc1); + base.put("L0CCONC2", codconc2); + base.put("L0CCONC3", codconc3); + base.put("L0CTES1", codtes1); + base.put("L0CTES2", codtes2); + base.put("L0CTES3", codtes3); + base.rewrite(); + } + else + { + TString16 codconc1(_msk->get(F_CODCONC1)); + TString16 codconc2(_msk->get(F_CODCONC2)); + TString16 codconc3(_msk->get_int(F_CODCONC3)); + int codtes1 = _msk->get_int(F_CODTES1); + int codtes2 = _msk->get_int(F_CODTES2); + int codtes3 = _msk->get_int(F_CODTES3); + base.zero(); + base.put("CODDITTA", codditta); + base.put("L0CCONC1", codconc1); + base.put("L0CCONC2", codconc2); + base.put("L0CCONC3", codconc3); + base.put("L0CTES1", codtes1); + base.put("L0CTES2", codtes2); + base.put("L0CTES3", codtes3); + base.write(); + } +} + +bool TDati_anagrafici::menu(MENU_TAG m) +{ + if (m == BAR_ITEM(1)) + return main_loop(); + return FALSE; +} + +int m71100 (int argc, char* argv[]) +{ + TDati_anagrafici main_app(*argv[2]); + main_app.run(argc, argv, main_app._titolo); + return TRUE; +} diff --git a/m770/771100.h b/m770/771100.h index f38c0ced6..fc84958de 100755 --- a/m770/771100.h +++ b/m770/771100.h @@ -1,121 +1,121 @@ -// Campi maschera persone fisiche 771100a.uml -#ifndef _771100_H -#define _771100_H - -#define F_CODDITTA 500 -#define F_RAGSOC 501 - -#define APF_CODDITTA 101 -#define APF_RAGSOC 102 -#define F_COFI 103 -#define F_COGNOME 104 -#define F_NOME 105 -#define F_SESSO 106 -#define F_DATANASC 107 -#define F_COMNASC 108 -#define F_PROVNASC 109 -#define F_ATTIV 110 -#define F_DESCRATT 111 -#define F_RSS 112 -#define F_INDRES 113 -#define F_CIVRES 114 -#define F_CAPRES 115 -#define F_COMRES 116 -#define F_PROVRES 117 -#define F_INDRF 118 -#define F_CIVRF 119 -#define F_CAPRF 120 -#define F_COMRF 121 -#define F_PROVRF 122 -#define F_DOMFISC 123 -#define F_EVECC 124 -#define F_GIURIDICA 125 -#define F_ANAGR 126 - -// Campi maschera persone giuridiche 771100b.uml - -#define F_RAGIONE 150 -#define F_SEDELEG 151 -#define F_PTELRF 152 -#define F_TELRF 153 -#define F_DATAAPPBIL 154 -#define F_DATATAPPBI 155 -#define F_STATOSOC 156 -#define F_SITSOC 157 -#define F_NATGIU 158 -#define F_FISICA 159 - -// Campi maschera rappresentanti 771100c.uml - -#define F_CARRAP 201 - -// Campi maschera Luogo di conservazione delle scritture contabili 771100d.uml - -#define ASCF_TIPOA 250 -#define F_CODDEP 251 -#define F_IND 252 -#define F_CIV 253 -#define F_CAP 254 -#define F_COM 255 -#define F_PROV 256 -#define F_INDCS 257 -#define F_CIVCS 258 -#define F_CAPCS 259 -#define F_COMCS 260 -#define F_PROVCS 261 -#define F_PTELCS 262 -#define F_TELCS 263 -#define F_ATTIVITA 264 -#define F_ANAGRAFICA 265 - -// Campi maschera dati CAAF 771100e.uml - -#define F_NISCRAA 301 -#define F_DITTACAAF 302 - -// Campi maschera direttore/professionista 771100f.uml - -#define F_CONTROLLI 325 - -// Campi maschera Dati Vari 771100g.uml -#define F_TIPOA 503 -#define F_CODCONC1 350 -#define F_CODCONC2 351 -#define F_CODCONC3 352 -#define F_CODTES1 353 -#define F_CODTES2 354 -#define F_CODTES3 355 -#define F_INDUI 356 -#define F_CIVUI 357 -#define F_CAPUI 358 -#define F_COMUI 359 -#define F_PROVUI 360 -#define F_CODUI 362 -#define F_CODCS 363 -#define F_DESCRUI 364 -#define F_DESCRCS 375 -#define F_BTN_GIURIDICA 376 -#define F_BTN_FISICA 377 -#define F_TIPOA2BTN 378 - -// Campi maschera Societa' trasformate 771100h.uml -#define MDSTF_CODDITTA 181 -#define MDSTF_RAGSOC 415 -#define F_SOC_COFI 400 -#define F_SOC_COGNOME 401 -#define F_SOC_NOME 402 -#define F_SOC_SESSO 403 -#define F_SOC_DATANAS 404 -#define F_SOC_COMUNE 405 -#define F_SOC_PROVNAS 406 -#define F_SOC_DENOMIN 407 -#define F_SOC_COMRES 408 -#define F_SOC_PROVRES 409 -#define F_SOC_INDRES 410 -#define F_SOC_CONSBOCC 411 -#define F_SOC_LAVDIPCIN 412 -#define F_SOC_DATAINPI 413 -#define F_SOC_DATAFINPI 414 -#define DCF_DITTA 415 - -#endif +// Campi maschera persone fisiche 771100a.uml +#ifndef _771100_H +#define _771100_H + +#define F_CODDITTA 500 +#define F_RAGSOC 501 + +#define APF_CODDITTA 101 +#define APF_RAGSOC 102 +#define F_COFI 103 +#define F_COGNOME 104 +#define F_NOME 105 +#define F_SESSO 106 +#define F_DATANASC 107 +#define F_COMNASC 108 +#define F_PROVNASC 109 +#define F_ATTIV 110 +#define F_DESCRATT 111 +#define F_RSS 112 +#define F_INDRES 113 +#define F_CIVRES 114 +#define F_CAPRES 115 +#define F_COMRES 116 +#define F_PROVRES 117 +#define F_INDRF 118 +#define F_CIVRF 119 +#define F_CAPRF 120 +#define F_COMRF 121 +#define F_PROVRF 122 +#define F_DOMFISC 123 +#define F_EVECC 124 +#define F_GIURIDICA 125 +#define F_ANAGR 126 + +// Campi maschera persone giuridiche 771100b.uml + +#define F_RAGIONE 150 +#define F_SEDELEG 151 +#define F_PTELRF 152 +#define F_TELRF 153 +#define F_DATAAPPBIL 154 +#define F_DATATAPPBI 155 +#define F_STATOSOC 156 +#define F_SITSOC 157 +#define F_NATGIU 158 +#define F_FISICA 159 + +// Campi maschera rappresentanti 771100c.uml + +#define F_CARRAP 201 + +// Campi maschera Luogo di conservazione delle scritture contabili 771100d.uml + +#define ASCF_TIPOA 250 +#define F_CODDEP 251 +#define F_IND 252 +#define F_CIV 253 +#define F_CAP 254 +#define F_COM 255 +#define F_PROV 256 +#define F_INDCS 257 +#define F_CIVCS 258 +#define F_CAPCS 259 +#define F_COMCS 260 +#define F_PROVCS 261 +#define F_PTELCS 262 +#define F_TELCS 263 +#define F_ATTIVITA 264 +#define F_ANAGRAFICA 265 + +// Campi maschera dati CAAF 771100e.uml + +#define F_NISCRAA 301 +#define F_DITTACAAF 302 + +// Campi maschera direttore/professionista 771100f.uml + +#define F_CONTROLLI 325 + +// Campi maschera Dati Vari 771100g.uml +#define F_TIPOA 503 +#define F_CODCONC1 350 +#define F_CODCONC2 351 +#define F_CODCONC3 352 +#define F_CODTES1 353 +#define F_CODTES2 354 +#define F_CODTES3 355 +#define F_INDUI 356 +#define F_CIVUI 357 +#define F_CAPUI 358 +#define F_COMUI 359 +#define F_PROVUI 360 +#define F_CODUI 362 +#define F_CODCS 363 +#define F_DESCRUI 364 +#define F_DESCRCS 375 +#define F_BTN_GIURIDICA 376 +#define F_BTN_FISICA 377 +#define F_TIPOA2BTN 378 + +// Campi maschera Societa' trasformate 771100h.uml +#define MDSTF_CODDITTA 181 +#define MDSTF_RAGSOC 415 +#define F_SOC_COFI 400 +#define F_SOC_COGNOME 401 +#define F_SOC_NOME 402 +#define F_SOC_SESSO 403 +#define F_SOC_DATANAS 404 +#define F_SOC_COMUNE 405 +#define F_SOC_PROVNAS 406 +#define F_SOC_DENOMIN 407 +#define F_SOC_COMRES 408 +#define F_SOC_PROVRES 409 +#define F_SOC_INDRES 410 +#define F_SOC_CONSBOCC 411 +#define F_SOC_LAVDIPCIN 412 +#define F_SOC_DATAINPI 413 +#define F_SOC_DATAFINPI 414 +#define DCF_DITTA 415 + +#endif diff --git a/m770/771100a.uml b/m770/771100a.uml index 23c802271..9296f94fd 100755 --- a/m770/771100a.uml +++ b/m770/771100a.uml @@ -1,264 +1,264 @@ -#include "771100.h" -// -// Lista modifiche -// -// 1.4.96 Aggiunti campi prefisso/telefono -// -TOOLBAR "" 0 20 0 2 - -BUTTON F_FISICA 10 2 -BEGIN - PROMPT -15 -1 "~Fisiche" -END - -BUTTON F_ATTIVITA 10 2 -BEGIN - PROMPT -25 -1 "~Attivita'" -END - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -35 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -45 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -55 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Dati relativi alle persone fisiche" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "RDG" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR - JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR - JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC - JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES - JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF - OUTPUT APF_RAGSOC LF_NDITTE->RAGSOC - OUTPUT F_ATTIV LF_NDITTE->CODATTPREV - OUTPUT F_ANAGR LF_ANAG->CODANAGR - OUTPUT F_COFI LF_ANAG->COFI - OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] - OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] - OUTPUT F_INDRES LF_ANAG->INDRES - OUTPUT F_CIVRES LF_ANAG->CIVRES - OUTPUT F_CAPRES LF_ANAG->CAPRES - OUTPUT F_INDRF LF_ANAG->INDRF - OUTPUT F_CIVRF LF_ANAG->CIVRF - OUTPUT F_CAPRF LF_ANAG->CAPRF - OUTPUT F_EVECC LF_ANAG->EVECC - OUTPUT F_SESSO LF_ANAGFIS->SESSO - OUTPUT F_DATANASC LF_ANAGFIS->DATANASC - OUTPUT F_COMNASC LF_COMUNI->DENCOM - OUTPUT F_PROVNASC LF_COMUNI->PROVCOM - OUTPUT F_COMRES 1@->DENCOM - OUTPUT F_PROVRES 1@->PROVCOM - OUTPUT F_COMRF 2@->DENCOM - OUTPUT F_PROVRF 2@->PROVCOM - OUTPUT F_PTELRF LF_ANAG->PTELRF - OUTPUT F_TELRF LF_ANAG->TELRF - OUTPUT F_DOMFISC LF_ANAG->VARSLORES - KEY 1 -END - -STRING APF_RAGSOC 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" -END - -NUMBER F_ANAGR 5 -BEGIN - PROMPT -1 -1 "" - FLAGS "H" -END - -STRING F_COFI 16 -BEGIN - PROMPT 1 4 "Codice fiscale " - FLAGS "D" -END - -NUMBER F_EVECC 1 -BEGIN - PROMPT 46 4 "Eventi naturali eccezionali " - FLAGS "D" -END - -STRING F_COGNOME 30 -BEGIN - PROMPT 1 5 "Cognome " - FLAGS "D" -END - -LIST F_RSS 7 -BEGIN - PROMPT 58 5 "R.S.S. " - ITEM " |Nessuna" - ITEM "1|VA" - ITEM "2|SA" - ITEM "3|SI" - FIELD LF_BASE->RSS -END - -STRING F_NOME 20 -BEGIN - PROMPT 1 6 "Nome " - FLAGS "D" -END - -STRING F_SESSO 1 -BEGIN - PROMPT 39 6 "Sesso " - FLAGS "D" -END - -DATE F_DATANASC -BEGIN - PROMPT 49 6 "Data di nascita " - FLAGS "D" -END - -STRING F_COMNASC 50 -BEGIN - PROMPT 1 7 "Comune nascita " - FLAGS "D" -END - -STRING F_PROVNASC 5 -BEGIN - PROMPT 70 7 "" - FLAGS "D" -END - -STRING F_ATTIV 5 -BEGIN - PROMPT 1 8 "Attivita' " - USE %AIS - INPUT CODTAB F_ATTIV - OUTPUT F_DESCRATT S0 - CHECKTYPE REQUIRED - FLAGS "D" -END - -STRING F_DESCRATT 50 -BEGIN - PROMPT 25 8 "" - FLAGS "D" -END - -BOOLEAN F_DOMFISC -BEGIN - PROMPT 1 9 "Dom.fiscale o residenza variati rispetto all'anno precedente " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 10 "Residenza" -END - -STRING F_INDRES 35 -BEGIN - PROMPT 1 11 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVRES 10 -BEGIN - PROMPT 47 11 "" - FLAGS "D" -END - -STRING F_CAPRES 5 -BEGIN - PROMPT 63 11 "C.A.P. " - FLAGS "D" -END - -STRING F_COMRES 50 -BEGIN - PROMPT 1 12 "Comune " - FLAGS "D" -END - -STRING F_PROVRES 5 -BEGIN - PROMPT 63 12 "Prov. " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 14 "Domicilio fiscale " -END - -STRING F_PTELRF 10 -BEGIN - PROMPT 1 15 "Telefono " - FLAGS "D" -END - -STRING F_TELRF 30 -BEGIN - PROMPT 20 15 "" - FLAGS "D" -END - -STRING F_INDRF 35 -BEGIN - PROMPT 1 16 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVRF 10 -BEGIN - PROMPT 47 16 "" - FLAGS "D" -END - -STRING F_CAPRF 5 -BEGIN - PROMPT 63 16 "C.A.P. " - FLAGS "D" -END - -STRING F_COMRF 50 -BEGIN - PROMPT 1 17 "Comune " - FLAGS "D" -END - -STRING F_PROVRF 5 -BEGIN - PROMPT 63 17 "Prov. " - FLAGS "D" -END - -ENDPAGE - -ENDMASK +#include "771100.h" +// +// Lista modifiche +// +// 1.4.96 Aggiunti campi prefisso/telefono +// +TOOLBAR "" 0 20 0 2 + +BUTTON F_FISICA 10 2 +BEGIN + PROMPT -15 -1 "~Fisiche" +END + +BUTTON F_ATTIVITA 10 2 +BEGIN + PROMPT -25 -1 "~Attivita'" +END + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -35 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -45 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -55 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Dati relativi alle persone fisiche" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "RDG" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR + JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR + JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC + JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES + JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF + OUTPUT APF_RAGSOC LF_NDITTE->RAGSOC + OUTPUT F_ATTIV LF_NDITTE->CODATTPREV + OUTPUT F_ANAGR LF_ANAG->CODANAGR + OUTPUT F_COFI LF_ANAG->COFI + OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] + OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] + OUTPUT F_INDRES LF_ANAG->INDRES + OUTPUT F_CIVRES LF_ANAG->CIVRES + OUTPUT F_CAPRES LF_ANAG->CAPRES + OUTPUT F_INDRF LF_ANAG->INDRF + OUTPUT F_CIVRF LF_ANAG->CIVRF + OUTPUT F_CAPRF LF_ANAG->CAPRF + OUTPUT F_EVECC LF_ANAG->EVECC + OUTPUT F_SESSO LF_ANAGFIS->SESSO + OUTPUT F_DATANASC LF_ANAGFIS->DATANASC + OUTPUT F_COMNASC LF_COMUNI->DENCOM + OUTPUT F_PROVNASC LF_COMUNI->PROVCOM + OUTPUT F_COMRES 1@->DENCOM + OUTPUT F_PROVRES 1@->PROVCOM + OUTPUT F_COMRF 2@->DENCOM + OUTPUT F_PROVRF 2@->PROVCOM + OUTPUT F_PTELRF LF_ANAG->PTELRF + OUTPUT F_TELRF LF_ANAG->TELRF + OUTPUT F_DOMFISC LF_ANAG->VARSLORES + KEY 1 +END + +STRING APF_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" +END + +NUMBER F_ANAGR 5 +BEGIN + PROMPT -1 -1 "" + FLAGS "H" +END + +STRING F_COFI 16 +BEGIN + PROMPT 1 4 "Codice fiscale " + FLAGS "D" +END + +NUMBER F_EVECC 1 +BEGIN + PROMPT 46 4 "Eventi naturali eccezionali " + FLAGS "D" +END + +STRING F_COGNOME 30 +BEGIN + PROMPT 1 5 "Cognome " + FLAGS "D" +END + +LIST F_RSS 7 +BEGIN + PROMPT 58 5 "R.S.S. " + ITEM " |Nessuna" + ITEM "1|VA" + ITEM "2|SA" + ITEM "3|SI" + FIELD LF_BASE->RSS +END + +STRING F_NOME 20 +BEGIN + PROMPT 1 6 "Nome " + FLAGS "D" +END + +STRING F_SESSO 1 +BEGIN + PROMPT 39 6 "Sesso " + FLAGS "D" +END + +DATE F_DATANASC +BEGIN + PROMPT 49 6 "Data di nascita " + FLAGS "D" +END + +STRING F_COMNASC 50 +BEGIN + PROMPT 1 7 "Comune nascita " + FLAGS "D" +END + +STRING F_PROVNASC 5 +BEGIN + PROMPT 70 7 "" + FLAGS "D" +END + +STRING F_ATTIV 5 +BEGIN + PROMPT 1 8 "Attivita' " + USE %AIS + INPUT CODTAB F_ATTIV + OUTPUT F_DESCRATT S0 + CHECKTYPE REQUIRED + FLAGS "D" +END + +STRING F_DESCRATT 50 +BEGIN + PROMPT 25 8 "" + FLAGS "D" +END + +BOOLEAN F_DOMFISC +BEGIN + PROMPT 1 9 "Dom.fiscale o residenza variati rispetto all'anno precedente " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 10 "Residenza" +END + +STRING F_INDRES 35 +BEGIN + PROMPT 1 11 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVRES 10 +BEGIN + PROMPT 47 11 "" + FLAGS "D" +END + +STRING F_CAPRES 5 +BEGIN + PROMPT 63 11 "C.A.P. " + FLAGS "D" +END + +STRING F_COMRES 50 +BEGIN + PROMPT 1 12 "Comune " + FLAGS "D" +END + +STRING F_PROVRES 5 +BEGIN + PROMPT 63 12 "Prov. " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 14 "Domicilio fiscale " +END + +STRING F_PTELRF 10 +BEGIN + PROMPT 1 15 "Telefono " + FLAGS "D" +END + +STRING F_TELRF 30 +BEGIN + PROMPT 20 15 "" + FLAGS "D" +END + +STRING F_INDRF 35 +BEGIN + PROMPT 1 16 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVRF 10 +BEGIN + PROMPT 47 16 "" + FLAGS "D" +END + +STRING F_CAPRF 5 +BEGIN + PROMPT 63 16 "C.A.P. " + FLAGS "D" +END + +STRING F_COMRF 50 +BEGIN + PROMPT 1 17 "Comune " + FLAGS "D" +END + +STRING F_PROVRF 5 +BEGIN + PROMPT 63 17 "Prov. " + FLAGS "D" +END + +ENDPAGE + +ENDMASK diff --git a/m770/771100b.uml b/m770/771100b.uml index c4bab3976..eca19bbcd 100755 --- a/m770/771100b.uml +++ b/m770/771100b.uml @@ -1,327 +1,327 @@ -#include "771100.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON F_GIURIDICA 10 2 -BEGIN - PROMPT -15 -1 "~Giuridiche" -END - -BUTTON F_ATTIVITA 10 2 -BEGIN - PROMPT -25 -1 "~Attività" - MESSAGE K_TAB,F_ATTIV -END - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -35 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -45 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -55 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Dichiarante" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "GRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR - JOIN LF_ANAGGIU TO LF_ANAG INTO CODANAGR=CODANAGR - JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES - JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF - OUTPUT F_RAGSOC LF_NDITTE->RAGSOC - OUTPUT F_ATTIV LF_NDITTE->CODATTPREV - OUTPUT F_ANAGR LF_ANAG->CODANAGR - OUTPUT F_COFI LF_ANAG->COFI - OUTPUT F_RAGIONE LF_ANAG->RAGSOC - OUTPUT F_COMRES 1@->DENCOM - OUTPUT F_PROVRES 1@->PROVCOM - OUTPUT F_INDRES LF_ANAG->INDRES - OUTPUT F_CIVRES LF_ANAG->CIVRES - OUTPUT F_CAPRES LF_ANAG->CAPRES - OUTPUT F_EVECC LF_ANAG->EVECC - OUTPUT F_COMRF 2@->DENCOM - OUTPUT F_PROVRF 2@->PROVCOM - OUTPUT F_INDRF LF_ANAG->INDRF - OUTPUT F_CIVRF LF_ANAG->CIVRF - OUTPUT F_CAPRF LF_ANAG->CAPRF - OUTPUT F_PTELRF LF_ANAG->PTELRF - OUTPUT F_TELRF LF_ANAG->TELRF - OUTPUT F_DATAAPPBIL LF_ANAGGIU->DATAAPPBIL - OUTPUT F_DATATAPPBI LF_ANAGGIU->DATATAPPBI - OUTPUT F_STATOSOC LF_ANAGGIU->STATOSOC - OUTPUT F_NATGIU LF_ANAGGIU->NATGIU - OUTPUT F_SITSOC LF_ANAGGIU->SITSOC - OUTPUT F_SEDELEG LF_ANAG->VARSLORES - OUTPUT F_DOMFISC LF_ANAG->VARDF - MESSAGE COPY,1@ - MESSAGE DISABLE,F_SEDELEG|DISABLE,F_DOMFISC - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" - MESSAGE COPY,2@ -END - -NUMBER F_ANAGR 5 -BEGIN - PROMPT -1 -1 "" - FLAGS "H" -END - -/* -STRING F_ATTIV 5 -BEGIN - PROMPT 1 4 "Attività " - USE %AIS - INPUT CODTAB F_ATTIV - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_DESCRATT S0 - CHECKTYPE REQUIRED - FLAGS "D" -END -*/ - -STRING F_ATTIV 5 -BEGIN - PROMPT 1 4 "Attività " - USE LF_ATTIV - INPUT CODDITTA F_CODDITTA SELECT - INPUT CODATT F_ATTIV - DISPLAY "Attivita'" CODATT - DISPLAY "Prevalente" ATTPREV - DISPLAY " @50" DESCR - OUTPUT F_DESCRATT DESCR - CHECKTYPE REQUIRED - FLAGS "D" -END - -STRING F_DESCRATT 50 -BEGIN - PROMPT 26 4 "" - FLAGS "D" -END - -STRING F_COFI 16 -BEGIN - PROMPT 1 6 "Codice fiscale " - FLAGS "D" -END - -STRING F_RAGIONE 50 -BEGIN - PROMPT 1 7 "Denominazione " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 8 "" -END - -BOOLEAN F_SEDELEG -BEGIN - PROMPT 1 9 "Sede legale" - //FLAGS "D" -END - -STRING F_COMRES 50 -BEGIN - PROMPT 1 10 "Comune " - FLAGS "D" -END - -STRING F_PROVRES 5 -BEGIN - PROMPT 63 10 "Prov. " - FLAGS "D" -END - -STRING F_INDRES 35 -BEGIN - PROMPT 1 11 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVRES 10 -BEGIN - PROMPT 47 11 "" - FLAGS "D" -END - -STRING F_CAPRES 5 -BEGIN - PROMPT 63 11 "C.A.P. " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 13 "" -END - -BOOLEAN F_DOMFISC -BEGIN - PROMPT 1 14 "Domicilio fiscale" - //FLAGS "D" -END - -STRING F_PTELRF 10 -BEGIN - PROMPT 25 14 "Telefono " - FLAGS "D" -END - -STRING F_TELRF 30 -BEGIN - PROMPT 45 14 "" - FLAGS "D" -END - -STRING F_COMRF 50 -BEGIN - PROMPT 1 15 "Comune " - FLAGS "D" -END - -STRING F_PROVRF 5 -BEGIN - PROMPT 63 15 "Prov. " - FLAGS "D" -END - -STRING F_INDRF 35 -BEGIN - PROMPT 1 16 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVRF 10 -BEGIN - PROMPT 47 16 "" - FLAGS "D" -END - -STRING F_CAPRF 5 -BEGIN - PROMPT 63 16 "C.A.P. " - FLAGS "D" -END - -ENDPAGE - -PAGE "Dichiarante pagina 2" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER DLG_NULL 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "FRD" - GROUP 1 -END - -STRING DLG_NULL 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -DATE F_DATAAPPBIL -BEGIN - PROMPT 1 5 "Data approvazione del bilancio " - FLAGS "D" -END - -DATE F_DATATAPPBI -BEGIN - PROMPT 1 6 "Data termine del bilancio " - FLAGS "D" -END - -NUMBER F_STATOSOC 1 -BEGIN - PROMPT 1 8 "Stato " - FLAGS "D" -END - -TEXT DLG_NULL -BEGIN - PROMPT 15 8 "(Tab.A)" -END - -NUMBER F_NATGIU 2 -BEGIN - PROMPT 48 8 "Natura giuridica " - FLAGS "RD" -END - -TEXT DLG_NULL -BEGIN - PROMPT 69 8 "(Tab.B)" -END - -NUMBER F_SITSOC 1 -BEGIN - PROMPT 1 9 "Situazione " - FLAGS "D" -END - -TEXT DLG_NULL -BEGIN - PROMPT 15 9 "(Tab.E)" -END - -LIST F_RSS 7 -BEGIN - PROMPT 48 9 "R.S.S. " - ITEM " |Nessuna" - ITEM "1|VA" - ITEM "2|SA" - ITEM "3|SI" - FIELD LF_BASE->RSS -END - -NUMBER F_EVECC 1 -BEGIN - PROMPT 1 11 "Eventi naturali eccezionali " - FLAGS "D" -END - -ENDPAGE - -ENDMASK +#include "771100.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON F_GIURIDICA 10 2 +BEGIN + PROMPT -15 -1 "~Giuridiche" +END + +BUTTON F_ATTIVITA 10 2 +BEGIN + PROMPT -25 -1 "~Attività" + MESSAGE K_TAB,F_ATTIV +END + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -35 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -45 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -55 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Dichiarante" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "GRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR + JOIN LF_ANAGGIU TO LF_ANAG INTO CODANAGR=CODANAGR + JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES + JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF + OUTPUT F_RAGSOC LF_NDITTE->RAGSOC + OUTPUT F_ATTIV LF_NDITTE->CODATTPREV + OUTPUT F_ANAGR LF_ANAG->CODANAGR + OUTPUT F_COFI LF_ANAG->COFI + OUTPUT F_RAGIONE LF_ANAG->RAGSOC + OUTPUT F_COMRES 1@->DENCOM + OUTPUT F_PROVRES 1@->PROVCOM + OUTPUT F_INDRES LF_ANAG->INDRES + OUTPUT F_CIVRES LF_ANAG->CIVRES + OUTPUT F_CAPRES LF_ANAG->CAPRES + OUTPUT F_EVECC LF_ANAG->EVECC + OUTPUT F_COMRF 2@->DENCOM + OUTPUT F_PROVRF 2@->PROVCOM + OUTPUT F_INDRF LF_ANAG->INDRF + OUTPUT F_CIVRF LF_ANAG->CIVRF + OUTPUT F_CAPRF LF_ANAG->CAPRF + OUTPUT F_PTELRF LF_ANAG->PTELRF + OUTPUT F_TELRF LF_ANAG->TELRF + OUTPUT F_DATAAPPBIL LF_ANAGGIU->DATAAPPBIL + OUTPUT F_DATATAPPBI LF_ANAGGIU->DATATAPPBI + OUTPUT F_STATOSOC LF_ANAGGIU->STATOSOC + OUTPUT F_NATGIU LF_ANAGGIU->NATGIU + OUTPUT F_SITSOC LF_ANAGGIU->SITSOC + OUTPUT F_SEDELEG LF_ANAG->VARSLORES + OUTPUT F_DOMFISC LF_ANAG->VARDF + MESSAGE COPY,1@ + MESSAGE DISABLE,F_SEDELEG|DISABLE,F_DOMFISC + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" + MESSAGE COPY,2@ +END + +NUMBER F_ANAGR 5 +BEGIN + PROMPT -1 -1 "" + FLAGS "H" +END + +/* +STRING F_ATTIV 5 +BEGIN + PROMPT 1 4 "Attività " + USE %AIS + INPUT CODTAB F_ATTIV + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_DESCRATT S0 + CHECKTYPE REQUIRED + FLAGS "D" +END +*/ + +STRING F_ATTIV 5 +BEGIN + PROMPT 1 4 "Attività " + USE LF_ATTIV + INPUT CODDITTA F_CODDITTA SELECT + INPUT CODATT F_ATTIV + DISPLAY "Attivita'" CODATT + DISPLAY "Prevalente" ATTPREV + DISPLAY " @50" DESCR + OUTPUT F_DESCRATT DESCR + CHECKTYPE REQUIRED + FLAGS "D" +END + +STRING F_DESCRATT 50 +BEGIN + PROMPT 26 4 "" + FLAGS "D" +END + +STRING F_COFI 16 +BEGIN + PROMPT 1 6 "Codice fiscale " + FLAGS "D" +END + +STRING F_RAGIONE 50 +BEGIN + PROMPT 1 7 "Denominazione " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 8 "" +END + +BOOLEAN F_SEDELEG +BEGIN + PROMPT 1 9 "Sede legale" + //FLAGS "D" +END + +STRING F_COMRES 50 +BEGIN + PROMPT 1 10 "Comune " + FLAGS "D" +END + +STRING F_PROVRES 5 +BEGIN + PROMPT 63 10 "Prov. " + FLAGS "D" +END + +STRING F_INDRES 35 +BEGIN + PROMPT 1 11 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVRES 10 +BEGIN + PROMPT 47 11 "" + FLAGS "D" +END + +STRING F_CAPRES 5 +BEGIN + PROMPT 63 11 "C.A.P. " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 13 "" +END + +BOOLEAN F_DOMFISC +BEGIN + PROMPT 1 14 "Domicilio fiscale" + //FLAGS "D" +END + +STRING F_PTELRF 10 +BEGIN + PROMPT 25 14 "Telefono " + FLAGS "D" +END + +STRING F_TELRF 30 +BEGIN + PROMPT 45 14 "" + FLAGS "D" +END + +STRING F_COMRF 50 +BEGIN + PROMPT 1 15 "Comune " + FLAGS "D" +END + +STRING F_PROVRF 5 +BEGIN + PROMPT 63 15 "Prov. " + FLAGS "D" +END + +STRING F_INDRF 35 +BEGIN + PROMPT 1 16 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVRF 10 +BEGIN + PROMPT 47 16 "" + FLAGS "D" +END + +STRING F_CAPRF 5 +BEGIN + PROMPT 63 16 "C.A.P. " + FLAGS "D" +END + +ENDPAGE + +PAGE "Dichiarante pagina 2" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "FRD" + GROUP 1 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" + GROUP 2 +END + +DATE F_DATAAPPBIL +BEGIN + PROMPT 1 5 "Data approvazione del bilancio " + FLAGS "D" +END + +DATE F_DATATAPPBI +BEGIN + PROMPT 1 6 "Data termine del bilancio " + FLAGS "D" +END + +NUMBER F_STATOSOC 1 +BEGIN + PROMPT 1 8 "Stato " + FLAGS "D" +END + +TEXT DLG_NULL +BEGIN + PROMPT 15 8 "(Tab.A)" +END + +NUMBER F_NATGIU 2 +BEGIN + PROMPT 48 8 "Natura giuridica " + FLAGS "RD" +END + +TEXT DLG_NULL +BEGIN + PROMPT 69 8 "(Tab.B)" +END + +NUMBER F_SITSOC 1 +BEGIN + PROMPT 1 9 "Situazione " + FLAGS "D" +END + +TEXT DLG_NULL +BEGIN + PROMPT 15 9 "(Tab.E)" +END + +LIST F_RSS 7 +BEGIN + PROMPT 48 9 "R.S.S. " + ITEM " |Nessuna" + ITEM "1|VA" + ITEM "2|SA" + ITEM "3|SI" + FIELD LF_BASE->RSS +END + +NUMBER F_EVECC 1 +BEGIN + PROMPT 1 11 "Eventi naturali eccezionali " + FLAGS "D" +END + +ENDPAGE + +ENDMASK diff --git a/m770/771100c.uml b/m770/771100c.uml index f7d5d5899..c41588755 100755 --- a/m770/771100c.uml +++ b/m770/771100c.uml @@ -1,284 +1,284 @@ -// 771100c.uml - Dati rappresentante -#include "771100.h" - -// -// Lista modifiche -// -// 2.4.96 Aggiunto numero di telefono -// - -TOOLBAR "" 0 20 0 2 - -BUTTON F_FISICA 10 2 -BEGIN - PROMPT -14 -1 "~Fisiche" -END - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -24 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -34 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -44 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Dati relativi al rappresentante" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "GRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - OUTPUT F_RAGSOC LF_NDITTE->RAGSOC - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" -END - -NUMBER F_ANAGR 5 -BEGIN - PROMPT 1 4 "Codice rappresentante " - FLAGS "D" - USE LF_NDITTE - INPUT CODDITTA F_CODDITTA - FIELD LF_NDITTE->RAPPR - CHECKTYPE NORMAL - JOIN LF_ANAG INTO CODANAGR=RAPPR TIPOA="F" - JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR - JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC - JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES - JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF - OUTPUT F_COFI LF_ANAG->COFI - OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] - OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] - OUTPUT F_SESSO LF_ANAGFIS->SESSO - OUTPUT F_DATANASC LF_ANAGFIS->DATANASC - OUTPUT F_COMNASC LF_COMUNI->DENCOM - OUTPUT F_PROVNASC LF_COMUNI->PROVCOM - OUTPUT F_INDRES LF_ANAG->INDRES - OUTPUT F_CIVRES LF_ANAG->CIVRES - OUTPUT F_CAPRES LF_ANAG->CAPRES - OUTPUT F_INDRF LF_ANAG->INDRF - OUTPUT F_CIVRF LF_ANAG->CIVRF - OUTPUT F_CAPRF LF_ANAG->CAPRF - OUTPUT F_COMRES 1@->DENCOM - OUTPUT F_PROVRES 1@->PROVCOM - OUTPUT F_COMRF 2@->DENCOM - OUTPUT F_PROVRF 2@->PROVCOM - OUTPUT F_DOMFISC LF_ANAG->VARSLORES - OUTPUT F_ANAGR LF_ANAGFIS->CODANAGR - OUTPUT F_PTELRF LF_ANAG->PTELRF - OUTPUT F_TELRF LF_ANAG->TELRF -END - -/* -NUMBER F_ANAGR 5 -BEGIN - PROMPT 1 4 "Codice rappresentante " - USE LF_ANAGFIS KEY 1 - INPUT CODANAGR F_ANAGR - JOIN LF_ANAG TO LF_ANAGFIS INTO CODANAGR=CODANAGR TIPOA="F" - JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC - JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES - JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF - DISPLAY "Codice" CODANAGR - DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC - OUTPUT F_COFI LF_ANAG->COFI - OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] - OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] - OUTPUT F_SESSO SESSO - OUTPUT F_DATANASC DATANASC - OUTPUT F_COMNASC LF_COMUNI->DENCOM - OUTPUT F_PROVNASC LF_COMUNI->PROVCOM - OUTPUT F_INDRES LF_ANAG->INDRES - OUTPUT F_CIVRES LF_ANAG->CIVRES - OUTPUT F_CAPRES LF_ANAG->CAPRES - OUTPUT F_INDRF LF_ANAG->INDRF - OUTPUT F_CIVRF LF_ANAG->CIVRF - OUTPUT F_CAPRF LF_ANAG->CAPRF - OUTPUT F_COMRES 1@->DENCOM - OUTPUT F_PROVRES 1@->PROVCOM - OUTPUT F_COMRF 2@->DENCOM - OUTPUT F_PROVRF 2@->PROVCOM - OUTPUT F_DOMFISC LF_ANAG->VARSLORES - OUTPUT F_ANAGR LF_ANAGFIS->CODANAGR - OUTPUT F_PTELRF LF_ANAG->PTELRF - OUTPUT F_TELRF LF_ANAG->TELRF - FIELD LF_BASE->RAPPR - CHECKTYPE NORMAL - FLAGS "R" -END -*/ -STRING F_COFI 16 -BEGIN - PROMPT 1 5 "Codice fiscale " - FLAGS "D" -END - -STRING F_COGNOME 30 -BEGIN - PROMPT 1 6 "Cognome " - FLAGS "D" -END - -STRING F_NOME 20 -BEGIN - PROMPT 1 7 "Nome " - FLAGS "D" -END - -STRING F_SESSO 1 -BEGIN - PROMPT 39 7 "Sesso " - FLAGS "D" -END - -DATE F_DATANASC -BEGIN - PROMPT 49 7 "Data di nascita " - FLAGS "D" -END - -STRING F_COMNASC 50 -BEGIN - PROMPT 1 8 "Comune nascita " - FLAGS "D" -END - -STRING F_PROVNASC 5 -BEGIN - PROMPT 70 8 "" - FLAGS "D" -END - -LIST F_CARRAP 51 -BEGIN - PROMPT 1 9 "Carica " - HELP "Codice della carica del rappresentante legale" - ITEM " |Nessun rappresentante" - ITEM "1|Rappresentante legale o di fatto" - ITEM "2|Curatore fallimentare" - ITEM "3|Liquidatore" - ITEM "4|Nominato in Italia per società con sede all'estero" - ITEM "5|Erede" - ITEM "6|Curatore di eredità giacente" - FIELD LF_BASE->CARRAPP -END - -BOOLEAN F_DOMFISC -BEGIN - PROMPT 15 10 "Dom.fiscale o residenza variati rispetto all'anno precedente " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 10 "Residenza" -END - -STRING F_INDRES 35 -BEGIN - PROMPT 1 11 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVRES 10 -BEGIN - PROMPT 47 11 "" - FLAGS "D" -END - -STRING F_CAPRES 5 -BEGIN - PROMPT 63 11 "C.A.P. " - FLAGS "D" -END - -STRING F_COMRES 50 -BEGIN - PROMPT 1 12 "Comune " - FLAGS "D" -END - -STRING F_PROVRES 5 -BEGIN - PROMPT 63 12 "Prov. " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 14 "Domicilio fiscale " -END - -STRING F_PTELRF 10 -BEGIN - PROMPT 1 15 "Telefono " - FLAGS "D" -END - -STRING F_TELRF 30 -BEGIN - PROMPT 20 15 "" - FLAGS "D" -END - -STRING F_INDRF 35 -BEGIN - PROMPT 1 16 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVRF 10 -BEGIN - PROMPT 47 16 "" - FLAGS "D" -END - -STRING F_CAPRF 5 -BEGIN - PROMPT 63 16 "C.A.P. " - FLAGS "D" -END - -STRING F_COMRF 50 -BEGIN - PROMPT 1 17 "Comune " - FLAGS "D" -END - -STRING F_PROVRF 5 -BEGIN - PROMPT 63 17 "Prov. " - FLAGS "D" -END - -ENDPAGE - -ENDMASK +// 771100c.uml - Dati rappresentante +#include "771100.h" + +// +// Lista modifiche +// +// 2.4.96 Aggiunto numero di telefono +// + +TOOLBAR "" 0 20 0 2 + +BUTTON F_FISICA 10 2 +BEGIN + PROMPT -14 -1 "~Fisiche" +END + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -24 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -34 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -44 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Dati relativi al rappresentante" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "GRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + OUTPUT F_RAGSOC LF_NDITTE->RAGSOC + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" +END + +NUMBER F_ANAGR 5 +BEGIN + PROMPT 1 4 "Codice rappresentante " + FLAGS "D" + USE LF_NDITTE + INPUT CODDITTA F_CODDITTA + FIELD LF_NDITTE->RAPPR + CHECKTYPE NORMAL + JOIN LF_ANAG INTO CODANAGR=RAPPR TIPOA="F" + JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR + JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC + JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES + JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF + OUTPUT F_COFI LF_ANAG->COFI + OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] + OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] + OUTPUT F_SESSO LF_ANAGFIS->SESSO + OUTPUT F_DATANASC LF_ANAGFIS->DATANASC + OUTPUT F_COMNASC LF_COMUNI->DENCOM + OUTPUT F_PROVNASC LF_COMUNI->PROVCOM + OUTPUT F_INDRES LF_ANAG->INDRES + OUTPUT F_CIVRES LF_ANAG->CIVRES + OUTPUT F_CAPRES LF_ANAG->CAPRES + OUTPUT F_INDRF LF_ANAG->INDRF + OUTPUT F_CIVRF LF_ANAG->CIVRF + OUTPUT F_CAPRF LF_ANAG->CAPRF + OUTPUT F_COMRES 1@->DENCOM + OUTPUT F_PROVRES 1@->PROVCOM + OUTPUT F_COMRF 2@->DENCOM + OUTPUT F_PROVRF 2@->PROVCOM + OUTPUT F_DOMFISC LF_ANAG->VARSLORES + OUTPUT F_ANAGR LF_ANAGFIS->CODANAGR + OUTPUT F_PTELRF LF_ANAG->PTELRF + OUTPUT F_TELRF LF_ANAG->TELRF +END + +/* +NUMBER F_ANAGR 5 +BEGIN + PROMPT 1 4 "Codice rappresentante " + USE LF_ANAGFIS KEY 1 + INPUT CODANAGR F_ANAGR + JOIN LF_ANAG TO LF_ANAGFIS INTO CODANAGR=CODANAGR TIPOA="F" + JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC + JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES + JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF + DISPLAY "Codice" CODANAGR + DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC + OUTPUT F_COFI LF_ANAG->COFI + OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] + OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] + OUTPUT F_SESSO SESSO + OUTPUT F_DATANASC DATANASC + OUTPUT F_COMNASC LF_COMUNI->DENCOM + OUTPUT F_PROVNASC LF_COMUNI->PROVCOM + OUTPUT F_INDRES LF_ANAG->INDRES + OUTPUT F_CIVRES LF_ANAG->CIVRES + OUTPUT F_CAPRES LF_ANAG->CAPRES + OUTPUT F_INDRF LF_ANAG->INDRF + OUTPUT F_CIVRF LF_ANAG->CIVRF + OUTPUT F_CAPRF LF_ANAG->CAPRF + OUTPUT F_COMRES 1@->DENCOM + OUTPUT F_PROVRES 1@->PROVCOM + OUTPUT F_COMRF 2@->DENCOM + OUTPUT F_PROVRF 2@->PROVCOM + OUTPUT F_DOMFISC LF_ANAG->VARSLORES + OUTPUT F_ANAGR LF_ANAGFIS->CODANAGR + OUTPUT F_PTELRF LF_ANAG->PTELRF + OUTPUT F_TELRF LF_ANAG->TELRF + FIELD LF_BASE->RAPPR + CHECKTYPE NORMAL + FLAGS "R" +END +*/ +STRING F_COFI 16 +BEGIN + PROMPT 1 5 "Codice fiscale " + FLAGS "D" +END + +STRING F_COGNOME 30 +BEGIN + PROMPT 1 6 "Cognome " + FLAGS "D" +END + +STRING F_NOME 20 +BEGIN + PROMPT 1 7 "Nome " + FLAGS "D" +END + +STRING F_SESSO 1 +BEGIN + PROMPT 39 7 "Sesso " + FLAGS "D" +END + +DATE F_DATANASC +BEGIN + PROMPT 49 7 "Data di nascita " + FLAGS "D" +END + +STRING F_COMNASC 50 +BEGIN + PROMPT 1 8 "Comune nascita " + FLAGS "D" +END + +STRING F_PROVNASC 5 +BEGIN + PROMPT 70 8 "" + FLAGS "D" +END + +LIST F_CARRAP 51 +BEGIN + PROMPT 1 9 "Carica " + HELP "Codice della carica del rappresentante legale" + ITEM " |Nessun rappresentante" + ITEM "1|Rappresentante legale o di fatto" + ITEM "2|Curatore fallimentare" + ITEM "3|Liquidatore" + ITEM "4|Nominato in Italia per società con sede all'estero" + ITEM "5|Erede" + ITEM "6|Curatore di eredità giacente" + FIELD LF_BASE->CARRAPP +END + +BOOLEAN F_DOMFISC +BEGIN + PROMPT 15 10 "Dom.fiscale o residenza variati rispetto all'anno precedente " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 10 "Residenza" +END + +STRING F_INDRES 35 +BEGIN + PROMPT 1 11 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVRES 10 +BEGIN + PROMPT 47 11 "" + FLAGS "D" +END + +STRING F_CAPRES 5 +BEGIN + PROMPT 63 11 "C.A.P. " + FLAGS "D" +END + +STRING F_COMRES 50 +BEGIN + PROMPT 1 12 "Comune " + FLAGS "D" +END + +STRING F_PROVRES 5 +BEGIN + PROMPT 63 12 "Prov. " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 14 "Domicilio fiscale " +END + +STRING F_PTELRF 10 +BEGIN + PROMPT 1 15 "Telefono " + FLAGS "D" +END + +STRING F_TELRF 30 +BEGIN + PROMPT 20 15 "" + FLAGS "D" +END + +STRING F_INDRF 35 +BEGIN + PROMPT 1 16 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVRF 10 +BEGIN + PROMPT 47 16 "" + FLAGS "D" +END + +STRING F_CAPRF 5 +BEGIN + PROMPT 63 16 "C.A.P. " + FLAGS "D" +END + +STRING F_COMRF 50 +BEGIN + PROMPT 1 17 "Comune " + FLAGS "D" +END + +STRING F_PROVRF 5 +BEGIN + PROMPT 63 17 "Prov. " + FLAGS "D" +END + +ENDPAGE + +ENDMASK diff --git a/m770/771100d.uml b/m770/771100d.uml index b5b8ade1d..a92121a1b 100755 --- a/m770/771100d.uml +++ b/m770/771100d.uml @@ -1,191 +1,191 @@ -#include "771100.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON F_ANAGRAFICA 10 2 -BEGIN - PROMPT -15 -1 "~Anagrafica" -END - -BUTTON F_ATTIVITA 10 2 -BEGIN - PROMPT -25 -1 "~Attività" -END - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -35 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -45 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -55 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Scritture contabili" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "GRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - JOIN LF_ATTIV TO LF_NDITTE INTO CODDITTA=CODDITTA CODATT=CODATTPREV - JOIN LF_COMUNI TO LF_ATTIV INTO COM==COMCS - OUTPUT F_RAGSOC LF_NDITTE->RAGSOC - OUTPUT F_ATTIV LF_ATTIV->CODATT - OUTPUT ASCF_TIPOA LF_ATTIV->TIPOADS - OUTPUT F_ANAGR LF_ATTIV->CODANGRDS - OUTPUT F_INDCS LF_ATTIV->INDCS - OUTPUT F_CIVCS LF_ATTIV->CIVCS - OUTPUT F_CAPCS LF_ATTIV->CAPCS - OUTPUT F_COMCS LF_COMUNI->DENCOM - OUTPUT F_PROVCS LF_COMUNI->PROVCOM - OUTPUT F_PTELCS LF_ATTIV->PTELCS - OUTPUT F_TELCS LF_ATTIV->TELCS - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" -END - -STRING F_ATTIV 5 -BEGIN - PROMPT -1 -1 "" - FLAGS "H" -END - -LIST ASCF_TIPOA 9 -BEGIN - PROMPT 1 5 "Tipo persona " - ITEMS "G|Societa'" - ITEMS "F|Fisica" - FLAGS "D" -END - -NUMBER F_ANAGR 5 -BEGIN - PROMPT 52 5 "Codice depositario " - FLAGS "RD" -END - -STRING F_COGNOME 30 -BEGIN - PROMPT 1 7 "Cognome/Nome " - FLAGS "D" -END - -STRING F_NOME 20 -BEGIN - PROMPT 45 7 "" - FLAGS "D" -END - -STRING F_RAGIONE 50 -BEGIN - PROMPT 1 7 "Ragione soc. " - FLAGS "D" -END - -STRING F_IND 35 -BEGIN - PROMPT 1 8 "Indirizzo " - FLAGS "D" -END - -STRING F_CIV 10 -BEGIN - PROMPT 50 8 "" - FLAGS "D" -END - -STRING F_CAP 5 -BEGIN - PROMPT 64 8 "C.A.P. " - FLAGS "D" -END - -STRING F_COM 50 -BEGIN - PROMPT 1 9 "Comune " - FLAGS "D" -END - -STRING F_PROV 5 -BEGIN - PROMPT 66 9 "Prov." - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 11 "Luogo di conservazione delle scritture contabili (solo se diverso)" -END - -STRING F_INDCS 35 -BEGIN - PROMPT 1 12 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVCS 10 -BEGIN - PROMPT 47 12 "" - FLAGS "D" -END - -STRING F_CAPCS 5 -BEGIN - PROMPT 63 12 "C.A.P. " - FLAGS "D" -END - -STRING F_COMCS 50 -BEGIN - PROMPT 1 13 "Comune " - FLAGS "D" -END - -STRING F_PROVCS 5 -BEGIN - PROMPT 63 13 "Prov. " - FLAGS "D" -END - -STRING F_PTELCS 10 -BEGIN - PROMPT 1 14 "Telefono " - FLAGS "D" -END - -STRING F_TELCS 30 -BEGIN - PROMPT 22 14 "" - FLAGS "D" -END - -ENDPAGE - -ENDMASK +#include "771100.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON F_ANAGRAFICA 10 2 +BEGIN + PROMPT -15 -1 "~Anagrafica" +END + +BUTTON F_ATTIVITA 10 2 +BEGIN + PROMPT -25 -1 "~Attività" +END + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -35 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -45 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -55 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Scritture contabili" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "GRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + JOIN LF_ATTIV TO LF_NDITTE INTO CODDITTA=CODDITTA CODATT=CODATTPREV + JOIN LF_COMUNI TO LF_ATTIV INTO COM==COMCS + OUTPUT F_RAGSOC LF_NDITTE->RAGSOC + OUTPUT F_ATTIV LF_ATTIV->CODATT + OUTPUT ASCF_TIPOA LF_ATTIV->TIPOADS + OUTPUT F_ANAGR LF_ATTIV->CODANGRDS + OUTPUT F_INDCS LF_ATTIV->INDCS + OUTPUT F_CIVCS LF_ATTIV->CIVCS + OUTPUT F_CAPCS LF_ATTIV->CAPCS + OUTPUT F_COMCS LF_COMUNI->DENCOM + OUTPUT F_PROVCS LF_COMUNI->PROVCOM + OUTPUT F_PTELCS LF_ATTIV->PTELCS + OUTPUT F_TELCS LF_ATTIV->TELCS + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" +END + +STRING F_ATTIV 5 +BEGIN + PROMPT -1 -1 "" + FLAGS "H" +END + +LIST ASCF_TIPOA 9 +BEGIN + PROMPT 1 5 "Tipo persona " + ITEMS "G|Societa'" + ITEMS "F|Fisica" + FLAGS "D" +END + +NUMBER F_ANAGR 5 +BEGIN + PROMPT 52 5 "Codice depositario " + FLAGS "RD" +END + +STRING F_COGNOME 30 +BEGIN + PROMPT 1 7 "Cognome/Nome " + FLAGS "D" +END + +STRING F_NOME 20 +BEGIN + PROMPT 45 7 "" + FLAGS "D" +END + +STRING F_RAGIONE 50 +BEGIN + PROMPT 1 7 "Ragione soc. " + FLAGS "D" +END + +STRING F_IND 35 +BEGIN + PROMPT 1 8 "Indirizzo " + FLAGS "D" +END + +STRING F_CIV 10 +BEGIN + PROMPT 50 8 "" + FLAGS "D" +END + +STRING F_CAP 5 +BEGIN + PROMPT 64 8 "C.A.P. " + FLAGS "D" +END + +STRING F_COM 50 +BEGIN + PROMPT 1 9 "Comune " + FLAGS "D" +END + +STRING F_PROV 5 +BEGIN + PROMPT 66 9 "Prov." + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 11 "Luogo di conservazione delle scritture contabili (solo se diverso)" +END + +STRING F_INDCS 35 +BEGIN + PROMPT 1 12 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVCS 10 +BEGIN + PROMPT 47 12 "" + FLAGS "D" +END + +STRING F_CAPCS 5 +BEGIN + PROMPT 63 12 "C.A.P. " + FLAGS "D" +END + +STRING F_COMCS 50 +BEGIN + PROMPT 1 13 "Comune " + FLAGS "D" +END + +STRING F_PROVCS 5 +BEGIN + PROMPT 63 13 "Prov. " + FLAGS "D" +END + +STRING F_PTELCS 10 +BEGIN + PROMPT 1 14 "Telefono " + FLAGS "D" +END + +STRING F_TELCS 30 +BEGIN + PROMPT 22 14 "" + FLAGS "D" +END + +ENDPAGE + +ENDMASK diff --git a/m770/771100e.uml b/m770/771100e.uml index f71239ed5..5265c30d5 100755 --- a/m770/771100e.uml +++ b/m770/771100e.uml @@ -1,206 +1,206 @@ -#include "771100.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON F_GIURIDICA 10 2 -BEGIN -PROMPT -15 -1 "~Giuridiche" -END - -BUTTON DCF_DITTA 10 2 -BEGIN -PROMPT -25 -1 "~Ditte" -END - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -35 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -45 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -55 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Dati C.A.A." -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "GRD" - USE LF_NDITTE KEY 1 - INPUT CODDITTA F_CODDITTA - JOIN LF_BASE TO LF_NDITTE INTO CODDITTA=CODDITTA - OUTPUT F_RAGSOC LF_NDITTE->RAGSOC - OUTPUT F_ANAGR LF_BASE->CODCAAF - CHECKTYPE REQUIRED - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 4 "Dati anagrafici" -END - -NUMBER F_ANAGR 5 -BEGIN - PROMPT 1 5 "Codice " - USE LF_ANAGGIU KEY 1 - INPUT CODANAGR F_ANAGR - JOIN LF_ANAG TO LF_ANAGGIU INTO CODANAGR=CODANAGR TIPOA="G" - JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES - JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF - DISPLAY "Codice" CODANAGR - DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC - OUTPUT F_COFI LF_ANAG->COFI - OUTPUT F_RAGIONE LF_ANAG->RAGSOC - OUTPUT F_INDRES LF_ANAG->INDRES - OUTPUT F_CIVRES LF_ANAG->CIVRES - OUTPUT F_CAPRES LF_ANAG->CAPRES - OUTPUT F_INDRF LF_ANAG->INDRF - OUTPUT F_CIVRF LF_ANAG->CIVRF - OUTPUT F_CAPRF LF_ANAG->CAPRF - OUTPUT F_COMRES 1@->DENCOM - OUTPUT F_PROVRES 1@->PROVCOM - OUTPUT F_COMRF 2@->DENCOM - OUTPUT F_PROVRF 2@->PROVCOM - OUTPUT F_ANAGR CODANAGR - CHECKTYPE NORMAL - FLAGS "R" -END - -STRING F_COFI 16 -BEGIN - PROMPT 43 5 "Codice fiscale " - FLAGS "D" -END - -STRING F_RAGIONE 50 -BEGIN - PROMPT 1 6 "Ragione sociale " - FLAGS "D" -END - -NUMBER F_DITTACAAF 5 -BEGIN - PROMPT 1 9 "Ditta CAA " - FLAGS "RZ" - USE LF_NDITTE KEY 3 SELECT CODANAGR=#F_ANAGR - INPUT TIPOA "G" - INPUT CODANAGR F_ANAGR - INPUT CODDITTA F_DITTACAAF - DISPLAY "Ditta" CODDITTA - DISPLAY "Tipo" TIPOA - DISPLAY "Cod.Anagrafico" CODANAGR - DISPLAY "Num.Iscr.Albo" NISCRAA - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_NISCRAA NISCRAA - OUTPUT F_DITTACAAF CODDITTA - CHECKTYPE NORMAL - FIELD LF_BASE->DITTACAAF -END - -STRING F_NISCRAA 10 -BEGIN - PROMPT 30 9 "Numero di iscrizione all'albo " - CHECKTYPE REQUIRED - FLAGS "DG" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 11 "Sede legale" -END - -STRING F_INDRES 35 -BEGIN - PROMPT 1 12 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVRES 10 -BEGIN - PROMPT 47 12 "" - FLAGS "D" -END - -STRING F_CAPRES 5 -BEGIN - PROMPT 63 12 "C.A.P. " - FLAGS "D" -END - -STRING F_COMRES 50 -BEGIN - PROMPT 1 13 "Comune " - FLAGS "D" -END - -STRING F_PROVRES 5 -BEGIN - PROMPT 63 13 "Prov. " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 15 "Domicilio fiscale " -END - -STRING F_INDRF 35 -BEGIN - PROMPT 1 16 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVRF 10 -BEGIN - PROMPT 47 16 "" - FLAGS "D" -END - -STRING F_CAPRF 5 -BEGIN - PROMPT 63 16 "C.A.P. " - FLAGS "D" -END - -STRING F_COMRF 50 -BEGIN - PROMPT 1 17 "Comune " - FLAGS "D" -END - -STRING F_PROVRF 5 -BEGIN - PROMPT 63 17 "Prov. " - FLAGS "D" -END - -ENDPAGE - -ENDMASK +#include "771100.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON F_GIURIDICA 10 2 +BEGIN +PROMPT -15 -1 "~Giuridiche" +END + +BUTTON DCF_DITTA 10 2 +BEGIN +PROMPT -25 -1 "~Ditte" +END + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -35 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -45 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -55 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Dati C.A.A." -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "GRD" + USE LF_NDITTE KEY 1 + INPUT CODDITTA F_CODDITTA + JOIN LF_BASE TO LF_NDITTE INTO CODDITTA=CODDITTA + OUTPUT F_RAGSOC LF_NDITTE->RAGSOC + OUTPUT F_ANAGR LF_BASE->CODCAAF + CHECKTYPE REQUIRED + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 4 "Dati anagrafici" +END + +NUMBER F_ANAGR 5 +BEGIN + PROMPT 1 5 "Codice " + USE LF_ANAGGIU KEY 1 + INPUT CODANAGR F_ANAGR + JOIN LF_ANAG TO LF_ANAGGIU INTO CODANAGR=CODANAGR TIPOA="G" + JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES + JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF + DISPLAY "Codice" CODANAGR + DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC + OUTPUT F_COFI LF_ANAG->COFI + OUTPUT F_RAGIONE LF_ANAG->RAGSOC + OUTPUT F_INDRES LF_ANAG->INDRES + OUTPUT F_CIVRES LF_ANAG->CIVRES + OUTPUT F_CAPRES LF_ANAG->CAPRES + OUTPUT F_INDRF LF_ANAG->INDRF + OUTPUT F_CIVRF LF_ANAG->CIVRF + OUTPUT F_CAPRF LF_ANAG->CAPRF + OUTPUT F_COMRES 1@->DENCOM + OUTPUT F_PROVRES 1@->PROVCOM + OUTPUT F_COMRF 2@->DENCOM + OUTPUT F_PROVRF 2@->PROVCOM + OUTPUT F_ANAGR CODANAGR + CHECKTYPE NORMAL + FLAGS "R" +END + +STRING F_COFI 16 +BEGIN + PROMPT 43 5 "Codice fiscale " + FLAGS "D" +END + +STRING F_RAGIONE 50 +BEGIN + PROMPT 1 6 "Ragione sociale " + FLAGS "D" +END + +NUMBER F_DITTACAAF 5 +BEGIN + PROMPT 1 9 "Ditta CAA " + FLAGS "RZ" + USE LF_NDITTE KEY 3 SELECT CODANAGR=#F_ANAGR + INPUT TIPOA "G" + INPUT CODANAGR F_ANAGR + INPUT CODDITTA F_DITTACAAF + DISPLAY "Ditta" CODDITTA + DISPLAY "Tipo" TIPOA + DISPLAY "Cod.Anagrafico" CODANAGR + DISPLAY "Num.Iscr.Albo" NISCRAA + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_NISCRAA NISCRAA + OUTPUT F_DITTACAAF CODDITTA + CHECKTYPE NORMAL + FIELD LF_BASE->DITTACAAF +END + +STRING F_NISCRAA 10 +BEGIN + PROMPT 30 9 "Numero di iscrizione all'albo " + CHECKTYPE REQUIRED + FLAGS "DG" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 11 "Sede legale" +END + +STRING F_INDRES 35 +BEGIN + PROMPT 1 12 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVRES 10 +BEGIN + PROMPT 47 12 "" + FLAGS "D" +END + +STRING F_CAPRES 5 +BEGIN + PROMPT 63 12 "C.A.P. " + FLAGS "D" +END + +STRING F_COMRES 50 +BEGIN + PROMPT 1 13 "Comune " + FLAGS "D" +END + +STRING F_PROVRES 5 +BEGIN + PROMPT 63 13 "Prov. " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 15 "Domicilio fiscale " +END + +STRING F_INDRF 35 +BEGIN + PROMPT 1 16 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVRF 10 +BEGIN + PROMPT 47 16 "" + FLAGS "D" +END + +STRING F_CAPRF 5 +BEGIN + PROMPT 63 16 "C.A.P. " + FLAGS "D" +END + +STRING F_COMRF 50 +BEGIN + PROMPT 1 17 "Comune " + FLAGS "D" +END + +STRING F_PROVRF 5 +BEGIN + PROMPT 63 17 "Prov. " + FLAGS "D" +END + +ENDPAGE + +ENDMASK diff --git a/m770/771100f.uml b/m770/771100f.uml index 41f92e734..e29bf029d 100755 --- a/m770/771100f.uml +++ b/m770/771100f.uml @@ -1,135 +1,135 @@ -#include "771100.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON F_FISICA 10 2 -BEGIN -PROMPT -14 -1 "~Fisiche" -END - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -24 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -34 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -44 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Direttore / Professionista" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "GRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - OUTPUT F_RAGSOC RAGSOC - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 7 -BEGIN - PROMPT 0 5 "Dati anagrafici" -END - -NUMBER F_ANAGR 5 -BEGIN - PROMPT 1 6 "Codice " - USE LF_ANAGFIS KEY 1 - CHECKTYPE NORMAL - INPUT CODANAGR F_ANAGR - JOIN LF_ANAG TO LF_ANAGFIS INTO TIPOA="F" CODANAGR=CODANAGR - JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC - DISPLAY "Codice" CODANAGR - DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC - OUTPUT F_COFI LF_ANAG->COFI - OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] - OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] - OUTPUT F_SESSO SESSO - OUTPUT F_DATANASC DATANASC - OUTPUT F_COMNASC LF_COMUNI->DENCOM - OUTPUT F_PROVNASC LF_COMUNI->PROVCOM - OUTPUT F_ANAGR CODANAGR - FIELD LF_BASE->CODPRO - FLAGS "R" - KEY 1 -END - -STRING F_COFI 16 -BEGIN - PROMPT 1 7 "Codice fiscale " - FLAGS "D" -END - -STRING F_COGNOME 30 -BEGIN - PROMPT 1 8 "Cognome " - FLAGS "D" -END - -STRING F_NOME 20 -BEGIN - PROMPT 1 9 "Nome " - FLAGS "D" -END - -STRING F_SESSO 1 -BEGIN - PROMPT 39 9 "Sesso " - FLAGS "D" -END - -DATE F_DATANASC -BEGIN - PROMPT 49 9 "Data di nascita " - FLAGS "D" -END - -STRING F_COMNASC 50 -BEGIN - PROMPT 1 10 "Comune nascita " - FLAGS "D" -END - -STRING F_PROVNASC 5 -BEGIN - PROMPT 70 10 "" - FLAGS "D" -END - -BOOLEAN F_CONTROLLI -BEGIN - PROMPT 1 13 "Si attesta che sono stati eseguiti i controlli di cui art.4" - FIELD LF_BASE->FLART4 -END - -ENDPAGE - -ENDMASK +#include "771100.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON F_FISICA 10 2 +BEGIN +PROMPT -14 -1 "~Fisiche" +END + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -24 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -34 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -44 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Direttore / Professionista" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "GRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + OUTPUT F_RAGSOC RAGSOC + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 7 +BEGIN + PROMPT 0 5 "Dati anagrafici" +END + +NUMBER F_ANAGR 5 +BEGIN + PROMPT 1 6 "Codice " + USE LF_ANAGFIS KEY 1 + CHECKTYPE NORMAL + INPUT CODANAGR F_ANAGR + JOIN LF_ANAG TO LF_ANAGFIS INTO TIPOA="F" CODANAGR=CODANAGR + JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC + DISPLAY "Codice" CODANAGR + DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC + OUTPUT F_COFI LF_ANAG->COFI + OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30] + OUTPUT F_NOME LF_ANAG->RAGSOC[31,50] + OUTPUT F_SESSO SESSO + OUTPUT F_DATANASC DATANASC + OUTPUT F_COMNASC LF_COMUNI->DENCOM + OUTPUT F_PROVNASC LF_COMUNI->PROVCOM + OUTPUT F_ANAGR CODANAGR + FIELD LF_BASE->CODPRO + FLAGS "R" + KEY 1 +END + +STRING F_COFI 16 +BEGIN + PROMPT 1 7 "Codice fiscale " + FLAGS "D" +END + +STRING F_COGNOME 30 +BEGIN + PROMPT 1 8 "Cognome " + FLAGS "D" +END + +STRING F_NOME 20 +BEGIN + PROMPT 1 9 "Nome " + FLAGS "D" +END + +STRING F_SESSO 1 +BEGIN + PROMPT 39 9 "Sesso " + FLAGS "D" +END + +DATE F_DATANASC +BEGIN + PROMPT 49 9 "Data di nascita " + FLAGS "D" +END + +STRING F_COMNASC 50 +BEGIN + PROMPT 1 10 "Comune nascita " + FLAGS "D" +END + +STRING F_PROVNASC 5 +BEGIN + PROMPT 70 10 "" + FLAGS "D" +END + +BOOLEAN F_CONTROLLI +BEGIN + PROMPT 1 13 "Si attesta che sono stati eseguiti i controlli di cui art.4" + FIELD LF_BASE->FLART4 +END + +ENDPAGE + +ENDMASK diff --git a/m770/771100g.uml b/m770/771100g.uml index fb0551587..ca4c09f08 100755 --- a/m770/771100g.uml +++ b/m770/771100g.uml @@ -1,260 +1,260 @@ -#include "771100.h" - -TOOLBAR "" 0 20 0 2 - -/* questi button vengono abilitati alternativamente - dal listbox ghost F_TIPOA2BTN */ -BUTTON F_BTN_GIURIDICA 10 2 -BEGIN -PROMPT -14 -1 "~Giuridiche" -END -BUTTON F_BTN_FISICA 10 2 -BEGIN -PROMPT -14 -1 "~Fisiche" -END - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -24 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -34 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -44 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Concessione / UIDD" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "GRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - OUTPUT F_RAGSOC LF_NDITTE->RAGSOC - OUTPUT F_TIPOA TIPOA - OUTPUT F_ANAGR CODANAGR - OUTPUT F_TIPOA2BTN TIPOA - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" -END - -STRING F_TIPOA 1 -BEGIN - PROMPT -1 -1 "" - FLAGS "H" -END - -NUMBER F_ANAGR 5 -BEGIN - PROMPT -1 -1 "" - FLAGS "H" -END - -NUMBER F_CODCONC1 3 -BEGIN - PROMPT 1 5 "Cod.Concessione " - FLAGS "DRZ" - FIELD LF_BASEBIS->L0CCONC1 -END - -NUMBER F_CODCONC2 3 -BEGIN - PROMPT 23 5 "Cod.Concessione " - FLAGS "RZ" - USE %UCC - INPUT CODTAB F_CODCONC2 - DISPLAY "Codice" CODTAB - DISPLAY "Ufficio@35" S0 - OUTPUT F_CODCONC2 CODTAB - HELP "Codice dell'ufficio concessioni" - CHECKTYPE NORMAL - FIELD LF_BASEBIS->L0CCONC2 -END - -NUMBER F_CODCONC3 3 -BEGIN - PROMPT 47 5 "Cod.Concessione " - FLAGS "RZ" - COPY USE F_CODCONC2 - INPUT CODTAB F_CODCONC3 - COPY DISPLAY F_CODCONC2 - OUTPUT F_CODCONC3 CODTAB - HELP "Codice dell'ufficio concessioni" - CHECKTYPE NORMAL - FIELD LF_BASEBIS->L0CCONC3 -END - -NUMBER F_CODTES1 3 -BEGIN - PROMPT 1 6 "Cod.Tesoreria " - FLAGS "RZ" - FIELD LF_BASEBIS->L0CTES1 -END - -NUMBER F_CODTES2 3 -BEGIN - PROMPT 23 6 "Cod.Tesoreria " - FLAGS "RZ" - FIELD LF_BASEBIS->L0CTES2 -END - -NUMBER F_CODTES3 3 -BEGIN - PROMPT 47 6 "Cod.Tesoreria " - FLAGS "RZ" - FIELD LF_BASEBIS->L0CTES3 -END - - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 8 "" -END - -NUMBER F_CODUI 3 -BEGIN - PROMPT 1 9 "Ufficio imposte " - FLAGS "RZD" - USE %UID - JOIN LF_COMUNI TO %UID INTO COM==S6 - INPUT CODTAB F_CODUI - OUTPUT F_DESCRUI S0 - OUTPUT F_INDUI S1 - OUTPUT F_CIVUI S3 - OUTPUT F_CAPUI S7 - OUTPUT F_COMUI LF_COMUNI->DENCOM - OUTPUT F_PROVUI LF_COMUNI->PROVCOM - CHECKTYPE NORMAL -END - -STRING F_DESCRUI 50 -BEGIN - PROMPT 25 9 "" - FLAGS "D" -END - -STRING F_INDUI 35 -BEGIN - PROMPT 1 10 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVUI 10 -BEGIN - PROMPT 47 10 "" - FLAGS "D" -END - -STRING F_CAPUI 5 -BEGIN - PROMPT 63 10 "C.A.P. " - FLAGS "D" -END - -STRING F_COMUI 50 -BEGIN - PROMPT 1 11 "Comune " - FLAGS "D" -END - -STRING F_PROVUI 5 -BEGIN - PROMPT 63 11 "Prov. " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 14 "" -END - -NUMBER F_CODCS 3 -BEGIN - PROMPT 1 15 "Centro servizi " - FLAGS "RZD" - USE %UCS - JOIN LF_COMUNI TO %UCS INTO COM==S6 - INPUT CODTAB F_CODCS - OUTPUT F_DESCRCS S0 - OUTPUT F_INDCS S1 - OUTPUT F_CIVCS S3 - OUTPUT F_CAPCS S7 - OUTPUT F_COMCS LF_COMUNI->DENCOM - OUTPUT F_PROVCS LF_COMUNI->PROVCOM - CHECKTYPE NORMAL -END - -STRING F_DESCRCS 50 -BEGIN - PROMPT 25 15 "" - FLAGS "D" -END - -STRING F_INDCS 35 -BEGIN - PROMPT 1 16 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVCS 10 -BEGIN - PROMPT 47 16 "" - FLAGS "D" -END - -STRING F_CAPCS 5 -BEGIN - PROMPT 63 16 "C.A.P. " - FLAGS "D" -END - -STRING F_COMCS 50 -BEGIN - PROMPT 1 17 "Comune " - FLAGS "D" -END - -STRING F_PROVCS 5 -BEGIN - PROMPT 63 17 "Prov. " - FLAGS "D" -END - -LISTBOX F_TIPOA2BTN 1 -BEGIN - PROMPT -1 -1 "" - FLAGS "GH" - ITEM "F|F" - MESSAGE HIDE,F_BTN_GIURIDICA|SHOW,F_BTN_FISICA - ITEM "G|G" - MESSAGE SHOW,F_BTN_GIURIDICA|HIDE,F_BTN_FISICA -END - -ENDPAGE - -ENDMASK +#include "771100.h" + +TOOLBAR "" 0 20 0 2 + +/* questi button vengono abilitati alternativamente + dal listbox ghost F_TIPOA2BTN */ +BUTTON F_BTN_GIURIDICA 10 2 +BEGIN +PROMPT -14 -1 "~Giuridiche" +END +BUTTON F_BTN_FISICA 10 2 +BEGIN +PROMPT -14 -1 "~Fisiche" +END + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -24 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -34 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -44 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Concessione / UIDD" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "GRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + OUTPUT F_RAGSOC LF_NDITTE->RAGSOC + OUTPUT F_TIPOA TIPOA + OUTPUT F_ANAGR CODANAGR + OUTPUT F_TIPOA2BTN TIPOA + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" +END + +STRING F_TIPOA 1 +BEGIN + PROMPT -1 -1 "" + FLAGS "H" +END + +NUMBER F_ANAGR 5 +BEGIN + PROMPT -1 -1 "" + FLAGS "H" +END + +NUMBER F_CODCONC1 3 +BEGIN + PROMPT 1 5 "Cod.Concessione " + FLAGS "DRZ" + FIELD LF_BASEBIS->L0CCONC1 +END + +NUMBER F_CODCONC2 3 +BEGIN + PROMPT 23 5 "Cod.Concessione " + FLAGS "RZ" + USE %UCC + INPUT CODTAB F_CODCONC2 + DISPLAY "Codice" CODTAB + DISPLAY "Ufficio@35" S0 + OUTPUT F_CODCONC2 CODTAB + HELP "Codice dell'ufficio concessioni" + CHECKTYPE NORMAL + FIELD LF_BASEBIS->L0CCONC2 +END + +NUMBER F_CODCONC3 3 +BEGIN + PROMPT 47 5 "Cod.Concessione " + FLAGS "RZ" + COPY USE F_CODCONC2 + INPUT CODTAB F_CODCONC3 + COPY DISPLAY F_CODCONC2 + OUTPUT F_CODCONC3 CODTAB + HELP "Codice dell'ufficio concessioni" + CHECKTYPE NORMAL + FIELD LF_BASEBIS->L0CCONC3 +END + +NUMBER F_CODTES1 3 +BEGIN + PROMPT 1 6 "Cod.Tesoreria " + FLAGS "RZ" + FIELD LF_BASEBIS->L0CTES1 +END + +NUMBER F_CODTES2 3 +BEGIN + PROMPT 23 6 "Cod.Tesoreria " + FLAGS "RZ" + FIELD LF_BASEBIS->L0CTES2 +END + +NUMBER F_CODTES3 3 +BEGIN + PROMPT 47 6 "Cod.Tesoreria " + FLAGS "RZ" + FIELD LF_BASEBIS->L0CTES3 +END + + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 8 "" +END + +NUMBER F_CODUI 3 +BEGIN + PROMPT 1 9 "Ufficio imposte " + FLAGS "RZD" + USE %UID + JOIN LF_COMUNI TO %UID INTO COM==S6 + INPUT CODTAB F_CODUI + OUTPUT F_DESCRUI S0 + OUTPUT F_INDUI S1 + OUTPUT F_CIVUI S3 + OUTPUT F_CAPUI S7 + OUTPUT F_COMUI LF_COMUNI->DENCOM + OUTPUT F_PROVUI LF_COMUNI->PROVCOM + CHECKTYPE NORMAL +END + +STRING F_DESCRUI 50 +BEGIN + PROMPT 25 9 "" + FLAGS "D" +END + +STRING F_INDUI 35 +BEGIN + PROMPT 1 10 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVUI 10 +BEGIN + PROMPT 47 10 "" + FLAGS "D" +END + +STRING F_CAPUI 5 +BEGIN + PROMPT 63 10 "C.A.P. " + FLAGS "D" +END + +STRING F_COMUI 50 +BEGIN + PROMPT 1 11 "Comune " + FLAGS "D" +END + +STRING F_PROVUI 5 +BEGIN + PROMPT 63 11 "Prov. " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 14 "" +END + +NUMBER F_CODCS 3 +BEGIN + PROMPT 1 15 "Centro servizi " + FLAGS "RZD" + USE %UCS + JOIN LF_COMUNI TO %UCS INTO COM==S6 + INPUT CODTAB F_CODCS + OUTPUT F_DESCRCS S0 + OUTPUT F_INDCS S1 + OUTPUT F_CIVCS S3 + OUTPUT F_CAPCS S7 + OUTPUT F_COMCS LF_COMUNI->DENCOM + OUTPUT F_PROVCS LF_COMUNI->PROVCOM + CHECKTYPE NORMAL +END + +STRING F_DESCRCS 50 +BEGIN + PROMPT 25 15 "" + FLAGS "D" +END + +STRING F_INDCS 35 +BEGIN + PROMPT 1 16 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVCS 10 +BEGIN + PROMPT 47 16 "" + FLAGS "D" +END + +STRING F_CAPCS 5 +BEGIN + PROMPT 63 16 "C.A.P. " + FLAGS "D" +END + +STRING F_COMCS 50 +BEGIN + PROMPT 1 17 "Comune " + FLAGS "D" +END + +STRING F_PROVCS 5 +BEGIN + PROMPT 63 17 "Prov. " + FLAGS "D" +END + +LISTBOX F_TIPOA2BTN 1 +BEGIN + PROMPT -1 -1 "" + FLAGS "GH" + ITEM "F|F" + MESSAGE HIDE,F_BTN_GIURIDICA|SHOW,F_BTN_FISICA + ITEM "G|G" + MESSAGE SHOW,F_BTN_GIURIDICA|HIDE,F_BTN_FISICA +END + +ENDPAGE + +ENDMASK diff --git a/m770/771100h.uml b/m770/771100h.uml index f0e658f6e..d3235c10f 100755 --- a/m770/771100h.uml +++ b/m770/771100h.uml @@ -1,214 +1,214 @@ -#include "771100.h" -TOOLBAR "" 0 20 0 2 - -BUTTON DLG_SAVEREC 8 2 -BEGIN -PROMPT -16 -1 "" -FLAGS "D" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_NEWREC 8 2 -BEGIN -PROMPT -26 -1 "~Nuovo" -MESSAGE EXIT,K_INS -FLAGS "D" -PICTURE BMP_NEWREC -PICTURE BMP_NEWRECDN -END - -BUTTON DLG_DELREC 8 2 -BEGIN -PROMPT -36 -1 "~Elimina" -MESSAGE EXIT,K_DEL -FLAGS "D" -END - -BUTTON DLG_FINDREC 8 2 -BEGIN -PROMPT -46 -1 "Ri~cerca" -MESSAGE EXIT,K_F9 -FLAGS "D" -PICTURE BMP_FINDREC -END - -BUTTON DLG_CANCEL 8 2 -BEGIN -PROMPT -56 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 8 2 -BEGIN -PROMPT -66 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE " Manutenzione dati societa' trasformate " -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER MDSTF_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "GRD" - KEY 1 - CHECKTYPE REQUIRED - USE LF_NDITTE KEY 1 - INPUT CODDITTA MDSTF_CODDITTA - OUTPUT MDSTF_RAGSOC RAGSOC - FIELD LF_SOCTRASF->CODDITTA -END - -STRING MDSTF_RAGSOC 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 6 -BEGIN - PROMPT 0 4 "Persone fisiche: imprese individuali e soggetti esercenti arti e professioni" - GROUP 1 -END - -STRING F_SOC_COFI 16 -BEGIN - PROMPT 1 5 "Codice fiscale " - CHECKTYPE REQUIRED - FIELD LF_SOCTRASF->CODFISC - GROUP 1 -END - -STRING F_SOC_COGNOME 30 -BEGIN - PROMPT 1 6 "Cognome " - CHECKTYPE REQUIRED - FIELD LF_SOCTRASF->DENOMIN[1,30] - GROUP 1 -END - -TEXT DLG_NULL -BEGIN - PROMPT 48 6 "(Per donne quello da nubile)" - GROUP 1 -END - -STRING F_SOC_NOME 20 -BEGIN - PROMPT 1 7 "Nome " - CHECKTYPE REQUIRED - FIELD LF_SOCTRASF->NOME - GROUP 1 -END - -STRING F_SOC_SESSO 1 -BEGIN - PROMPT 39 7 "Sesso " - FIELD LF_SOCTRASF->SESSO - GROUP 1 -END - -DATE F_SOC_DATANAS -BEGIN - PROMPT 48 7 "Data di nascita " - FIELD LF_SOCTRASF->DATANAS - GROUP 1 -END - -STRING F_SOC_COMUNE 20 -BEGIN - PROMPT 1 8 "Comune " - FIELD LF_SOCTRASF->COMNAS - GROUP 1 -END - -STRING F_SOC_PROVNAS 2 -BEGIN - PROMPT 48 8 "Provincia " - FIELD LF_SOCTRASF->PROVNAS - GROUP 1 - FLAGS "U" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 4 "Altri soggetti: art.5 e 87 del T.U. imposte sui redditi DPR 22/12/1986 n.917" - GROUP 2 -END - -STRING F_SOC_COFI 16 -BEGIN - PROMPT 1 5 "Codice fiscale " - CHECKTYPE REQUIRED - FIELD LF_SOCTRASF->CODFISC - GROUP 2 -END - -STRING F_SOC_DENOMIN 40 -BEGIN - PROMPT 1 6 "Denominazione " - CHECKTYPE REQUIRED - FIELD LF_SOCTRASF->DENOMIN - GROUP 2 -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 10 "Domicilio" -END - -STRING F_SOC_COMRES 20 -BEGIN - PROMPT 1 11 "Comune " - FIELD LF_SOCTRASF->COMDOM -END - -STRING F_SOC_PROVRES 2 -BEGIN - PROMPT 48 11 "Provincia " - FIELD LF_SOCTRASF->PROVDOM - FLAGS "U" -END - -STRING F_SOC_INDRES 35 -BEGIN - PROMPT 1 12 "Indirizzo " - FIELD LF_SOCTRASF->INDDOM -END - -NUMBER F_SOC_CONSBOCC 5 -BEGIN - PROMPT 1 14 "Consistenza base occupazionale al 12/06/94 " - FIELD LF_SOCTRASF->CONSBOCC -END - -NUMBER F_SOC_LAVDIPCIN 5 -BEGIN - PROMPT 1 15 "Lavoratori dipendenti in mobilita' o cassa integrazione al 12/06/94 " - FIELD LF_SOCTRASF->LAVDIPCIN -END - -DATE F_SOC_DATAINPI -BEGIN - PROMPT 1 16 "Periodo d'imposta dal " - FIELD LF_SOCTRASF->DATAINPI -END - -DATE F_SOC_DATAFINPI -BEGIN - PROMPT 34 16 " al " - FIELD LF_SOCTRASF->DATAFINPI -END - -ENDPAGE - -ENDMASK +#include "771100.h" +TOOLBAR "" 0 20 0 2 + +BUTTON DLG_SAVEREC 8 2 +BEGIN +PROMPT -16 -1 "" +FLAGS "D" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_NEWREC 8 2 +BEGIN +PROMPT -26 -1 "~Nuovo" +MESSAGE EXIT,K_INS +FLAGS "D" +PICTURE BMP_NEWREC +PICTURE BMP_NEWRECDN +END + +BUTTON DLG_DELREC 8 2 +BEGIN +PROMPT -36 -1 "~Elimina" +MESSAGE EXIT,K_DEL +FLAGS "D" +END + +BUTTON DLG_FINDREC 8 2 +BEGIN +PROMPT -46 -1 "Ri~cerca" +MESSAGE EXIT,K_F9 +FLAGS "D" +PICTURE BMP_FINDREC +END + +BUTTON DLG_CANCEL 8 2 +BEGIN +PROMPT -56 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 8 2 +BEGIN +PROMPT -66 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE " Manutenzione dati societa' trasformate " -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER MDSTF_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "GRD" + KEY 1 + CHECKTYPE REQUIRED + USE LF_NDITTE KEY 1 + INPUT CODDITTA MDSTF_CODDITTA + OUTPUT MDSTF_RAGSOC RAGSOC + FIELD LF_SOCTRASF->CODDITTA +END + +STRING MDSTF_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 6 +BEGIN + PROMPT 0 4 "Persone fisiche: imprese individuali e soggetti esercenti arti e professioni" + GROUP 1 +END + +STRING F_SOC_COFI 16 +BEGIN + PROMPT 1 5 "Codice fiscale " + CHECKTYPE REQUIRED + FIELD LF_SOCTRASF->CODFISC + GROUP 1 +END + +STRING F_SOC_COGNOME 30 +BEGIN + PROMPT 1 6 "Cognome " + CHECKTYPE REQUIRED + FIELD LF_SOCTRASF->DENOMIN[1,30] + GROUP 1 +END + +TEXT DLG_NULL +BEGIN + PROMPT 48 6 "(Per donne quello da nubile)" + GROUP 1 +END + +STRING F_SOC_NOME 20 +BEGIN + PROMPT 1 7 "Nome " + CHECKTYPE REQUIRED + FIELD LF_SOCTRASF->NOME + GROUP 1 +END + +STRING F_SOC_SESSO 1 +BEGIN + PROMPT 39 7 "Sesso " + FIELD LF_SOCTRASF->SESSO + GROUP 1 +END + +DATE F_SOC_DATANAS +BEGIN + PROMPT 48 7 "Data di nascita " + FIELD LF_SOCTRASF->DATANAS + GROUP 1 +END + +STRING F_SOC_COMUNE 20 +BEGIN + PROMPT 1 8 "Comune " + FIELD LF_SOCTRASF->COMNAS + GROUP 1 +END + +STRING F_SOC_PROVNAS 2 +BEGIN + PROMPT 48 8 "Provincia " + FIELD LF_SOCTRASF->PROVNAS + GROUP 1 + FLAGS "U" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 4 "Altri soggetti: art.5 e 87 del T.U. imposte sui redditi DPR 22/12/1986 n.917" + GROUP 2 +END + +STRING F_SOC_COFI 16 +BEGIN + PROMPT 1 5 "Codice fiscale " + CHECKTYPE REQUIRED + FIELD LF_SOCTRASF->CODFISC + GROUP 2 +END + +STRING F_SOC_DENOMIN 40 +BEGIN + PROMPT 1 6 "Denominazione " + CHECKTYPE REQUIRED + FIELD LF_SOCTRASF->DENOMIN + GROUP 2 +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 10 "Domicilio" +END + +STRING F_SOC_COMRES 20 +BEGIN + PROMPT 1 11 "Comune " + FIELD LF_SOCTRASF->COMDOM +END + +STRING F_SOC_PROVRES 2 +BEGIN + PROMPT 48 11 "Provincia " + FIELD LF_SOCTRASF->PROVDOM + FLAGS "U" +END + +STRING F_SOC_INDRES 35 +BEGIN + PROMPT 1 12 "Indirizzo " + FIELD LF_SOCTRASF->INDDOM +END + +NUMBER F_SOC_CONSBOCC 5 +BEGIN + PROMPT 1 14 "Consistenza base occupazionale al 12/06/94 " + FIELD LF_SOCTRASF->CONSBOCC +END + +NUMBER F_SOC_LAVDIPCIN 5 +BEGIN + PROMPT 1 15 "Lavoratori dipendenti in mobilita' o cassa integrazione al 12/06/94 " + FIELD LF_SOCTRASF->LAVDIPCIN +END + +DATE F_SOC_DATAINPI +BEGIN + PROMPT 1 16 "Periodo d'imposta dal " + FIELD LF_SOCTRASF->DATAINPI +END + +DATE F_SOC_DATAFINPI +BEGIN + PROMPT 34 16 " al " + FIELD LF_SOCTRASF->DATAFINPI +END + +ENDPAGE + +ENDMASK diff --git a/m770/771150a.uml b/m770/771150a.uml index 32d148a45..ff3eee5c6 100755 --- a/m770/771150a.uml +++ b/m770/771150a.uml @@ -1,510 +1,510 @@ -#include "anadip.h" -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "Anagrafica dipendenti" -1 -1 78 21 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 0 0 "" -END - -NUMBER ADF_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "RDG" - USE LF_NDITTE KEY 1 - FIELD LF_DIPEND->CODDITTA - CHECKTYPE REQUIRED - INPUT CODDITTA ADF_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale @50" RAGSOC - OUTPUT F_RAGSOCIALE RAGSOC - KEY 1 -END - -STRING F_RAGSOCIALE 50 -BEGIN - PROMPT 19 1 "" - FLAGS "D" -END - -NUMBER ADF_DIP_CODDIP 6 -BEGIN - PROMPT 1 3 "Codice dipendente " - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - FIELD LF_DIPEND->CODDIP - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP ADF_DIP_CODDIP - DISPLAY "Codice dipendente" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT ADF_DIP_CODDIP CODDIP - OUTPUT F_DIP_COGNOME COGNOME - OUTPUT F_DIP_NOME NOME - FLAGS "R" - CHECKTYPE REQUIRED - KEY 1 -END - -GROUPBOX DLG_NULL 78 7 -BEGIN - PROMPT 0 4 "" -END - -STRING F_DIP_CODFI 16 -BEGIN - PROMPT 1 5 "Codice fiscale " - FLAGS "U" - FIELD LF_DIPEND->CODFI - VALIDATE XTCF_FUNC F_DIPCODFI F_DIP_SESSO F_DIP_DATANA ADF_CODCOMNASC -END - -STRING F_DIP_COGNOME 24 -BEGIN - PROMPT 1 6 "Cognome " - FIELD LF_DIPEND->COGNOME -END - -STRING F_DIP_NOME 20 -BEGIN - PROMPT 50 6 "Nome " - FIELD LF_DIPEND->NOME -END - -LIST F_DIP_SESSO 1 -BEGIN - PROMPT 1 7 "Sesso " - ITEM "M|M" - ITEM "F|F" - FIELD LF_DIPEND->SESSO -END - -DATA F_DIP_DATANA -BEGIN - PROMPT 35 7 "Data di nascita " - FIELD LF_DIPEND->DATANA -END - -STRING ADF_CODCOMNASC 4 -BEGIN - PROMPT 1 8 "Codice Comune di nascita " - USE LF_COMUNI - INPUT COM ADF_CODCOMNASC -#include -CHECKYPE NORMAL - OUTPUT ADF_COMNASC DENCOM - OUTPUT F_DIP_PROVNA PROVCOM - FLAGS "HG" -END - -STRING ADF_COMNASC 50 -BEGIN - PROMPT 1 8 "Comune di nascita " - USE LF_COMUNI KEY 2 - INPUT DENCOM ADF_COMNASC -#include - OUTPUT ADF_COMNASC DENCOM - OUTPUT F_DIP_PROVNA PROVCOM - FIELD LF_DIPEND->COMUNENA -END - -STRING F_DIP_PROVNA 2 -BEGIN - PROMPT 1 9 "Provincia di nascita " - FIELD LF_DIPEND->PROVNA -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 11 "Residenza" -END - -STRING ADF_COMRES 50 -BEGIN - PROMPT 1 12 "Comune " - USE LF_COMUNI KEY 2 - INPUT DENCOM ADF_COMRES -#include - OUTPUT ADF_COMRES DENCOM - OUTPUT F_DIP_PROVRE PROVCOM - FIELD LF_DIPEND->COMRES -END - -STRING F_DIP_PROVRE 2 -BEGIN - PROMPT 1 13 "Provincia " - FIELD LF_DIPEND->PROVRES -END - -STRING F_DIP_INDRE 24 -BEGIN - PROMPT 22 13 "Indirizzo " - FIELD LF_DIPEND->INDRES -END - -NUMBER F_DIP_QUALIFICA 2 -BEGIN - PROMPT 1 15 "Qualifica " - FIELD LF_DIPEND->QUALIFICA - SHEET "Codice|Descrizione@85" - INPUT F_DIP_QUALIFICA - ITEM "01|Pensionati" - ITEM "02|Operai generici" - ITEM "03|Operai specializzati" - ITEM "04|Impiegati" - ITEM "05|Quadri" - ITEM "06|Dirigenti" - ITEM "07|Insegnanti universitari compresi docenti,incaricati,ricercatori,e assimilati" - ITEM "08|Insegnanti e presidi di scuola media" - ITEM "09|Insegnanti e direttori di scuola elementare e materna" - ITEM "10|Ministri di culto" - ITEM "11|Eredi" - FLAG "Z" - WARNING "Qualifica errata" - OUTPUT F_DIP_QUALIFICA -END - -LIST F_DIP_STATOCIV 23 -BEGIN - PROMPT 37 15 "Stato civile " - FIELD LF_DIPEND->STATOCIV - ITEM "|" - ITEM "1|Celibe/Nubile" - ITEM "2|Coniugato/a" - ITEM "3|Vedovo/a" - ITEM "4|Separato/a legalmente" - ITEM "5|Divorziato/a" - ITEM "6|Deceduto/a" - ITEM "7|Tutelato/a" - ITEM "8|Figlio/a minore" -END - -NUMBER ADF_CODDIPDEC 6 -BEGIN - PROMPT 1 16 "Codice dipendente deceduto " - USE LF_DIPEND KEY 1 SELECT ((CODDITTA==#ADF_CODDITTA)&&(CODDIP!=#ADF_DIP_CODDIP)&&(QUALIFICA!="11")) - FIELD LF_DIPEND->CODDIPDEC - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP ADF_CODDIPDEC - DISPLAY "Codice dipendente" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT ADF_CODDIPDEC CODDIP - WARNING "Codice dipendente deceduto non valido" - VALIDATE NOT_EMPTY_CHECK_FIELD - CHECKTYPE NORMAL -END - -LISTBOX ADF_ASSFIS 1 40 -BEGIN - PROMPT 1 17 "Si è avvalso dell'assist. fiscale " - ITEM "0|Non si è avvalso dell'assistenza fiscale" - ITEM "1|Del datore di lavoro" - ITEM "2|Del CAAF" - FIELD LF_DIPEND->ASSFIS -END - -ENDPAGE - -PAGE "Eredi" -1 -1 78 21 - -GROUPBOX DLG_NULL 76 12 -BEGIN - PROMPT 1 1 "Eredi" -END - -NUMBER F_DIP_CODEREDE0 6 -BEGIN - PROMPT 3 2 "Codice " - FIELD LF_DIPEND->CODEREDE0 - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP F_DIP_CODEREDE0 - DISPLAY "Codice" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_DIP_CODEREDE0 CODDIP - OUTPUT F_DIP_COGNEREDE0 COGNOME - OUTPUT F_DIP_NOMEREDE0 NOME - FLAG "DGR" - CHECKTYPE NORMAL -END - -STRING F_DIP_COGNEREDE0 24 -BEGIN - PROMPT 22 2 "" - FLAG "D" -END - -STRING F_DIP_NOMEREDE0 20 -BEGIN - PROMPT 50 2 "" - FLAG "D" -END - -NUMBER F_DIP_CODEREDE1 6 -BEGIN - PROMPT 11 3 "" - FIELD LF_DIPEND->CODEREDE1 - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP F_DIP_CODEREDE1 - DISPLAY "Codice" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_DIP_CODEREDE1 CODDIP - OUTPUT F_DIP_COGNEREDE1 COGNOME - OUTPUT F_DIP_NOMEREDE1 NOME - CHECKTYPE NORMAL - FLAG "DR" -END - -STRING F_DIP_COGNEREDE1 24 -BEGIN - PROMPT 22 3 "" - FLAG "D" -END - -STRING F_DIP_NOMEREDE1 20 -BEGIN - PROMPT 50 3 "" - FLAG "D" -END - -NUMBER F_DIP_CODEREDE2 6 -BEGIN - PROMPT 11 4 "" - FIELD LF_DIPEND->CODEREDE2 - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP F_DIP_CODEREDE2 - DISPLAY "Codice" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_DIP_CODEREDE2 CODDIP - OUTPUT F_DIP_COGNEREDE2 COGNOME - OUTPUT F_DIP_NOMEREDE2 NOME - CHECKTYPE NORMAL - FLAG "DR" -END - -STRING F_DIP_COGNEREDE2 24 -BEGIN - PROMPT 22 4 "" - FLAG "D" -END - -STRING F_DIP_NOMEREDE2 20 -BEGIN - PROMPT 50 4 "" - FLAG "D" -END - -NUMBER F_DIP_CODEREDE3 6 -BEGIN - PROMPT 11 5 "" - FIELD LF_DIPEND->CODEREDE3 - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP F_DIP_CODEREDE3 - DISPLAY "Codice" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_DIP_CODEREDE3 CODDIP - OUTPUT F_DIP_COGNEREDE3 COGNOME - OUTPUT F_DIP_NOMEREDE3 NOME - CHECKTYPE NORMAL - FLAG "DR" -END - -STRING F_DIP_COGNEREDE3 24 -BEGIN - PROMPT 22 5 "" - FLAG "D" -END - -STRING F_DIP_NOMEREDE3 20 -BEGIN - PROMPT 50 5 "" - FLAG "D" -END - -NUMBER F_DIP_CODEREDE4 6 -BEGIN - PROMPT 11 6 "" - FIELD LF_DIPEND->CODEREDE4 - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP F_DIP_CODEREDE4 - DISPLAY "Codice" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_DIP_CODEREDE4 CODDIP - OUTPUT F_DIP_COGNEREDE4 COGNOME - OUTPUT F_DIP_NOMEREDE4 NOME - FLAG "DR" - CHECKTYPE NORMAL -END - -STRING F_DIP_COGNEREDE4 24 -BEGIN - PROMPT 22 6 "" - FLAG "D" -END - -STRING F_DIP_NOMEREDE4 20 -BEGIN - PROMPT 50 6 "" - FLAG "D" -END - -NUMBER F_DIP_CODEREDE5 6 -BEGIN - PROMPT 11 7 "" - FIELD LF_DIPEND->CODEREDE5 - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP F_DIP_CODEREDE5 - DISPLAY "Codice" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_DIP_CODEREDE5 CODDIP - OUTPUT F_DIP_COGNEREDE5 COGNOME - OUTPUT F_DIP_NOMEREDE5 NOME - FLAG "DR" - CHECKTYPE NORMAL -END - -STRING F_DIP_COGNEREDE5 24 -BEGIN - PROMPT 22 7 "" - FLAG "D" -END - -STRING F_DIP_NOMEREDE5 20 -BEGIN - PROMPT 50 7 "" - FLAG "D" -END - -NUMBER F_DIP_CODEREDE6 6 -BEGIN - PROMPT 11 8 "" - FIELD LF_DIPEND->CODEREDE6 - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP F_DIP_CODEREDE6 - DISPLAY "Codice" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_DIP_CODEREDE6 CODDIP - OUTPUT F_DIP_COGNEREDE6 COGNOME - OUTPUT F_DIP_NOMEREDE6 NOME - FLAG "DR" - CHECKTYPE NORMAL -END - -STRING F_DIP_COGNEREDE6 24 -BEGIN - PROMPT 22 8 "" - FLAG "D" -END - -STRING F_DIP_NOMEREDE6 20 -BEGIN - PROMPT 50 8 "" - FLAG "D" -END - -NUMBER F_DIP_CODEREDE7 6 -BEGIN - PROMPT 11 9 "" - FIELD LF_DIPEND->CODEREDE7 - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP F_DIP_CODEREDE7 - DISPLAY "Codice" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_DIP_CODEREDE7 CODDIP - OUTPUT F_DIP_COGNEREDE7 COGNOME - OUTPUT F_DIP_NOMEREDE7 NOME - FLAG "DR" - CHECKTYPE NORMAL -END - -STRING F_DIP_COGNEREDE7 24 -BEGIN - PROMPT 22 9 "" - FLAG "D" -END - -STRING F_DIP_NOMEREDE7 20 -BEGIN - PROMPT 50 9 "" - FLAG "D" -END - -NUMBER F_DIP_CODEREDE8 6 -BEGIN - PROMPT 11 10 "" - FIELD LF_DIPEND->CODEREDE8 - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP F_DIP_CODEREDE8 - DISPLAY "Codice" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_DIP_CODEREDE8 CODDIP - OUTPUT F_DIP_COGNEREDE8 COGNOME - OUTPUT F_DIP_NOMEREDE8 NOME - FLAG "DR" - CHECKTYPE NORMAL -END - -STRING F_DIP_COGNEREDE8 24 -BEGIN - PROMPT 22 10 "" - FLAG "D" -END - -STRING F_DIP_NOMEREDE8 20 -BEGIN - PROMPT 50 10 "" - FLAG "D" -END - -NUMBER F_DIP_CODEREDE9 6 -BEGIN - PROMPT 11 11 "" - FIELD LF_DIPEND->CODEREDE9 - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) - INPUT CODDITTA ADF_CODDITTA - INPUT CODDIP F_DIP_CODEREDE9 - DISPLAY "Codice" CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_DIP_CODEREDE9 CODDIP - OUTPUT F_DIP_COGNEREDE9 COGNOME - OUTPUT F_DIP_NOMEREDE9 NOME - FLAG "DR" - CHECKTYPE NORMAL -END - -STRING F_DIP_COGNEREDE9 24 -BEGIN - PROMPT 22 11 "" - FLAG "D" -END - -STRING F_DIP_NOMEREDE9 20 -BEGIN - PROMPT 50 11 "" - FLAG "D" -END - -ENDPAGE - -ENDMASK +#include "anadip.h" +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "Anagrafica dipendenti" -1 -1 78 21 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 0 0 "" +END + +NUMBER ADF_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "RDG" + USE LF_NDITTE KEY 1 + FIELD LF_DIPEND->CODDITTA + CHECKTYPE REQUIRED + INPUT CODDITTA ADF_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale @50" RAGSOC + OUTPUT F_RAGSOCIALE RAGSOC + KEY 1 +END + +STRING F_RAGSOCIALE 50 +BEGIN + PROMPT 19 1 "" + FLAGS "D" +END + +NUMBER ADF_DIP_CODDIP 6 +BEGIN + PROMPT 1 3 "Codice dipendente " + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + FIELD LF_DIPEND->CODDIP + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP ADF_DIP_CODDIP + DISPLAY "Codice dipendente" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT ADF_DIP_CODDIP CODDIP + OUTPUT F_DIP_COGNOME COGNOME + OUTPUT F_DIP_NOME NOME + FLAGS "R" + CHECKTYPE REQUIRED + KEY 1 +END + +GROUPBOX DLG_NULL 78 7 +BEGIN + PROMPT 0 4 "" +END + +STRING F_DIP_CODFI 16 +BEGIN + PROMPT 1 5 "Codice fiscale " + FLAGS "U" + FIELD LF_DIPEND->CODFI + VALIDATE XTCF_FUNC F_DIPCODFI F_DIP_SESSO F_DIP_DATANA ADF_CODCOMNASC +END + +STRING F_DIP_COGNOME 24 +BEGIN + PROMPT 1 6 "Cognome " + FIELD LF_DIPEND->COGNOME +END + +STRING F_DIP_NOME 20 +BEGIN + PROMPT 50 6 "Nome " + FIELD LF_DIPEND->NOME +END + +LIST F_DIP_SESSO 1 +BEGIN + PROMPT 1 7 "Sesso " + ITEM "M|M" + ITEM "F|F" + FIELD LF_DIPEND->SESSO +END + +DATA F_DIP_DATANA +BEGIN + PROMPT 35 7 "Data di nascita " + FIELD LF_DIPEND->DATANA +END + +STRING ADF_CODCOMNASC 4 +BEGIN + PROMPT 1 8 "Codice Comune di nascita " + USE LF_COMUNI + INPUT COM ADF_CODCOMNASC +#include +CHECKYPE NORMAL + OUTPUT ADF_COMNASC DENCOM + OUTPUT F_DIP_PROVNA PROVCOM + FLAGS "HG" +END + +STRING ADF_COMNASC 50 +BEGIN + PROMPT 1 8 "Comune di nascita " + USE LF_COMUNI KEY 2 + INPUT DENCOM ADF_COMNASC +#include + OUTPUT ADF_COMNASC DENCOM + OUTPUT F_DIP_PROVNA PROVCOM + FIELD LF_DIPEND->COMUNENA +END + +STRING F_DIP_PROVNA 2 +BEGIN + PROMPT 1 9 "Provincia di nascita " + FIELD LF_DIPEND->PROVNA +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 11 "Residenza" +END + +STRING ADF_COMRES 50 +BEGIN + PROMPT 1 12 "Comune " + USE LF_COMUNI KEY 2 + INPUT DENCOM ADF_COMRES +#include + OUTPUT ADF_COMRES DENCOM + OUTPUT F_DIP_PROVRE PROVCOM + FIELD LF_DIPEND->COMRES +END + +STRING F_DIP_PROVRE 2 +BEGIN + PROMPT 1 13 "Provincia " + FIELD LF_DIPEND->PROVRES +END + +STRING F_DIP_INDRE 24 +BEGIN + PROMPT 22 13 "Indirizzo " + FIELD LF_DIPEND->INDRES +END + +NUMBER F_DIP_QUALIFICA 2 +BEGIN + PROMPT 1 15 "Qualifica " + FIELD LF_DIPEND->QUALIFICA + SHEET "Codice|Descrizione@85" + INPUT F_DIP_QUALIFICA + ITEM "01|Pensionati" + ITEM "02|Operai generici" + ITEM "03|Operai specializzati" + ITEM "04|Impiegati" + ITEM "05|Quadri" + ITEM "06|Dirigenti" + ITEM "07|Insegnanti universitari compresi docenti,incaricati,ricercatori,e assimilati" + ITEM "08|Insegnanti e presidi di scuola media" + ITEM "09|Insegnanti e direttori di scuola elementare e materna" + ITEM "10|Ministri di culto" + ITEM "11|Eredi" + FLAG "Z" + WARNING "Qualifica errata" + OUTPUT F_DIP_QUALIFICA +END + +LIST F_DIP_STATOCIV 23 +BEGIN + PROMPT 37 15 "Stato civile " + FIELD LF_DIPEND->STATOCIV + ITEM "|" + ITEM "1|Celibe/Nubile" + ITEM "2|Coniugato/a" + ITEM "3|Vedovo/a" + ITEM "4|Separato/a legalmente" + ITEM "5|Divorziato/a" + ITEM "6|Deceduto/a" + ITEM "7|Tutelato/a" + ITEM "8|Figlio/a minore" +END + +NUMBER ADF_CODDIPDEC 6 +BEGIN + PROMPT 1 16 "Codice dipendente deceduto " + USE LF_DIPEND KEY 1 SELECT ((CODDITTA==#ADF_CODDITTA)&&(CODDIP!=#ADF_DIP_CODDIP)&&(QUALIFICA!="11")) + FIELD LF_DIPEND->CODDIPDEC + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP ADF_CODDIPDEC + DISPLAY "Codice dipendente" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT ADF_CODDIPDEC CODDIP + WARNING "Codice dipendente deceduto non valido" + VALIDATE NOT_EMPTY_CHECK_FIELD + CHECKTYPE NORMAL +END + +LISTBOX ADF_ASSFIS 1 40 +BEGIN + PROMPT 1 17 "Si è avvalso dell'assist. fiscale " + ITEM "0|Non si è avvalso dell'assistenza fiscale" + ITEM "1|Del datore di lavoro" + ITEM "2|Del CAAF" + FIELD LF_DIPEND->ASSFIS +END + +ENDPAGE + +PAGE "Eredi" -1 -1 78 21 + +GROUPBOX DLG_NULL 76 12 +BEGIN + PROMPT 1 1 "Eredi" +END + +NUMBER F_DIP_CODEREDE0 6 +BEGIN + PROMPT 3 2 "Codice " + FIELD LF_DIPEND->CODEREDE0 + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP F_DIP_CODEREDE0 + DISPLAY "Codice" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_DIP_CODEREDE0 CODDIP + OUTPUT F_DIP_COGNEREDE0 COGNOME + OUTPUT F_DIP_NOMEREDE0 NOME + FLAG "DGR" + CHECKTYPE NORMAL +END + +STRING F_DIP_COGNEREDE0 24 +BEGIN + PROMPT 22 2 "" + FLAG "D" +END + +STRING F_DIP_NOMEREDE0 20 +BEGIN + PROMPT 50 2 "" + FLAG "D" +END + +NUMBER F_DIP_CODEREDE1 6 +BEGIN + PROMPT 11 3 "" + FIELD LF_DIPEND->CODEREDE1 + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP F_DIP_CODEREDE1 + DISPLAY "Codice" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_DIP_CODEREDE1 CODDIP + OUTPUT F_DIP_COGNEREDE1 COGNOME + OUTPUT F_DIP_NOMEREDE1 NOME + CHECKTYPE NORMAL + FLAG "DR" +END + +STRING F_DIP_COGNEREDE1 24 +BEGIN + PROMPT 22 3 "" + FLAG "D" +END + +STRING F_DIP_NOMEREDE1 20 +BEGIN + PROMPT 50 3 "" + FLAG "D" +END + +NUMBER F_DIP_CODEREDE2 6 +BEGIN + PROMPT 11 4 "" + FIELD LF_DIPEND->CODEREDE2 + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP F_DIP_CODEREDE2 + DISPLAY "Codice" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_DIP_CODEREDE2 CODDIP + OUTPUT F_DIP_COGNEREDE2 COGNOME + OUTPUT F_DIP_NOMEREDE2 NOME + CHECKTYPE NORMAL + FLAG "DR" +END + +STRING F_DIP_COGNEREDE2 24 +BEGIN + PROMPT 22 4 "" + FLAG "D" +END + +STRING F_DIP_NOMEREDE2 20 +BEGIN + PROMPT 50 4 "" + FLAG "D" +END + +NUMBER F_DIP_CODEREDE3 6 +BEGIN + PROMPT 11 5 "" + FIELD LF_DIPEND->CODEREDE3 + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP F_DIP_CODEREDE3 + DISPLAY "Codice" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_DIP_CODEREDE3 CODDIP + OUTPUT F_DIP_COGNEREDE3 COGNOME + OUTPUT F_DIP_NOMEREDE3 NOME + CHECKTYPE NORMAL + FLAG "DR" +END + +STRING F_DIP_COGNEREDE3 24 +BEGIN + PROMPT 22 5 "" + FLAG "D" +END + +STRING F_DIP_NOMEREDE3 20 +BEGIN + PROMPT 50 5 "" + FLAG "D" +END + +NUMBER F_DIP_CODEREDE4 6 +BEGIN + PROMPT 11 6 "" + FIELD LF_DIPEND->CODEREDE4 + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP F_DIP_CODEREDE4 + DISPLAY "Codice" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_DIP_CODEREDE4 CODDIP + OUTPUT F_DIP_COGNEREDE4 COGNOME + OUTPUT F_DIP_NOMEREDE4 NOME + FLAG "DR" + CHECKTYPE NORMAL +END + +STRING F_DIP_COGNEREDE4 24 +BEGIN + PROMPT 22 6 "" + FLAG "D" +END + +STRING F_DIP_NOMEREDE4 20 +BEGIN + PROMPT 50 6 "" + FLAG "D" +END + +NUMBER F_DIP_CODEREDE5 6 +BEGIN + PROMPT 11 7 "" + FIELD LF_DIPEND->CODEREDE5 + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP F_DIP_CODEREDE5 + DISPLAY "Codice" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_DIP_CODEREDE5 CODDIP + OUTPUT F_DIP_COGNEREDE5 COGNOME + OUTPUT F_DIP_NOMEREDE5 NOME + FLAG "DR" + CHECKTYPE NORMAL +END + +STRING F_DIP_COGNEREDE5 24 +BEGIN + PROMPT 22 7 "" + FLAG "D" +END + +STRING F_DIP_NOMEREDE5 20 +BEGIN + PROMPT 50 7 "" + FLAG "D" +END + +NUMBER F_DIP_CODEREDE6 6 +BEGIN + PROMPT 11 8 "" + FIELD LF_DIPEND->CODEREDE6 + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP F_DIP_CODEREDE6 + DISPLAY "Codice" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_DIP_CODEREDE6 CODDIP + OUTPUT F_DIP_COGNEREDE6 COGNOME + OUTPUT F_DIP_NOMEREDE6 NOME + FLAG "DR" + CHECKTYPE NORMAL +END + +STRING F_DIP_COGNEREDE6 24 +BEGIN + PROMPT 22 8 "" + FLAG "D" +END + +STRING F_DIP_NOMEREDE6 20 +BEGIN + PROMPT 50 8 "" + FLAG "D" +END + +NUMBER F_DIP_CODEREDE7 6 +BEGIN + PROMPT 11 9 "" + FIELD LF_DIPEND->CODEREDE7 + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP F_DIP_CODEREDE7 + DISPLAY "Codice" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_DIP_CODEREDE7 CODDIP + OUTPUT F_DIP_COGNEREDE7 COGNOME + OUTPUT F_DIP_NOMEREDE7 NOME + FLAG "DR" + CHECKTYPE NORMAL +END + +STRING F_DIP_COGNEREDE7 24 +BEGIN + PROMPT 22 9 "" + FLAG "D" +END + +STRING F_DIP_NOMEREDE7 20 +BEGIN + PROMPT 50 9 "" + FLAG "D" +END + +NUMBER F_DIP_CODEREDE8 6 +BEGIN + PROMPT 11 10 "" + FIELD LF_DIPEND->CODEREDE8 + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP F_DIP_CODEREDE8 + DISPLAY "Codice" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_DIP_CODEREDE8 CODDIP + OUTPUT F_DIP_COGNEREDE8 COGNOME + OUTPUT F_DIP_NOMEREDE8 NOME + FLAG "DR" + CHECKTYPE NORMAL +END + +STRING F_DIP_COGNEREDE8 24 +BEGIN + PROMPT 22 10 "" + FLAG "D" +END + +STRING F_DIP_NOMEREDE8 20 +BEGIN + PROMPT 50 10 "" + FLAG "D" +END + +NUMBER F_DIP_CODEREDE9 6 +BEGIN + PROMPT 11 11 "" + FIELD LF_DIPEND->CODEREDE9 + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#ADF_CODDITTA)) + INPUT CODDITTA ADF_CODDITTA + INPUT CODDIP F_DIP_CODEREDE9 + DISPLAY "Codice" CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_DIP_CODEREDE9 CODDIP + OUTPUT F_DIP_COGNEREDE9 COGNOME + OUTPUT F_DIP_NOMEREDE9 NOME + FLAG "DR" + CHECKTYPE NORMAL +END + +STRING F_DIP_COGNEREDE9 24 +BEGIN + PROMPT 22 11 "" + FLAG "D" +END + +STRING F_DIP_NOMEREDE9 20 +BEGIN + PROMPT 50 11 "" + FLAG "D" +END + +ENDPAGE + +ENDMASK diff --git a/m770/771200.cpp b/m770/771200.cpp index e61f6cbf7..b531535ca 100755 --- a/m770/771200.cpp +++ b/m770/771200.cpp @@ -1,1017 +1,1017 @@ -////////////////////////////////////////// -// 771200.cpp - Quadro A 771mod -7 A // -// - Quadro A1 771mod -7 1 // -// - Quadro A2 771mod -7 2 // -// - Quadro A3 771mod -7 3 // -////////////////////////////////////////// -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include "77lib.h" -#include "dipend.h" -#include "quadroa.h" -#include "quadroa3.h" -#include "soctrasf.h" -#include "771200.h" -#include "774200.h" -#include "77qaall.h" - -bool QA_cerca_codA(const long codditta, const long coddip, TString& quadro); - -bool QA_cerca_codA(const long codditta, const long coddip, TString& quadro) -{ - TString16 c58(""); - bool Result = FALSE; - TLocalisamfile qq(quadro == "A" ? LF_QUAA : LF_QUAA2); - qq.zero(); - qq.put(QUA_CODDITTA, codditta); - qq.put(QUA_CODIP, coddip); - TRectype dep(qq.curr()); - qq.read(); - TRecnotype lPos = qq.recno(); - for ( ;!qq.eof(); qq.next()) - { - if (qq.curr() > dep) break; - c58 = qq.get(QUA_RETCON); - if (c58 == "A") - { - Result = TRUE; - break; - } - } - qq.readat(lPos); - return Result; -} - -class TQuadroA : public TRelation_application -{ - private: - TString _quadro; // Codice del quadro in gestione - bool _registra; // Se TRUE fa i riporti - TRelation* _rel; - TMask* _msk[2]; - TMask* _mskAllegati; // maschera allegati 730 (A e A2) - long _coddip; - char _tipoq; - int _nproga; - int _mode; - int _anno_dic; // anno dichiarazione - TLocalisamfile* _qd, *_base; - TRiporti _rip; - int _file; - bool _soc_trasf; - TString _cognome,_nome; // dati soc.trasf. - - private: -// Handler relativi ai quadri A - A1 - A2 - A3 - static bool nprog_handler (TMask_field& f, KEY key); - static bool codanagr_handler (TMask_field& f, KEY key); - static bool codditta_hnd (TMask_field& f, KEY key); - static bool setta_nprog (TMask_field& f); - static bool QAA2alleg_handler (TMask_field& f, KEY key); - -// Handler relativi alla manutenzione quadro A - static bool QA_comp_netti_hnd (TMask_field& f, KEY key); - static bool QA_tot_impon_hnd (TMask_field& f, KEY key); - static bool QA_tot_detraz_hnd (TMask_field& f, KEY key); - static bool QA_cfdlprec_hnd (TMask_field& f, KEY key); - static bool QA_chech_ritdatlav (TMask_field& f, KEY key); - static bool QA_calcola42 (TMask_field& f, KEY k); - static bool QA_check_2527 (TMask_field& f, KEY key); - static bool QA_A2_check_58 (TMask_field& f, KEY key); - static bool QA_calcolo30 (TMask_field& f, KEY key); -// Handler relativi alla manutenzione quadro A3 - static bool QA3_codip_handler (TMask_field& f, KEY key); - static bool QA3_base_occupazionale(TMask_field& f, KEY key); - void AA3SettaCognomeNome(TMask& m); - - protected: - TString _sCognome, _sNome; // dati dipendente - int _iNprog; - long _codditta,_codip; - - virtual bool user_create(); - virtual bool user_destroy(); - virtual int rewrite(const TMask& m); - virtual int write (const TMask& m); - virtual bool remove(); - virtual TRelation* get_relation() const { return _rel; } - virtual TMask* get_mask(int mode); - virtual bool changing_mask(int mode); - virtual void init_query_mode (TMask&); - virtual void init_query_insert_mode (TMask&); - virtual void init_modify_mode (TMask&); - virtual void init_insert_mode(TMask& m); - virtual void on_config_change(); - TMask* load_mask(int n); - int anno_dic() const { return _anno_dic; } - bool QuadroA() const { return _quadro == "A"; } - bool QuadroA1() const { return _quadro == "A1"; } - bool QuadroA2() const { return _quadro == "A2"; } - bool QuadroA3() const { return _quadro == "A3"; } - - public: - bool is_societa_trasformata(TMask& m); - void carica_record2_A3(TMask& m); - char tipo_trasformata(long codditta); - void registra_record2_A3(const TMask& m); - void cancella_record2_A3(); - - TQuadroA(char tipo); - virtual ~TQuadroA() {}; -}; - -// Implementazione classe TQuadroA - -inline TQuadroA& app() { return (TQuadroA&) main_app(); } - -TQuadroA::TQuadroA(char tipo): _rel(NULL), _mode(0), _tipoq(tipo) -{ - memset(_msk, 0, sizeof(_msk)); -} - -bool TQuadroA::changing_mask(int mode) -{ - if ((mode == MODE_MOD) && (_mode == MODE_INS)) - return FALSE; - else - return _mode != mode; -} - -TMask* TQuadroA::get_mask(int mode) -{ - const int m = (mode == MODE_QUERY) ? 0 : 1; - _mode = mode; - return load_mask(m); -} - -TMask* TQuadroA::load_mask(int n) -{ - if (_msk[n] != NULL) - return _msk[n]; - - TFilename name("771200"); - - if (n == 0) - { - switch (_tipoq) - { - case 'A': // Manutenzione quadro A - name << 'a'; - break; - case '1': // Manutenzione quadro A1 - name << 'c'; - break; - case '2': // Manutenzione quadro A2 - name << 'e'; - break; - case '3': // Manutenzione quadro A3 - name << 'g'; - break; - default: - break; - } - } - else - { - switch (_tipoq) - { - case 'A': // Manutenzione quadro A - name << 'b'; - break; - case '1': // Manutenzione quadro A1 - name << 'd'; - break; - case '2': // Manutenzione quadro A2 - name << 'f'; - break; - case '3': // Manutenzione quadro A3 - name << 'h'; - break; - default: - break; - } - } - - TMask* m = new TMask(name); - - switch (n) - { - case 0: - if (m) - { - m->set_handler(QAF_CODDITTA, codditta_hnd); - if (QuadroA3()) - { - m->set_handler(F_CODANAGDIP, QA3_codip_handler); - m->set_handler(F_CODIPQUADRO, QA3_codip_handler); - m->set_handler(F_BASEOCCUPA, QA3_base_occupazionale); - } - else - { - if (QuadroA()) - m->set_handler(QAF_ALLEG_A, QAA2alleg_handler); - if (QuadroA2()) - m->set_handler(QA2F_ALLEG_A2, QAA2alleg_handler); - m->set_handler(QAF_NPROG, nprog_handler); - m->set_handler(F_CODANAGDIP, codanagr_handler); - m->set_handler(F_CODANAGDIPQA, codanagr_handler); - } - } - break; - case 1: - m->disable(DLG_FINDREC); - if (m) - { - if (QuadroA2()) - m->set_handler(QA2F_RETCON, QA_A2_check_58); - - if (QuadroA()) - { -// Calcola i compensi netti (c.23) e controllo c25-27 - m->set_handler(F_CODFISDL, QA_cfdlprec_hnd); - m->set_handler(F_DENARO, QA_comp_netti_hnd); - m->set_handler(F_NATURA, QA_comp_netti_hnd); - m->set_handler(F_COBBDIP21, QA_comp_netti_hnd); -// Se immette un B controlla che ci sia almeno un rec con A - m->set_handler(F_RETCON56, QA_A2_check_58); -// Se 27=0 => 25 deve = 0 - m->set_handler(F_IACOBBCD25, QA_check_2527); -// Calcola il totale imponibile (c.27) - m->set_handler(F_AMMLORDO24, QA_tot_impon_hnd); - m->set_handler(QAF_SVNSOGRIT, QA_tot_impon_hnd); - m->set_handler(F_DETCC, QA_tot_detraz_hnd); - m->set_handler(F_DETFC, QA_tot_detraz_hnd); - m->set_handler(F_DETAF, QA_tot_detraz_hnd); - m->set_handler(F_DETLD, QA_tot_detraz_hnd); - m->set_handler(F_DETO, QA_tot_detraz_hnd); -// Controlla che 40 sia <= 30 - m->set_handler(F_AMRIODL38, QA_chech_ritdatlav); -// Calcola 42 = 39 + 40 - 41 - m->set_handler(F_AMRIOT37, QA_calcola42); - m->set_handler(F_AMRIODL38, QA_calcola42); - m->set_handler(F_ECCRITRIMB, QA_calcola42); -// Calcolo: 30 = 23+27+28+29 - m->set_handler(F_COMPNETTI, QA_calcolo30); - m->set_handler(F_TOTIMP26, QA_calcolo30); - m->set_handler(F_AIEREP23, QA_calcolo30); - m->set_handler(F_CCTAMMCONT, QA_calcolo30); - } - } - break; - default: - break; - } - if (QuadroA3()) - set_search_field(F_CODIPQUADRO); - else - set_search_field(QAF_NPROG); - return _msk[n] = m; -} - - -bool TQuadroA::is_societa_trasformata(TMask& m) -{ - TLocalisamfile soc (LF_SOCTRASF); - soc.setkey(1); - soc.zero(); - soc.put(SOC_CODDITTA, m.get_long(QAF_CODDITTA)); - if (soc.read() == NOERR) - { - _cognome = soc.get(SOC_DENOMIN); - _nome = soc.get(SOC_NOME); - return TRUE; - } - return FALSE; -} - -// Ricerca e output dell'ultimo nprog del percipiente scelto -bool TQuadroA::setta_nprog(TMask_field& f) -{ - long nprog = 0L; - const long coddip = atol(f.get()); - const long codditta = get_firm_770(); - - TLocalisamfile quadro(app()._file); - - quadro.zero(); - quadro.put("CODDITTA", codditta); - quadro.put("CODDIP", coddip); - - TRectype rec(quadro.curr()); - - quadro.read(); - - if (quadro.curr() > rec) - { - f.mask().set(QAF_NPROG, nprog+1); - return TRUE; - } - - for ( ; !quadro.eof(); quadro.next()) - { - if (quadro.curr() > rec) break; - nprog = quadro.get_long("NPROG"); - } - - if ( (is_erede(codditta,coddip)) && (nprog + 1) > 1) - return f.error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo"); - - f.mask().set(QAF_NPROG, nprog+1); - return TRUE; -} - -bool TQuadroA::codditta_hnd(TMask_field& f, KEY k) -{ - if (k == K_TAB && !f.mask().is_running()) - { - TString16 codditta; codditta << app()._codditta; - if (codditta != "0") - { - f.set(codditta); - f.check(); - } - } - return TRUE; -} - -bool TQuadroA::codanagr_handler(TMask_field& f, KEY k) -{ - if (!f.mask().is_running()) - return TRUE; - - if (k == K_TAB && f.focusdirty()) - { - const long coddip = atol(f.get()); - if (coddip != 0L) - { - const long codditta = get_firm_770(); - if (!esiste_dipendente(codditta, coddip)) - return f.warning_box("Dipendente inesistente"); - else - setta_nprog(f); - } - } - return TRUE; -} - -void TQuadroA::AA3SettaCognomeNome(TMask& m) -{ - const int iDlgCognome = QAF_COGNOME; - const int iDlgNome = QAF_NOME; - const int iDlgNProg = QAF_NPROG; - const int iProg = m.get_int(iDlgNProg); - TString sCognome(m.get(iDlgCognome)); - TString sNome; - if (app()._codip != 0L) - { - TLocalisamfile dip (LF_DIPEND); - dip.zero(); - dip.put(DIP_CODDITTA, app()._codditta); - dip.put(DIP_CODIP, app()._codip); - if (dip.read() == NOERR) - { - sCognome = dip.get("COGNOME"); - sNome = dip.get("NOME"); - app()._sCognome = sCognome; - app()._sNome = sNome; - app()._iNprog = iProg; - m.set(iDlgCognome, sCognome); - m.set(iDlgNome, sNome); - } - } -} - -bool TQuadroA::QAA2alleg_handler(TMask_field& f, KEY k) -{ - if (k==K_SPACE) - { - KEY kAll; - if (app().QuadroA()) - { - const long lNumAllA = app()._base->get_long("N730ALLA"); - TString sNumAll; sNumAll << lNumAllA; - app()._mskAllegati->hide(QA2_ANNO_ALL); - app()._mskAllegati->show(QA_ANNO_ALL); - app()._mskAllegati->hide(QA2_NUM_ALL); - app()._mskAllegati->set(QA_NUM_ALL, sNumAll); - app()._mskAllegati->show(QA_NUM_ALL); - } - else - { - const long lNumAllA2 = app()._base->get_long("N730ALLA2"); - TString sNumAll; sNumAll << lNumAllA2; - app()._mskAllegati->hide(QA_ANNO_ALL); - app()._mskAllegati->show(QA2_ANNO_ALL); - app()._mskAllegati->hide(QA_NUM_ALL); - app()._mskAllegati->set(QA2_NUM_ALL, sNumAll); - app()._mskAllegati->show(QA2_NUM_ALL); - } - kAll = app()._mskAllegati->run(); - if (kAll==K_ENTER) - { - if (app().QuadroA()) - { - TString sAll (app()._mskAllegati->get(QA_NUM_ALL)); - app()._base->put("N730ALLA", sAll); - } - else - { - TString sAll (app()._mskAllegati->get(QA2_NUM_ALL)); - app()._base->put("N730ALLA2", sAll); - } - app()._base->rewrite(); - } - } - return TRUE; -} - -// Passa al modo inserimento/modifica. -bool TQuadroA::nprog_handler(TMask_field& f, KEY key) -{ - if (!f.mask().is_running()) return TRUE; - - if (key == K_CTRL+K_TAB) - { - f.set_dirty(); - return TRUE; - } - - if (key == K_TAB) - { - const int nprog = atoi(f.get()); - if (nprog==0) - return TRUE; - - const long coddip = f.mask().get_long(F_CODIP); - const long codditta = get_firm_770(); - - if ( (is_erede(codditta,coddip)) && nprog > 1) - return f.error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo"); - else - { - app()._codip = coddip; -// app().AA3SettaCognomeNome(f.mask()); -// f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure - // inserimento (se trova che non esiste) - } - } - return TRUE; -} - -bool TQuadroA::QA3_codip_handler(TMask_field& f, KEY key) -{ - if (!f.mask().is_running()) return TRUE; - - if ((key == K_TAB) && f.shown) - { - const long coddip = atol(f.get()); - if (coddip==0) return TRUE; - const long codditta = get_firm_770(); - if (!esiste_dipendente(codditta, coddip)) - return f.warning_box("Dipendente inesistente"); - f.mask().set(QAF_NPROG, 1); - } - return TRUE; -} - -// Se CF dat.lav.prec. e' vuoto => mette a ZERO il 19 e lo disabilita -// 26.6.96 azzera soltanto -bool TQuadroA::QA_cfdlprec_hnd(TMask_field& f, KEY k) -{ -/* - if (k == K_TAB) - { - TString tmp(f.get()); - if (tmp.empty()) - f.mask().set(F_CAUSA, 0L); - } */ - return TRUE; -} - -// Controlla che 40 NON sia > 30 -bool TQuadroA::QA_chech_ritdatlav(TMask_field& f, KEY k) -{ - if (k == K_ENTER) - { - real RitDatLavoro(f.get()); // c40 - real TotImp(f.mask().get_real(F_TOTIMP29)); // c30 - if (RitDatLavoro > TotImp) - return f.warning_box("Le ritenute del datore di lavoro non possono superare il totale imponibile"); - } - return TRUE; -} - -// Calcola che 42 = 39 + 40 - 41. Se il risultato e' negativo scrive 0 -bool TQuadroA::QA_calcola42(TMask_field& f, KEY k) -{ - if (k==K_TAB) - { - TMask& m = f.mask(); - real c39 = m.get_real(F_AMRIOT37); - real c40 = m.get_real(F_AMRIODL38); - real c41 = m.get_real(F_ECCRITRIMB); - real c42 = c39 + c40 - c41; - if (c42 < ZERO) c42 = ZERO; - TString c42s(c42.string()); - m.set(F_AMMRITDOV, c42s); - } - return TRUE; -} - -bool TQuadroA::QA_check_2527 (TMask_field& f, KEY k) -{ -// Se 27 == 0 => 25 = 0 - if (k == K_ENTER) - { - real c27 = f.mask().get_real(F_TOTIMP26); - real c25(f.get()); - - if (c27 == ZERO && c25 != ZERO) - return f.warning_box("Valore non corretto: il totale imponibile è nullo"); - } - return TRUE; -} - -// Funziona sia col quadro A che con A2 -bool TQuadroA::QA_A2_check_58(TMask_field& f, KEY k) -{ -// if (k == K_TAB || k == K_ENTER) - if (f.to_check(k,TRUE)) - { - TMask& m = f.mask(); - TString16 cod(f.get()); - cod.upper(); - const long codditta = m.get_long(QAF_CODDITTA); - const long coddip = m.get_long(F_CODIP); - if (cod == "B") - { - if (!QA_cerca_codA(codditta, coddip, app()._quadro)) - return error_box(app().QuadroA2() ? - "Non esiste nessun record con 9=A per questo dipendente" : - "Non esiste nessun record con 58=A per questo dipendente"); - else - { -// Nasconde prompt 770 mostra prompt 730 - m.reset(-G_ALL); - m.disable(-G_ALL); -// reset anche dei campi calcolati disabilitati nel quadro A - if (app().QuadroA()) m.reset(-G_2342); - m.hide(-G_770); - m.show(-G_730); - } - } -// Nasconde prompt 730 mostra prompt 770 - else - { - m.show(-G_770); - m.hide(-G_730); - m.enable(-G_ALL); - } - } - return TRUE; -} - -// calcola c23 = 20 + 21 -22 Se minore di 0 scrive 0 -bool TQuadroA::QA_comp_netti_hnd (TMask_field& f, KEY k) -{ - if (k == K_TAB) - { - real denaro = f.mask().get_real(F_DENARO); - real natura = f.mask().get_real(F_NATURA); - real cobbdip = f.mask().get_real(F_COBBDIP21); - real compnetti = denaro + natura - cobbdip; - if (compnetti < ZERO) compnetti = ZERO; - f.mask().set(F_COMPNETTI, compnetti); - if (f.mask().is_running()) - f.mask().send_key(K_TAB,F_COMPNETTI); - } - return TRUE; -} - -// 27 = 24 - 26 -bool TQuadroA::QA_tot_impon_hnd (TMask_field& f, KEY k) -{ - if (k == K_TAB || k == K_SPACE) - { - bool ForzaRicalcolo = f.focusdirty(); - real ammlordo = f.mask().get_real(F_AMMLORDO24); - real svnsrit = f.mask().get_real(QAF_SVNSOGRIT); - real tot_corr = f.mask().get_real(F_TOTIMP26); - if (tot_corr == ZERO || ForzaRicalcolo) - { - real totimp29 = ammlordo - svnsrit; -// c27 se < 0 scrivere 0 fax 15.7.96 p.1 - if (totimp29 < ZERO) - totimp29 = ZERO; - f.mask().set(F_TOTIMP26, totimp29); - } - } - return TRUE; -} - -bool TQuadroA::QA_tot_detraz_hnd (TMask_field& f, KEY k) -{ - if (k == K_TAB) - { - TMask& m = f.mask(); - real totdet36 = m.get_real(F_TOTDET36); - real detcc = m.get_real(F_DETCC); - real detfc = m.get_real(F_DETFC); - real detaf = m.get_real(F_DETAF); - real detld = m.get_real(F_DETLD); - real deto = m.get_real(F_DETO); - totdet36 = detcc + detfc + detaf + detld + deto; - m.set(F_TOTDET36, totdet36); -// disabilita il campo 37 se uno almeno da 32 a 36 e' compilato - if (totdet36 != ZERO) - m.disable(F_TOTDET36); - else - m.enable(F_TOTDET36); - } - return TRUE; -} - -bool TQuadroA::QA_calcolo30(TMask_field& f, KEY k) -{ - if (k == K_TAB) - { - TMask& m = f.mask(); - real c30 = m.get_real(F_TOTIMP29); - real c23 = m.get_real(F_COMPNETTI); - real c27 = m.get_real(F_TOTIMP26); - real c28 = m.get_real(F_AIEREP23); - real c29 = m.get_real(F_CCTAMMCONT); - c30 = c23 + c27 + c28 + c29; - if (c30 < ZERO) c30 = ZERO; - m.set(F_TOTIMP29, c30); - } - return TRUE; -} - -bool TQuadroA::QA3_base_occupazionale(TMask_field& f , KEY k) -{ - if (k == K_SPACE) - { - TString appname(30); - appname.format("773mod -1 771200i 37 \"%s\" 0", "Base occupazionale"); - TExternal_app a(appname); - a.run(); - } - return TRUE; -} - -void TQuadroA::registra_record2_A3(const TMask& m) -{ - TLocalisamfile quaa3 (LF_QUAA3); - TDate di; - long ng1,ng2; - real rd1,rd2; - - di = m.get_date(F_DIRAPTI_2); - ng1 = m.get_long(F_NGINC15_2); - ng2 = m.get_long(F_NGINC17_2); - rd1 = m.get_real(F_REDCOR16_2); - rd2 = m.get_real(F_REDCOR18_2); - - long codditta = m.get_long(QAF_CODDITTA); - long codip = m.get_long(F_CODIP); - - quaa3.setkey(1); - quaa3.zero(); - quaa3.put(QA3_CODDITTA, codditta); - quaa3.put(QA3_NPROG, 2); - quaa3.put(QA3_CODIP, codip); - if (quaa3.read() == NOERR) - { - quaa3.put(QA3_CODDITTA, codditta); - quaa3.put(QA3_NPROG, 2); - quaa3.put(QA3_CODIP, codip); - quaa3.put(QA3_DIRAPTI, di); - quaa3.put(QA3_NGINC15, ng1); - quaa3.put(QA3_REDCOR16, rd1); - quaa3.put(QA3_NGINC17, ng2); - quaa3.put(QA3_REDCOR18, rd2); - quaa3.rewrite(); - } - else - { - quaa3.put(QA3_CODDITTA, codditta); - quaa3.put(QA3_NPROG, 2); - quaa3.put(QA3_CODIP, codip); - quaa3.put(QA3_DIRAPTI, di); - quaa3.put(QA3_NGINC15, ng1); - quaa3.put(QA3_REDCOR16, rd1); - quaa3.put(QA3_NGINC17, ng2); - quaa3.put(QA3_REDCOR18, rd2); - quaa3.write(); - } -} - -int TQuadroA::rewrite(const TMask& m) -{ - if (QuadroA3() && _soc_trasf) - registra_record2_A3(m); - - m.autosave(*_rel); - const int err = _rel->rewrite(); - _registra = TRUE; - - return err; -} - -int TQuadroA::write(const TMask& m) -{ - if (QuadroA3() && _soc_trasf) - registra_record2_A3(m); - - m.autosave(*_rel); - const int err = _rel->write(); - _registra = TRUE; - - return err; -} - -void TQuadroA::cancella_record2_A3() -{ - TLocalisamfile quaa3 (LF_QUAA3); - - quaa3.setkey(1); - quaa3.zero(); - quaa3.put(QA3_CODDITTA, _codditta); - quaa3.put(QA3_NPROG, 2); - quaa3.put(QA3_CODIP, _codip); - if (quaa3.read() == NOERR) - quaa3.remove(); -} - -bool TQuadroA::remove() -{ - if (QuadroA3() && _soc_trasf) - cancella_record2_A3(); - _registra = TRUE; - return TRelation_application::remove(); -} - -bool TQuadroA::user_create() -{ - switch (_tipoq) - { - case 'A': - _file = LF_QUAA; - _quadro = "A"; - break; - case '1': - _file = LF_QUAA1; - _quadro = "A1"; - break; - case '2': - _file = LF_QUAA2; - _quadro = "A2"; - break; - case '3': - _file = LF_QUAA3; - _quadro = "A3"; - break; - default: - break; - } - - _qd = new TLocalisamfile(_file); - _rel = new TRelation(_file); - _base = new TLocalisamfile(LF_BASE); - _codditta = get_firm_770(); - -// posiziona il base (per leggere allegati) - _base->zero(); - _base->put("CODDITTA", _codditta); - _base->read(); - - set_search_field(F_CODANAGDIP); - _registra = FALSE; - - load_mask(0); - - if (QuadroA() || QuadroA2()) - _mskAllegati = new TMask("77qaall"); - - _soc_trasf = FALSE; - - return TRUE; -} - -bool TQuadroA::user_destroy() -{ - if (_msk[1] != NULL) delete _msk[1]; - if (_msk[0] != NULL) delete _msk[0]; - - if (QuadroA() || QuadroA2()) - delete _mskAllegati; - - delete _base; - - TString16 quadro = ""; - - switch (_tipoq) - { - case 'A': - quadro << "A"; - break; - case '1': - quadro << "A1"; - break; - case '2': - quadro << "A2"; - break; - case '3': - quadro << "A3"; - break; - default: - break; - } - - if (_registra) - _rip.set(quadro); - - delete _rel; - delete _qd; - - return TRUE; -} - -void TQuadroA::on_config_change() -{ - TConfig conf(CONFIG_STUDIO); - _anno_dic = (int)conf.get_long(ANNO_SEL, NULL); -} - -char TQuadroA::tipo_trasformata(long codditta) -{ - TLocalisamfile ditta (LF_NDITTE); - char tipo; - - ditta.setkey(1); - ditta.zero(); - ditta.put(NDT_CODDITTA, codditta); - if (ditta.read() == NOERR) - tipo = ditta.get_char(NDT_TIPOA); - - return tipo; -} - -void TQuadroA::carica_record2_A3(TMask& m) -{ - TLocalisamfile quaa3 (LF_QUAA3); - TDate di; - char tipo; - long ng1,ng2; - real rd1,rd2; - - ng1 = 0; - ng2 = 0; - rd1 = ZERO; - rd2 = ZERO; - - long codditta = m.get_long(QAF_CODDITTA); - long codip = m.get_long(F_CODIP); - - quaa3.setkey(1); - quaa3.zero(); - quaa3.put(QA3_CODDITTA, codditta); - quaa3.put(QA3_NPROG, 2); - quaa3.put(QA3_CODIP, codip); - if (quaa3.read() == NOERR) - { - di = quaa3.get_date(QA3_DIRAPTI); - ng1 = quaa3.get_long(QA3_NGINC15); - rd1 = quaa3.get_real(QA3_REDCOR16); - ng2 = quaa3.get_long(QA3_NGINC17); - rd2 = quaa3.get_real(QA3_REDCOR18); - } - - tipo = tipo_trasformata(codditta); - - if (tipo == 'F') - { - m.hide(F_DENTRASF); - m.show(F_COGNTRASF); - m.show(F_NOMETRASF); - m.set(F_COGNTRASF, _cognome); - m.set(F_NOMETRASF, _nome); - } - else - if (tipo == 'G') - { - m.show(F_DENTRASF); - m.hide(F_COGNTRASF); - m.hide(F_NOMETRASF); - m.set(F_DENTRASF, _cognome); - } - - m.set(F_NPROG_2, 2); - m.set(F_DIRAPTI_2, di); - m.set(F_NGINC15_2, ng1); - m.set(F_REDCOR16_2, rd1); - m.set(F_NGINC17_2, ng2); - m.set(F_REDCOR18_2, rd2); -} - -void TQuadroA::init_query_mode(TMask& m) -{ - m.set(QAF_ANNODIC, _anno_dic); - if (QuadroA3()) - { - _soc_trasf = is_societa_trasformata(m); - if (_soc_trasf) - carica_record2_A3(m); - } - else - { - // forza il ricalcolo dell'ultimo numero disponibile - TString16 dummy(m.get(QAF_NPROG)); - if (dummy.not_empty()) - setta_nprog(m.field(F_CODIP)); - } - m.hide(-1); // hide group 1 -nasconde DIPEND. - m.show(-2); // show group 2 -Ricerca su QUADRO A -} - -void TQuadroA::init_query_insert_mode(TMask& m) -{ - m.set(QAF_ANNODIC, _anno_dic); - m.hide(-2); // group 2 Nasconde ricerca su QUADROA - m.show(-1); // group 1 Ricerca su ANAGR.DIPENDENTI -} - -void TQuadroA::init_modify_mode(TMask& m) -{ - if (QuadroA1()) - m.set(QA1F_ANNORIF, _anno_dic); - if (QuadroA3()) - { - _codditta = m.get_long(QAF_CODDITTA); - _codip = m.get_long(F_CODIP); - - _soc_trasf = is_societa_trasformata(m); - if (_soc_trasf) - { - carica_record2_A3(m); - m.enable_page(1); - } - else - m.disable_page(1); - } -} - -void TQuadroA::init_insert_mode(TMask& m) -{ - if (QuadroA1()) - m.set(QA1F_ANNORIF, _anno_dic); - - if (QuadroA3()) - { - _codditta = m.get_long(QAF_CODDITTA); - _codip = m.get_long(F_CODIP); - - _soc_trasf = is_societa_trasformata(m); - if (_soc_trasf) - { - carica_record2_A3(m); - m.enable_page(1); - } - else - m.disable_page(1); - } -} - -int quadriA_A3(int argc, char* argv[]) -{ - const char tipo = toupper(*argv[2]); - const char* title = ""; - TQuadroA a(tipo); - switch (tipo) - { - case 'A': - title = "Quadro A"; - break; - case '1': - title = "Quadro A1"; - break; - case '2': - title = "Quadro A2"; - break; - case '3': - title = "Quadro A3"; - break; - default: - break; - } - a.run(argc, argv, title); - return TRUE; -} +////////////////////////////////////////// +// 771200.cpp - Quadro A 771mod -7 A // +// - Quadro A1 771mod -7 1 // +// - Quadro A2 771mod -7 2 // +// - Quadro A3 771mod -7 3 // +////////////////////////////////////////// +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include "77lib.h" +#include "dipend.h" +#include "quadroa.h" +#include "quadroa3.h" +#include "soctrasf.h" +#include "771200.h" +#include "774200.h" +#include "77qaall.h" + +bool QA_cerca_codA(const long codditta, const long coddip, TString& quadro); + +bool QA_cerca_codA(const long codditta, const long coddip, TString& quadro) +{ + TString16 c58(""); + bool Result = FALSE; + TLocalisamfile qq(quadro == "A" ? LF_QUAA : LF_QUAA2); + qq.zero(); + qq.put(QUA_CODDITTA, codditta); + qq.put(QUA_CODIP, coddip); + TRectype dep(qq.curr()); + qq.read(); + TRecnotype lPos = qq.recno(); + for ( ;!qq.eof(); qq.next()) + { + if (qq.curr() > dep) break; + c58 = qq.get(QUA_RETCON); + if (c58 == "A") + { + Result = TRUE; + break; + } + } + qq.readat(lPos); + return Result; +} + +class TQuadroA : public TRelation_application +{ + private: + TString _quadro; // Codice del quadro in gestione + bool _registra; // Se TRUE fa i riporti + TRelation* _rel; + TMask* _msk[2]; + TMask* _mskAllegati; // maschera allegati 730 (A e A2) + long _coddip; + char _tipoq; + int _nproga; + int _mode; + int _anno_dic; // anno dichiarazione + TLocalisamfile* _qd, *_base; + TRiporti _rip; + int _file; + bool _soc_trasf; + TString _cognome,_nome; // dati soc.trasf. + + private: +// Handler relativi ai quadri A - A1 - A2 - A3 + static bool nprog_handler (TMask_field& f, KEY key); + static bool codanagr_handler (TMask_field& f, KEY key); + static bool codditta_hnd (TMask_field& f, KEY key); + static bool setta_nprog (TMask_field& f); + static bool QAA2alleg_handler (TMask_field& f, KEY key); + +// Handler relativi alla manutenzione quadro A + static bool QA_comp_netti_hnd (TMask_field& f, KEY key); + static bool QA_tot_impon_hnd (TMask_field& f, KEY key); + static bool QA_tot_detraz_hnd (TMask_field& f, KEY key); + static bool QA_cfdlprec_hnd (TMask_field& f, KEY key); + static bool QA_chech_ritdatlav (TMask_field& f, KEY key); + static bool QA_calcola42 (TMask_field& f, KEY k); + static bool QA_check_2527 (TMask_field& f, KEY key); + static bool QA_A2_check_58 (TMask_field& f, KEY key); + static bool QA_calcolo30 (TMask_field& f, KEY key); +// Handler relativi alla manutenzione quadro A3 + static bool QA3_codip_handler (TMask_field& f, KEY key); + static bool QA3_base_occupazionale(TMask_field& f, KEY key); + void AA3SettaCognomeNome(TMask& m); + + protected: + TString _sCognome, _sNome; // dati dipendente + int _iNprog; + long _codditta,_codip; + + virtual bool user_create(); + virtual bool user_destroy(); + virtual int rewrite(const TMask& m); + virtual int write (const TMask& m); + virtual bool remove(); + virtual TRelation* get_relation() const { return _rel; } + virtual TMask* get_mask(int mode); + virtual bool changing_mask(int mode); + virtual void init_query_mode (TMask&); + virtual void init_query_insert_mode (TMask&); + virtual void init_modify_mode (TMask&); + virtual void init_insert_mode(TMask& m); + virtual void on_config_change(); + TMask* load_mask(int n); + int anno_dic() const { return _anno_dic; } + bool QuadroA() const { return _quadro == "A"; } + bool QuadroA1() const { return _quadro == "A1"; } + bool QuadroA2() const { return _quadro == "A2"; } + bool QuadroA3() const { return _quadro == "A3"; } + + public: + bool is_societa_trasformata(TMask& m); + void carica_record2_A3(TMask& m); + char tipo_trasformata(long codditta); + void registra_record2_A3(const TMask& m); + void cancella_record2_A3(); + + TQuadroA(char tipo); + virtual ~TQuadroA() {}; +}; + +// Implementazione classe TQuadroA + +inline TQuadroA& app() { return (TQuadroA&) main_app(); } + +TQuadroA::TQuadroA(char tipo): _rel(NULL), _mode(0), _tipoq(tipo) +{ + memset(_msk, 0, sizeof(_msk)); +} + +bool TQuadroA::changing_mask(int mode) +{ + if ((mode == MODE_MOD) && (_mode == MODE_INS)) + return FALSE; + else + return _mode != mode; +} + +TMask* TQuadroA::get_mask(int mode) +{ + const int m = (mode == MODE_QUERY) ? 0 : 1; + _mode = mode; + return load_mask(m); +} + +TMask* TQuadroA::load_mask(int n) +{ + if (_msk[n] != NULL) + return _msk[n]; + + TFilename name("771200"); + + if (n == 0) + { + switch (_tipoq) + { + case 'A': // Manutenzione quadro A + name << 'a'; + break; + case '1': // Manutenzione quadro A1 + name << 'c'; + break; + case '2': // Manutenzione quadro A2 + name << 'e'; + break; + case '3': // Manutenzione quadro A3 + name << 'g'; + break; + default: + break; + } + } + else + { + switch (_tipoq) + { + case 'A': // Manutenzione quadro A + name << 'b'; + break; + case '1': // Manutenzione quadro A1 + name << 'd'; + break; + case '2': // Manutenzione quadro A2 + name << 'f'; + break; + case '3': // Manutenzione quadro A3 + name << 'h'; + break; + default: + break; + } + } + + TMask* m = new TMask(name); + + switch (n) + { + case 0: + if (m) + { + m->set_handler(QAF_CODDITTA, codditta_hnd); + if (QuadroA3()) + { + m->set_handler(F_CODANAGDIP, QA3_codip_handler); + m->set_handler(F_CODIPQUADRO, QA3_codip_handler); + m->set_handler(F_BASEOCCUPA, QA3_base_occupazionale); + } + else + { + if (QuadroA()) + m->set_handler(QAF_ALLEG_A, QAA2alleg_handler); + if (QuadroA2()) + m->set_handler(QA2F_ALLEG_A2, QAA2alleg_handler); + m->set_handler(QAF_NPROG, nprog_handler); + m->set_handler(F_CODANAGDIP, codanagr_handler); + m->set_handler(F_CODANAGDIPQA, codanagr_handler); + } + } + break; + case 1: + m->disable(DLG_FINDREC); + if (m) + { + if (QuadroA2()) + m->set_handler(QA2F_RETCON, QA_A2_check_58); + + if (QuadroA()) + { +// Calcola i compensi netti (c.23) e controllo c25-27 + m->set_handler(F_CODFISDL, QA_cfdlprec_hnd); + m->set_handler(F_DENARO, QA_comp_netti_hnd); + m->set_handler(F_NATURA, QA_comp_netti_hnd); + m->set_handler(F_COBBDIP21, QA_comp_netti_hnd); +// Se immette un B controlla che ci sia almeno un rec con A + m->set_handler(F_RETCON56, QA_A2_check_58); +// Se 27=0 => 25 deve = 0 + m->set_handler(F_IACOBBCD25, QA_check_2527); +// Calcola il totale imponibile (c.27) + m->set_handler(F_AMMLORDO24, QA_tot_impon_hnd); + m->set_handler(QAF_SVNSOGRIT, QA_tot_impon_hnd); + m->set_handler(F_DETCC, QA_tot_detraz_hnd); + m->set_handler(F_DETFC, QA_tot_detraz_hnd); + m->set_handler(F_DETAF, QA_tot_detraz_hnd); + m->set_handler(F_DETLD, QA_tot_detraz_hnd); + m->set_handler(F_DETO, QA_tot_detraz_hnd); +// Controlla che 40 sia <= 30 + m->set_handler(F_AMRIODL38, QA_chech_ritdatlav); +// Calcola 42 = 39 + 40 - 41 + m->set_handler(F_AMRIOT37, QA_calcola42); + m->set_handler(F_AMRIODL38, QA_calcola42); + m->set_handler(F_ECCRITRIMB, QA_calcola42); +// Calcolo: 30 = 23+27+28+29 + m->set_handler(F_COMPNETTI, QA_calcolo30); + m->set_handler(F_TOTIMP26, QA_calcolo30); + m->set_handler(F_AIEREP23, QA_calcolo30); + m->set_handler(F_CCTAMMCONT, QA_calcolo30); + } + } + break; + default: + break; + } + if (QuadroA3()) + set_search_field(F_CODIPQUADRO); + else + set_search_field(QAF_NPROG); + return _msk[n] = m; +} + + +bool TQuadroA::is_societa_trasformata(TMask& m) +{ + TLocalisamfile soc (LF_SOCTRASF); + soc.setkey(1); + soc.zero(); + soc.put(SOC_CODDITTA, m.get_long(QAF_CODDITTA)); + if (soc.read() == NOERR) + { + _cognome = soc.get(SOC_DENOMIN); + _nome = soc.get(SOC_NOME); + return TRUE; + } + return FALSE; +} + +// Ricerca e output dell'ultimo nprog del percipiente scelto +bool TQuadroA::setta_nprog(TMask_field& f) +{ + long nprog = 0L; + const long coddip = atol(f.get()); + const long codditta = get_firm_770(); + + TLocalisamfile quadro(app()._file); + + quadro.zero(); + quadro.put("CODDITTA", codditta); + quadro.put("CODDIP", coddip); + + TRectype rec(quadro.curr()); + + quadro.read(); + + if (quadro.curr() > rec) + { + f.mask().set(QAF_NPROG, nprog+1); + return TRUE; + } + + for ( ; !quadro.eof(); quadro.next()) + { + if (quadro.curr() > rec) break; + nprog = quadro.get_long("NPROG"); + } + + if ( (is_erede(codditta,coddip)) && (nprog + 1) > 1) + return f.error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo"); + + f.mask().set(QAF_NPROG, nprog+1); + return TRUE; +} + +bool TQuadroA::codditta_hnd(TMask_field& f, KEY k) +{ + if (k == K_TAB && !f.mask().is_running()) + { + TString16 codditta; codditta << app()._codditta; + if (codditta != "0") + { + f.set(codditta); + f.check(); + } + } + return TRUE; +} + +bool TQuadroA::codanagr_handler(TMask_field& f, KEY k) +{ + if (!f.mask().is_running()) + return TRUE; + + if (k == K_TAB && f.focusdirty()) + { + const long coddip = atol(f.get()); + if (coddip != 0L) + { + const long codditta = get_firm_770(); + if (!esiste_dipendente(codditta, coddip)) + return f.warning_box("Dipendente inesistente"); + else + setta_nprog(f); + } + } + return TRUE; +} + +void TQuadroA::AA3SettaCognomeNome(TMask& m) +{ + const int iDlgCognome = QAF_COGNOME; + const int iDlgNome = QAF_NOME; + const int iDlgNProg = QAF_NPROG; + const int iProg = m.get_int(iDlgNProg); + TString sCognome(m.get(iDlgCognome)); + TString sNome; + if (app()._codip != 0L) + { + TLocalisamfile dip (LF_DIPEND); + dip.zero(); + dip.put(DIP_CODDITTA, app()._codditta); + dip.put(DIP_CODIP, app()._codip); + if (dip.read() == NOERR) + { + sCognome = dip.get("COGNOME"); + sNome = dip.get("NOME"); + app()._sCognome = sCognome; + app()._sNome = sNome; + app()._iNprog = iProg; + m.set(iDlgCognome, sCognome); + m.set(iDlgNome, sNome); + } + } +} + +bool TQuadroA::QAA2alleg_handler(TMask_field& f, KEY k) +{ + if (k==K_SPACE) + { + KEY kAll; + if (app().QuadroA()) + { + const long lNumAllA = app()._base->get_long("N730ALLA"); + TString sNumAll; sNumAll << lNumAllA; + app()._mskAllegati->hide(QA2_ANNO_ALL); + app()._mskAllegati->show(QA_ANNO_ALL); + app()._mskAllegati->hide(QA2_NUM_ALL); + app()._mskAllegati->set(QA_NUM_ALL, sNumAll); + app()._mskAllegati->show(QA_NUM_ALL); + } + else + { + const long lNumAllA2 = app()._base->get_long("N730ALLA2"); + TString sNumAll; sNumAll << lNumAllA2; + app()._mskAllegati->hide(QA_ANNO_ALL); + app()._mskAllegati->show(QA2_ANNO_ALL); + app()._mskAllegati->hide(QA_NUM_ALL); + app()._mskAllegati->set(QA2_NUM_ALL, sNumAll); + app()._mskAllegati->show(QA2_NUM_ALL); + } + kAll = app()._mskAllegati->run(); + if (kAll==K_ENTER) + { + if (app().QuadroA()) + { + TString sAll (app()._mskAllegati->get(QA_NUM_ALL)); + app()._base->put("N730ALLA", sAll); + } + else + { + TString sAll (app()._mskAllegati->get(QA2_NUM_ALL)); + app()._base->put("N730ALLA2", sAll); + } + app()._base->rewrite(); + } + } + return TRUE; +} + +// Passa al modo inserimento/modifica. +bool TQuadroA::nprog_handler(TMask_field& f, KEY key) +{ + if (!f.mask().is_running()) return TRUE; + + if (key == K_CTRL+K_TAB) + { + f.set_dirty(); + return TRUE; + } + + if (key == K_TAB) + { + const int nprog = atoi(f.get()); + if (nprog==0) + return TRUE; + + const long coddip = f.mask().get_long(F_CODIP); + const long codditta = get_firm_770(); + + if ( (is_erede(codditta,coddip)) && nprog > 1) + return f.error_box("Il dipendente selezionato e' un erede: non e'\n possibile indicare piu' di un rigo"); + else + { + app()._codip = coddip; +// app().AA3SettaCognomeNome(f.mask()); +// f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure + // inserimento (se trova che non esiste) + } + } + return TRUE; +} + +bool TQuadroA::QA3_codip_handler(TMask_field& f, KEY key) +{ + if (!f.mask().is_running()) return TRUE; + + if ((key == K_TAB) && f.shown) + { + const long coddip = atol(f.get()); + if (coddip==0) return TRUE; + const long codditta = get_firm_770(); + if (!esiste_dipendente(codditta, coddip)) + return f.warning_box("Dipendente inesistente"); + f.mask().set(QAF_NPROG, 1); + } + return TRUE; +} + +// Se CF dat.lav.prec. e' vuoto => mette a ZERO il 19 e lo disabilita +// 26.6.96 azzera soltanto +bool TQuadroA::QA_cfdlprec_hnd(TMask_field& f, KEY k) +{ +/* + if (k == K_TAB) + { + TString tmp(f.get()); + if (tmp.empty()) + f.mask().set(F_CAUSA, 0L); + } */ + return TRUE; +} + +// Controlla che 40 NON sia > 30 +bool TQuadroA::QA_chech_ritdatlav(TMask_field& f, KEY k) +{ + if (k == K_ENTER) + { + real RitDatLavoro(f.get()); // c40 + real TotImp(f.mask().get_real(F_TOTIMP29)); // c30 + if (RitDatLavoro > TotImp) + return f.warning_box("Le ritenute del datore di lavoro non possono superare il totale imponibile"); + } + return TRUE; +} + +// Calcola che 42 = 39 + 40 - 41. Se il risultato e' negativo scrive 0 +bool TQuadroA::QA_calcola42(TMask_field& f, KEY k) +{ + if (k==K_TAB) + { + TMask& m = f.mask(); + real c39 = m.get_real(F_AMRIOT37); + real c40 = m.get_real(F_AMRIODL38); + real c41 = m.get_real(F_ECCRITRIMB); + real c42 = c39 + c40 - c41; + if (c42 < ZERO) c42 = ZERO; + TString c42s(c42.string()); + m.set(F_AMMRITDOV, c42s); + } + return TRUE; +} + +bool TQuadroA::QA_check_2527 (TMask_field& f, KEY k) +{ +// Se 27 == 0 => 25 = 0 + if (k == K_ENTER) + { + real c27 = f.mask().get_real(F_TOTIMP26); + real c25(f.get()); + + if (c27 == ZERO && c25 != ZERO) + return f.warning_box("Valore non corretto: il totale imponibile è nullo"); + } + return TRUE; +} + +// Funziona sia col quadro A che con A2 +bool TQuadroA::QA_A2_check_58(TMask_field& f, KEY k) +{ +// if (k == K_TAB || k == K_ENTER) + if (f.to_check(k,TRUE)) + { + TMask& m = f.mask(); + TString16 cod(f.get()); + cod.upper(); + const long codditta = m.get_long(QAF_CODDITTA); + const long coddip = m.get_long(F_CODIP); + if (cod == "B") + { + if (!QA_cerca_codA(codditta, coddip, app()._quadro)) + return error_box(app().QuadroA2() ? + "Non esiste nessun record con 9=A per questo dipendente" : + "Non esiste nessun record con 58=A per questo dipendente"); + else + { +// Nasconde prompt 770 mostra prompt 730 + m.reset(-G_ALL); + m.disable(-G_ALL); +// reset anche dei campi calcolati disabilitati nel quadro A + if (app().QuadroA()) m.reset(-G_2342); + m.hide(-G_770); + m.show(-G_730); + } + } +// Nasconde prompt 730 mostra prompt 770 + else + { + m.show(-G_770); + m.hide(-G_730); + m.enable(-G_ALL); + } + } + return TRUE; +} + +// calcola c23 = 20 + 21 -22 Se minore di 0 scrive 0 +bool TQuadroA::QA_comp_netti_hnd (TMask_field& f, KEY k) +{ + if (k == K_TAB) + { + real denaro = f.mask().get_real(F_DENARO); + real natura = f.mask().get_real(F_NATURA); + real cobbdip = f.mask().get_real(F_COBBDIP21); + real compnetti = denaro + natura - cobbdip; + if (compnetti < ZERO) compnetti = ZERO; + f.mask().set(F_COMPNETTI, compnetti); + if (f.mask().is_running()) + f.mask().send_key(K_TAB,F_COMPNETTI); + } + return TRUE; +} + +// 27 = 24 - 26 +bool TQuadroA::QA_tot_impon_hnd (TMask_field& f, KEY k) +{ + if (k == K_TAB || k == K_SPACE) + { + bool ForzaRicalcolo = f.focusdirty(); + real ammlordo = f.mask().get_real(F_AMMLORDO24); + real svnsrit = f.mask().get_real(QAF_SVNSOGRIT); + real tot_corr = f.mask().get_real(F_TOTIMP26); + if (tot_corr == ZERO || ForzaRicalcolo) + { + real totimp29 = ammlordo - svnsrit; +// c27 se < 0 scrivere 0 fax 15.7.96 p.1 + if (totimp29 < ZERO) + totimp29 = ZERO; + f.mask().set(F_TOTIMP26, totimp29); + } + } + return TRUE; +} + +bool TQuadroA::QA_tot_detraz_hnd (TMask_field& f, KEY k) +{ + if (k == K_TAB) + { + TMask& m = f.mask(); + real totdet36 = m.get_real(F_TOTDET36); + real detcc = m.get_real(F_DETCC); + real detfc = m.get_real(F_DETFC); + real detaf = m.get_real(F_DETAF); + real detld = m.get_real(F_DETLD); + real deto = m.get_real(F_DETO); + totdet36 = detcc + detfc + detaf + detld + deto; + m.set(F_TOTDET36, totdet36); +// disabilita il campo 37 se uno almeno da 32 a 36 e' compilato + if (totdet36 != ZERO) + m.disable(F_TOTDET36); + else + m.enable(F_TOTDET36); + } + return TRUE; +} + +bool TQuadroA::QA_calcolo30(TMask_field& f, KEY k) +{ + if (k == K_TAB) + { + TMask& m = f.mask(); + real c30 = m.get_real(F_TOTIMP29); + real c23 = m.get_real(F_COMPNETTI); + real c27 = m.get_real(F_TOTIMP26); + real c28 = m.get_real(F_AIEREP23); + real c29 = m.get_real(F_CCTAMMCONT); + c30 = c23 + c27 + c28 + c29; + if (c30 < ZERO) c30 = ZERO; + m.set(F_TOTIMP29, c30); + } + return TRUE; +} + +bool TQuadroA::QA3_base_occupazionale(TMask_field& f , KEY k) +{ + if (k == K_SPACE) + { + TString appname(30); + appname.format("773mod -1 771200i 37 \"%s\" 0", "Base occupazionale"); + TExternal_app a(appname); + a.run(); + } + return TRUE; +} + +void TQuadroA::registra_record2_A3(const TMask& m) +{ + TLocalisamfile quaa3 (LF_QUAA3); + TDate di; + long ng1,ng2; + real rd1,rd2; + + di = m.get_date(F_DIRAPTI_2); + ng1 = m.get_long(F_NGINC15_2); + ng2 = m.get_long(F_NGINC17_2); + rd1 = m.get_real(F_REDCOR16_2); + rd2 = m.get_real(F_REDCOR18_2); + + long codditta = m.get_long(QAF_CODDITTA); + long codip = m.get_long(F_CODIP); + + quaa3.setkey(1); + quaa3.zero(); + quaa3.put(QA3_CODDITTA, codditta); + quaa3.put(QA3_NPROG, 2); + quaa3.put(QA3_CODIP, codip); + if (quaa3.read() == NOERR) + { + quaa3.put(QA3_CODDITTA, codditta); + quaa3.put(QA3_NPROG, 2); + quaa3.put(QA3_CODIP, codip); + quaa3.put(QA3_DIRAPTI, di); + quaa3.put(QA3_NGINC15, ng1); + quaa3.put(QA3_REDCOR16, rd1); + quaa3.put(QA3_NGINC17, ng2); + quaa3.put(QA3_REDCOR18, rd2); + quaa3.rewrite(); + } + else + { + quaa3.put(QA3_CODDITTA, codditta); + quaa3.put(QA3_NPROG, 2); + quaa3.put(QA3_CODIP, codip); + quaa3.put(QA3_DIRAPTI, di); + quaa3.put(QA3_NGINC15, ng1); + quaa3.put(QA3_REDCOR16, rd1); + quaa3.put(QA3_NGINC17, ng2); + quaa3.put(QA3_REDCOR18, rd2); + quaa3.write(); + } +} + +int TQuadroA::rewrite(const TMask& m) +{ + if (QuadroA3() && _soc_trasf) + registra_record2_A3(m); + + m.autosave(*_rel); + const int err = _rel->rewrite(); + _registra = TRUE; + + return err; +} + +int TQuadroA::write(const TMask& m) +{ + if (QuadroA3() && _soc_trasf) + registra_record2_A3(m); + + m.autosave(*_rel); + const int err = _rel->write(); + _registra = TRUE; + + return err; +} + +void TQuadroA::cancella_record2_A3() +{ + TLocalisamfile quaa3 (LF_QUAA3); + + quaa3.setkey(1); + quaa3.zero(); + quaa3.put(QA3_CODDITTA, _codditta); + quaa3.put(QA3_NPROG, 2); + quaa3.put(QA3_CODIP, _codip); + if (quaa3.read() == NOERR) + quaa3.remove(); +} + +bool TQuadroA::remove() +{ + if (QuadroA3() && _soc_trasf) + cancella_record2_A3(); + _registra = TRUE; + return TRelation_application::remove(); +} + +bool TQuadroA::user_create() +{ + switch (_tipoq) + { + case 'A': + _file = LF_QUAA; + _quadro = "A"; + break; + case '1': + _file = LF_QUAA1; + _quadro = "A1"; + break; + case '2': + _file = LF_QUAA2; + _quadro = "A2"; + break; + case '3': + _file = LF_QUAA3; + _quadro = "A3"; + break; + default: + break; + } + + _qd = new TLocalisamfile(_file); + _rel = new TRelation(_file); + _base = new TLocalisamfile(LF_BASE); + _codditta = get_firm_770(); + +// posiziona il base (per leggere allegati) + _base->zero(); + _base->put("CODDITTA", _codditta); + _base->read(); + + set_search_field(F_CODANAGDIP); + _registra = FALSE; + + load_mask(0); + + if (QuadroA() || QuadroA2()) + _mskAllegati = new TMask("77qaall"); + + _soc_trasf = FALSE; + + return TRUE; +} + +bool TQuadroA::user_destroy() +{ + if (_msk[1] != NULL) delete _msk[1]; + if (_msk[0] != NULL) delete _msk[0]; + + if (QuadroA() || QuadroA2()) + delete _mskAllegati; + + delete _base; + + TString16 quadro = ""; + + switch (_tipoq) + { + case 'A': + quadro << "A"; + break; + case '1': + quadro << "A1"; + break; + case '2': + quadro << "A2"; + break; + case '3': + quadro << "A3"; + break; + default: + break; + } + + if (_registra) + _rip.set(quadro); + + delete _rel; + delete _qd; + + return TRUE; +} + +void TQuadroA::on_config_change() +{ + TConfig conf(CONFIG_STUDIO); + _anno_dic = (int)conf.get_long(ANNO_SEL, NULL); +} + +char TQuadroA::tipo_trasformata(long codditta) +{ + TLocalisamfile ditta (LF_NDITTE); + char tipo; + + ditta.setkey(1); + ditta.zero(); + ditta.put(NDT_CODDITTA, codditta); + if (ditta.read() == NOERR) + tipo = ditta.get_char(NDT_TIPOA); + + return tipo; +} + +void TQuadroA::carica_record2_A3(TMask& m) +{ + TLocalisamfile quaa3 (LF_QUAA3); + TDate di; + char tipo; + long ng1,ng2; + real rd1,rd2; + + ng1 = 0; + ng2 = 0; + rd1 = ZERO; + rd2 = ZERO; + + long codditta = m.get_long(QAF_CODDITTA); + long codip = m.get_long(F_CODIP); + + quaa3.setkey(1); + quaa3.zero(); + quaa3.put(QA3_CODDITTA, codditta); + quaa3.put(QA3_NPROG, 2); + quaa3.put(QA3_CODIP, codip); + if (quaa3.read() == NOERR) + { + di = quaa3.get_date(QA3_DIRAPTI); + ng1 = quaa3.get_long(QA3_NGINC15); + rd1 = quaa3.get_real(QA3_REDCOR16); + ng2 = quaa3.get_long(QA3_NGINC17); + rd2 = quaa3.get_real(QA3_REDCOR18); + } + + tipo = tipo_trasformata(codditta); + + if (tipo == 'F') + { + m.hide(F_DENTRASF); + m.show(F_COGNTRASF); + m.show(F_NOMETRASF); + m.set(F_COGNTRASF, _cognome); + m.set(F_NOMETRASF, _nome); + } + else + if (tipo == 'G') + { + m.show(F_DENTRASF); + m.hide(F_COGNTRASF); + m.hide(F_NOMETRASF); + m.set(F_DENTRASF, _cognome); + } + + m.set(F_NPROG_2, 2); + m.set(F_DIRAPTI_2, di); + m.set(F_NGINC15_2, ng1); + m.set(F_REDCOR16_2, rd1); + m.set(F_NGINC17_2, ng2); + m.set(F_REDCOR18_2, rd2); +} + +void TQuadroA::init_query_mode(TMask& m) +{ + m.set(QAF_ANNODIC, _anno_dic); + if (QuadroA3()) + { + _soc_trasf = is_societa_trasformata(m); + if (_soc_trasf) + carica_record2_A3(m); + } + else + { + // forza il ricalcolo dell'ultimo numero disponibile + TString16 dummy(m.get(QAF_NPROG)); + if (dummy.not_empty()) + setta_nprog(m.field(F_CODIP)); + } + m.hide(-1); // hide group 1 -nasconde DIPEND. + m.show(-2); // show group 2 -Ricerca su QUADRO A +} + +void TQuadroA::init_query_insert_mode(TMask& m) +{ + m.set(QAF_ANNODIC, _anno_dic); + m.hide(-2); // group 2 Nasconde ricerca su QUADROA + m.show(-1); // group 1 Ricerca su ANAGR.DIPENDENTI +} + +void TQuadroA::init_modify_mode(TMask& m) +{ + if (QuadroA1()) + m.set(QA1F_ANNORIF, _anno_dic); + if (QuadroA3()) + { + _codditta = m.get_long(QAF_CODDITTA); + _codip = m.get_long(F_CODIP); + + _soc_trasf = is_societa_trasformata(m); + if (_soc_trasf) + { + carica_record2_A3(m); + m.enable_page(1); + } + else + m.disable_page(1); + } +} + +void TQuadroA::init_insert_mode(TMask& m) +{ + if (QuadroA1()) + m.set(QA1F_ANNORIF, _anno_dic); + + if (QuadroA3()) + { + _codditta = m.get_long(QAF_CODDITTA); + _codip = m.get_long(F_CODIP); + + _soc_trasf = is_societa_trasformata(m); + if (_soc_trasf) + { + carica_record2_A3(m); + m.enable_page(1); + } + else + m.disable_page(1); + } +} + +int quadriA_A3(int argc, char* argv[]) +{ + const char tipo = toupper(*argv[2]); + const char* title = ""; + TQuadroA a(tipo); + switch (tipo) + { + case 'A': + title = "Quadro A"; + break; + case '1': + title = "Quadro A1"; + break; + case '2': + title = "Quadro A2"; + break; + case '3': + title = "Quadro A3"; + break; + default: + break; + } + a.run(argc, argv, title); + return TRUE; +} diff --git a/m770/771200.h b/m770/771200.h index 7f2fa7bc9..5f150cc01 100755 --- a/m770/771200.h +++ b/m770/771200.h @@ -1,189 +1,189 @@ -// Campi maschere manutenzione quadro A - -// 771200a.uml - -#define QAF_CODDITTA 181 -#define QAF_RAGDITTA 102 -#define QAF_ANNODIC 103 -#define F_CODIP 104 -#define F_CODANAGDIP 105 -#define QAF_COGNOME 106 -#define QAF_NOME 107 -#define F_COGNOMEDIP 182 -#define F_NOMEDIP 183 -#define QAF_NPROG 108 - - -// 771200b.uml - -//#define F_BASEOCC 109 -#define F_DATAIR 110 -#define F_DATAFR 111 -#define F_CAUSA 112 -#define F_DENARO 113 -#define F_NATURA 114 -#define F_COBBDIP21 116 -#define F_COMPNETTI 117 -#define F_AIEREP23 118 -#define F_AMMLORDO24 119 -#define F_IACOBBCD25 120 -#define F_TOTIMP26 121 -#define F_CCTAMMCONT 122 -#define F_CCTAMNACON 123 -#define F_TOTIMP29 124 -#define F_ICTOTIMP30 125 -#define F_DETCC 126 -#define F_DETFC 127 -#define F_DETAF 128 -#define F_DETLD 129 -#define F_DETO 130 -#define F_TOTDET36 131 -#define F_AMRIOT37 132 -#define F_AMRIODL38 133 -#define F_ECCRITRIMB 134 -#define F_AMMRITDOV 135 -#define F_ERSPSAN41 136 -#define F_PRASSVI42 137 -#define F_CONPRECO43 138 -#define F_COBBDIP44 139 -#define F_AMMIMP45 140 -#define F_DETIMPOS46 141 -#define F_RITESEG47 142 -#define F_SVNASSRI48 143 -#define F_AIFCSSN49 144 -#define F_CFCONINPS 145 -#define F_SASS95 146 -#define F_CONEFF50 147 -#define F_IMPVERS51 148 -#define F_ISOPTAS52 149 -#define F_CONTRVER53 150 -#define F_ISOPTAS54 151 -#define F_CNEFF55 152 -#define F_RETCON56 153 -#define F_IMPRIMB57 154 -#define F_IMPVER58 155 -#define F_INTIRPEF59 156 -#define F_IMPVER60 157 -#define F_INTER61 158 -#define F_STSIRPEF62 159 -#define F_CONRIMB63 160 -#define F_CONVER64 161 -#define F_INTER65 162 -#define F_CONVER66 163 -#define F_INTER67 164 -#define F_STSCSSN68 165 -#define F_SEGDICNL69 166 -#define F_CIIAT 167 -#define F_CIPA 168 -#define F_CODCAAF 169 -#define F_NUMGIORNI 170 -#define F_CODFISDL 171 -#define F_DENCAAF 173 -#define F_CODFISCAAF 174 -#define F_NISCRA 175 -#define F_CODIP2 190 -#define QA_RAGSOC2 191 - -// 771200d.uml - -#define F_MESEANNO 200 -#define F_IMPRIMB9 201 -#define F_IMPVERS10 202 -#define F_INTER11 203 -#define F_IMPVERS12 204 -#define F_INTER13 205 -#define F_STASSA14 206 -#define F_CONTRIMB15 207 -#define F_CONTVERS16 208 -#define F_INTER17 209 -#define F_CONTVER18 210 -#define F_INTER19 211 -#define F_STASSA20 212 -#define F_CONNEFF21 213 -#define F_TIPOCONG22 214 -#define F_DATARIC29 215 - -// 771200f.uml - -#define F_IIRPEFVER8 250 -#define F_IIRPEFRI9 251 -#define F_PRIRPEF10 252 -#define F_STASSA12 254 -#define F_CONTR13 255 -#define F_CONTR14 256 -#define F_PRCSSN15 257 -#define F_INTER16 258 -#define F_STASSA17 259 -#define F_VEFFCON18 260 -#define F_SDNLIQ19 261 -#define F_RETCON20 262 - -// Campi maschera 771200g.uml - -#define F_CODIPQUADRO 300 -#define F_BASEOCCUPA 301 - -// Campi maschera 771200h.uml - -#define F_DIRAPTI 350 -#define F_NGINC15 351 -#define F_REDCOR16 352 -#define F_NGINC17 353 -#define F_REDCOR18 354 -#define F_DIRAPTI_2 355 -#define F_NGINC15_2 356 -#define F_REDCOR16_2 357 -#define F_NGINC17_2 358 -#define F_REDCOR18_2 359 -#define F_CODDITTA_2 360 -#define F_CODIP_2 361 -#define F_CODIP2_2 362 -#define F_COGNOME_2 363 -#define F_NOME_2 364 -#define F_NPROG_2 365 -#define F_DENTRASF 366 -#define F_COGNTRASF 367 -#define F_NOMETRASF 368 - -// Campi maschera 771200i.uml - -#define F_BSE_CONSBASOCC 400 -#define F_BSE_LAVDIPCIN 401 -#define F_BSE_DATAINPI 402 -#define F_BSE_DATAFINPI 403 - -// -// Modifiche 95->96 -// -// Quadro A -#define QAF_AREAATT 405 -#define QAF_TIPOATT 406 -#define QAF_SVNSOGRIT 407 -#define QAF_INCDETFC 408 -#define QAF_GIODET 409 - -// Quadro A1 -#define QA1F_ANNORIF 410 - -// Quadro A2 -#define QA2F_CNEFF 411 -#define QA2F_RETCON 412 -#define QA2F_CSSNCRIMB 413 -#define QA2F_CSSNCVER 414 -#define QA2F_CSSNINT 415 -#define QA2F_CSSNAIV 416 -#define QA2F_CSSNAINT 417 -#define QA2F_STCSSN 418 -#define QA2F_730NLIQ 419 - - -#define F_CODANAGDIPQA 420 - -#define G_ALL 12 -#define G_730 9 -#define G_770 7 -#define G_2342 6 - -#define QAF_ALLEG_A 421 -#define QA2F_ALLEG_A2 422 - +// Campi maschere manutenzione quadro A + +// 771200a.uml + +#define QAF_CODDITTA 181 +#define QAF_RAGDITTA 102 +#define QAF_ANNODIC 103 +#define F_CODIP 104 +#define F_CODANAGDIP 105 +#define QAF_COGNOME 106 +#define QAF_NOME 107 +#define F_COGNOMEDIP 182 +#define F_NOMEDIP 183 +#define QAF_NPROG 108 + + +// 771200b.uml + +//#define F_BASEOCC 109 +#define F_DATAIR 110 +#define F_DATAFR 111 +#define F_CAUSA 112 +#define F_DENARO 113 +#define F_NATURA 114 +#define F_COBBDIP21 116 +#define F_COMPNETTI 117 +#define F_AIEREP23 118 +#define F_AMMLORDO24 119 +#define F_IACOBBCD25 120 +#define F_TOTIMP26 121 +#define F_CCTAMMCONT 122 +#define F_CCTAMNACON 123 +#define F_TOTIMP29 124 +#define F_ICTOTIMP30 125 +#define F_DETCC 126 +#define F_DETFC 127 +#define F_DETAF 128 +#define F_DETLD 129 +#define F_DETO 130 +#define F_TOTDET36 131 +#define F_AMRIOT37 132 +#define F_AMRIODL38 133 +#define F_ECCRITRIMB 134 +#define F_AMMRITDOV 135 +#define F_ERSPSAN41 136 +#define F_PRASSVI42 137 +#define F_CONPRECO43 138 +#define F_COBBDIP44 139 +#define F_AMMIMP45 140 +#define F_DETIMPOS46 141 +#define F_RITESEG47 142 +#define F_SVNASSRI48 143 +#define F_AIFCSSN49 144 +#define F_CFCONINPS 145 +#define F_SASS95 146 +#define F_CONEFF50 147 +#define F_IMPVERS51 148 +#define F_ISOPTAS52 149 +#define F_CONTRVER53 150 +#define F_ISOPTAS54 151 +#define F_CNEFF55 152 +#define F_RETCON56 153 +#define F_IMPRIMB57 154 +#define F_IMPVER58 155 +#define F_INTIRPEF59 156 +#define F_IMPVER60 157 +#define F_INTER61 158 +#define F_STSIRPEF62 159 +#define F_CONRIMB63 160 +#define F_CONVER64 161 +#define F_INTER65 162 +#define F_CONVER66 163 +#define F_INTER67 164 +#define F_STSCSSN68 165 +#define F_SEGDICNL69 166 +#define F_CIIAT 167 +#define F_CIPA 168 +#define F_CODCAAF 169 +#define F_NUMGIORNI 170 +#define F_CODFISDL 171 +#define F_DENCAAF 173 +#define F_CODFISCAAF 174 +#define F_NISCRA 175 +#define F_CODIP2 190 +#define QA_RAGSOC2 191 + +// 771200d.uml + +#define F_MESEANNO 200 +#define F_IMPRIMB9 201 +#define F_IMPVERS10 202 +#define F_INTER11 203 +#define F_IMPVERS12 204 +#define F_INTER13 205 +#define F_STASSA14 206 +#define F_CONTRIMB15 207 +#define F_CONTVERS16 208 +#define F_INTER17 209 +#define F_CONTVER18 210 +#define F_INTER19 211 +#define F_STASSA20 212 +#define F_CONNEFF21 213 +#define F_TIPOCONG22 214 +#define F_DATARIC29 215 + +// 771200f.uml + +#define F_IIRPEFVER8 250 +#define F_IIRPEFRI9 251 +#define F_PRIRPEF10 252 +#define F_STASSA12 254 +#define F_CONTR13 255 +#define F_CONTR14 256 +#define F_PRCSSN15 257 +#define F_INTER16 258 +#define F_STASSA17 259 +#define F_VEFFCON18 260 +#define F_SDNLIQ19 261 +#define F_RETCON20 262 + +// Campi maschera 771200g.uml + +#define F_CODIPQUADRO 300 +#define F_BASEOCCUPA 301 + +// Campi maschera 771200h.uml + +#define F_DIRAPTI 350 +#define F_NGINC15 351 +#define F_REDCOR16 352 +#define F_NGINC17 353 +#define F_REDCOR18 354 +#define F_DIRAPTI_2 355 +#define F_NGINC15_2 356 +#define F_REDCOR16_2 357 +#define F_NGINC17_2 358 +#define F_REDCOR18_2 359 +#define F_CODDITTA_2 360 +#define F_CODIP_2 361 +#define F_CODIP2_2 362 +#define F_COGNOME_2 363 +#define F_NOME_2 364 +#define F_NPROG_2 365 +#define F_DENTRASF 366 +#define F_COGNTRASF 367 +#define F_NOMETRASF 368 + +// Campi maschera 771200i.uml + +#define F_BSE_CONSBASOCC 400 +#define F_BSE_LAVDIPCIN 401 +#define F_BSE_DATAINPI 402 +#define F_BSE_DATAFINPI 403 + +// +// Modifiche 95->96 +// +// Quadro A +#define QAF_AREAATT 405 +#define QAF_TIPOATT 406 +#define QAF_SVNSOGRIT 407 +#define QAF_INCDETFC 408 +#define QAF_GIODET 409 + +// Quadro A1 +#define QA1F_ANNORIF 410 + +// Quadro A2 +#define QA2F_CNEFF 411 +#define QA2F_RETCON 412 +#define QA2F_CSSNCRIMB 413 +#define QA2F_CSSNCVER 414 +#define QA2F_CSSNINT 415 +#define QA2F_CSSNAIV 416 +#define QA2F_CSSNAINT 417 +#define QA2F_STCSSN 418 +#define QA2F_730NLIQ 419 + + +#define F_CODANAGDIPQA 420 + +#define G_ALL 12 +#define G_730 9 +#define G_770 7 +#define G_2342 6 + +#define QAF_ALLEG_A 421 +#define QA2F_ALLEG_A2 422 + diff --git a/m770/771200a.uml b/m770/771200a.uml index adfd0022f..0507bddc5 100755 --- a/m770/771200a.uml +++ b/m770/771200a.uml @@ -1,132 +1,132 @@ -#include "771200.h" - -TOOLBAR "" 0 18 0 4 -#include -BUTTON QAF_ALLEG_A 24 2 -BEGIN - PROMPT -13 -3 "~Allegati 730/96" -END -ENDPAGE - -#define G_DIPEND 1 -#define G_QUADROA 2 - -PAGE "Quadro A" -1 -1 78 21 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "GRD" - KEY 1 - CHECKTYPE REQUIRED - USE LF_NDITTE KEY 1 - INPUT CODDITTA QAF_CODDITTA - OUTPUT QAF_RAGDITTA RAGSOC - FIELD LF_QUAA->CODDITTA -END - -STRING QAF_RAGDITTA 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "D" -END - -NUMBER QAF_ANNODIC 4 -BEGIN - PROMPT 52 3 "Anno dichiarazione " - FLAGS "DR" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 7 "@bDati dipendente" -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 80 80 "" - FLAGS "D" - FIELD LF_QUAA->CODDIP - CHECKTYPE REQUIRED - KEY 1 -END - -NUMBER F_CODANAGDIP 6 -BEGIN - PROMPT 1 8 "@bCodice " - USE LF_DIPEND KEY 1 SELECT (CODDITTA==#QAF_CODDITTA) - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODANAGDIP - DISPLAY "Codice " CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_CODANAGDIP CODDIP - OUTPUT QAF_COGNOME COGNOME - OUTPUT QAF_NOME NOME - ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" - MESSAGE COPY, F_CODIP - FLAGS "H" - GROUP G_DIPEND - KEY 1 -END - -NUMBER F_CODANAGDIPQA 6 -BEGIN - PROMPT 1 8 "@bCodice " - USE LF_QUAA KEY 1 SELECT (CODDITTA==#QAF_CODDITTA) - JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODANAGDIPQA - DISPLAY "Codice " CODDIP - DISPLAY "Cognome@24" LF_DIPEND->COGNOME - DISPLAY "Nome@20" LF_DIPEND->NOME - DISPLAY "N°@4" NPROG - OUTPUT F_CODANAGDIPQA CODDIP - OUTPUT QAF_COGNOME LF_DIPEND->COGNOME - OUTPUT QAF_NOME LF_DIPEND->NOME - MESSAGE COPY, F_CODIP - GROUP G_QUADROA - KEY 1 -END - - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 8 "" - FLAGS "D" -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 8 "" - FLAGS "D" -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 1 10 "@bNumero " - CHECKTYPE REQUIRED - USE LF_QUAA KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) - JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODIP - INPUT NPROG QAF_NPROG - DISPLAY "Codice@10" CODDIP - DISPLAY "Cognome@24" LF_DIPEND->COGNOME - DISPLAY "Nome@20" LF_DIPEND->NOME - DISPLAY "N°@4" NPROG - OUTPUT F_CODIP CODDIP - OUTPUT QAF_NPROG NPROG - FIELD LF_QUAA->NPROG - KEY 1 -END - -ENDPAGE - -ENDMASK - +#include "771200.h" + +TOOLBAR "" 0 18 0 4 +#include +BUTTON QAF_ALLEG_A 24 2 +BEGIN + PROMPT -13 -3 "~Allegati 730/96" +END +ENDPAGE + +#define G_DIPEND 1 +#define G_QUADROA 2 + +PAGE "Quadro A" -1 -1 78 21 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "GRD" + KEY 1 + CHECKTYPE REQUIRED + USE LF_NDITTE KEY 1 + INPUT CODDITTA QAF_CODDITTA + OUTPUT QAF_RAGDITTA RAGSOC + FIELD LF_QUAA->CODDITTA +END + +STRING QAF_RAGDITTA 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "D" +END + +NUMBER QAF_ANNODIC 4 +BEGIN + PROMPT 52 3 "Anno dichiarazione " + FLAGS "DR" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 7 "@bDati dipendente" +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 80 80 "" + FLAGS "D" + FIELD LF_QUAA->CODDIP + CHECKTYPE REQUIRED + KEY 1 +END + +NUMBER F_CODANAGDIP 6 +BEGIN + PROMPT 1 8 "@bCodice " + USE LF_DIPEND KEY 1 SELECT (CODDITTA==#QAF_CODDITTA) + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODANAGDIP + DISPLAY "Codice " CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_CODANAGDIP CODDIP + OUTPUT QAF_COGNOME COGNOME + OUTPUT QAF_NOME NOME + ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" + MESSAGE COPY, F_CODIP + FLAGS "H" + GROUP G_DIPEND + KEY 1 +END + +NUMBER F_CODANAGDIPQA 6 +BEGIN + PROMPT 1 8 "@bCodice " + USE LF_QUAA KEY 1 SELECT (CODDITTA==#QAF_CODDITTA) + JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODANAGDIPQA + DISPLAY "Codice " CODDIP + DISPLAY "Cognome@24" LF_DIPEND->COGNOME + DISPLAY "Nome@20" LF_DIPEND->NOME + DISPLAY "N°@4" NPROG + OUTPUT F_CODANAGDIPQA CODDIP + OUTPUT QAF_COGNOME LF_DIPEND->COGNOME + OUTPUT QAF_NOME LF_DIPEND->NOME + MESSAGE COPY, F_CODIP + GROUP G_QUADROA + KEY 1 +END + + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 8 "" + FLAGS "D" +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 8 "" + FLAGS "D" +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 1 10 "@bNumero " + CHECKTYPE REQUIRED + USE LF_QUAA KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) + JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODIP + INPUT NPROG QAF_NPROG + DISPLAY "Codice@10" CODDIP + DISPLAY "Cognome@24" LF_DIPEND->COGNOME + DISPLAY "Nome@20" LF_DIPEND->NOME + DISPLAY "N°@4" NPROG + OUTPUT F_CODIP CODDIP + OUTPUT QAF_NPROG NPROG + FIELD LF_QUAA->NPROG + KEY 1 +END + +ENDPAGE + +ENDMASK + diff --git a/m770/771200b.uml b/m770/771200b.uml index fdde89ca3..bfe009480 100755 --- a/m770/771200b.uml +++ b/m770/771200b.uml @@ -1,1000 +1,1000 @@ -#include "771200.h" -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "1" -1 -1 78 21 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - PROMPT 80 80 "" - FLAGS "D" - FIELD LF_QUAA->CODDITTA - KEY 1 - GROUP 10 -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 17 1 "" - USE LF_DIPEND KEY 1 - FIELD LF_QUAA->CODDIP - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT QAF_COGNOME COGNOME - OUTPUT QAF_NOME NOME - CHECKTYPE REQUIRED - FLAGS "DG" - GROUP 10 - MESSAGE COPY,2@ - KEY 1 -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - GROUP 10 - MESSAGE COPY,3@ -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - GROUP 10 - MESSAGE COPY,4@ -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 72 1 "" - FIELD LF_QUAA->NPROG - FLAGS "DG" - KEY 1 - GROUP 10 - MESSAGE COPY,5@ -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 1 3 "@bDati relativi al rapporto di lavoro" -END - -LISTBOX QAF_AREAATT 1 19 -BEGIN - PROMPT 2 4 "13 Area attività " - ITEM " |" - ITEM "A|Area amministrativa" - ITEM "B|Area vendita" - ITEM "C|Area produzione" - ITEM "D|Aree non definite" - FIELD LF_QUAA->AREAATT - GROUP G_ALL -END - -STRING QAF_TIPOATT 1 -BEGIN - PROMPT 42 4 "14 Tipo " - SHEET "Codice|Descrizione@70" - INPUT QAF_TIPOATT - ITEM " |" - ITEM "A|Tempo parziale" - ITEM "B|Apprendistato" - ITEM "C|Formazione lavoro" - OUTPUT QAF_TIPOATT - FIELD LF_QUAA->TIPO - FLAGS "U" - GROUP G_ALL -END - -NUMBER F_NUMGIORNI 3 -BEGIN - PROMPT 55 4 "15 Numero giorni " - FIELD LF_QUAA->NUMGIO - GROUP G_ALL -END - -DATE F_DATAFR -BEGIN - PROMPT 2 5 "16 Data fine rapporto " - FIELD LF_QUAA->DATAFR - GROUP G_ALL -END - -NUMBER QAF_GIODET 3 -BEGIN - PROMPT 40 5 "17 Num.gio.det.lav.dip " - FIELD LF_QUAA->NUMGIODET - NUM_EXPR {(#THIS>=0)&&(#THIS<=366)} - WARNING "I giorni detrazione per lav.dip. devono essere compresi tra 0 e 366" - GROUP G_ALL -END - -STRING F_CODFISDL 16 -BEGIN - PROMPT 2 6 "18 Cod.fis.prec.dat.lav. " - FIELD LF_QUAA->CFDLPREC - FLAGS "U" - VALIDATE CF_FUNC F_CODFISDL - GROUP G_ALL -END - -NUMBER F_CAUSA 1 -BEGIN - PROMPT 60 6 "19 Causa " - FIELD LF_QUAA->CAUSA - SHEET "Codice|Descrizione@70" - INPUT F_CAUSA - ITEM " |Niente" - ITEM "1|Fusione (anche per incorporazione)" - ITEM "2|Scissione" - ITEM "3|Conferimento o cessione a titolo oneroso" - ITEM "4|Esercizio della facolta' prevista da art.23, comma 7, D.P.R. 600/73" - ITEM "5|Altro" - ITEM "6|Forme pensionistiche complementari (I num.d'ordine)" - ITEM "7|Forme pensionistiche complementari (II num.d'ordine)" - OUTPUT F_CAUSA - GROUP G_ALL -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 8 "@bCompensi lordi, stipendi, pensioni ecc." -END - -NUMBER F_DENARO 15 -BEGIN - PROMPT 2 9 "20 In denaro " - FIELD LF_QUAA->DENARO - PICTURE "." - GROUP G_ALL -END - -NUMBER F_NATURA 15 -BEGIN - PROMPT 45 9 "21 In natura " - FIELD LF_QUAA->NATURA - PICTURE "." - GROUP G_ALL -END - -NUMBER F_COBBDIP21 15 -BEGIN - PROMPT 2 11 "22 Contr.obb.car. dip. " - HELP "Contributi obbligatori a carico del dipendente" - FIELD LF_QUAA->COBBDIP - PICTURE "." - GROUP G_ALL -END - -NUMBER F_COMPNETTI 15 -BEGIN - PROMPT 45 11 "23 Compensi netti" - FIELD LF_QUAA->COMPNETTI - PICTURE "." - FLAGS "D" - GROUP G_2342 -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 13 "@bIndennita' e assegni ex Art.48, C.4 e 5, T.U.I.R." -END - -NUMBER F_AMMLORDO24 15 -BEGIN - PROMPT 2 14 "24 Ammontare lordo " - FIELD LF_QUAA->AMMLORDO - PICTURE "." - GROUP G_ALL -END - -NUMBER F_IACOBBCD25 15 -BEGIN - PROMPT 39 14 "25 Contr.obb.car. dip. " - FIELD LF_QUAA->IACOBBCD - PICTURE "." - HELP "Contributi obbligatori a carico del dipendente" - GROUP G_ALL -END - -NUMBER QAF_SVNSOGRIT 15 -BEGIN - PROMPT 2 15 "26 Som.v.non sog.rit." - FIELD LF_QUAA->NORIT - PICTURE "." - GROUP G_ALL -END - -NUMBER F_TOTIMP26 15 -BEGIN - PROMPT 39 15 "27 Totale imponibile " - FIELD LF_QUAA->TOTIMP - PICTURE "." - GROUP G_ALL -END - -ENDPAGE - -PAGE "2" -1 -1 78 21 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 17 1 "" - FLAGS "DG" - GROUP 2 -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - GROUP 3 -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - GROUP 4 -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 72 1 "" - FLAGS "DG" - GROUP 5 -END - -NUMBER F_AIEREP23 15 -BEGIN - PROMPT 2 3 "28 Assegni indennita' erogati da enti previdenziali " - FIELD LF_QUAA->AIENTIPREV - PICTURE "." - HELP "Assegni e indennita' erogati da enti previdenziali" - GROUP G_ALL -END - -NUMBER F_CCTAMMCONT 15 -BEGIN - PROMPT 2 4 "29 Ammontare compensi corrisposti da terzi " - FIELD LF_QUAA->CCTAMMCONT - PICTURE "." - GROUP G_ALL -END - -NUMBER F_TOTIMP29 15 -BEGIN - PROMPT 2 5 "30 Totale imponibile " - FIELD LF_QUAA->TOTIMP2 - PICTURE "." - GROUP G_ALL -END - -NUMBER F_ICTOTIMP30 15 -BEGIN - PROMPT 2 6 "31 Imposta corrispondente totale imponibile " - FIELD LF_QUAA->ICTOTIMP - PICTURE "." - HELP "Imposta corrispondente al totale imponibile" - GROUP G_ALL -END - -NUMBER F_DETCC 15 -BEGIN - PROMPT 2 7 "32 Detr.coniuge carico " - FIELD LF_QUAA->DETCC - PICTURE "." - HELP "Detrazione per coniuge a carico" - GROUP G_ALL -END - -NUMBER F_DETFC 15 -BEGIN - PROMPT 41 7 "33 Detr.figli carico " - FIELD LF_QUAA->DETFC - PICTURE "." - HELP "Detrazione per figli a carico" - GROUP G_ALL -END - -NUMBER F_DETAF 15 -BEGIN - PROMPT 2 8 "34 Det.altri fam.carico" - FIELD LF_QUAA->DETAF - PICTURE "." - HELP "Detrazione per altri famigliari a carico" - GROUP G_ALL -END - -NUMBER F_DETLD 15 -BEGIN - PROMPT 41 8 "35 Detr.lav. dipend. " - FIELD LF_QUAA->DETLD - PICTURE "." - HELP "Detrazione per lavoro dipendente" - GROUP G_ALL -END - -NUMBER F_DETO 15 -BEGIN - PROMPT 2 9 "36 Detr. per oneri " - FIELD LF_QUAA->DETO - PICTURE "." - HELP "Detrazione per oneri" - GROUP G_ALL -END - -NUMBER F_TOTDET36 15 -BEGIN - PROMPT 41 9 "37 Totale detrazione " - FIELD LF_QUAA->TOTDET - PICTURE "." - GROUP G_ALL -END - -NUMBER QAF_INCDETFC 15 -BEGIN - PROMPT 2 10 "38 Inc.detr.figli a ca." - FIELD LF_QUAA->INCDETFC - PICTURE "." - GROUP G_ALL -END - -NUMBER F_AMRIOT37 15 -BEGIN - PROMPT 2 11 "39 Ammontare delle ritenute operate da terzi" - FIELD LF_QUAA->AMRIOT - PICTURE "." - HELP "Ammontare delle ritenute operate da terzi" - GROUP G_ALL -END - -NUMBER F_AMRIODL38 15 -BEGIN - PROMPT 2 12 "40 Ammontare ritenute operate datore lavoro " - FIELD LF_QUAA->AMRIODL - PICTURE "." - HELP "Ammontare delle ritenute operate dal datore di lavoro" - GROUP G_ALL -END - -NUMBER F_ECCRITRIMB 15 -BEGIN - PROMPT 2 13 "41 Eccedenza delle ritenute da rimborsare " - FIELD LF_QUAA->ECCRITRIMB - PICTURE "." - HELP "Eccedenza delle ritenute da rimborsare" - GROUP G_ALL -END - -NUMBER F_AMMRITDOV 15 -BEGIN - PROMPT 2 14 "42 Ammont.riten. dovute" - FIELD LF_QUAA->AMMRITDOV - PICTURE "." - HELP "Ammontare delle ritenute dovute" - FLAGS "D" - GROUP G_2342 -END - -NUMBER F_ERSPSAN41 15 -BEGIN - PROMPT 41 14 "43 Er.spese sanitarie" - FIELD LF_QUAA->ERSPSAN - PICTURE "." - HELP "Erogazioni per spese sanitarie, anche in forma assicurativa" - GROUP G_ALL -END - -NUMBER F_PRASSVI42 15 -BEGIN - PROMPT 2 15 "44 Premi di assicurazione vita e infortuni " - FIELD LF_QUAA->PRASSVI - PICTURE "." - HELP "Premi di assicurazione vita e infortuni" - GROUP G_ALL -END - -NUMBER F_CONPRECO43 15 -BEGIN - PROMPT 2 16 "45 Contributi per previdenza complementare " - FIELD LF_QUAA->CONPRECO - PICTURE "." - HELP "Contributi per previdenza complementare" - GROUP G_ALL -END - -ENDPAGE - -PAGE "3" -1 -1 78 21 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -/* -NUMBER QAF_CODDITTA 5 -BEGIN - FLAGS "H" - GROUP 1 -END -*/ - -NUMBER F_CODIP 6 -BEGIN - PROMPT 17 1 "" - FLAGS "DG" - GROUP 2 -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - GROUP 3 -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - GROUP 4 -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 72 1 "" - FLAGS "DG" - GROUP 5 -END - -GROUPBOX DLG_NULL 78 6 -BEGIN - PROMPT 1 3 "@bArretrati relativi ad anni precedenti" -END - -NUMBER F_COBBDIP44 15 -BEGIN - PROMPT 2 4 "46 Cont.obb.carico dip." - FIELD LF_QUAA->COBBDIP2 - PICTURE "." - HELP "Contributi obbligatori a carico del dipendente" - GROUP G_ALL -END - -NUMBER F_AMMIMP45 15 -BEGIN - PROMPT 41 4 "47 Ammontare imponib." - FIELD LF_QUAA->AMMIMP - PICTURE "." - HELP "Ammontare imponibile" - GROUP G_ALL -END - -NUMBER F_DETIMPOS46 15 -BEGIN - PROMPT 2 5 "48 Detrazioni d'imposta" - FIELD LF_QUAA->DETIMPOS - PICTURE "." - GROUP G_ALL -END - -NUMBER F_RITESEG47 15 -BEGIN - PROMPT 41 5 "49 Ritenuta eseguita " - FIELD LF_QUAA->RITESEG - PICTURE "." - GROUP G_ALL -END - -NUMBER F_SVNASSRI48 15 -BEGIN - PROMPT 2 6 "50 Altre somme e valori non ass.a ritenuta " - FIELD LF_QUAA->SVNASSRI - PICTURE "." - GROUP G_ALL -END - -NUMBER F_AIFCSSN49 15 -BEGIN - PROMPT 2 7 "51 Ammontare imponibile ai fini del C.S.S.N." - FIELD LF_QUAA->AIFCSSN - PICTURE "." - HELP "Ammontare imponibile ai fini del C.S.S.N." - GROUP G_ALL -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 9 "@bVERSAMENTI E RIMBORSI CONSEGUENTI ALL'ASSISTENZA FISCALE " -END - -GROUPBOX DLG_NULL 0 3 -BEGIN - PROMPT 1 10 "@bAssistenza 1995" -END - -STRING F_CONEFF50 1 -BEGIN - PROMPT 2 11 "52 conguagli non effettuati nel 95 " - FIELD LF_QUAA->CONEFF - SHEET "Codice|Descrizione@85" - INPUT F_CONEFF50 - ITEM " |Niente" - ITEM "A|Cessazione del rapporto di lavoro" - ITEM "B|Aspettativa senza retribuzione" - ITEM "C|Decesso" - ITEM "D|Richiesta di minore secondo acconto" - ITEM "E|Retribuzione insufficiente" - ITEM "F|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici" - OUTPUT F_CONEFF50 - FLAGS "U" - GROUP G_ALL -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 13 "@bSeconda rata acconto IRPEF 1995" -END - -NUMBER F_IMPVERS51 15 -BEGIN - PROMPT 2 14 "53 Imposta vers. " - FIELD LF_QUAA->IMPVERS - PICTURE "." - GROUP G_ALL -END - -NUMBER F_ISOPTAS52 15 -BEGIN - PROMPT 37 14 "54 Interessi " - FIELD LF_QUAA->INTERE - PICTURE "." - GROUP G_ALL -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 16 "@bSeconda rata acconto C.S.S.N. 1995" -END - -NUMBER F_CONTRVER53 15 -BEGIN - PROMPT 2 17 "55 Contr. versato" - FIELD LF_QUAA->CSSN95CV - PICTURE "." - GROUP G_ALL -END - -NUMBER F_ISOPTAS54 15 -BEGIN - PROMPT 37 17 "56 Interessi " - FIELD LF_QUAA->INTERE2 - PICTURE "." - GROUP G_ALL -END - -ENDPAGE - -PAGE "4" -1 -1 78 21 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -/* -NUMBER QAF_CODDITTA 5 -BEGIN - FLAGS "H" - GROUP 1 -END -*/ - -NUMBER F_CODIP 6 -BEGIN - PROMPT 17 1 "" - FLAGS "DG" - GROUP 2 -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - GROUP 3 -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - GROUP 4 -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 72 1 "" - FLAGS "DG" - GROUP 5 -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 3 "@bAssistenza 1996" -END - -STRING F_CNEFF55 1 -BEGIN - PROMPT 2 4 "57 Conguagli n/eff. " - FIELD LF_QUAA->CNEFF - SHEET "Codice|Descrizione@85" - INPUT F_CNEFF55 - ITEM " |Niente" - ITEM "A|Cessazione del rapporto di lavoro" - ITEM "B|Aspettativa senza retribuzione" - ITEM "C|Decesso" - ITEM "D|Richiesta di minore secondo acconto" - ITEM "E|Retribuzione insufficiente" - ITEM "F|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici" - ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente" - OUTPUT F_CNEFF55 - FLAGS "U" - GROUP G_ALL -END - -STRING F_RETCON56 1 -BEGIN - PROMPT 37 4 "58 Rettifica conguaglio " - FIELD LF_QUAA->RETCON - SHEET "Cod.|Descrizione@200" - INPUT F_RETCON56 - ITEM " | " - ITEM "A|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.96 (I n. d'ordine)" - ITEM "B|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.96 (II n. d'ordine)" - ITEM "C|Conguaglio a seguito di rettifica di una precedente comunicazione tardivamente pervenuta al sostituto" - ITEM "D|Conguaglio a seguito di rett. prec. comunic. tempestivam. pervenuta al sostituto ma per la quale non è stato effettuato il conguaglio nel mese di giugno" - ITEM "E|Conguaglio tardivo per mod.730-4 pervenuto tardivamente" - ITEM "F|Conguaglio tardivo per causa dipendente dal sostituto d'imposta" - OUTPUT F_RETCON56 - FLAGS "U" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 6 "@bSaldo IRPEF per il 1995" -END - -NUMBER F_IMPRIMB57 15 -BEGIN - PROMPT 2 7 "59 Impo. rimborsata " - FIELD LF_QUAA->IMPRIMB - PICTURE "." - GROUP G_ALL -END - -NUMBER F_IMPVER58 15 -BEGIN - PROMPT 44 7 "60 Imposta versata" - FIELD LF_QUAA->IMPVER - PICTURE "." - GROUP G_ALL -END - -NUMBER F_INTIRPEF59 15 -BEGIN - PROMPT 2 8 "61 Interessi " - FIELD LF_QUAA->INTIRPEF - PICTURE "." - HELP "Interessi IRPEF" - GROUP G_ALL -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 10 "@bPrima rata acconto IRPEF per il 1996" -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 11 "62 Impo. versata " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 11 "62 I.ver/tr.IRPEF" - GROUP G_730 -END - -NUMBER F_IMPVER60 15 -BEGIN - PROMPT 23 11 "" - FIELD LF_QUAA->IMPVER2 - PICTURE "." -END - -TEXT DLG_NULL -BEGIN - PROMPT 44 11 "63 Interessi " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 44 11 "63 I.ri.IRPEF" - GROUP G_730 -END - -NUMBER F_INTER61 15 -BEGIN - PROMPT 61 11 "" - FIELD LF_QUAA->INTER - PICTURE "." -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 12 "64 Soprattasse saldo IRPEF per 95 e prima rata acconto 96 " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 12 "64 Prima rata di acconto IRPEF per il 1996 " - GROUP G_730 -END - -NUMBER F_STSIRPEF62 15 -BEGIN - PROMPT 61 12 "" - FIELD LF_QUAA->STSIRPEF - PICTURE "." - HELP "Interessi IRPEF" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 14 "@bSaldo C.S.S.N. per il 1995" -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 15 "65 Contr. rimborso " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 15 "65 2rata ac.IRPEF96" - GROUP G_730 -END - -NUMBER F_CONRIMB63 15 -BEGIN - PROMPT 21 15 "" - FIELD LF_QUAA->CONRIMB - PICTURE "." -END - -TEXT DLG_NULL -BEGIN - PROMPT 44 15 "66 Contr.versato " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 44 15 "66 I.v.trat.CSSN " - GROUP G_730 -END - -NUMBER F_CONVER64 15 -BEGIN - PROMPT 61 15 "" - FIELD LF_QUAA->CONVER - PICTURE "." -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 16 "67 Interessi " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 16 "67 Imp. rimb. CSSN " - GROUP G_730 -END - -NUMBER F_INTER65 15 -BEGIN -// "Interessi " - PROMPT 21 16 "" - FIELD LF_QUAA->INTER2 - PICTURE "." -END - -ENDPAGE - -PAGE "5" -1 -1 78 21 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -/* -NUMBER QAF_CODDITTA 5 -BEGIN - FLAGS "H" - GROUP 1 -END -*/ - -NUMBER F_CODIP 6 -BEGIN - PROMPT 17 1 "" - FLAGS "DG" - GROUP 2 -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - GROUP 3 -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - GROUP 4 -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 72 1 "" - FLAGS "DG" - GROUP 5 -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 1 3 "@bPrima rata acconto C.S.S.N. per il 1996" -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 4 "68 Contr. versato " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 4 "68 1r.acc.CSSN 96 " - GROUP G_730 -END - -NUMBER F_CONVER66 15 -BEGIN -// "Contributo versato " - PROMPT 21 4 "" - FIELD LF_QUAA->CONVER2 - PICTURE "." -END - -TEXT DLG_NULL -BEGIN - PROMPT 44 4 "69 Interessi " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 44 4 "69 2r.acc.CSSN 96" - GROUP G_730 -END - -NUMBER F_INTER67 15 -BEGIN -// "69 Interessi " - PROMPT 61 4 "" - FIELD LF_QUAA->INTER3 - PICTURE "." -END - -NUMBER F_STSCSSN68 15 -BEGIN - PROMPT 2 5 "70 Soprattasse saldo C.S.S.N. 95 e prima rata acconto 96 " - FIELD LF_QUAA->STSCSSN70 - GROUP G_ALL - PICTURE "." -END - -NUMBER F_SEGDICNL69 2 -BEGIN - PROMPT 2 6 "71 Mod.730/96 non liquidabile " - FIELD LF_QUAA->M730NLIQ - FLAGS "Z" - SHEET "Codice|Descrizione@200" - INPUT F_SEGDICNL69 - ITEM " |Niente" - ITEM "01|Errata o incompleta compilazione dei dati anagrafici e di residenza del dichiarante" - ITEM "02|Errata o incompleta compilazione dei dati del coniuge e familiari a carico" - ITEM "03|Errata o incompleta compilazione dei dati anagrafici e di residenza del coniuge" - ITEM "04|Errata o incompleta dichiarazione del quadro A Mod.730/96 del dichiarante" - ITEM "05|Errata o incompleta dichiarazione del quadro A Mod.730/96 del coniuge" - ITEM "06|Errata o incompleta dichiarazione del quadro B Mod.730/96 del dichiarante" - ITEM "07|Errata o incompleta dichiarazione del quadro B Mod.730/96 del coniuge" - ITEM "08|Errata o incompleta dichiarazione del quadro C Mod.730/96 del dichiarante" - ITEM "09|Errata o incompleta dichiarazione del quadro D Mod.730/96 del dichiarante" - ITEM "10|Errata o incompleta dichiarazione del quadro E Mod.730/96 del dichiarante" - ITEM "11|Errata o incompleta dichiarazione del quadro E Mod.730/96 del coniuge" - ITEM "12|Errata o incompleta dichiarazione del quadro F Mod.730/96 del dichiarante" - ITEM "13|Errata o incompleta dichiarazione del quadro F Mod.730/96 del coniuge" - OUTPUT F_SEGDICNL69 - GROUP G_ALL -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 10 "@bDati identificativi del C.A.A.F che ha prestato assistenza " -END - -NUMBER F_CODCAAF 5 -BEGIN - PROMPT 2 11 "Codice " - FIELD LF_QUAA->CODCAAF - USE %CAF - CHECKTYPE NORMAL - INPUT CODTAB F_CODCAAF - DISPLAY "Codice" CODTAB - DISPLAY "Denominazione@50" S0 - DISPLAY "N.ro iscrizione" I1 - DISPLAY "Codice fiscale@16" S1 - OUTPUT F_CODCAAF CODTAB - OUTPUT F_DENCAAF S0 - OUTPUT F_NISCRA I1 - OUTPUT F_CODFISCAAF S1 - GROUP G_ALL -END - -STRING F_DENCAAF 50 -BEGIN - PROMPT 26 11 "" - FLAGS "DU" -END - -STRING F_CODFISCAAF 16 -BEGIN - PROMPT 2 12 "72 Cod.fiscale " - FLAGS "D" -END - -NUMBER F_NISCRA 5 -BEGIN - PROMPT 50 12 "74 N.iscrizione albo " - FLAGS "D" -END - -ENDPAGE - -ENDMASK +#include "771200.h" +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "1" -1 -1 78 21 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + PROMPT 80 80 "" + FLAGS "D" + FIELD LF_QUAA->CODDITTA + KEY 1 + GROUP 10 +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 17 1 "" + USE LF_DIPEND KEY 1 + FIELD LF_QUAA->CODDIP + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT QAF_COGNOME COGNOME + OUTPUT QAF_NOME NOME + CHECKTYPE REQUIRED + FLAGS "DG" + GROUP 10 + MESSAGE COPY,2@ + KEY 1 +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + GROUP 10 + MESSAGE COPY,3@ +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + GROUP 10 + MESSAGE COPY,4@ +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 72 1 "" + FIELD LF_QUAA->NPROG + FLAGS "DG" + KEY 1 + GROUP 10 + MESSAGE COPY,5@ +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 1 3 "@bDati relativi al rapporto di lavoro" +END + +LISTBOX QAF_AREAATT 1 19 +BEGIN + PROMPT 2 4 "13 Area attività " + ITEM " |" + ITEM "A|Area amministrativa" + ITEM "B|Area vendita" + ITEM "C|Area produzione" + ITEM "D|Aree non definite" + FIELD LF_QUAA->AREAATT + GROUP G_ALL +END + +STRING QAF_TIPOATT 1 +BEGIN + PROMPT 42 4 "14 Tipo " + SHEET "Codice|Descrizione@70" + INPUT QAF_TIPOATT + ITEM " |" + ITEM "A|Tempo parziale" + ITEM "B|Apprendistato" + ITEM "C|Formazione lavoro" + OUTPUT QAF_TIPOATT + FIELD LF_QUAA->TIPO + FLAGS "U" + GROUP G_ALL +END + +NUMBER F_NUMGIORNI 3 +BEGIN + PROMPT 55 4 "15 Numero giorni " + FIELD LF_QUAA->NUMGIO + GROUP G_ALL +END + +DATE F_DATAFR +BEGIN + PROMPT 2 5 "16 Data fine rapporto " + FIELD LF_QUAA->DATAFR + GROUP G_ALL +END + +NUMBER QAF_GIODET 3 +BEGIN + PROMPT 40 5 "17 Num.gio.det.lav.dip " + FIELD LF_QUAA->NUMGIODET + NUM_EXPR {(#THIS>=0)&&(#THIS<=366)} + WARNING "I giorni detrazione per lav.dip. devono essere compresi tra 0 e 366" + GROUP G_ALL +END + +STRING F_CODFISDL 16 +BEGIN + PROMPT 2 6 "18 Cod.fis.prec.dat.lav. " + FIELD LF_QUAA->CFDLPREC + FLAGS "U" + VALIDATE CF_FUNC F_CODFISDL + GROUP G_ALL +END + +NUMBER F_CAUSA 1 +BEGIN + PROMPT 60 6 "19 Causa " + FIELD LF_QUAA->CAUSA + SHEET "Codice|Descrizione@70" + INPUT F_CAUSA + ITEM " |Niente" + ITEM "1|Fusione (anche per incorporazione)" + ITEM "2|Scissione" + ITEM "3|Conferimento o cessione a titolo oneroso" + ITEM "4|Esercizio della facolta' prevista da art.23, comma 7, D.P.R. 600/73" + ITEM "5|Altro" + ITEM "6|Forme pensionistiche complementari (I num.d'ordine)" + ITEM "7|Forme pensionistiche complementari (II num.d'ordine)" + OUTPUT F_CAUSA + GROUP G_ALL +END + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 8 "@bCompensi lordi, stipendi, pensioni ecc." +END + +NUMBER F_DENARO 15 +BEGIN + PROMPT 2 9 "20 In denaro " + FIELD LF_QUAA->DENARO + PICTURE "." + GROUP G_ALL +END + +NUMBER F_NATURA 15 +BEGIN + PROMPT 45 9 "21 In natura " + FIELD LF_QUAA->NATURA + PICTURE "." + GROUP G_ALL +END + +NUMBER F_COBBDIP21 15 +BEGIN + PROMPT 2 11 "22 Contr.obb.car. dip. " + HELP "Contributi obbligatori a carico del dipendente" + FIELD LF_QUAA->COBBDIP + PICTURE "." + GROUP G_ALL +END + +NUMBER F_COMPNETTI 15 +BEGIN + PROMPT 45 11 "23 Compensi netti" + FIELD LF_QUAA->COMPNETTI + PICTURE "." + FLAGS "D" + GROUP G_2342 +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 13 "@bIndennita' e assegni ex Art.48, C.4 e 5, T.U.I.R." +END + +NUMBER F_AMMLORDO24 15 +BEGIN + PROMPT 2 14 "24 Ammontare lordo " + FIELD LF_QUAA->AMMLORDO + PICTURE "." + GROUP G_ALL +END + +NUMBER F_IACOBBCD25 15 +BEGIN + PROMPT 39 14 "25 Contr.obb.car. dip. " + FIELD LF_QUAA->IACOBBCD + PICTURE "." + HELP "Contributi obbligatori a carico del dipendente" + GROUP G_ALL +END + +NUMBER QAF_SVNSOGRIT 15 +BEGIN + PROMPT 2 15 "26 Som.v.non sog.rit." + FIELD LF_QUAA->NORIT + PICTURE "." + GROUP G_ALL +END + +NUMBER F_TOTIMP26 15 +BEGIN + PROMPT 39 15 "27 Totale imponibile " + FIELD LF_QUAA->TOTIMP + PICTURE "." + GROUP G_ALL +END + +ENDPAGE + +PAGE "2" -1 -1 78 21 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 17 1 "" + FLAGS "DG" + GROUP 2 +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + GROUP 3 +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + GROUP 4 +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 72 1 "" + FLAGS "DG" + GROUP 5 +END + +NUMBER F_AIEREP23 15 +BEGIN + PROMPT 2 3 "28 Assegni indennita' erogati da enti previdenziali " + FIELD LF_QUAA->AIENTIPREV + PICTURE "." + HELP "Assegni e indennita' erogati da enti previdenziali" + GROUP G_ALL +END + +NUMBER F_CCTAMMCONT 15 +BEGIN + PROMPT 2 4 "29 Ammontare compensi corrisposti da terzi " + FIELD LF_QUAA->CCTAMMCONT + PICTURE "." + GROUP G_ALL +END + +NUMBER F_TOTIMP29 15 +BEGIN + PROMPT 2 5 "30 Totale imponibile " + FIELD LF_QUAA->TOTIMP2 + PICTURE "." + GROUP G_ALL +END + +NUMBER F_ICTOTIMP30 15 +BEGIN + PROMPT 2 6 "31 Imposta corrispondente totale imponibile " + FIELD LF_QUAA->ICTOTIMP + PICTURE "." + HELP "Imposta corrispondente al totale imponibile" + GROUP G_ALL +END + +NUMBER F_DETCC 15 +BEGIN + PROMPT 2 7 "32 Detr.coniuge carico " + FIELD LF_QUAA->DETCC + PICTURE "." + HELP "Detrazione per coniuge a carico" + GROUP G_ALL +END + +NUMBER F_DETFC 15 +BEGIN + PROMPT 41 7 "33 Detr.figli carico " + FIELD LF_QUAA->DETFC + PICTURE "." + HELP "Detrazione per figli a carico" + GROUP G_ALL +END + +NUMBER F_DETAF 15 +BEGIN + PROMPT 2 8 "34 Det.altri fam.carico" + FIELD LF_QUAA->DETAF + PICTURE "." + HELP "Detrazione per altri famigliari a carico" + GROUP G_ALL +END + +NUMBER F_DETLD 15 +BEGIN + PROMPT 41 8 "35 Detr.lav. dipend. " + FIELD LF_QUAA->DETLD + PICTURE "." + HELP "Detrazione per lavoro dipendente" + GROUP G_ALL +END + +NUMBER F_DETO 15 +BEGIN + PROMPT 2 9 "36 Detr. per oneri " + FIELD LF_QUAA->DETO + PICTURE "." + HELP "Detrazione per oneri" + GROUP G_ALL +END + +NUMBER F_TOTDET36 15 +BEGIN + PROMPT 41 9 "37 Totale detrazione " + FIELD LF_QUAA->TOTDET + PICTURE "." + GROUP G_ALL +END + +NUMBER QAF_INCDETFC 15 +BEGIN + PROMPT 2 10 "38 Inc.detr.figli a ca." + FIELD LF_QUAA->INCDETFC + PICTURE "." + GROUP G_ALL +END + +NUMBER F_AMRIOT37 15 +BEGIN + PROMPT 2 11 "39 Ammontare delle ritenute operate da terzi" + FIELD LF_QUAA->AMRIOT + PICTURE "." + HELP "Ammontare delle ritenute operate da terzi" + GROUP G_ALL +END + +NUMBER F_AMRIODL38 15 +BEGIN + PROMPT 2 12 "40 Ammontare ritenute operate datore lavoro " + FIELD LF_QUAA->AMRIODL + PICTURE "." + HELP "Ammontare delle ritenute operate dal datore di lavoro" + GROUP G_ALL +END + +NUMBER F_ECCRITRIMB 15 +BEGIN + PROMPT 2 13 "41 Eccedenza delle ritenute da rimborsare " + FIELD LF_QUAA->ECCRITRIMB + PICTURE "." + HELP "Eccedenza delle ritenute da rimborsare" + GROUP G_ALL +END + +NUMBER F_AMMRITDOV 15 +BEGIN + PROMPT 2 14 "42 Ammont.riten. dovute" + FIELD LF_QUAA->AMMRITDOV + PICTURE "." + HELP "Ammontare delle ritenute dovute" + FLAGS "D" + GROUP G_2342 +END + +NUMBER F_ERSPSAN41 15 +BEGIN + PROMPT 41 14 "43 Er.spese sanitarie" + FIELD LF_QUAA->ERSPSAN + PICTURE "." + HELP "Erogazioni per spese sanitarie, anche in forma assicurativa" + GROUP G_ALL +END + +NUMBER F_PRASSVI42 15 +BEGIN + PROMPT 2 15 "44 Premi di assicurazione vita e infortuni " + FIELD LF_QUAA->PRASSVI + PICTURE "." + HELP "Premi di assicurazione vita e infortuni" + GROUP G_ALL +END + +NUMBER F_CONPRECO43 15 +BEGIN + PROMPT 2 16 "45 Contributi per previdenza complementare " + FIELD LF_QUAA->CONPRECO + PICTURE "." + HELP "Contributi per previdenza complementare" + GROUP G_ALL +END + +ENDPAGE + +PAGE "3" -1 -1 78 21 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +/* +NUMBER QAF_CODDITTA 5 +BEGIN + FLAGS "H" + GROUP 1 +END +*/ + +NUMBER F_CODIP 6 +BEGIN + PROMPT 17 1 "" + FLAGS "DG" + GROUP 2 +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + GROUP 3 +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + GROUP 4 +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 72 1 "" + FLAGS "DG" + GROUP 5 +END + +GROUPBOX DLG_NULL 78 6 +BEGIN + PROMPT 1 3 "@bArretrati relativi ad anni precedenti" +END + +NUMBER F_COBBDIP44 15 +BEGIN + PROMPT 2 4 "46 Cont.obb.carico dip." + FIELD LF_QUAA->COBBDIP2 + PICTURE "." + HELP "Contributi obbligatori a carico del dipendente" + GROUP G_ALL +END + +NUMBER F_AMMIMP45 15 +BEGIN + PROMPT 41 4 "47 Ammontare imponib." + FIELD LF_QUAA->AMMIMP + PICTURE "." + HELP "Ammontare imponibile" + GROUP G_ALL +END + +NUMBER F_DETIMPOS46 15 +BEGIN + PROMPT 2 5 "48 Detrazioni d'imposta" + FIELD LF_QUAA->DETIMPOS + PICTURE "." + GROUP G_ALL +END + +NUMBER F_RITESEG47 15 +BEGIN + PROMPT 41 5 "49 Ritenuta eseguita " + FIELD LF_QUAA->RITESEG + PICTURE "." + GROUP G_ALL +END + +NUMBER F_SVNASSRI48 15 +BEGIN + PROMPT 2 6 "50 Altre somme e valori non ass.a ritenuta " + FIELD LF_QUAA->SVNASSRI + PICTURE "." + GROUP G_ALL +END + +NUMBER F_AIFCSSN49 15 +BEGIN + PROMPT 2 7 "51 Ammontare imponibile ai fini del C.S.S.N." + FIELD LF_QUAA->AIFCSSN + PICTURE "." + HELP "Ammontare imponibile ai fini del C.S.S.N." + GROUP G_ALL +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 9 "@bVERSAMENTI E RIMBORSI CONSEGUENTI ALL'ASSISTENZA FISCALE " +END + +GROUPBOX DLG_NULL 0 3 +BEGIN + PROMPT 1 10 "@bAssistenza 1995" +END + +STRING F_CONEFF50 1 +BEGIN + PROMPT 2 11 "52 conguagli non effettuati nel 95 " + FIELD LF_QUAA->CONEFF + SHEET "Codice|Descrizione@85" + INPUT F_CONEFF50 + ITEM " |Niente" + ITEM "A|Cessazione del rapporto di lavoro" + ITEM "B|Aspettativa senza retribuzione" + ITEM "C|Decesso" + ITEM "D|Richiesta di minore secondo acconto" + ITEM "E|Retribuzione insufficiente" + ITEM "F|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici" + OUTPUT F_CONEFF50 + FLAGS "U" + GROUP G_ALL +END + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 13 "@bSeconda rata acconto IRPEF 1995" +END + +NUMBER F_IMPVERS51 15 +BEGIN + PROMPT 2 14 "53 Imposta vers. " + FIELD LF_QUAA->IMPVERS + PICTURE "." + GROUP G_ALL +END + +NUMBER F_ISOPTAS52 15 +BEGIN + PROMPT 37 14 "54 Interessi " + FIELD LF_QUAA->INTERE + PICTURE "." + GROUP G_ALL +END + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 16 "@bSeconda rata acconto C.S.S.N. 1995" +END + +NUMBER F_CONTRVER53 15 +BEGIN + PROMPT 2 17 "55 Contr. versato" + FIELD LF_QUAA->CSSN95CV + PICTURE "." + GROUP G_ALL +END + +NUMBER F_ISOPTAS54 15 +BEGIN + PROMPT 37 17 "56 Interessi " + FIELD LF_QUAA->INTERE2 + PICTURE "." + GROUP G_ALL +END + +ENDPAGE + +PAGE "4" -1 -1 78 21 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +/* +NUMBER QAF_CODDITTA 5 +BEGIN + FLAGS "H" + GROUP 1 +END +*/ + +NUMBER F_CODIP 6 +BEGIN + PROMPT 17 1 "" + FLAGS "DG" + GROUP 2 +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + GROUP 3 +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + GROUP 4 +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 72 1 "" + FLAGS "DG" + GROUP 5 +END + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 3 "@bAssistenza 1996" +END + +STRING F_CNEFF55 1 +BEGIN + PROMPT 2 4 "57 Conguagli n/eff. " + FIELD LF_QUAA->CNEFF + SHEET "Codice|Descrizione@85" + INPUT F_CNEFF55 + ITEM " |Niente" + ITEM "A|Cessazione del rapporto di lavoro" + ITEM "B|Aspettativa senza retribuzione" + ITEM "C|Decesso" + ITEM "D|Richiesta di minore secondo acconto" + ITEM "E|Retribuzione insufficiente" + ITEM "F|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici" + ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente" + OUTPUT F_CNEFF55 + FLAGS "U" + GROUP G_ALL +END + +STRING F_RETCON56 1 +BEGIN + PROMPT 37 4 "58 Rettifica conguaglio " + FIELD LF_QUAA->RETCON + SHEET "Cod.|Descrizione@200" + INPUT F_RETCON56 + ITEM " | " + ITEM "A|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.96 (I n. d'ordine)" + ITEM "B|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.96 (II n. d'ordine)" + ITEM "C|Conguaglio a seguito di rettifica di una precedente comunicazione tardivamente pervenuta al sostituto" + ITEM "D|Conguaglio a seguito di rett. prec. comunic. tempestivam. pervenuta al sostituto ma per la quale non è stato effettuato il conguaglio nel mese di giugno" + ITEM "E|Conguaglio tardivo per mod.730-4 pervenuto tardivamente" + ITEM "F|Conguaglio tardivo per causa dipendente dal sostituto d'imposta" + OUTPUT F_RETCON56 + FLAGS "U" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 6 "@bSaldo IRPEF per il 1995" +END + +NUMBER F_IMPRIMB57 15 +BEGIN + PROMPT 2 7 "59 Impo. rimborsata " + FIELD LF_QUAA->IMPRIMB + PICTURE "." + GROUP G_ALL +END + +NUMBER F_IMPVER58 15 +BEGIN + PROMPT 44 7 "60 Imposta versata" + FIELD LF_QUAA->IMPVER + PICTURE "." + GROUP G_ALL +END + +NUMBER F_INTIRPEF59 15 +BEGIN + PROMPT 2 8 "61 Interessi " + FIELD LF_QUAA->INTIRPEF + PICTURE "." + HELP "Interessi IRPEF" + GROUP G_ALL +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 10 "@bPrima rata acconto IRPEF per il 1996" +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 11 "62 Impo. versata " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 11 "62 I.ver/tr.IRPEF" + GROUP G_730 +END + +NUMBER F_IMPVER60 15 +BEGIN + PROMPT 23 11 "" + FIELD LF_QUAA->IMPVER2 + PICTURE "." +END + +TEXT DLG_NULL +BEGIN + PROMPT 44 11 "63 Interessi " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 44 11 "63 I.ri.IRPEF" + GROUP G_730 +END + +NUMBER F_INTER61 15 +BEGIN + PROMPT 61 11 "" + FIELD LF_QUAA->INTER + PICTURE "." +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 12 "64 Soprattasse saldo IRPEF per 95 e prima rata acconto 96 " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 12 "64 Prima rata di acconto IRPEF per il 1996 " + GROUP G_730 +END + +NUMBER F_STSIRPEF62 15 +BEGIN + PROMPT 61 12 "" + FIELD LF_QUAA->STSIRPEF + PICTURE "." + HELP "Interessi IRPEF" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 14 "@bSaldo C.S.S.N. per il 1995" +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 15 "65 Contr. rimborso " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 15 "65 2rata ac.IRPEF96" + GROUP G_730 +END + +NUMBER F_CONRIMB63 15 +BEGIN + PROMPT 21 15 "" + FIELD LF_QUAA->CONRIMB + PICTURE "." +END + +TEXT DLG_NULL +BEGIN + PROMPT 44 15 "66 Contr.versato " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 44 15 "66 I.v.trat.CSSN " + GROUP G_730 +END + +NUMBER F_CONVER64 15 +BEGIN + PROMPT 61 15 "" + FIELD LF_QUAA->CONVER + PICTURE "." +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 16 "67 Interessi " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 16 "67 Imp. rimb. CSSN " + GROUP G_730 +END + +NUMBER F_INTER65 15 +BEGIN +// "Interessi " + PROMPT 21 16 "" + FIELD LF_QUAA->INTER2 + PICTURE "." +END + +ENDPAGE + +PAGE "5" -1 -1 78 21 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +/* +NUMBER QAF_CODDITTA 5 +BEGIN + FLAGS "H" + GROUP 1 +END +*/ + +NUMBER F_CODIP 6 +BEGIN + PROMPT 17 1 "" + FLAGS "DG" + GROUP 2 +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + GROUP 3 +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + GROUP 4 +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 72 1 "" + FLAGS "DG" + GROUP 5 +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 1 3 "@bPrima rata acconto C.S.S.N. per il 1996" +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 4 "68 Contr. versato " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 4 "68 1r.acc.CSSN 96 " + GROUP G_730 +END + +NUMBER F_CONVER66 15 +BEGIN +// "Contributo versato " + PROMPT 21 4 "" + FIELD LF_QUAA->CONVER2 + PICTURE "." +END + +TEXT DLG_NULL +BEGIN + PROMPT 44 4 "69 Interessi " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 44 4 "69 2r.acc.CSSN 96" + GROUP G_730 +END + +NUMBER F_INTER67 15 +BEGIN +// "69 Interessi " + PROMPT 61 4 "" + FIELD LF_QUAA->INTER3 + PICTURE "." +END + +NUMBER F_STSCSSN68 15 +BEGIN + PROMPT 2 5 "70 Soprattasse saldo C.S.S.N. 95 e prima rata acconto 96 " + FIELD LF_QUAA->STSCSSN70 + GROUP G_ALL + PICTURE "." +END + +NUMBER F_SEGDICNL69 2 +BEGIN + PROMPT 2 6 "71 Mod.730/96 non liquidabile " + FIELD LF_QUAA->M730NLIQ + FLAGS "Z" + SHEET "Codice|Descrizione@200" + INPUT F_SEGDICNL69 + ITEM " |Niente" + ITEM "01|Errata o incompleta compilazione dei dati anagrafici e di residenza del dichiarante" + ITEM "02|Errata o incompleta compilazione dei dati del coniuge e familiari a carico" + ITEM "03|Errata o incompleta compilazione dei dati anagrafici e di residenza del coniuge" + ITEM "04|Errata o incompleta dichiarazione del quadro A Mod.730/96 del dichiarante" + ITEM "05|Errata o incompleta dichiarazione del quadro A Mod.730/96 del coniuge" + ITEM "06|Errata o incompleta dichiarazione del quadro B Mod.730/96 del dichiarante" + ITEM "07|Errata o incompleta dichiarazione del quadro B Mod.730/96 del coniuge" + ITEM "08|Errata o incompleta dichiarazione del quadro C Mod.730/96 del dichiarante" + ITEM "09|Errata o incompleta dichiarazione del quadro D Mod.730/96 del dichiarante" + ITEM "10|Errata o incompleta dichiarazione del quadro E Mod.730/96 del dichiarante" + ITEM "11|Errata o incompleta dichiarazione del quadro E Mod.730/96 del coniuge" + ITEM "12|Errata o incompleta dichiarazione del quadro F Mod.730/96 del dichiarante" + ITEM "13|Errata o incompleta dichiarazione del quadro F Mod.730/96 del coniuge" + OUTPUT F_SEGDICNL69 + GROUP G_ALL +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 10 "@bDati identificativi del C.A.A.F che ha prestato assistenza " +END + +NUMBER F_CODCAAF 5 +BEGIN + PROMPT 2 11 "Codice " + FIELD LF_QUAA->CODCAAF + USE %CAF + CHECKTYPE NORMAL + INPUT CODTAB F_CODCAAF + DISPLAY "Codice" CODTAB + DISPLAY "Denominazione@50" S0 + DISPLAY "N.ro iscrizione" I1 + DISPLAY "Codice fiscale@16" S1 + OUTPUT F_CODCAAF CODTAB + OUTPUT F_DENCAAF S0 + OUTPUT F_NISCRA I1 + OUTPUT F_CODFISCAAF S1 + GROUP G_ALL +END + +STRING F_DENCAAF 50 +BEGIN + PROMPT 26 11 "" + FLAGS "DU" +END + +STRING F_CODFISCAAF 16 +BEGIN + PROMPT 2 12 "72 Cod.fiscale " + FLAGS "D" +END + +NUMBER F_NISCRA 5 +BEGIN + PROMPT 50 12 "74 N.iscrizione albo " + FLAGS "D" +END + +ENDPAGE + +ENDMASK diff --git a/m770/771200c.uml b/m770/771200c.uml index b2c76f943..c7184e19b 100755 --- a/m770/771200c.uml +++ b/m770/771200c.uml @@ -1,124 +1,124 @@ -#include "771200.h" -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -#define G_DIPEND 1 -#define G_QUADROA 2 - -PAGE "Quadro A1" -1 -1 78 21 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "GRD" - KEY 1 - CHECKTYPE REQUIRED - USE LF_NDITTE KEY 1 - INPUT CODDITTA QAF_CODDITTA - OUTPUT QAF_RAGDITTA RAGSOC - FIELD LF_QUAA1->CODDITTA -END - -STRING QAF_RAGDITTA 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "D" -END - -NUMBER QAF_ANNODIC 4 -BEGIN - PROMPT 52 3 "Anno dichiarazione " - FLAGS "DR" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 7 "@bDati dipendente" -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 80 80 "" - FLAGS "D" - FIELD LF_QUAA1->CODDIP - CHECKTYPE REQUIRED - KEY 1 -END - -NUMBER F_CODANAGDIP 6 -BEGIN - PROMPT 1 8 "@bCodice " - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODANAGDIP - DISPLAY "Codice " CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_CODANAGDIP CODDIP - OUTPUT QAF_COGNOME COGNOME - OUTPUT QAF_NOME NOME - ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" - GROUP G_DIPEND - MESSAGE COPY, F_CODIP - FLAGS "H" -END - -NUMBER F_CODANAGDIPQA 6 -BEGIN - PROMPT 1 8 "@bCodice " - USE LF_QUAA1 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) - JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODANAGDIPQA - DISPLAY "Codice " CODDIP - DISPLAY "Cognome@24" LF_DIPEND->COGNOME - DISPLAY "Nome@20" LF_DIPEND->NOME - DISPLAY "N°@4" NPROG - OUTPUT F_CODANAGDIPQA CODDIP - OUTPUT QAF_COGNOME LF_DIPEND->COGNOME - OUTPUT QAF_NOME LF_DIPEND->NOME - MESSAGE COPY, F_CODIP - GROUP G_QUADROA -END - - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 8 "" - FLAGS "D" -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 8 "" - FLAGS "D" -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 1 10 "@bNumero " - CHECKTYPE REQUIRED - KEY 1 - FIELD LF_QUAA1->NPROG - USE LF_QUAA1 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) - JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODIP - INPUT NPROG QAF_NPROG - DISPLAY "Codice@10" CODDIP - DISPLAY "Cognome@24" LF_DIPEND->COGNOME - DISPLAY "Nome@20" LF_DIPEND->NOME - DISPLAY "N°@4" NPROG - OUTPUT F_CODIP CODDIP - OUTPUT QAF_NPROG NPROG -END - -ENDPAGE - +#include "771200.h" +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +#define G_DIPEND 1 +#define G_QUADROA 2 + +PAGE "Quadro A1" -1 -1 78 21 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "GRD" + KEY 1 + CHECKTYPE REQUIRED + USE LF_NDITTE KEY 1 + INPUT CODDITTA QAF_CODDITTA + OUTPUT QAF_RAGDITTA RAGSOC + FIELD LF_QUAA1->CODDITTA +END + +STRING QAF_RAGDITTA 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "D" +END + +NUMBER QAF_ANNODIC 4 +BEGIN + PROMPT 52 3 "Anno dichiarazione " + FLAGS "DR" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 7 "@bDati dipendente" +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 80 80 "" + FLAGS "D" + FIELD LF_QUAA1->CODDIP + CHECKTYPE REQUIRED + KEY 1 +END + +NUMBER F_CODANAGDIP 6 +BEGIN + PROMPT 1 8 "@bCodice " + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODANAGDIP + DISPLAY "Codice " CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_CODANAGDIP CODDIP + OUTPUT QAF_COGNOME COGNOME + OUTPUT QAF_NOME NOME + ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" + GROUP G_DIPEND + MESSAGE COPY, F_CODIP + FLAGS "H" +END + +NUMBER F_CODANAGDIPQA 6 +BEGIN + PROMPT 1 8 "@bCodice " + USE LF_QUAA1 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) + JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODANAGDIPQA + DISPLAY "Codice " CODDIP + DISPLAY "Cognome@24" LF_DIPEND->COGNOME + DISPLAY "Nome@20" LF_DIPEND->NOME + DISPLAY "N°@4" NPROG + OUTPUT F_CODANAGDIPQA CODDIP + OUTPUT QAF_COGNOME LF_DIPEND->COGNOME + OUTPUT QAF_NOME LF_DIPEND->NOME + MESSAGE COPY, F_CODIP + GROUP G_QUADROA +END + + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 8 "" + FLAGS "D" +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 8 "" + FLAGS "D" +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 1 10 "@bNumero " + CHECKTYPE REQUIRED + KEY 1 + FIELD LF_QUAA1->NPROG + USE LF_QUAA1 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) + JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODIP + INPUT NPROG QAF_NPROG + DISPLAY "Codice@10" CODDIP + DISPLAY "Cognome@24" LF_DIPEND->COGNOME + DISPLAY "Nome@20" LF_DIPEND->NOME + DISPLAY "N°@4" NPROG + OUTPUT F_CODIP CODDIP + OUTPUT QAF_NPROG NPROG +END + +ENDPAGE + ENDMASK \ No newline at end of file diff --git a/m770/771200d.uml b/m770/771200d.uml index 19b903ca2..5741fa633 100755 --- a/m770/771200d.uml +++ b/m770/771200d.uml @@ -1,307 +1,307 @@ -#include "771200.h" -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "1" -1 -1 78 21 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - PROMPT 80 80 "" - FLAGS "D" - FIELD LF_QUAA1->CODDITTA - KEY 1 - MESSAGE COPY,1@ -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 17 1 "" - USE LF_DIPEND KEY 1 - FIELD LF_QUAA1->CODDIP - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT QAF_COGNOME COGNOME - OUTPUT QAF_NOME NOME - CHECKTYPE REQUIRED - FLAGS "DG" - MESSAGE COPY,2@ - KEY 1 -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - MESSAGE COPY,3@ -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - MESSAGE COPY,4@ -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 72 1 "" - FIELD LF_QUAA1->NPROG - FLAGS "DG" - KEY 1 - MESSAGE COPY,5@ -END - -LISTBOX F_MESEANNO 9 -BEGIN - PROMPT 2 3 "8 Periodo di riferimento " - FLAGS "M" - FIELD LF_QUAA1->MESERIF -END - -NUMBER QA1F_ANNORIF 4 -BEGIN - PROMPT 44 3 "" - FLAGS "D" - FIELD LF_QUAA1->ANNORIF -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 4 "@bSaldo IRPEF per il 1994" -END - -NUMBER F_IMPRIMB9 15 -BEGIN - PROMPT 2 5 "9 Imposta rimbors. " - FIELD LF_QUAA1->IMPRIMB9 - PICTURE "." -END - -NUMBER F_IMPVERS10 15 -BEGIN - PROMPT 45 5 "10 Imposta ver. " - FIELD LF_QUAA1->IMPVERS10 - PICTURE "." -END - -NUMBER F_INTER11 15 -BEGIN - PROMPT 2 6 "11 Interessi " - FIELD LF_QUAA1->INTER11 - PICTURE "." -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 8 "@bPrima rata acconto IRPEF per il 1995" -END - -NUMBER F_IMPVERS12 15 -BEGIN - PROMPT 2 9 "12 Imposta versata " - FIELD LF_QUAA1->IMPVERS12 - PICTURE "." -END - -NUMBER F_INTER13 15 -BEGIN - PROMPT 45 9 "13 Interessi " - FIELD LF_QUAA1->INTER13 - PICTURE "." -END - -NUMBER F_STASSA14 15 -BEGIN - PROMPT 2 10 "14 Soprattassa su IRPEF saldo 94 e prima rata acconto 95 " - FIELD LF_QUAA1->STASSA14 - PICTURE "." -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 12 "@bSaldo C.S.S.N. per il 1994" -END - -NUMBER F_CONTRIMB15 15 -BEGIN - PROMPT 2 13 "15 Cont. a rimborso" - FIELD LF_QUAA1->CONTRIMB15 - PICTURE "." - HELP "Contributo a rimborso" -END - -NUMBER F_CONTVERS16 15 -BEGIN - PROMPT 45 13 "16 Cont.versato " - FIELD LF_QUAA1->CONTVERS16 - PICTURE "." - HELP "Contributo versato" -END - -NUMBER F_INTER17 15 -BEGIN - PROMPT 2 14 "17 Interessi " - FIELD LF_QUAA1->INTER17 - PICTURE "." -END - -ENDPAGE - -PAGE "2" -1 -1 78 21 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - FLAGS "H" - GROUP 1 -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 17 1 "" - FLAGS "DG" - GROUP 2 -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - GROUP 3 -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - GROUP 4 -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 72 1 "" - FLAGS "DG" - GROUP 5 -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 1 3 "@bPrima rata acconto C.S.S.N. per il 1995" -END - -NUMBER F_CONTVER18 15 -BEGIN - PROMPT 2 4 "18 Contributo vers." - FIELD LF_QUAA1->CONTVER18 - PICTURE "." -END - -NUMBER F_INTER19 15 -BEGIN - PROMPT 45 4 "19 Interessi " - FIELD LF_QUAA1->INTER19 - PICTURE "." -END - -NUMBER F_STASSA20 15 -BEGIN - PROMPT 2 5 "20 Soprattassa su C.S.S.N. saldo 94 e prima rata acconto 95" - FIELD LF_QUAA1->STASSA20 - PICTURE "." -END - -STRING F_CONNEFF21 1 -BEGIN - PROMPT 2 6 "21 Cong. n/effet. " - FIELD LF_QUAA1->CONNEFF21 - HELP "Conguagli non effettuati" - SHEET "Codice|Descrizione@85" - INPUT F_CONNEFF21 - ITEM " |Niente" - ITEM "A|Cessazione del rapporto di lavoro" - ITEM "B|Aspettativa senza retribuzione" - ITEM "C|Decesso" - ITEM "D|Richiesta di minore secondo acconto" - ITEM "E|Retribuzione insufficiente" - ITEM "F|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici" - ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente" - OUTPUT F_CONNEFF21 - FLAGS "U" -END - -STRING F_TIPOCONG22 1 -BEGIN - PROMPT 45 6 "22 Tipo cong. " - FIELD LF_QUAA1->TIPOCONG22 - SHEET "Codice|Descrizione@155" - INPUT F_TIPOCONG22 - ITEM " |Niente" - ITEM "R|conguaglio tardivo derivante da Mod.730/93 rettificativo ovvero conguaglio conseguente a comunicazione tardiva di Mod.730/94 rettificativo" - ITEM "S|Conguaglio tardivo derivante da comunicazione Mod.730/94 pervenuta entro i termini" - ITEM "T|Conguaglio tardivo derivante da Mod.730/93 ovvero conguaglio conseguente a comunicazione tardiva di Mod.730/94" - ITEM "U|Conguaglio conseguente ad incapienza della retribuzione corrisposta nei periodi di paga precedenti ovvero insufficienza del monte ritenute e/o contributi" - OUTPUT F_TIPOCONG22 - FLAGS "U" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 1 9 "@bDati identificativi del C.A.A.F che ha prestato assistenza " -END - -NUMBER F_CODCAAF 5 -BEGIN - PROMPT 2 10 "Codice " - FIELD LF_QUAA1->CODCAAF - USE %CAF - CHECKTYPE NORMAL - INPUT CODTAB F_CODCAAF - DISPLAY "Codice" CODTAB - DISPLAY "Denominazione@50" S0 - DISPLAY "N.ro iscrizione" I1 - DISPLAY "Codice fiscale@16" S1 - OUTPUT F_CODCAAF CODTAB - OUTPUT F_DENCAAF S0 - OUTPUT F_NISCRA I1 - OUTPUT F_CODFISCAAF S1 -END - -STRING F_DENCAAF 50 -BEGIN - PROMPT 26 10 "" - FLAGS "DU" -END - -STRING F_CODFISCAAF 16 -BEGIN - PROMPT 2 11 "23 Cod.fiscale " - FLAGS "D" -END - -NUMBER F_NISCRA 5 -BEGIN - PROMPT 50 11 "25 N.iscrizione albo " - FLAGS "D" -END - -DATE F_DATARIC29 -BEGIN - PROMPT 2 12 "26 Data ricezione Modello 730-5 " - FIELD LF_QUAA1->DATARIC26 -END - -ENDPAGE - +#include "771200.h" +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "1" -1 -1 78 21 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + PROMPT 80 80 "" + FLAGS "D" + FIELD LF_QUAA1->CODDITTA + KEY 1 + MESSAGE COPY,1@ +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 17 1 "" + USE LF_DIPEND KEY 1 + FIELD LF_QUAA1->CODDIP + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT QAF_COGNOME COGNOME + OUTPUT QAF_NOME NOME + CHECKTYPE REQUIRED + FLAGS "DG" + MESSAGE COPY,2@ + KEY 1 +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + MESSAGE COPY,3@ +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + MESSAGE COPY,4@ +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 72 1 "" + FIELD LF_QUAA1->NPROG + FLAGS "DG" + KEY 1 + MESSAGE COPY,5@ +END + +LISTBOX F_MESEANNO 9 +BEGIN + PROMPT 2 3 "8 Periodo di riferimento " + FLAGS "M" + FIELD LF_QUAA1->MESERIF +END + +NUMBER QA1F_ANNORIF 4 +BEGIN + PROMPT 44 3 "" + FLAGS "D" + FIELD LF_QUAA1->ANNORIF +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 4 "@bSaldo IRPEF per il 1994" +END + +NUMBER F_IMPRIMB9 15 +BEGIN + PROMPT 2 5 "9 Imposta rimbors. " + FIELD LF_QUAA1->IMPRIMB9 + PICTURE "." +END + +NUMBER F_IMPVERS10 15 +BEGIN + PROMPT 45 5 "10 Imposta ver. " + FIELD LF_QUAA1->IMPVERS10 + PICTURE "." +END + +NUMBER F_INTER11 15 +BEGIN + PROMPT 2 6 "11 Interessi " + FIELD LF_QUAA1->INTER11 + PICTURE "." +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 8 "@bPrima rata acconto IRPEF per il 1995" +END + +NUMBER F_IMPVERS12 15 +BEGIN + PROMPT 2 9 "12 Imposta versata " + FIELD LF_QUAA1->IMPVERS12 + PICTURE "." +END + +NUMBER F_INTER13 15 +BEGIN + PROMPT 45 9 "13 Interessi " + FIELD LF_QUAA1->INTER13 + PICTURE "." +END + +NUMBER F_STASSA14 15 +BEGIN + PROMPT 2 10 "14 Soprattassa su IRPEF saldo 94 e prima rata acconto 95 " + FIELD LF_QUAA1->STASSA14 + PICTURE "." +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 12 "@bSaldo C.S.S.N. per il 1994" +END + +NUMBER F_CONTRIMB15 15 +BEGIN + PROMPT 2 13 "15 Cont. a rimborso" + FIELD LF_QUAA1->CONTRIMB15 + PICTURE "." + HELP "Contributo a rimborso" +END + +NUMBER F_CONTVERS16 15 +BEGIN + PROMPT 45 13 "16 Cont.versato " + FIELD LF_QUAA1->CONTVERS16 + PICTURE "." + HELP "Contributo versato" +END + +NUMBER F_INTER17 15 +BEGIN + PROMPT 2 14 "17 Interessi " + FIELD LF_QUAA1->INTER17 + PICTURE "." +END + +ENDPAGE + +PAGE "2" -1 -1 78 21 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + FLAGS "H" + GROUP 1 +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 17 1 "" + FLAGS "DG" + GROUP 2 +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + GROUP 3 +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + GROUP 4 +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 72 1 "" + FLAGS "DG" + GROUP 5 +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 1 3 "@bPrima rata acconto C.S.S.N. per il 1995" +END + +NUMBER F_CONTVER18 15 +BEGIN + PROMPT 2 4 "18 Contributo vers." + FIELD LF_QUAA1->CONTVER18 + PICTURE "." +END + +NUMBER F_INTER19 15 +BEGIN + PROMPT 45 4 "19 Interessi " + FIELD LF_QUAA1->INTER19 + PICTURE "." +END + +NUMBER F_STASSA20 15 +BEGIN + PROMPT 2 5 "20 Soprattassa su C.S.S.N. saldo 94 e prima rata acconto 95" + FIELD LF_QUAA1->STASSA20 + PICTURE "." +END + +STRING F_CONNEFF21 1 +BEGIN + PROMPT 2 6 "21 Cong. n/effet. " + FIELD LF_QUAA1->CONNEFF21 + HELP "Conguagli non effettuati" + SHEET "Codice|Descrizione@85" + INPUT F_CONNEFF21 + ITEM " |Niente" + ITEM "A|Cessazione del rapporto di lavoro" + ITEM "B|Aspettativa senza retribuzione" + ITEM "C|Decesso" + ITEM "D|Richiesta di minore secondo acconto" + ITEM "E|Retribuzione insufficiente" + ITEM "F|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici" + ITEM "G|Rimborso non effettuato o rimborso effettuato parzialmente" + OUTPUT F_CONNEFF21 + FLAGS "U" +END + +STRING F_TIPOCONG22 1 +BEGIN + PROMPT 45 6 "22 Tipo cong. " + FIELD LF_QUAA1->TIPOCONG22 + SHEET "Codice|Descrizione@155" + INPUT F_TIPOCONG22 + ITEM " |Niente" + ITEM "R|conguaglio tardivo derivante da Mod.730/93 rettificativo ovvero conguaglio conseguente a comunicazione tardiva di Mod.730/94 rettificativo" + ITEM "S|Conguaglio tardivo derivante da comunicazione Mod.730/94 pervenuta entro i termini" + ITEM "T|Conguaglio tardivo derivante da Mod.730/93 ovvero conguaglio conseguente a comunicazione tardiva di Mod.730/94" + ITEM "U|Conguaglio conseguente ad incapienza della retribuzione corrisposta nei periodi di paga precedenti ovvero insufficienza del monte ritenute e/o contributi" + OUTPUT F_TIPOCONG22 + FLAGS "U" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 1 9 "@bDati identificativi del C.A.A.F che ha prestato assistenza " +END + +NUMBER F_CODCAAF 5 +BEGIN + PROMPT 2 10 "Codice " + FIELD LF_QUAA1->CODCAAF + USE %CAF + CHECKTYPE NORMAL + INPUT CODTAB F_CODCAAF + DISPLAY "Codice" CODTAB + DISPLAY "Denominazione@50" S0 + DISPLAY "N.ro iscrizione" I1 + DISPLAY "Codice fiscale@16" S1 + OUTPUT F_CODCAAF CODTAB + OUTPUT F_DENCAAF S0 + OUTPUT F_NISCRA I1 + OUTPUT F_CODFISCAAF S1 +END + +STRING F_DENCAAF 50 +BEGIN + PROMPT 26 10 "" + FLAGS "DU" +END + +STRING F_CODFISCAAF 16 +BEGIN + PROMPT 2 11 "23 Cod.fiscale " + FLAGS "D" +END + +NUMBER F_NISCRA 5 +BEGIN + PROMPT 50 11 "25 N.iscrizione albo " + FLAGS "D" +END + +DATE F_DATARIC29 +BEGIN + PROMPT 2 12 "26 Data ricezione Modello 730-5 " + FIELD LF_QUAA1->DATARIC26 +END + +ENDPAGE + ENDMASK \ No newline at end of file diff --git a/m770/771200e.uml b/m770/771200e.uml index f3dd331ef..a4f52df3f 100755 --- a/m770/771200e.uml +++ b/m770/771200e.uml @@ -1,128 +1,128 @@ -#include "771200.h" -TOOLBAR "" 0 18 0 4 -#include -BUTTON QA2F_ALLEG_A2 24 2 -BEGIN - PROMPT -13 -3 "~Allegati 730/95" -END -ENDPAGE - - -#define G_DIPEND 1 -#define G_QUADROA 2 - -PAGE "Quadro A2" -1 -1 78 21 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "GRD" - KEY 1 - CHECKTYPE REQUIRED - USE LF_NDITTE KEY 1 - INPUT CODDITTA QAF_CODDITTA - OUTPUT QAF_RAGDITTA RAGSOC - FIELD LF_QUAA2->CODDITTA -END - -STRING QAF_RAGDITTA 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "D" -END - -NUMBER QAF_ANNODIC 4 -BEGIN - PROMPT 52 3 "Anno dichiarazione " - FLAGS "DR" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 7 "@bDati dipendente" -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 80 80 "" - FLAGS "D" - FIELD LF_QUAA2->CODDIP - CHECKTYPE REQUIRED - KEY 1 -END - -NUMBER F_CODANAGDIP 6 -BEGIN - PROMPT 1 8 "@bCodice " - USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODIP - DISPLAY "Codice " CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_CODANAGDIP CODDIP - OUTPUT QAF_COGNOME COGNOME - OUTPUT QAF_NOME NOME - ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" - MESSAGE COPY, F_CODIP - FLAGS "H" - GROUP G_DIPEND -END - -NUMBER F_CODANAGDIPQA 6 -BEGIN - PROMPT 1 8 "@bCodice " - USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) - JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODANAGDIPQA - DISPLAY "Codice " CODDIP - DISPLAY "Cognome@24" LF_DIPEND->COGNOME - DISPLAY "Nome@20" LF_DIPEND->NOME - DISPLAY "N°@4" NPROG - OUTPUT F_CODANAGDIPQA CODDIP - OUTPUT QAF_COGNOME LF_DIPEND->COGNOME - OUTPUT QAF_NOME LF_DIPEND->NOME - MESSAGE COPY, F_CODIP - GROUP G_QUADROA -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 8 "" - FLAGS "D" -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 8 "" - FLAGS "D" -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 1 10 "@bNumero " - CHECKTYPE REQUIRED - USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) - JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODIP - INPUT NPROG QAF_NPROG - DISPLAY "Codice@10" CODDIP - DISPLAY "Cognome@24" LF_DIPEND->COGNOME - DISPLAY "Nome@20" LF_DIPEND->NOME - DISPLAY "N°@4" NPROG - OUTPUT F_CODIP CODDIP - OUTPUT QAF_NPROG NPROG - FIELD LF_QUAA2->NPROG - KEY 1 -END - -ENDPAGE - +#include "771200.h" +TOOLBAR "" 0 18 0 4 +#include +BUTTON QA2F_ALLEG_A2 24 2 +BEGIN + PROMPT -13 -3 "~Allegati 730/95" +END +ENDPAGE + + +#define G_DIPEND 1 +#define G_QUADROA 2 + +PAGE "Quadro A2" -1 -1 78 21 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "GRD" + KEY 1 + CHECKTYPE REQUIRED + USE LF_NDITTE KEY 1 + INPUT CODDITTA QAF_CODDITTA + OUTPUT QAF_RAGDITTA RAGSOC + FIELD LF_QUAA2->CODDITTA +END + +STRING QAF_RAGDITTA 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "D" +END + +NUMBER QAF_ANNODIC 4 +BEGIN + PROMPT 52 3 "Anno dichiarazione " + FLAGS "DR" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 7 "@bDati dipendente" +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 80 80 "" + FLAGS "D" + FIELD LF_QUAA2->CODDIP + CHECKTYPE REQUIRED + KEY 1 +END + +NUMBER F_CODANAGDIP 6 +BEGIN + PROMPT 1 8 "@bCodice " + USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODIP + DISPLAY "Codice " CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_CODANAGDIP CODDIP + OUTPUT QAF_COGNOME COGNOME + OUTPUT QAF_NOME NOME + ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" + MESSAGE COPY, F_CODIP + FLAGS "H" + GROUP G_DIPEND +END + +NUMBER F_CODANAGDIPQA 6 +BEGIN + PROMPT 1 8 "@bCodice " + USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) + JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODANAGDIPQA + DISPLAY "Codice " CODDIP + DISPLAY "Cognome@24" LF_DIPEND->COGNOME + DISPLAY "Nome@20" LF_DIPEND->NOME + DISPLAY "N°@4" NPROG + OUTPUT F_CODANAGDIPQA CODDIP + OUTPUT QAF_COGNOME LF_DIPEND->COGNOME + OUTPUT QAF_NOME LF_DIPEND->NOME + MESSAGE COPY, F_CODIP + GROUP G_QUADROA +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 8 "" + FLAGS "D" +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 8 "" + FLAGS "D" +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 1 10 "@bNumero " + CHECKTYPE REQUIRED + USE LF_QUAA2 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) + JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODIP + INPUT NPROG QAF_NPROG + DISPLAY "Codice@10" CODDIP + DISPLAY "Cognome@24" LF_DIPEND->COGNOME + DISPLAY "Nome@20" LF_DIPEND->NOME + DISPLAY "N°@4" NPROG + OUTPUT F_CODIP CODDIP + OUTPUT QAF_NPROG NPROG + FIELD LF_QUAA2->NPROG + KEY 1 +END + +ENDPAGE + ENDMASK \ No newline at end of file diff --git a/m770/771200f.uml b/m770/771200f.uml index 57a549e81..4e549c5f2 100755 --- a/m770/771200f.uml +++ b/m770/771200f.uml @@ -1,418 +1,418 @@ -#include "771200.h" -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "1" -1 -1 78 21 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - PROMPT 80 80 "" - FLAGS "D" - FIELD LF_QUAA2->CODDITTA - KEY 1 - MESSAGE COPY,1@ -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 17 1 "" - USE LF_DIPEND KEY 1 - FIELD LF_QUAA2->CODDIP - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT QAF_COGNOME COGNOME - OUTPUT QAF_NOME NOME - CHECKTYPE REQUIRED - FLAGS "DG" - MESSAGE COPY,2@ - KEY 1 -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - MESSAGE COPY,3@ -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - MESSAGE COPY,4@ -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 72 1 "" - FIELD LF_QUAA2->NPROG - FLAGS "DG" - KEY 1 - MESSAGE COPY,5@ -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 3 "@bASSISTENZA 1995 " -END - -STRING QA2F_CNEFF 1 -BEGIN - PROMPT 2 4 "8 Conguagli non effettuati " - FIELD LF_QUAA2->CONEFF - FLAGS "U" - HELP "Conguagli non effettuati relativi all'assistenza 1995" - SHEET "Codice|Descrizione@85" - INPUT QA2F_CNEFF - ITEM " |Niente" - ITEM "A|Cessazione del rapporto di lavoro" - ITEM "B|Decesso" - ITEM "C|Richiesta di minore secondo acconto" - ITEM "D|Retribuzione insufficiente" - ITEM "E|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici" - ITEM "F|Rimborso non effettuato o rimborso effettuato parzialmente" - OUTPUT QA2F_CNEFF - GROUP G_ALL -END - -STRING QA2F_RETCON 1 -BEGIN - PROMPT 38 4 "9 Rettifica conguaglio " - FIELD LF_QUAA2->RETCON - SHEET "Codice|Descrizione@65" - INPUT QA2F_RETCON - ITEM " | " - ITEM "A|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.95 (per il primo numero d'ordine)" - ITEM "B|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.95 (per il primo numero d'ordine)" - ITEM "C|Conguaglio tardivamente effettuato nel mese di luglio" - OUTPUT QA2F_RETCON - FLAGS "U" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 6 "@bSALDO IRPEF PER IL 1994 " -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 7 "10 Imp.ver/tr.IRPEF" - GROUP G_730 -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 7 "10 Imposta rimbor. " - GROUP G_770 -END - -NUMBER F_IIRPEFVER8 15 -BEGIN - PROMPT 21 7 "" - FIELD LF_QUAA2->SIRPEFRIMB - PICTURE "." -END - -TEXT DLG_NULL -BEGIN - PROMPT 41 7 "11 Imp.da rim.IRPEF" - GROUP G_730 -END - -TEXT DLG_NULL -BEGIN - PROMPT 41 7 "11 Imposta versata " - GROUP G_770 -END - -NUMBER F_IIRPEFRI9 15 -BEGIN - PROMPT 61 7 "" - FIELD LF_QUAA2->VIRPEF - PICTURE "." -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 8 "12 Interessi " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 8 "12 1rata ac.IRPEF95" - GROUP G_730 -END - -NUMBER F_INTER11 15 -BEGIN - PROMPT 21 8 "" - FIELD LF_QUAA2->INTIRPEF - PICTURE "." -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 10 "@bPRIMA RATA ACCONTO IRPEF PER IL 1995 " -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 11 "13 Imposta versata " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 11 "13 2rata ac.IRPEF95" - GROUP G_730 -END - -NUMBER F_PRIRPEF10 15 -BEGIN -// PROMPT 2 11 "Imposta versata " - PROMPT 21 11 "" - FIELD LF_QUAA2->AIRPEFIV - PICTURE "." -END - -TEXT DLG_NULL -BEGIN - PROMPT 41 11 "14 Interessi " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 41 11 "14 I.v.trat.CSSN " - GROUP G_730 -END - -NUMBER F_INTER11 15 -BEGIN -// PROMPT 41 11 "Interessi " - PROMPT 61 11 "" - FIELD LF_QUAA2->AIRPEFINT - PICTURE "." -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 13 "15 Soprattasse IRPEF saldo 94 e prima rata acc.95 " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 13 "15 Importo da rimborsare CSSN " - GROUP G_730 -END - -NUMBER F_STASSA12 15 -BEGIN - PROMPT 61 13 "" - FIELD LF_QUAA2->STASSA15 - PICTURE "." -END - -ENDPAGE - -PAGE "2" -1 -1 78 21 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - FLAGS "H" - GROUP 1 -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 17 1 "" - FLAGS "DG" - GROUP 2 -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - GROUP 3 -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - GROUP 4 -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 72 1 "" - FLAGS "DG" - GROUP 5 -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 4 "@bSALDO C.S.S.N. PER IL 1994 " -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 5 "16 Cont.a rimborso " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 5 "16 1r.acc.CSSN 95 " - GROUP G_730 -END - -NUMBER QA2F_CSSNCRIMB 15 -BEGIN - PROMPT 21 5 "" - FIELD LF_QUAA2->CONTR16 - PICTURE "." -END - -TEXT DLG_NULL -BEGIN - PROMPT 41 5 "17 Cont. versato " - GROUP G_770 -END - -TEXT DLG_NULL -BEGIN - PROMPT 41 5 "17 2r.acc.CSSN 95 " - GROUP G_730 -END - -NUMBER QA2F_CSSNCVER 15 -BEGIN -// PROMPT 41 5 "Contr. versato " - PROMPT 61 5 "" - FIELD LF_QUAA2->CONTRVER - PICTURE "." -END - -NUMBER QA2F_CSSNINT 15 -BEGIN - PROMPT 2 6 "18 Interessi " - FIELD LF_QUAA2->INTER18 - PICTURE "." - GROUP G_ALL -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 8 "@bPRIMA RATA ACCONTO C.S.S.N. PER IL 1995 " -END - -NUMBER QA2F_CSSNAIV 15 -BEGIN - PROMPT 2 9 "19 Contrib.versato " - FIELD LF_QUAA2->CONTV19 - PICTURE "." - GROUP G_ALL -END - -NUMBER QA2F_CSSNAINT 15 -BEGIN - PROMPT 41 9 "20 Interessi " - FIELD LF_QUAA2->INTE20 - PICTURE "." - GROUP G_ALL -END - -NUMBER QA2F_STCSSN 15 -BEGIN - PROMPT 2 11 "21 Soprattasse su C.S.S.N. saldo 94 e prima rata acc.95 " - FIELD LF_QUAA2->SOPRAT21 - PICTURE "." - GROUP G_ALL -END - -STRING QA2F_730NLIQ 2 -BEGIN - PROMPT 2 12 "22 Mod.730/95 non liquidabile " - SHEET "Codice|Descrizione@80" - INPUT QA2F_730NLIQ - ITEM "|" - ITEM "01|Errata o incompleta compilazione dei dati anagrafici e di residenza del dichiarante" - ITEM "02|Errata o incompleta compilazione dei dati del coniuge e familiari a carico" - ITEM "03|Errata o incompleta compilazione dei dati anagrafici e di residenza del coniuge" - ITEM "04|Errata o incompleta dichiarazione del quadro A Mod.730/95 del dichiarante" - ITEM "05|Errata o incompleta dichiarazione del quadro A Mod.730/95 del coniuge" - ITEM "06|Errata o incompleta dichiarazione del quadro B Mod.730/95 del dichiarante" - ITEM "07|Errata o incompleta dichiarazione del quadro B Mod.730/95 del coniuge" - ITEM "08|Errata o incompleta dichiarazione del quadro C Mod.730/95 del dichiarante" - ITEM "09|Errata o incompleta dichiarazione del quadro D Mod.730/95 del dichiarante" - ITEM "10|Errata o incompleta dichiarazione del quadro E Mod.730/95 del dichiarante" - ITEM "11|Errata o incompleta dichiarazione del quadro E Mod.730/95 del coniuge" - ITEM "12|Errata o incompleta dichiarazione del quadro F Mod.730/95 del dichiarante" - ITEM "13|Errata o incompleta dichiarazione del quadro F Mod.730/95 del coniuge" - FIELD LF_QUAA2->M730NLIQ - FLAGS "Z" - OUTPUT QA2F_730NLIQ - GROUP G_ALL -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 14 "@bDati identificativi del C.A.A.F che ha prestato assistenza " -END - -NUMBER F_CODCAAF 5 -BEGIN - PROMPT 2 15 "Codice " - FIELD LF_QUAA2->CODCAAF - USE %CAF - CHECKTYPE NORMAL - INPUT CODTAB F_CODCAAF - DISPLAY "Codice" CODTAB - DISPLAY "Denominazione@50" S0 - DISPLAY "N.ro iscrizione" I1 - DISPLAY "Codice fiscale@16" S1 - OUTPUT F_CODCAAF CODTAB - OUTPUT F_DENCAAF S0 - OUTPUT F_NISCRA I1 - OUTPUT F_CODFISCAAF S1 - GROUP G_ALL -END - -STRING F_DENCAAF 50 -BEGIN - PROMPT 26 15 "" - FLAGS "DU" -END - -STRING F_CODFISCAAF 16 -BEGIN - PROMPT 2 16 "23 Cod.fiscale " - FLAGS "D" -END - -NUMBER F_NISCRA 5 -BEGIN - PROMPT 50 16 "25 N.iscrizione albo " - FLAGS "D" -END - -ENDPAGE - +#include "771200.h" +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "1" -1 -1 78 21 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + PROMPT 80 80 "" + FLAGS "D" + FIELD LF_QUAA2->CODDITTA + KEY 1 + MESSAGE COPY,1@ +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 17 1 "" + USE LF_DIPEND KEY 1 + FIELD LF_QUAA2->CODDIP + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT QAF_COGNOME COGNOME + OUTPUT QAF_NOME NOME + CHECKTYPE REQUIRED + FLAGS "DG" + MESSAGE COPY,2@ + KEY 1 +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + MESSAGE COPY,3@ +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + MESSAGE COPY,4@ +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 72 1 "" + FIELD LF_QUAA2->NPROG + FLAGS "DG" + KEY 1 + MESSAGE COPY,5@ +END + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 3 "@bASSISTENZA 1995 " +END + +STRING QA2F_CNEFF 1 +BEGIN + PROMPT 2 4 "8 Conguagli non effettuati " + FIELD LF_QUAA2->CONEFF + FLAGS "U" + HELP "Conguagli non effettuati relativi all'assistenza 1995" + SHEET "Codice|Descrizione@85" + INPUT QA2F_CNEFF + ITEM " |Niente" + ITEM "A|Cessazione del rapporto di lavoro" + ITEM "B|Decesso" + ITEM "C|Richiesta di minore secondo acconto" + ITEM "D|Retribuzione insufficiente" + ITEM "E|Nel caso di situazioni per le quali dovrebbero essere indicati piu' codici" + ITEM "F|Rimborso non effettuato o rimborso effettuato parzialmente" + OUTPUT QA2F_CNEFF + GROUP G_ALL +END + +STRING QA2F_RETCON 1 +BEGIN + PROMPT 38 4 "9 Rettifica conguaglio " + FIELD LF_QUAA2->RETCON + SHEET "Codice|Descrizione@65" + INPUT QA2F_RETCON + ITEM " | " + ITEM "A|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.95 (per il primo numero d'ordine)" + ITEM "B|Rettifica da parte dei sostituti o dei CAAF degli importi da conguagliare indicati nei mod.730-3,4 e già consegnati entro il 15.5.95 (per il primo numero d'ordine)" + ITEM "C|Conguaglio tardivamente effettuato nel mese di luglio" + OUTPUT QA2F_RETCON + FLAGS "U" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 6 "@bSALDO IRPEF PER IL 1994 " +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 7 "10 Imp.ver/tr.IRPEF" + GROUP G_730 +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 7 "10 Imposta rimbor. " + GROUP G_770 +END + +NUMBER F_IIRPEFVER8 15 +BEGIN + PROMPT 21 7 "" + FIELD LF_QUAA2->SIRPEFRIMB + PICTURE "." +END + +TEXT DLG_NULL +BEGIN + PROMPT 41 7 "11 Imp.da rim.IRPEF" + GROUP G_730 +END + +TEXT DLG_NULL +BEGIN + PROMPT 41 7 "11 Imposta versata " + GROUP G_770 +END + +NUMBER F_IIRPEFRI9 15 +BEGIN + PROMPT 61 7 "" + FIELD LF_QUAA2->VIRPEF + PICTURE "." +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 8 "12 Interessi " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 8 "12 1rata ac.IRPEF95" + GROUP G_730 +END + +NUMBER F_INTER11 15 +BEGIN + PROMPT 21 8 "" + FIELD LF_QUAA2->INTIRPEF + PICTURE "." +END + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 10 "@bPRIMA RATA ACCONTO IRPEF PER IL 1995 " +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 11 "13 Imposta versata " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 11 "13 2rata ac.IRPEF95" + GROUP G_730 +END + +NUMBER F_PRIRPEF10 15 +BEGIN +// PROMPT 2 11 "Imposta versata " + PROMPT 21 11 "" + FIELD LF_QUAA2->AIRPEFIV + PICTURE "." +END + +TEXT DLG_NULL +BEGIN + PROMPT 41 11 "14 Interessi " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 41 11 "14 I.v.trat.CSSN " + GROUP G_730 +END + +NUMBER F_INTER11 15 +BEGIN +// PROMPT 41 11 "Interessi " + PROMPT 61 11 "" + FIELD LF_QUAA2->AIRPEFINT + PICTURE "." +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 13 "15 Soprattasse IRPEF saldo 94 e prima rata acc.95 " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 13 "15 Importo da rimborsare CSSN " + GROUP G_730 +END + +NUMBER F_STASSA12 15 +BEGIN + PROMPT 61 13 "" + FIELD LF_QUAA2->STASSA15 + PICTURE "." +END + +ENDPAGE + +PAGE "2" -1 -1 78 21 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + FLAGS "H" + GROUP 1 +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 17 1 "" + FLAGS "DG" + GROUP 2 +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + GROUP 3 +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + GROUP 4 +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 72 1 "" + FLAGS "DG" + GROUP 5 +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 4 "@bSALDO C.S.S.N. PER IL 1994 " +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 5 "16 Cont.a rimborso " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 5 "16 1r.acc.CSSN 95 " + GROUP G_730 +END + +NUMBER QA2F_CSSNCRIMB 15 +BEGIN + PROMPT 21 5 "" + FIELD LF_QUAA2->CONTR16 + PICTURE "." +END + +TEXT DLG_NULL +BEGIN + PROMPT 41 5 "17 Cont. versato " + GROUP G_770 +END + +TEXT DLG_NULL +BEGIN + PROMPT 41 5 "17 2r.acc.CSSN 95 " + GROUP G_730 +END + +NUMBER QA2F_CSSNCVER 15 +BEGIN +// PROMPT 41 5 "Contr. versato " + PROMPT 61 5 "" + FIELD LF_QUAA2->CONTRVER + PICTURE "." +END + +NUMBER QA2F_CSSNINT 15 +BEGIN + PROMPT 2 6 "18 Interessi " + FIELD LF_QUAA2->INTER18 + PICTURE "." + GROUP G_ALL +END + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 8 "@bPRIMA RATA ACCONTO C.S.S.N. PER IL 1995 " +END + +NUMBER QA2F_CSSNAIV 15 +BEGIN + PROMPT 2 9 "19 Contrib.versato " + FIELD LF_QUAA2->CONTV19 + PICTURE "." + GROUP G_ALL +END + +NUMBER QA2F_CSSNAINT 15 +BEGIN + PROMPT 41 9 "20 Interessi " + FIELD LF_QUAA2->INTE20 + PICTURE "." + GROUP G_ALL +END + +NUMBER QA2F_STCSSN 15 +BEGIN + PROMPT 2 11 "21 Soprattasse su C.S.S.N. saldo 94 e prima rata acc.95 " + FIELD LF_QUAA2->SOPRAT21 + PICTURE "." + GROUP G_ALL +END + +STRING QA2F_730NLIQ 2 +BEGIN + PROMPT 2 12 "22 Mod.730/95 non liquidabile " + SHEET "Codice|Descrizione@80" + INPUT QA2F_730NLIQ + ITEM "|" + ITEM "01|Errata o incompleta compilazione dei dati anagrafici e di residenza del dichiarante" + ITEM "02|Errata o incompleta compilazione dei dati del coniuge e familiari a carico" + ITEM "03|Errata o incompleta compilazione dei dati anagrafici e di residenza del coniuge" + ITEM "04|Errata o incompleta dichiarazione del quadro A Mod.730/95 del dichiarante" + ITEM "05|Errata o incompleta dichiarazione del quadro A Mod.730/95 del coniuge" + ITEM "06|Errata o incompleta dichiarazione del quadro B Mod.730/95 del dichiarante" + ITEM "07|Errata o incompleta dichiarazione del quadro B Mod.730/95 del coniuge" + ITEM "08|Errata o incompleta dichiarazione del quadro C Mod.730/95 del dichiarante" + ITEM "09|Errata o incompleta dichiarazione del quadro D Mod.730/95 del dichiarante" + ITEM "10|Errata o incompleta dichiarazione del quadro E Mod.730/95 del dichiarante" + ITEM "11|Errata o incompleta dichiarazione del quadro E Mod.730/95 del coniuge" + ITEM "12|Errata o incompleta dichiarazione del quadro F Mod.730/95 del dichiarante" + ITEM "13|Errata o incompleta dichiarazione del quadro F Mod.730/95 del coniuge" + FIELD LF_QUAA2->M730NLIQ + FLAGS "Z" + OUTPUT QA2F_730NLIQ + GROUP G_ALL +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 14 "@bDati identificativi del C.A.A.F che ha prestato assistenza " +END + +NUMBER F_CODCAAF 5 +BEGIN + PROMPT 2 15 "Codice " + FIELD LF_QUAA2->CODCAAF + USE %CAF + CHECKTYPE NORMAL + INPUT CODTAB F_CODCAAF + DISPLAY "Codice" CODTAB + DISPLAY "Denominazione@50" S0 + DISPLAY "N.ro iscrizione" I1 + DISPLAY "Codice fiscale@16" S1 + OUTPUT F_CODCAAF CODTAB + OUTPUT F_DENCAAF S0 + OUTPUT F_NISCRA I1 + OUTPUT F_CODFISCAAF S1 + GROUP G_ALL +END + +STRING F_DENCAAF 50 +BEGIN + PROMPT 26 15 "" + FLAGS "DU" +END + +STRING F_CODFISCAAF 16 +BEGIN + PROMPT 2 16 "23 Cod.fiscale " + FLAGS "D" +END + +NUMBER F_NISCRA 5 +BEGIN + PROMPT 50 16 "25 N.iscrizione albo " + FLAGS "D" +END + +ENDPAGE + ENDMASK \ No newline at end of file diff --git a/m770/771200g.uml b/m770/771200g.uml index b2842147c..a0d7f710c 100755 --- a/m770/771200g.uml +++ b/m770/771200g.uml @@ -1,122 +1,122 @@ -#include "771200.h" -TOOLBAR "" 0 18 0 4 -#include -BUTTON F_BASEOCCUPA 24 2 -BEGIN - PROMPT -13 -3 "~Base occupazionale" -END -ENDPAGE - -#define G_DIPEND 1 -#define G_QUADROA 2 - -PAGE "Quadro A3" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "GRD" - USE LF_NDITTE KEY 1 - INPUT CODDITTA QAF_CODDITTA - OUTPUT QAF_RAGDITTA RAGSOC - FIELD LF_QUAA3->CODDITTA - CHECKTYPE REQUIRED - KEY 1 -END - -STRING QAF_RAGDITTA 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "D" -END - -NUMBER QAF_ANNODIC 4 -BEGIN - PROMPT 52 3 "Anno dichiarazione " - FLAGS "DR" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 7 "@bCodice " -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 80 80 "" - FLAGS "D" -END - -NUMBER F_CODANAGDIP 6 -BEGIN - PROMPT 10 7 "" - USE LF_DIPEND KEY 1 SELECT (CODDITTA=#QAF_CODDITTA) - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODANAGDIP - DISPLAY "Codice " CODDIP - DISPLAY "Cognome@24" COGNOME - DISPLAY "Nome@20" NOME - OUTPUT F_CODANAGDIP CODDIP - OUTPUT QAF_COGNOME COGNOME - OUTPUT QAF_NOME NOME - MESSAGE COPY, F_CODIP - MESSAGE COPY, F_CODIPQUADRO - ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" - GROUP G_DIPEND - FLAGS "H" - FIELD LF_QUAA3->CODDIP - CHECKTYPE REQUIRED - KEY 1 -END - -NUMBER F_CODIPQUADRO 6 -BEGIN - PROMPT 10 7 "" - USE LF_QUAA3 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA) && (NPROG="1")) - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODIPQUADRO - DISPLAY "Codice" CODDIP - DISPLAY "N.ro" NPROG - DISPLAY "Inizio rapporto" DIRAPTI - DISPLAY "gg.incremento" NGINC15 - DISPLAY "Reddito corrisposto" REDCOR16 - DISPLAY "gg.incremento" NGINC17 - DISPLAY "Reddito corrisposto" REDCOR18 - OUTPUT F_CODIPQUADRO CODDIP - MESSAGE COPY, F_CODIP - MESSAGE COPY, F_CODANAGDIP - GROUP G_QUADROA - FIELD LF_QUAA3->CODDIP - CHECKTYPE REQUIRED - KEY 1 -END - -NUMBER QAF_NPROG 4 -BEGIN - PROMPT 80 80 "" - FIELD LF_QUAA3->NPROG - CHECKTYPE REQUIRED - KEY 1 -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 21 7 "" - FLAGS "D" -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 45 7 "" - FLAGS "D" -END - -ENDPAGE - -ENDMASK - +#include "771200.h" +TOOLBAR "" 0 18 0 4 +#include +BUTTON F_BASEOCCUPA 24 2 +BEGIN + PROMPT -13 -3 "~Base occupazionale" +END +ENDPAGE + +#define G_DIPEND 1 +#define G_QUADROA 2 + +PAGE "Quadro A3" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "GRD" + USE LF_NDITTE KEY 1 + INPUT CODDITTA QAF_CODDITTA + OUTPUT QAF_RAGDITTA RAGSOC + FIELD LF_QUAA3->CODDITTA + CHECKTYPE REQUIRED + KEY 1 +END + +STRING QAF_RAGDITTA 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "D" +END + +NUMBER QAF_ANNODIC 4 +BEGIN + PROMPT 52 3 "Anno dichiarazione " + FLAGS "DR" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 7 "@bCodice " +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 80 80 "" + FLAGS "D" +END + +NUMBER F_CODANAGDIP 6 +BEGIN + PROMPT 10 7 "" + USE LF_DIPEND KEY 1 SELECT (CODDITTA=#QAF_CODDITTA) + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODANAGDIP + DISPLAY "Codice " CODDIP + DISPLAY "Cognome@24" COGNOME + DISPLAY "Nome@20" NOME + OUTPUT F_CODANAGDIP CODDIP + OUTPUT QAF_COGNOME COGNOME + OUTPUT QAF_NOME NOME + MESSAGE COPY, F_CODIP + MESSAGE COPY, F_CODIPQUADRO + ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" + GROUP G_DIPEND + FLAGS "H" + FIELD LF_QUAA3->CODDIP + CHECKTYPE REQUIRED + KEY 1 +END + +NUMBER F_CODIPQUADRO 6 +BEGIN + PROMPT 10 7 "" + USE LF_QUAA3 KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA) && (NPROG="1")) + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODIPQUADRO + DISPLAY "Codice" CODDIP + DISPLAY "N.ro" NPROG + DISPLAY "Inizio rapporto" DIRAPTI + DISPLAY "gg.incremento" NGINC15 + DISPLAY "Reddito corrisposto" REDCOR16 + DISPLAY "gg.incremento" NGINC17 + DISPLAY "Reddito corrisposto" REDCOR18 + OUTPUT F_CODIPQUADRO CODDIP + MESSAGE COPY, F_CODIP + MESSAGE COPY, F_CODANAGDIP + GROUP G_QUADROA + FIELD LF_QUAA3->CODDIP + CHECKTYPE REQUIRED + KEY 1 +END + +NUMBER QAF_NPROG 4 +BEGIN + PROMPT 80 80 "" + FIELD LF_QUAA3->NPROG + CHECKTYPE REQUIRED + KEY 1 +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 21 7 "" + FLAGS "D" +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 45 7 "" + FLAGS "D" +END + +ENDPAGE + +ENDMASK + diff --git a/m770/771200h.uml b/m770/771200h.uml index 3e4419ae4..bf9116fab 100755 --- a/m770/771200h.uml +++ b/m770/771200h.uml @@ -1,225 +1,225 @@ -#include "771200.h" -TOOLBAR "" 0 19 0 3 -#include -ENDPAGE - -PAGE "Quadro A3" -1 -1 78 18 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - PROMPT 80 80 "" - FLAGS "D" - FIELD LF_QUAA3->CODDITTA - KEY 1 -END - -NUMBER F_CODIP 6 -BEGIN - PROMPT 17 1 "" - FIELD LF_QUAA3->CODDIP - MESSAGE COPY,F_CODIP2 - FLAGS "DG" - KEY 1 - MESSAGE COPY,1@ -END - -NUMBER F_CODIP2 5 -BEGIN - USE LF_DIPEND KEY 1 - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODIP - DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC - OUTPUT QAF_COGNOME COGNOME - OUTPUT QAF_NOME NOME - CHECKTYPE REQUIRED - FLAGS "HG" -END - -STRING QAF_COGNOME 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - MESSAGE COPY,2@ -END - -STRING QAF_NOME 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - MESSAGE COPY,3@ -END - -NUMBER QAF_NPROG 1 -BEGIN - PROMPT 80 80 "" - FLAGS "DG" - FIELD LF_QUAA3->NPROG -END - -DATE F_DIRAPTI -BEGIN - PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato " - FIELD LF_QUAA3->DIRAPTI -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA" -END - -NUMBER F_NGINC15 3 -BEGIN - PROMPT 1 8 "9 Num. giorni in incremento " - FIELD LF_QUAA3->NGINC15 -END - -NUMBER F_REDCOR16 15 -BEGIN - PROMPT 1 9 "10 Reddito corrisposto " - FIELD LF_QUAA3->REDCOR16 - PICTURE "." -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95" -END - -NUMBER F_NGINC17 3 -BEGIN - PROMPT 1 12 "11 Num. giorni in incremento" - FIELD LF_QUAA3->NGINC17 -END - -NUMBER F_REDCOR18 15 -BEGIN - PROMPT 1 13 "12 Reddito corrisposto " - FIELD LF_QUAA3->REDCOR18 - PICTURE "." -END - -ENDPAGE - -PAGE "Societa' trasformata" -1 -1 78 21 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bDipendente" -END - -NUMBER F_CODDITTA_2 5 -BEGIN - PROMPT 80 80 "" - FLAGS "D" - KEY 1 -END - -NUMBER F_CODIP_2 6 -BEGIN - PROMPT 17 1 "" - MESSAGE COPY,F_CODIP2 - FLAGS "DG" - KEY 1 - GROUP 1 -END - -NUMBER F_CODIP2_2 5 -BEGIN - USE LF_DIPEND KEY 1 - INPUT CODDITTA QAF_CODDITTA - INPUT CODDIP F_CODIP - DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC - OUTPUT QAF_COGNOME COGNOME - OUTPUT QAF_NOME NOME - CHECKTYPE REQUIRED - FLAGS "HG" -END - -STRING F_COGNOME_2 24 -BEGIN - PROMPT 25 1 "" - FLAGS "DG" - GROUP 2 -END - -STRING F_NOME_2 20 -BEGIN - PROMPT 49 1 "" - FLAGS "DG" - GROUP 3 -END - -NUMBER F_NPROG_2 1 -BEGIN - PROMPT 80 80 "" - FLAGS "DG" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 3 "@bSocieta' trasformata " -END - -STRING F_DENTRASF 40 -BEGIN - PROMPT 25 3 "" - FLAGS "D" -END - -STRING F_COGNTRASF 30 -BEGIN - PROMPT 25 3 "" - FLAGS "D" -END - -STRING F_NOMETRASF 20 -BEGIN - PROMPT 56 3 "" - FLAGS "D" -END - -DATE F_DIRAPTI_2 -BEGIN - PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato " -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA" -END - -NUMBER F_NGINC15_2 3 -BEGIN - PROMPT 1 8 "9 Num. giorni in incremento " -END - -NUMBER F_REDCOR16_2 15 -BEGIN - PROMPT 1 9 "10 Reddito corrisposto " - PICTURE "." -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95" -END - -NUMBER F_NGINC17_2 3 -BEGIN - PROMPT 1 12 "11 Num. giorni in incremento" -END - -NUMBER F_REDCOR18_2 15 -BEGIN - PROMPT 1 13 "12 Reddito corrisposto " - PICTURE "." -END - -ENDPAGE - -ENDMASK +#include "771200.h" +TOOLBAR "" 0 19 0 3 +#include +ENDPAGE + +PAGE "Quadro A3" -1 -1 78 18 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + PROMPT 80 80 "" + FLAGS "D" + FIELD LF_QUAA3->CODDITTA + KEY 1 +END + +NUMBER F_CODIP 6 +BEGIN + PROMPT 17 1 "" + FIELD LF_QUAA3->CODDIP + MESSAGE COPY,F_CODIP2 + FLAGS "DG" + KEY 1 + MESSAGE COPY,1@ +END + +NUMBER F_CODIP2 5 +BEGIN + USE LF_DIPEND KEY 1 + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODIP + DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC + OUTPUT QAF_COGNOME COGNOME + OUTPUT QAF_NOME NOME + CHECKTYPE REQUIRED + FLAGS "HG" +END + +STRING QAF_COGNOME 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + MESSAGE COPY,2@ +END + +STRING QAF_NOME 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + MESSAGE COPY,3@ +END + +NUMBER QAF_NPROG 1 +BEGIN + PROMPT 80 80 "" + FLAGS "DG" + FIELD LF_QUAA3->NPROG +END + +DATE F_DIRAPTI +BEGIN + PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato " + FIELD LF_QUAA3->DIRAPTI +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA" +END + +NUMBER F_NGINC15 3 +BEGIN + PROMPT 1 8 "9 Num. giorni in incremento " + FIELD LF_QUAA3->NGINC15 +END + +NUMBER F_REDCOR16 15 +BEGIN + PROMPT 1 9 "10 Reddito corrisposto " + FIELD LF_QUAA3->REDCOR16 + PICTURE "." +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95" +END + +NUMBER F_NGINC17 3 +BEGIN + PROMPT 1 12 "11 Num. giorni in incremento" + FIELD LF_QUAA3->NGINC17 +END + +NUMBER F_REDCOR18 15 +BEGIN + PROMPT 1 13 "12 Reddito corrisposto " + FIELD LF_QUAA3->REDCOR18 + PICTURE "." +END + +ENDPAGE + +PAGE "Societa' trasformata" -1 -1 78 21 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bDipendente" +END + +NUMBER F_CODDITTA_2 5 +BEGIN + PROMPT 80 80 "" + FLAGS "D" + KEY 1 +END + +NUMBER F_CODIP_2 6 +BEGIN + PROMPT 17 1 "" + MESSAGE COPY,F_CODIP2 + FLAGS "DG" + KEY 1 + GROUP 1 +END + +NUMBER F_CODIP2_2 5 +BEGIN + USE LF_DIPEND KEY 1 + INPUT CODDITTA QAF_CODDITTA + INPUT CODDIP F_CODIP + DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC + OUTPUT QAF_COGNOME COGNOME + OUTPUT QAF_NOME NOME + CHECKTYPE REQUIRED + FLAGS "HG" +END + +STRING F_COGNOME_2 24 +BEGIN + PROMPT 25 1 "" + FLAGS "DG" + GROUP 2 +END + +STRING F_NOME_2 20 +BEGIN + PROMPT 49 1 "" + FLAGS "DG" + GROUP 3 +END + +NUMBER F_NPROG_2 1 +BEGIN + PROMPT 80 80 "" + FLAGS "DG" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 3 "@bSocieta' trasformata " +END + +STRING F_DENTRASF 40 +BEGIN + PROMPT 25 3 "" + FLAGS "D" +END + +STRING F_COGNTRASF 30 +BEGIN + PROMPT 25 3 "" + FLAGS "D" +END + +STRING F_NOMETRASF 20 +BEGIN + PROMPT 56 3 "" + FLAGS "D" +END + +DATE F_DIRAPTI_2 +BEGIN + PROMPT 1 5 "8 Data inizio rapporto a tempo indeterminato " +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 7 "@bDATI DAL 1/1/95 A FINE PERIODO D'IMPOSTA" +END + +NUMBER F_NGINC15_2 3 +BEGIN + PROMPT 1 8 "9 Num. giorni in incremento " +END + +NUMBER F_REDCOR16_2 15 +BEGIN + PROMPT 1 9 "10 Reddito corrisposto " + PICTURE "." +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 11 "@bDATI DA INIZIO SUCCESSIVO PERIODO D'IMPOSTA FINO AL 31/12/95" +END + +NUMBER F_NGINC17_2 3 +BEGIN + PROMPT 1 12 "11 Num. giorni in incremento" +END + +NUMBER F_REDCOR18_2 15 +BEGIN + PROMPT 1 13 "12 Reddito corrisposto " + PICTURE "." +END + +ENDPAGE + +ENDMASK diff --git a/m770/771200i.uml b/m770/771200i.uml index fbabc0fed..fa51d2e0b 100755 --- a/m770/771200i.uml +++ b/m770/771200i.uml @@ -1,107 +1,107 @@ -#include "771200.h" -TOOLBAR "" 0 20 0 2 -BUTTON DLG_SAVEREC 8 2 -BEGIN -PROMPT -16 -1 "" -FLAGS "D" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_NEWREC 8 2 -BEGIN -PROMPT -26 -1 "~Nuovo" -MESSAGE EXIT,K_INS -FLAGS "D" -PICTURE BMP_NEWREC -PICTURE BMP_NEWRECDN -END - -BUTTON DLG_DELREC 8 2 -BEGIN -PROMPT -36 -1 "~Elimina" -MESSAGE EXIT,K_DEL -FLAGS "D" -END - -BUTTON DLG_FINDREC 8 2 -BEGIN -PROMPT -46 -1 "Ri~cerca" -MESSAGE EXIT,K_F9 -FLAGS "D" -PICTURE BMP_FINDREC -END - -BUTTON DLG_CANCEL 8 2 -BEGIN -PROMPT -56 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 8 2 -BEGIN -PROMPT -66 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Base occupazionale" -1 -1 78 21 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER QAF_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "GRD" - KEY 1 - CHECKTYPE REQUIRED - USE LF_NDITTE KEY 1 - INPUT CODDITTA QAF_CODDITTA - OUTPUT QAF_RAGDITTA RAGSOC - FIELD LF_BASEBIS->CODDITTA -END - -STRING QAF_RAGDITTA 50 -BEGIN - PROMPT 20 1 "" - FLAGS "D" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 1 4 "" -END - -NUMBER F_BSE_CONSBASOCC 5 -BEGIN - PROMPT 2 5 "Consistenza base occupazionale al 12/06/94 " - FIELD LF_BASEBIS->CONSBASOCC - FLAGS "R" -END - -NUMBER F_BSE_LAVDIPCIN 5 -BEGIN - PROMPT 2 6 "Lavoratori dipendenti in mobilita' o cassa integrazione al 12/06/94 " - FIELD LF_BASEBIS->LAVDIPCIN -END - -DATE F_BSE_DATAINPI -BEGIN - PROMPT 2 7 "Periodo d'imposta dal " - FIELD LF_BASEBIS->PIMPINI -END - -DATE F_BSE_DATAFINPI -BEGIN - PROMPT 36 7 " al " - FIELD LF_BASEBIS->PIMPFINE -END - -ENDPAGE - -ENDMASK +#include "771200.h" +TOOLBAR "" 0 20 0 2 +BUTTON DLG_SAVEREC 8 2 +BEGIN +PROMPT -16 -1 "" +FLAGS "D" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_NEWREC 8 2 +BEGIN +PROMPT -26 -1 "~Nuovo" +MESSAGE EXIT,K_INS +FLAGS "D" +PICTURE BMP_NEWREC +PICTURE BMP_NEWRECDN +END + +BUTTON DLG_DELREC 8 2 +BEGIN +PROMPT -36 -1 "~Elimina" +MESSAGE EXIT,K_DEL +FLAGS "D" +END + +BUTTON DLG_FINDREC 8 2 +BEGIN +PROMPT -46 -1 "Ri~cerca" +MESSAGE EXIT,K_F9 +FLAGS "D" +PICTURE BMP_FINDREC +END + +BUTTON DLG_CANCEL 8 2 +BEGIN +PROMPT -56 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 8 2 +BEGIN +PROMPT -66 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Base occupazionale" -1 -1 78 21 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER QAF_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "GRD" + KEY 1 + CHECKTYPE REQUIRED + USE LF_NDITTE KEY 1 + INPUT CODDITTA QAF_CODDITTA + OUTPUT QAF_RAGDITTA RAGSOC + FIELD LF_BASEBIS->CODDITTA +END + +STRING QAF_RAGDITTA 50 +BEGIN + PROMPT 20 1 "" + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 1 4 "" +END + +NUMBER F_BSE_CONSBASOCC 5 +BEGIN + PROMPT 2 5 "Consistenza base occupazionale al 12/06/94 " + FIELD LF_BASEBIS->CONSBASOCC + FLAGS "R" +END + +NUMBER F_BSE_LAVDIPCIN 5 +BEGIN + PROMPT 2 6 "Lavoratori dipendenti in mobilita' o cassa integrazione al 12/06/94 " + FIELD LF_BASEBIS->LAVDIPCIN +END + +DATE F_BSE_DATAINPI +BEGIN + PROMPT 2 7 "Periodo d'imposta dal " + FIELD LF_BASEBIS->PIMPINI +END + +DATE F_BSE_DATAFINPI +BEGIN + PROMPT 36 7 " al " + FIELD LF_BASEBIS->PIMPFINE +END + +ENDPAGE + +ENDMASK diff --git a/m770/771234a.uml b/m770/771234a.uml index df3aa6386..af71d882f 100755 --- a/m770/771234a.uml +++ b/m770/771234a.uml @@ -1,362 +1,362 @@ -#include "771234a.h" -TOOLBAR "" 0 20 0 2 - -BUTTON DLG_SAVEREC 8 2 -BEGIN -PROMPT -16 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_DISTINTA 8 2 -BEGIN - PROMPT -26 -1 "~Distinta" -// MESSAGE EXIT,K_SAVE -END - -BUTTON DLG_DELREC 8 2 -BEGIN -PROMPT -36 -1 "~Elimina" -MESSAGE EXIT,K_DEL -FLAGS "D" -END - -BUTTON DLG_FINDREC 8 2 -BEGIN -PROMPT -46 -1 "Ri~cerca" -MESSAGE EXIT,K_F9 -FLAGS "D" -END - -BUTTON DLG_CANCEL 8 2 -BEGIN -PROMPT -56 -1 "" -MESSAGE EXIT,K_ESC -FLAGS "D" -END - -BUTTON DLG_QUIT 8 2 -BEGIN -PROMPT -66 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Modello 770 - Quadro G" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - USE LF_NDITTE KEY 1 - INPUT CODDITTA F_CODDITTA - OUTPUT F_RAGDITTA RAGSOC - FIELD LF_QUAG->CODDITTA - KEY 1 - CHECKTYPE REQUIRED - FLAGS "GR" - MESSAGE COPY,1@ -END - -STRING F_RAGDITTA 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "D" - MESSAGE COPY,2@ -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 3 "@bPROSPETTO N. 1 DETERMINAZIONE DELL'AMMONTARE DEGLI UTILI " -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 4 "I - UTILI IN DENARO" -END - -SPREADSHEET F_P1 0 6 -BEGIN - PROMPT 0 5 "" - ITEM "Data delib." - ITEM "Titolo distribuzione" - ITEM "Data pagam." - ITEM "Ammontare azione" - ITEM "Numero azioni" - ITEM "Ammontare comp." -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 11 "II - UTILI IN NATURA" -END - -DATE F_DATADELIB -BEGIN - PROMPT 1 12 "Data delibera " - FIELD LF_QUAG->P2DATADE -END - -DATE F_DATADISTR -BEGIN - PROMPT 30 12 "Data distribuzione " - FIELD LF_QUAG->P2DATADI -END - -//SPREADSHEET F_PII 0 6 -SPREADSHEET F_PII 78 5 -BEGIN - PROMPT 0 13 "" - ITEM "Descrizione dei beni distribuiti@35" - ITEM "Data@10" - ITEM "Valore ultimo bilancio@15" -END - -NUMBER F_P1II_35 15 -BEGIN - PROMPT 12 18 "IMPORTO IMPUTABILE A CIASCUNA AZIONE O QUOTA " - PICTURE "." - FIELD LF_QUAG->P2IMPQ -END - -ENDPAGE - -PAGE "Modello 770 - Quadro G" -1 -1 78 18 - -#define COL1 0 -#define COL2 16 -#define COL3 32 -#define COL4 48 -#define COL5 63 - -TEXT DLG_NULL -BEGIN - PROMPT COL1 1 "@bPROSPETTO N. 2 PROSPETTO UTILI PAGATI " -END - -SPREADSHEET F_P2 0 8 -BEGIN - PROMPT 0 3 "" - ITEM "Delibera@20" - ITEM "Importo@15" - ITEM "Utili corrisp. 31-12-94" - ITEM "Utili da corr. 31-12-94" - ITEM "Utili corrisp. 31-12-95" - ITEM "Utili da corr. 31-12-95" -END - -ENDPAGE - -PAGE "Modello 770 - Quadro G" -1 -1 78 18 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bPROSPETTO N. 3 PROSPETTO DELLE RITENUTE " -END - -SPREADSHEET F_PIII 0 15 -BEGIN - PROMPT 0 3 "" - ITEM "Delibera@21" - ITEM "Utili corr. nel 1995" - ITEM "Importo" - ITEM "Aliquota" - ITEM "Rit.acconto" - ITEM "Rit.imposta" - ITEM "Utili non assog.a ritenuta" -END - -ENDPAGE - -#define CP31 1 -#define CP32 12 -#define CP33 29 -#define CP34 36 -#define CP35 53 - -PAGE "Modello 770 - Quadro G" -1 -1 78 18 - -TEXT DLG_NULL -BEGIN - PROMPT 1 1 "@bPROSPETTO N. 4 PROSPETTO DEI VERSAMENTI DELLE RITENUTE " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 2 "Causale dei versamenti Importo versato " -END - -NUMBER F_P411 15 -BEGIN - PROMPT CP35 4 "" - PICTURE "." - FIELD LF_QUAG->P421 - MESSAGE K_TAB,F_P41TOT -END - -NUMBER F_P412 15 -BEGIN - PROMPT CP35 7 "" - PICTURE "." - FIELD LF_QUAG->P422 - MESSAGE K_TAB,F_P41TOT -END - -NUMBER F_P413 15 -BEGIN - PROMPT CP35 8 "" - PICTURE "." - FIELD LF_QUAG->P423 - MESSAGE K_TAB,F_P41TOT -END - -NUMBER F_P414 15 -BEGIN - PROMPT CP35 10 "" - PICTURE "." - FIELD LF_QUAG->P424 - MESSAGE K_TAB,F_P41TOT -END - -NUMBER F_P415 15 -BEGIN - PROMPT CP35 11 "" - PICTURE "." - FIELD LF_QUAG->P425 - MESSAGE K_TAB,F_P41TOT -END - -NUMBER F_P416 15 -BEGIN - PROMPT CP35 12 "" - PICTURE "." - FIELD LF_QUAG->P426 - MESSAGE K_TAB,F_P41TOT -END - -NUMBER F_P417 15 -BEGIN - PROMPT CP35 13 "" - PICTURE "." - FIELD LF_QUAG->P427 - MESSAGE K_TAB,F_P41TOT -END - -NUMBER F_P418 15 -BEGIN - PROMPT CP35 16 "" - PICTURE "." - FIELD LF_QUAG->P428 - MESSAGE K_TAB,F_P41TOT -END - -NUMBER F_P419 15 -BEGIN - PROMPT CP35 17 "" - PICTURE "." - FIELD LF_QUAG->P429 - MESSAGE K_TAB,F_P41TOT -END - -NUMBER F_P41TOT 15 -BEGIN - PROMPT CP35 18 "" - PICTURE "." - FLAGS "D" - FIELD LF_QUAG->P42TOT - NUM_CALC {#F_P411+#F_P412+#F_P413+#F_P414-#F_P415+#F_P416-#F_P417+#F_P418+#F_P419} -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 3 "1) Ritenute 10% sugli utili di cui e' stata " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 4 " deliberata la distribuzione nel 1995" -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 5 "2) Ritenute 10%,12,50,15%,30%,32,4% o 50% sugli utili in denaro " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 6 " o in natura, su azioni di risparmio ..." -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 7 " a) effettuate nel primo semestre 1995 " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 8 " b) effettuate nel secondo semestre 1995 " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 9 "3) Versamento di conguaglio su utili in denaro " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 10 " a) effettuate nel primo semestre 1995 " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 11 " meno recuperi " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 12 " b) effettuate nel secondo semestre 1995 " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 13 " meno recuperi " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 14 "4) Ritenuta 10% sugli utili corrisposti da società" -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 15 " cooperative ai soci persone fisiche " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 16 " a) effettuate nel primo semestre 1995 " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP31 17 " b) effettuate nel secondo semestre 1995 " -END - -TEXT DLG_NULL -BEGIN - PROMPT CP34 18 "@bTOTALE " -END - -ENDPAGE -ENDMASK - -#include "771234b.uml" -#include "77_g_p2.uml" -#include "771234c.uml" +#include "771234a.h" +TOOLBAR "" 0 20 0 2 + +BUTTON DLG_SAVEREC 8 2 +BEGIN +PROMPT -16 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_DISTINTA 8 2 +BEGIN + PROMPT -26 -1 "~Distinta" +// MESSAGE EXIT,K_SAVE +END + +BUTTON DLG_DELREC 8 2 +BEGIN +PROMPT -36 -1 "~Elimina" +MESSAGE EXIT,K_DEL +FLAGS "D" +END + +BUTTON DLG_FINDREC 8 2 +BEGIN +PROMPT -46 -1 "Ri~cerca" +MESSAGE EXIT,K_F9 +FLAGS "D" +END + +BUTTON DLG_CANCEL 8 2 +BEGIN +PROMPT -56 -1 "" +MESSAGE EXIT,K_ESC +FLAGS "D" +END + +BUTTON DLG_QUIT 8 2 +BEGIN +PROMPT -66 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Modello 770 - Quadro G" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + USE LF_NDITTE KEY 1 + INPUT CODDITTA F_CODDITTA + OUTPUT F_RAGDITTA RAGSOC + FIELD LF_QUAG->CODDITTA + KEY 1 + CHECKTYPE REQUIRED + FLAGS "GR" + MESSAGE COPY,1@ +END + +STRING F_RAGDITTA 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "D" + MESSAGE COPY,2@ +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 3 "@bPROSPETTO N. 1 DETERMINAZIONE DELL'AMMONTARE DEGLI UTILI " +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 4 "I - UTILI IN DENARO" +END + +SPREADSHEET F_P1 0 6 +BEGIN + PROMPT 0 5 "" + ITEM "Data delib." + ITEM "Titolo distribuzione" + ITEM "Data pagam." + ITEM "Ammontare azione" + ITEM "Numero azioni" + ITEM "Ammontare comp." +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 11 "II - UTILI IN NATURA" +END + +DATE F_DATADELIB +BEGIN + PROMPT 1 12 "Data delibera " + FIELD LF_QUAG->P2DATADE +END + +DATE F_DATADISTR +BEGIN + PROMPT 30 12 "Data distribuzione " + FIELD LF_QUAG->P2DATADI +END + +//SPREADSHEET F_PII 0 6 +SPREADSHEET F_PII 78 5 +BEGIN + PROMPT 0 13 "" + ITEM "Descrizione dei beni distribuiti@35" + ITEM "Data@10" + ITEM "Valore ultimo bilancio@15" +END + +NUMBER F_P1II_35 15 +BEGIN + PROMPT 12 18 "IMPORTO IMPUTABILE A CIASCUNA AZIONE O QUOTA " + PICTURE "." + FIELD LF_QUAG->P2IMPQ +END + +ENDPAGE + +PAGE "Modello 770 - Quadro G" -1 -1 78 18 + +#define COL1 0 +#define COL2 16 +#define COL3 32 +#define COL4 48 +#define COL5 63 + +TEXT DLG_NULL +BEGIN + PROMPT COL1 1 "@bPROSPETTO N. 2 PROSPETTO UTILI PAGATI " +END + +SPREADSHEET F_P2 0 8 +BEGIN + PROMPT 0 3 "" + ITEM "Delibera@20" + ITEM "Importo@15" + ITEM "Utili corrisp. 31-12-94" + ITEM "Utili da corr. 31-12-94" + ITEM "Utili corrisp. 31-12-95" + ITEM "Utili da corr. 31-12-95" +END + +ENDPAGE + +PAGE "Modello 770 - Quadro G" -1 -1 78 18 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bPROSPETTO N. 3 PROSPETTO DELLE RITENUTE " +END + +SPREADSHEET F_PIII 0 15 +BEGIN + PROMPT 0 3 "" + ITEM "Delibera@21" + ITEM "Utili corr. nel 1995" + ITEM "Importo" + ITEM "Aliquota" + ITEM "Rit.acconto" + ITEM "Rit.imposta" + ITEM "Utili non assog.a ritenuta" +END + +ENDPAGE + +#define CP31 1 +#define CP32 12 +#define CP33 29 +#define CP34 36 +#define CP35 53 + +PAGE "Modello 770 - Quadro G" -1 -1 78 18 + +TEXT DLG_NULL +BEGIN + PROMPT 1 1 "@bPROSPETTO N. 4 PROSPETTO DEI VERSAMENTI DELLE RITENUTE " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 2 "Causale dei versamenti Importo versato " +END + +NUMBER F_P411 15 +BEGIN + PROMPT CP35 4 "" + PICTURE "." + FIELD LF_QUAG->P421 + MESSAGE K_TAB,F_P41TOT +END + +NUMBER F_P412 15 +BEGIN + PROMPT CP35 7 "" + PICTURE "." + FIELD LF_QUAG->P422 + MESSAGE K_TAB,F_P41TOT +END + +NUMBER F_P413 15 +BEGIN + PROMPT CP35 8 "" + PICTURE "." + FIELD LF_QUAG->P423 + MESSAGE K_TAB,F_P41TOT +END + +NUMBER F_P414 15 +BEGIN + PROMPT CP35 10 "" + PICTURE "." + FIELD LF_QUAG->P424 + MESSAGE K_TAB,F_P41TOT +END + +NUMBER F_P415 15 +BEGIN + PROMPT CP35 11 "" + PICTURE "." + FIELD LF_QUAG->P425 + MESSAGE K_TAB,F_P41TOT +END + +NUMBER F_P416 15 +BEGIN + PROMPT CP35 12 "" + PICTURE "." + FIELD LF_QUAG->P426 + MESSAGE K_TAB,F_P41TOT +END + +NUMBER F_P417 15 +BEGIN + PROMPT CP35 13 "" + PICTURE "." + FIELD LF_QUAG->P427 + MESSAGE K_TAB,F_P41TOT +END + +NUMBER F_P418 15 +BEGIN + PROMPT CP35 16 "" + PICTURE "." + FIELD LF_QUAG->P428 + MESSAGE K_TAB,F_P41TOT +END + +NUMBER F_P419 15 +BEGIN + PROMPT CP35 17 "" + PICTURE "." + FIELD LF_QUAG->P429 + MESSAGE K_TAB,F_P41TOT +END + +NUMBER F_P41TOT 15 +BEGIN + PROMPT CP35 18 "" + PICTURE "." + FLAGS "D" + FIELD LF_QUAG->P42TOT + NUM_CALC {#F_P411+#F_P412+#F_P413+#F_P414-#F_P415+#F_P416-#F_P417+#F_P418+#F_P419} +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 3 "1) Ritenute 10% sugli utili di cui e' stata " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 4 " deliberata la distribuzione nel 1995" +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 5 "2) Ritenute 10%,12,50,15%,30%,32,4% o 50% sugli utili in denaro " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 6 " o in natura, su azioni di risparmio ..." +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 7 " a) effettuate nel primo semestre 1995 " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 8 " b) effettuate nel secondo semestre 1995 " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 9 "3) Versamento di conguaglio su utili in denaro " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 10 " a) effettuate nel primo semestre 1995 " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 11 " meno recuperi " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 12 " b) effettuate nel secondo semestre 1995 " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 13 " meno recuperi " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 14 "4) Ritenuta 10% sugli utili corrisposti da società" +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 15 " cooperative ai soci persone fisiche " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 16 " a) effettuate nel primo semestre 1995 " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP31 17 " b) effettuate nel secondo semestre 1995 " +END + +TEXT DLG_NULL +BEGIN + PROMPT CP34 18 "@bTOTALE " +END + +ENDPAGE +ENDMASK + +#include "771234b.uml" +#include "77_g_p2.uml" +#include "771234c.uml" #include "77_g_p3.uml" \ No newline at end of file diff --git a/m770/771300a.uml b/m770/771300a.uml index 054065f00..355bed7b0 100755 --- a/m770/771300a.uml +++ b/m770/771300a.uml @@ -1,1390 +1,1390 @@ -// Quadro I -#include "771300.h" -TOOLBAR "" 0 20 0 2 -BUTTON DLG_SAVEREC 8 2 -BEGIN -PROMPT -13 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END -BUTTON DLG_CANCEL 8 2 -BEGIN -PROMPT -23 -1 "" -MESSAGE EXIT,K_ESC -END -BUTTON DLG_QUIT 8 2 -BEGIN -PROMPT -33 -1 "" -MESSAGE EXIT,K_QUIT -END -ENDPAGE - -PAGE "QUADRO I" -1 -1 78 18 - -LISTBOX F_TIPOQUA1 12 -BEGIN - PROMPT 90 90 "" - ITEM " |Normale" - ITEM "D|Dichiarante" - FLAGS "D" - KEY 1 - FIELD LF_BASEBIS->CODDIC -// CHECKTYPE REQUIRED -END - -LISTBOX F_TIPOQUA2 12 -BEGIN - PROMPT 90 90 "" -// PROMPT 10 3 "" - ITEM " |Normale" - ITEM "D|Dichiarante" - FLAGS "D" - KEY 1 - FIELD LF_BASE->CODDIC -// CHECKTYPE REQUIRED -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "RG" - USE LF_NDITTE KEY 1 - INPUT CODDITTA F_CODDITTA - OUTPUT F_RAGSOC RAGSOC - CHECKTYPE REQUIRED - FIELD LF_BASE->CODDITTA - KEY 1 - MESSAGE COPY,F_CODDITTAG -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" -END - -NUMBER F_CODDITTAG 5 -BEGIN - PROMPT 45 1 "Ditta " - FLAGS "HR" - FIELD LF_BASEBIS->CODDITTA -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 4 "I1 - Quadro A" -END - -NUMBER F_A0NFCOM 5 -BEGIN - PROMPT 1 5 "N.fogli " - HELP "Numero di fogli compilati" - FIELD LF_BASE->A0NFCOM - FLAGS "R" -END - -NUMBER F_A0NLDIP 5 -BEGIN - PROMPT 21 5 "N.dipendenti " - HELP "Numero complessivo di lavoratori dipendenti" - FIELD LF_BASE->A0NLDIP - FLAGS "R" -END - -NUMBER F_A0COBB 15 -BEGIN - PROMPT 41 5 "Contrib.obbligatori " - HELP "Contributi obbligatori" - FIELD LF_BASE->A0COBB - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0CNET 15 -BEGIN - PROMPT 1 6 "Compensi netti " - HELP "Compensi netti" - FIELD LF_BASE->A0CNET - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0IITRA 15 -BEGIN - PROMPT 41 6 "Ind.trasf.imponibile" - HELP " Imponibile indennita' trasferta" - FIELD LF_BASE->A0IITRA - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0EPREV 15 -BEGIN - PROMPT 1 7 "Assegni enti previd." - HELP "Assegni Enti previdenziali" - FIELD LF_BASE->A0EPREV - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN -// PROMPT 0 8 "I2 - Quadro A" - PROMPT 0 9 "I2 - Quadro A" -END - -NUMBER F_A0CTER 15 -BEGIN - PROMPT 1 10 "Compensi da terzi " - FIELD LF_BASE->A0CTER - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0TIMP 15 -BEGIN - PROMPT 41 10 "Totale imponibile " - FIELD LF_BASE->A0TIMP - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0ILOR 15 -BEGIN - PROMPT 1 11 "Imposta lorda " - FIELD LF_BASE->A0ILOR - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0TDET 15 -BEGIN - PROMPT 41 11 "Totale detrazioni " - FIELD LF_BASE->A0TDET - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0INCDET 15 -BEGIN - PROMPT 1 12 "Increm.detrazioni " - FIELD LF_BASE->A0INCDET - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 14 "I3 - Quadro A" -END - -NUMBER F_A0RTER 15 -BEGIN - PROMPT 1 15 "Ritenute da terzi " - FIELD LF_BASE->A0RTER - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0RDAT 15 -BEGIN - PROMPT 41 15 "Riten.datore lavoro " - HELP "Ritenute datore di lavoro" - FIELD LF_BASE->A0RDAT - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0ERIT 15 -BEGIN - PROMPT 1 16 "Eccedenza ritenute " - FIELD LF_BASE->A0ERIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0CARR 15 -BEGIN - PROMPT 41 16 "Contributi arretrati" - FIELD LF_BASE->A0CARR - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0AARR 15 -BEGIN - PROMPT 1 17 "Ammontare arretrati " - FIELD LF_BASE->A0AARR - PICTURE "." - FLAGS "R" -END - -ENDPAGE - -PAGE "QUADRO I" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 0 "I4 - Quadro A" -END - -NUMBER F_A0DARR 15 -BEGIN - PROMPT 1 1 "Detrazioni arretrati" - FIELD LF_BASE->A0DARR - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0RARR 15 -BEGIN - PROMPT 41 1 "Ritenute arretrati " - FIELD LF_BASE->A0RARR - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0CINPS 15 -BEGIN - PROMPT 1 2 "Comp.fini contr.Inps" - HELP "Compensi ai fini contributivi Inps" - FIELD LF_BASE->A0CINPS - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0RITOPEVA 15 -BEGIN - PROMPT 41 2 "Ritenute operate VA " - HELP "Ritenute operate VA" - FIELD LF_BASE->A0RITOPEVA - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0RITOPESA 15 -BEGIN - PROMPT 1 3 "Ritenute operate SA " - HELP "Ritenute operate SA" - FIELD LF_BASE->A0RITOPESA - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 5 "I5 - Quadro A" -END - -NUMBER F_A0RITSI 15 -BEGIN - PROMPT 1 6 "Ritenute operate SI " - HELP "Ritenute operate SI" - FIELD LF_BASE->A0RITSI - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0CIIAUT 15 -BEGIN - PROMPT 41 6 "Cred.imp.impr.autot." - HELP "Credito di imposta imprese di autotrasporto" - FIELD LF_BASE->A0CIIAUT - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0CRIMPRAS 15 -BEGIN - PROMPT 1 7 "Cred.imp.pre.assun. " - HELP "Credito di imposta premio di assunzione" - FIELD LF_BASE->A0CRIMPRAS - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0CRIMPL85 15 -BEGIN - PROMPT 41 7 "Cred.imp.ex L.85/95 " - HELP "Credito di imposta ex L.85/95" - FIELD LF_BASE->A0CRIMP85 - PICTURE "." - FLAGS "R" -END - -NUMBER F_A0NADLAV 5 -BEGIN - PROMPT 1 8 "Num.assis.dat.lavoro" - HELP "Numero assistiti dal datore di lavoro" - FIELD LF_BASE->A0NADLAV - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 0 10 "I6 - Quadro A" -END - -NUMBER F_A0NACAAF 5 -BEGIN - PROMPT 1 11 "Num.assis. C.A.A.F. " - HELP "Numero assistiti dal C.A.A.F." - FIELD LF_BASE->A0NACAAF - FLAGS "R" -END - - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 13 "I7 - Quadro A-3" -END - -NUMBER F_A3NFCOM 5 -BEGIN - PROMPT 1 14 "Num.fogli compilati " - HELP "Numero di fogli compilati" - FIELD LF_BASE->A3NFCOM - FLAGS "R" -END - -NUMBER F_A3NUMPER 5 -BEGIN - PROMPT 41 14 "Numero percipienti " - HELP "Numero di percipienti" - FIELD LF_BASE->A3NUMPER - FLAGS "R" -END - -NUMBER F_A3REPT10 15 -BEGIN - PROMPT 1 15 "Redd.corr.(p.to 10) " - HELP "Reddito corrisposto (punto 10)" - FIELD LF_BASE->A3REPT10 - PICTURE "." - FLAGS "R" -END - -NUMBER F_A3REPT12 15 -BEGIN - PROMPT 41 15 "Redd.corr.(p.to 12) " - HELP "Reddito corrisposto (punto 12)" - FIELD LF_BASE->A3REPT12 - PICTURE "." - FLAGS "R" -END - -ENDPAGE - -PAGE "QUADRO I" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 0 "I8 - Quadro B" -END - -NUMBER F_B0NFCOM 5 -BEGIN - PROMPT 1 1 "N.fogli " - HELP "Numero di fogli compilati" - FIELD LF_BASE->B0NFCOM - FLAGS "R" -END - -NUMBER F_B0NLDIP 5 -BEGIN - PROMPT 21 1 "N.dipendenti " - HELP "Numero complessivo di lavoratori dipendenti" - FIELD LF_BASE->B0NLDIP - FLAGS "R" -END - -NUMBER F_B0TFR93 15 -BEGIN - PROMPT 41 1 "T.F.R.corrisposto 95" - HELP "T.F.R. corrisposto nel 1995" - FIELD LF_BASE->B0TFR93 - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0AI 15 -BEGIN - PROMPT 1 2 "Altre indennità 95 " - HELP "Altre indennita nel 1995" - FIELD LF_BASE->B0AI - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0COLAV 15 -BEGIN - PROMPT 41 2 "Cont.obb.caric.lav. " - HELP "Contributi obbligatori a carico del lavoratore" - FIELD LF_BASE->B0COLAV - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0TFR7492 15 -BEGIN - PROMPT 1 3 "T.F.R. erogato 74-94" - HELP "T.F.R. erogato dal 1974 al 1994" - FIELD LF_BASE->B0TFR7492 - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 5 "I9 - Quadro B" -END - -NUMBER F_B0AI7492 15 -BEGIN - PROMPT 1 6 "Altr.ind.erog. 74-94" - HELP "Altre indennita erogate dal 1974 al 1994" - FIELD LF_BASE->B0AI7492 - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0IMP 15 -BEGIN - PROMPT 41 6 "Imponibile dell'anno" - FIELD LF_BASE->B0IMP - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0TIMP 15 -BEGIN - PROMPT 1 7 "Totale imponibile " - FIELD LF_BASE->B0TIMP - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0ROP 15 -BEGIN - PROMPT 41 7 "Ritenute operate " - FIELD LF_BASE->B0ROP - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0AIINPS 15 -BEGIN - PROMPT 1 8 "Alt.ind.fin.con.Inps" - HELP "Altre indennita ai fini contributivi Inps" - FIELD LF_BASE->B0AIINPS - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 10 "I10 - Quadro B" -END - -NUMBER F_B0ROPESA 15 -BEGIN - PROMPT 1 11 "Ritenute operate SA " - FIELD LF_BASE->B0ROPESA - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0RITSI 15 -BEGIN - PROMPT 41 11 "Ritenute operate SI " - FIELD LF_BASE->B0RITSI - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0CIIAUT 15 -BEGIN - PROMPT 1 12 "Cred.imp.impr.autot." - HELP "Credito di imposta imprese di autotrasporto" - FIELD LF_BASE->B0CIIAUT - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0CRIMPRAS 15 -BEGIN - PROMPT 41 12 "Cred.imp.pre.assun. " - FIELD LF_BASE->B0CRIMPRAS - PICTURE "." - FLAGS "R" -END - -NUMBER F_B0CRIMPL85 15 -BEGIN - PROMPT 1 13 "Cred.imp.ex L.85/95 " - FIELD LF_BASE->B0CRIMP85 - PICTURE "." - FLAGS "R" -END - -ENDPAGE - -PAGE "QUADRO I" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 0 "I11 - Quadro B-1" -END - -NUMBER F_B1NFCOM 5 -BEGIN - PROMPT 1 1 "Numero di fogli compilati " - HELP "Numero di fogli compilati" - FIELD LF_BASE->B1NFCOM - FLAGS "R" -END - -NUMBER F_B1NPER 5 -BEGIN - PROMPT 41 1 "Numero percipienti " - HELP "Numero percipienti" - FIELD LF_BASE->B1NPER - FLAGS "R" -END - -NUMBER F_B1TIND 15 -BEGIN - PROMPT 1 2 "Totale indennità " - HELP "Totale indennita" - FIELD LF_BASE->B1TIND - PICTURE "." - FLAGS "R" -END - -NUMBER F_B1TIRM 15 -BEGIN - PROMPT 41 2 "Totale imponib. r.m." - HELP "Totale imponibile r.m." - FIELD LF_BASE->B1TIRM - PICTURE "." - FLAGS "R" -END - -NUMBER F_B1TICOM 15 -BEGIN - PROMPT 1 3 "Tot.imp.complessivo " - HELP "Totale imponibile complessivo" - FIELD LF_BASE->B1TICOM - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 5 "I12 - Quadro C" -END - -NUMBER F_C0NFCOM 5 -BEGIN - PROMPT 1 6 "Numero di fogli compilati " - HELP "Numero di fogli compilati" - FIELD LF_BASE->C0NFCOM - FLAGS "R" -END - -NUMBER F_C0NLASS 5 -BEGIN - PROMPT 41 6 "Numero percipienti " - HELP "Numero lavoratori assimilati" - FIELD LF_BASE->C0NLASS - FLAGS "R" -END - -NUMBER F_C0ACTOT 15 -BEGIN - PROMPT 1 7 "Ammont.corris.totale" - HELP "Ammontare corrisposto totale" - FIELD LF_BASE->C0ACTOT - PICTURE "." - FLAGS "R" -END - -NUMBER F_C0CONTSSN 15 -BEGIN - PROMPT 41 7 "Contributi S.S.N. " - HELP "Contributo S.S.N." - FIELD LF_BASE->C0CONTSSN - PICTURE "." - FLAGS "R" -END - -NUMBER F_C0SNSRIT 15 -BEGIN - PROMPT 1 8 "Somme non sogg.rit. " - HELP "Somme non soggette a ritenute" - FIELD LF_BASE->C0SNSRIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_C0ROPE 15 -BEGIN - PROMPT 41 8 "Ritenute operate " - FIELD LF_BASE->C0ROPE - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 10 "I13 - Quadro C" -END - -NUMBER F_C0CIIAUT 15 -BEGIN - PROMPT 1 11 "Cred.imp.impr.autot." - HELP "Credito di imposta imprese di autotrasporto" - FIELD LF_BASE->C0CIIAUT - PICTURE "." - FLAGS "R" -END - -NUMBER F_C0CRIMPRAS 15 -BEGIN - PROMPT 41 11 "Cred.imp.pre.assun. " - HELP "Credito d'imposta premio d'assunzione" - FIELD LF_BASE->C0CRIMPRAS - PICTURE "." - FLAGS "R" -END - -ENDPAGE - -PAGE "QUADRO I" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 0 "I14 - Quadro D" -END - -NUMBER F_D0NFCOM 5 -BEGIN - PROMPT 1 1 "Numero di fogli compilati " - HELP "Numero di fogli compilati" - FIELD LF_BASE->D0NFCOM - FLAGS "R" -END - -NUMBER F_D0NLAUT 5 -BEGIN - PROMPT 41 1 "Numero percipienti " - HELP "Numero percipienti" - FIELD LF_BASE->D0NLAUT - FLAGS "R" -END - -NUMBER F_D0ACTOT 15 -BEGIN - PROMPT 1 2 "Ammon.corris.totale " - HELP "Ammontare corrisposto totale" - FIELD LF_BASE->D0ACTOT - PICTURE "." - FLAGS "R" -END - -NUMBER F_D0SNSRIT 15 -BEGIN - PROMPT 41 2 "Somme non sogg.rit. " - HELP "Somme non soggette a ritenute" - FIELD LF_BASE->D0SNSRIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_D0ROPE 15 -BEGIN - PROMPT 1 3 "Ritenute operate " - FIELD LF_BASE->D0ROPE - PICTURE "." - FLAGS "R" -END - -NUMBER F_D0CIIAUT 15 -BEGIN - PROMPT 41 3 "Cred.imp.impr.autot." - HELP "Credito di imposta imprese di autotrasporto" - FIELD LF_BASE->D0CIIAUT - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 0 5 "I15 - Quadro D" -END - -NUMBER F_D0CRIMPRAS 15 -BEGIN - PROMPT 1 6 "Cred.imp.pre.assun. " - HELP "Credito d'imposta premio d'assunzione" - FIELD LF_BASE->D0CRIMPRAS - PICTURE "." - FLAGS "R" -END - -NUMBER F_D0CRIMPL85 15 -BEGIN - PROMPT 41 6 "Cred.imp.ex L.85/95 " - HELP "Credito d'imposta ex L.85/95" - FIELD LF_BASE->D0CRIMP85 - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 8 "I16 - Quadro D1" -END - -NUMBER F_D1NFCOM 5 -BEGIN - PROMPT 1 9 "Numero di fogli compilati " - HELP "Numero di fogli compilati" - FIELD LF_BASE->D1NFCOM - FLAGS "R" -END - -NUMBER F_D1NPER 5 -BEGIN - PROMPT 41 9 "Numero percipienti " - HELP "Numero percipienti" - FIELD LF_BASE->D1NPER - FLAGS "R" -END - -NUMBER F_D1TACOR 15 -BEGIN - PROMPT 1 10 "Ammon.corris.totale " - HELP "Ammontare corrisposto totale" - FIELD LF_BASE->D1TACOR - PICTURE "." - FLAGS "R" -END - -NUMBER F_D1SNSRIT 15 -BEGIN - PROMPT 41 10 "Somme non sogg.rit. " - HELP "Somme non soggette a ritenute" - FIELD LF_BASE->D1SNSRIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_D1ROPE 15 -BEGIN - PROMPT 1 11 "Ritenute operate " - FIELD LF_BASE->D1ROPE - PICTURE "." - FLAGS "R" -END - -NUMBER F_D1CRIMPRAS 15 -BEGIN - PROMPT 41 11 "Cred.imp.pre.assun. " - FIELD LF_BASE->D1CRIMPRAS - PICTURE "." - FLAGS "R" -END - -ENDPAGE - -PAGE "QUADRO I" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 0 "I17 - Quadro E" -END - -NUMBER F_E0NFCOM 5 -BEGIN - PROMPT 1 1 "Numero di fogli compilati " - HELP "Numero di fogli compilati" - FIELD LF_BASEBIS->E0NFCOM - FLAGS "R" -END - -NUMBER F_E0NPER 5 -BEGIN - PROMPT 41 1 "Numero percipienti " - HELP "Numero percipienti" - FIELD LF_BASEBIS->E0NPER - FLAGS "R" -END - -NUMBER F_E0AIMP 15 -BEGIN - PROMPT 1 2 "Ammontare imponibile" - FIELD LF_BASEBIS->E0AIMP - PICTURE "." - FLAGS "R" -END - -NUMBER F_E0ROPE 15 -BEGIN - PROMPT 41 2 "Ritenute operate " - FIELD LF_BASEBIS->E0ROPE - PICTURE "." - FLAGS "R" -END - -NUMBER F_E0SNSRIT 15 -BEGIN - PROMPT 1 3 "Somme non sogg.rit. " - HELP "Somme non soggette a ritenute" - FIELD LF_BASEBIS->E0SNSRIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_E0CRIMPRAS 15 -BEGIN - PROMPT 41 3 "Cred.imp.pre.assun. " - HELP "Credito d'imposta premio d'assunzione" - FIELD LF_BASEBIS->E0CRIMPRAS - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 5 "I18 - Quadro E1" -END - -NUMBER F_E1NFCOM 5 -BEGIN - PROMPT 1 6 "Numero di fogli compilati " - HELP "Numero di fogli compilati" - FIELD LF_BASEBIS->E1NFCOM - FLAGS "R" -END - -NUMBER F_E1NPER 5 -BEGIN - PROMPT 41 6 "Numero percipienti " - HELP "Numero percipienti" - FIELD LF_BASEBIS->E1NPER - FLAGS "R" -END - -NUMBER F_E1SCOR 15 -BEGIN - PROMPT 1 7 "Somme corrisposte " - FIELD LF_BASEBIS->E1SCOR - PICTURE "." - FLAGS "R" -END - -NUMBER F_E1BCOM 15 -BEGIN - PROMPT 41 7 "Base commisurazione " - FIELD LF_BASEBIS->E1BCOM - PICTURE "." - FLAGS "R" -END - -NUMBER F_E1ROPE 15 -BEGIN - PROMPT 1 8 "Ritenute operate " - FIELD LF_BASEBIS->E1ROPE - PICTURE "." - FLAGS "R" -END - -NUMBER F_E1ACOM 15 -BEGIN - PROMPT 41 8 "Ammontare compless. " - HELP "Ammontare complessivo" - FIELD LF_BASEBIS->E1ACOM - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 10 "I19 - Quadro E1" -END - -NUMBER F_E1BCOM2 15 -BEGIN - PROMPT 1 11 "Base commisurazione " - FIELD LF_BASEBIS->E1BCOM2 - PICTURE "." - FLAGS "R" -END - -NUMBER F_E1ROPE2 15 -BEGIN - PROMPT 41 11 "Ritenute operate " - FIELD LF_BASEBIS->E1ROPE2 - PICTURE "." - FLAGS "R" -END - -NUMBER F_E1CRIMPRAS 15 -BEGIN - PROMPT 1 12 "Cred.imp.pre.assun. " - HELP "Credito d'imposta premio d'assunzione" - FIELD LF_BASEBIS->E1CRIMPRAS - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 14 "I20 - Quadro E2" -END - -NUMBER F_E2NFCOM 5 -BEGIN - PROMPT 1 15 "Numero di fogli compilati " - HELP "Numero di fogli compilati" - FIELD LF_BASEBIS->E2NFCOM - FLAGS "R" -END - -NUMBER F_E2NPER 5 -BEGIN - PROMPT 41 15 "Numero Percipienti " - HELP "Numero percipienti" - FIELD LF_BASEBIS->E2NPER - FLAGS "R" -END - -NUMBER F_E2SSRIT 15 -BEGIN - PROMPT 1 16 "Somme sogg. ritenute " - HELP "Somme soggette a ritenute" - FIELD LF_BASEBIS->E2SSRIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_E2ROPE 15 -BEGIN - PROMPT 41 16 "Ritenute operate " - FIELD LF_BASEBIS->E2ROPE - PICTURE "." - FLAGS "R" -END - -NUMBER F_E2CRIMPRAS 15 -BEGIN - PROMPT 1 17 "Cred.imp.pre.assun. " - HELP "Credito d'imposta premio d'assunzione" - FIELD LF_BASEBIS->E2CRIMPRAS - PICTURE "." - FLAGS "R" -END - -ENDPAGE - -PAGE "QUADRO I" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 0 "I21 - Quadro F" -END - -NUMBER F_F0SRITA 15 -BEGIN - PROMPT 1 1 "Som.sog.rit.(pros.A)" - HELP "Somme soggette a ritenute (prospetto A)" - FIELD LF_BASEBIS->F0SRITA - PICTURE "." - FLAGS "R" -END - -NUMBER F_F0ROPEA 15 -BEGIN - PROMPT 41 1 "Rit.operate(pros.A) " - HELP "Ritenute operate (prospetto A)" - FIELD LF_BASEBIS->F0ROPEA - PICTURE "." - FLAGS "R" -END - -NUMBER F_F0TACCA 15 -BEGIN - PROMPT 1 2 "Tot.acconti (pros.A)" - HELP "Totale acconti (prospetto A)" - FIELD LF_BASEBIS->F0TACCA - PICTURE "." - FLAGS "R" -END - -NUMBER F_F0EDACCA 15 -BEGIN - PROMPT 41 2 "Ecc.dim.acc.(pros.A)" - HELP "Eccedenza in diminuzione degli acconti (prospetto A)" - FIELD LF_BASEBIS->F0EDACCA - PICTURE "." - FLAGS "R" -END - -NUMBER F_F0ERIMA 15 -BEGIN - PROMPT 1 3 "Ecc. rimbor.(pros.A)" - HELP "Eccedenza a rimborso (prospetto A)" - FIELD LF_BASEBIS->F0ERIMA - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 5 "I22 - Quadro F" -END - -NUMBER F_F0SSVA 15 -BEGIN - PROMPT 1 6 "Somme sog.VA(pros.A)" - HELP "Riepilogo F: somme soggette VA" - FIELD LF_BASEBIS->F0SSVA - PICTURE "." - FLAGS "R" -END - -NUMBER F_F0ROPEVA 15 -BEGIN - PROMPT 41 6 "Rit.oper.VA (pros.A)" - HELP "Riepilogo F: ritenute operate VA" - FIELD LF_BASEBIS->F0ROPEVA - PICTURE "." - FLAGS "R" -END - -NUMBER F_F0SSRITBF 15 -BEGIN - PROMPT 1 7 "Som.sogg.rit.(BCDEF)" - HELP "Somme soggette a ritenute (prospetti B,C,D,E,F)" - FIELD LF_BASEBIS->F0SSRITBF - PICTURE "." - FLAGS "R" -END - -NUMBER F_F0ROPEBF 15 -BEGIN - PROMPT 41 7 "Rit.op.(p.B,C,D,E,F)" - HELP "Ritenute operate (prospetti B,C,D,E,F)" - FIELD LF_BASEBIS->F0ROPEBF - PICTURE "." - FLAGS "R" -END - -NUMBER F_F0CRIMPRAS 15 -BEGIN - PROMPT 1 8 "Cred.imp.pre.assun. " - FIELD LF_BASEBIS->F0CRIMPRAS - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 10 "I23 - Quadro F1" -END - -NUMBER F_F1SSRIT 15 -BEGIN - PROMPT 1 11 "Som.sogg.rit.(p.A,B)" - HELP "Riepilogo F-1: Somme soggette a ritenute (prospetti A,B)" - FIELD LF_BASEBIS->F1SSRIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_F1ROPE 15 -BEGIN - PROMPT 41 11 "Riten.operat.(p.A,B)" - HELP "Riepilogo F-1: ritenute operate (prospetti A,B)" - FIELD LF_BASEBIS->F1ROPE - PICTURE "." - FLAGS "R" -END - -NUMBER F_F1CRIMPRAS 15 -BEGIN - PROMPT 1 12 "Cred.imp.pre.assun. " - FIELD LF_BASEBIS->F1CRIMPRAS - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 14 "I24 - Quadro F2" -END - -NUMBER F_F2SSRIT 15 -BEGIN - PROMPT 1 15 "Somme sogg. ritenute" - HELP "Riepilogo F-2: Somme soggette a ritenute" - FIELD LF_BASEBIS->F2SSRIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_F2ROPE 15 -BEGIN - PROMPT 41 15 "Ritenute operate " - FIELD LF_BASEBIS->F2ROPE - PICTURE "." - FLAGS "R" -END - -NUMBER F_F2CRIMPRAS 15 -BEGIN - PROMPT 1 16 "Cred.imp.pre.assun. " - FIELD LF_BASEBIS->F2CRIMPRAS - PICTURE "." - FLAGS "R" -END - -ENDPAGE - -PAGE "QUADRO I" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 0 "I25 - Quadro G" -END - -NUMBER F_G0NFCOM 5 -BEGIN - PROMPT 1 1 "N.fogli " - HELP "Numero di fogli compilati" - FIELD LF_BASEBIS->G0NFCOM - FLAGS "R" -END - -NUMBER F_G0NPER 5 -BEGIN - PROMPT 21 1 "N.percipienti " - HELP "Numero percipienti" - FIELD LF_BASEBIS->G0NPER - FLAGS "R" -END - -NUMBER F_G0USPE 15 -BEGIN - PROMPT 41 1 "Utili spettanti " - FIELD LF_BASEBIS->G0USPE - PICTURE "." - FLAGS "R" -END - -NUMBER F_G0ROPESPET 15 -BEGIN - PROMPT 1 2 "Rit.utili spettanti " - FIELD LF_BASEBIS->G0RITSPET - PICTURE "." - FLAGS "R" -END - -NUMBER F_G0UPAG 15 -BEGIN - PROMPT 41 2 "Utili pagati " - FIELD LF_BASEBIS->G0UPAG - PICTURE "." - FLAGS "R" -END - -NUMBER F_G0ROPE 15 -BEGIN - PROMPT 1 3 "Rit. su utili pagati" - FIELD LF_BASEBIS->G0ROPE - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 5 "I26 - Quadro G" -END - -NUMBER F_G0NAZI1 15 -BEGIN - PROMPT 1 6 "Azioni o quote(pr.1)" - HELP "Numero azioni o quote (prospetto 1)" - FIELD LF_BASEBIS->G0NAZI1 - PICTURE "." - FLAGS "R" -END - -NUMBER F_G0UDEN1 15 -BEGIN - PROMPT 41 6 "Utili denaro (pr.1) " - HELP "Utili in denaro (prospetto 1)" - FIELD LF_BASEBIS->G0UDEN1 - PICTURE "." - FLAGS "R" -END - -NUMBER F_G0UNAT1 15 -BEGIN - PROMPT 1 7 "Utili natura (pr.1) " - HELP "Utili in natura (prospetto 1)" - FIELD LF_BASEBIS->G0UNAT1 - PICTURE "." - FLAGS "R" -END - -NUMBER F_G0IUTI2 15 -BEGIN - PROMPT 41 7 "Importo utili (pr.2)" - FIELD LF_BASEBIS->G0IUTI2 - PICTURE "." - FLAGS "R" -END - -NUMBER F_G0USRIT3 15 -BEGIN - PROMPT 1 8 "Util.sogg.rit.(pr.3)" - HELP "Utili soggetti a ritenute (prospetto 3)" - FIELD LF_BASEBIS->G0USRIT3 - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 10 "I27 - Quadro G" -END - -NUMBER F_G0RACC3 15 -BEGIN - PROMPT 1 11 "Ritenuta acc.(pr.3) " - HELP "Ritenuta di acconto (prospetto A)" - FIELD LF_BASEBIS->G0RACC3 - PICTURE "." - FLAGS "R" -END - -NUMBER F_G0RIMP3 15 -BEGIN - PROMPT 41 11 "Riten. impos.(pr.3) " - HELP "Ritenuta di imposta (prospetto 3)" - FIELD LF_BASEBIS->G0RIMP3 - PICTURE "." - FLAGS "R" -END - -NUMBER F_G0UNSRIT3 15 -BEGIN - PROMPT 1 12 "Ut.non sogg.rit.(p3)" - HELP "Utili non soggetti a ritenute (prospetto 3)" - FIELD LF_BASEBIS->G0UNSRIT3 - PICTURE "." - FLAGS "R" -END - -NUMBER F_G0CRIMPRAS 15 -BEGIN - PROMPT 41 12 "Cred.imp.pre.assun. " - FIELD LF_BASEBIS->G0CRIMPRAS - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 5 -BEGIN - PROMPT 0 14 "I28 - Quadro G1" -END - -NUMBER F_G1UCOR 15 -BEGIN - PROMPT 1 15 "Utili corrisposti " - FIELD LF_BASEBIS->G1UCOR - PICTURE "." - FLAGS "R" -END - -NUMBER F_G1USRIT 15 -BEGIN - PROMPT 41 15 "Utili sogg. ritenute" - HELP "Utili soggetti a ritenute" - FIELD LF_BASEBIS->G1USRIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_G1RACC 15 -BEGIN - PROMPT 1 16 "Ritenute di acconto " - FIELD LF_BASEBIS->G1RACC - PICTURE "." - FLAGS "R" -END - -NUMBER F_G1RIMP 15 -BEGIN - PROMPT 41 16 "Ritenute di imposta " - FIELD LF_BASEBIS->G1RIMP - PICTURE "." - FLAGS "R" -END - -NUMBER F_G1UNSRIT 15 -BEGIN - PROMPT 1 17 "Utili non sogg.rit. " - HELP "Utili non soggetti a ritenute" - FIELD LF_BASEBIS->G1UNSRIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_G1CRIMPRAS 15 -BEGIN - PROMPT 41 17 "Cred.imp.pre.assun. " - FIELD LF_BASEBIS->G1CRIMPRAS - PICTURE "." - FLAGS "R" -END - -ENDPAGE - -PAGE "QUADRO I" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 0 0 "I28 - Quadro H" -END - -NUMBER F_H0CODLAV 15 -BEGIN - PROMPT 1 1 "Cont.obb.car.dat.lav" - HELP "Contributi obbligatori a carico del datore di lavoro" - FIELD LF_BASEBIS->H0CODLAV - PICTURE "." - FLAGS "R" -END - -NUMBER F_H0COLDIP 15 -BEGIN - PROMPT 41 1 "Cont.ob.car.lav.dip." - HELP "Contributi obbligatori a carico del dipendente" - FIELD LF_BASEBIS->H0COLDIP - PICTURE "." - FLAGS "R" -END - -ENDPAGE - -ENDMASK +// Quadro I +#include "771300.h" +TOOLBAR "" 0 20 0 2 +BUTTON DLG_SAVEREC 8 2 +BEGIN +PROMPT -13 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END +BUTTON DLG_CANCEL 8 2 +BEGIN +PROMPT -23 -1 "" +MESSAGE EXIT,K_ESC +END +BUTTON DLG_QUIT 8 2 +BEGIN +PROMPT -33 -1 "" +MESSAGE EXIT,K_QUIT +END +ENDPAGE + +PAGE "QUADRO I" -1 -1 78 18 + +LISTBOX F_TIPOQUA1 12 +BEGIN + PROMPT 90 90 "" + ITEM " |Normale" + ITEM "D|Dichiarante" + FLAGS "D" + KEY 1 + FIELD LF_BASEBIS->CODDIC +// CHECKTYPE REQUIRED +END + +LISTBOX F_TIPOQUA2 12 +BEGIN + PROMPT 90 90 "" +// PROMPT 10 3 "" + ITEM " |Normale" + ITEM "D|Dichiarante" + FLAGS "D" + KEY 1 + FIELD LF_BASE->CODDIC +// CHECKTYPE REQUIRED +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "RG" + USE LF_NDITTE KEY 1 + INPUT CODDITTA F_CODDITTA + OUTPUT F_RAGSOC RAGSOC + CHECKTYPE REQUIRED + FIELD LF_BASE->CODDITTA + KEY 1 + MESSAGE COPY,F_CODDITTAG +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" +END + +NUMBER F_CODDITTAG 5 +BEGIN + PROMPT 45 1 "Ditta " + FLAGS "HR" + FIELD LF_BASEBIS->CODDITTA +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 4 "I1 - Quadro A" +END + +NUMBER F_A0NFCOM 5 +BEGIN + PROMPT 1 5 "N.fogli " + HELP "Numero di fogli compilati" + FIELD LF_BASE->A0NFCOM + FLAGS "R" +END + +NUMBER F_A0NLDIP 5 +BEGIN + PROMPT 21 5 "N.dipendenti " + HELP "Numero complessivo di lavoratori dipendenti" + FIELD LF_BASE->A0NLDIP + FLAGS "R" +END + +NUMBER F_A0COBB 15 +BEGIN + PROMPT 41 5 "Contrib.obbligatori " + HELP "Contributi obbligatori" + FIELD LF_BASE->A0COBB + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0CNET 15 +BEGIN + PROMPT 1 6 "Compensi netti " + HELP "Compensi netti" + FIELD LF_BASE->A0CNET + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0IITRA 15 +BEGIN + PROMPT 41 6 "Ind.trasf.imponibile" + HELP " Imponibile indennita' trasferta" + FIELD LF_BASE->A0IITRA + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0EPREV 15 +BEGIN + PROMPT 1 7 "Assegni enti previd." + HELP "Assegni Enti previdenziali" + FIELD LF_BASE->A0EPREV + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN +// PROMPT 0 8 "I2 - Quadro A" + PROMPT 0 9 "I2 - Quadro A" +END + +NUMBER F_A0CTER 15 +BEGIN + PROMPT 1 10 "Compensi da terzi " + FIELD LF_BASE->A0CTER + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0TIMP 15 +BEGIN + PROMPT 41 10 "Totale imponibile " + FIELD LF_BASE->A0TIMP + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0ILOR 15 +BEGIN + PROMPT 1 11 "Imposta lorda " + FIELD LF_BASE->A0ILOR + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0TDET 15 +BEGIN + PROMPT 41 11 "Totale detrazioni " + FIELD LF_BASE->A0TDET + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0INCDET 15 +BEGIN + PROMPT 1 12 "Increm.detrazioni " + FIELD LF_BASE->A0INCDET + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 14 "I3 - Quadro A" +END + +NUMBER F_A0RTER 15 +BEGIN + PROMPT 1 15 "Ritenute da terzi " + FIELD LF_BASE->A0RTER + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0RDAT 15 +BEGIN + PROMPT 41 15 "Riten.datore lavoro " + HELP "Ritenute datore di lavoro" + FIELD LF_BASE->A0RDAT + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0ERIT 15 +BEGIN + PROMPT 1 16 "Eccedenza ritenute " + FIELD LF_BASE->A0ERIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0CARR 15 +BEGIN + PROMPT 41 16 "Contributi arretrati" + FIELD LF_BASE->A0CARR + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0AARR 15 +BEGIN + PROMPT 1 17 "Ammontare arretrati " + FIELD LF_BASE->A0AARR + PICTURE "." + FLAGS "R" +END + +ENDPAGE + +PAGE "QUADRO I" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 0 "I4 - Quadro A" +END + +NUMBER F_A0DARR 15 +BEGIN + PROMPT 1 1 "Detrazioni arretrati" + FIELD LF_BASE->A0DARR + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0RARR 15 +BEGIN + PROMPT 41 1 "Ritenute arretrati " + FIELD LF_BASE->A0RARR + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0CINPS 15 +BEGIN + PROMPT 1 2 "Comp.fini contr.Inps" + HELP "Compensi ai fini contributivi Inps" + FIELD LF_BASE->A0CINPS + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0RITOPEVA 15 +BEGIN + PROMPT 41 2 "Ritenute operate VA " + HELP "Ritenute operate VA" + FIELD LF_BASE->A0RITOPEVA + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0RITOPESA 15 +BEGIN + PROMPT 1 3 "Ritenute operate SA " + HELP "Ritenute operate SA" + FIELD LF_BASE->A0RITOPESA + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 5 "I5 - Quadro A" +END + +NUMBER F_A0RITSI 15 +BEGIN + PROMPT 1 6 "Ritenute operate SI " + HELP "Ritenute operate SI" + FIELD LF_BASE->A0RITSI + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0CIIAUT 15 +BEGIN + PROMPT 41 6 "Cred.imp.impr.autot." + HELP "Credito di imposta imprese di autotrasporto" + FIELD LF_BASE->A0CIIAUT + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0CRIMPRAS 15 +BEGIN + PROMPT 1 7 "Cred.imp.pre.assun. " + HELP "Credito di imposta premio di assunzione" + FIELD LF_BASE->A0CRIMPRAS + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0CRIMPL85 15 +BEGIN + PROMPT 41 7 "Cred.imp.ex L.85/95 " + HELP "Credito di imposta ex L.85/95" + FIELD LF_BASE->A0CRIMP85 + PICTURE "." + FLAGS "R" +END + +NUMBER F_A0NADLAV 5 +BEGIN + PROMPT 1 8 "Num.assis.dat.lavoro" + HELP "Numero assistiti dal datore di lavoro" + FIELD LF_BASE->A0NADLAV + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 0 10 "I6 - Quadro A" +END + +NUMBER F_A0NACAAF 5 +BEGIN + PROMPT 1 11 "Num.assis. C.A.A.F. " + HELP "Numero assistiti dal C.A.A.F." + FIELD LF_BASE->A0NACAAF + FLAGS "R" +END + + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 13 "I7 - Quadro A-3" +END + +NUMBER F_A3NFCOM 5 +BEGIN + PROMPT 1 14 "Num.fogli compilati " + HELP "Numero di fogli compilati" + FIELD LF_BASE->A3NFCOM + FLAGS "R" +END + +NUMBER F_A3NUMPER 5 +BEGIN + PROMPT 41 14 "Numero percipienti " + HELP "Numero di percipienti" + FIELD LF_BASE->A3NUMPER + FLAGS "R" +END + +NUMBER F_A3REPT10 15 +BEGIN + PROMPT 1 15 "Redd.corr.(p.to 10) " + HELP "Reddito corrisposto (punto 10)" + FIELD LF_BASE->A3REPT10 + PICTURE "." + FLAGS "R" +END + +NUMBER F_A3REPT12 15 +BEGIN + PROMPT 41 15 "Redd.corr.(p.to 12) " + HELP "Reddito corrisposto (punto 12)" + FIELD LF_BASE->A3REPT12 + PICTURE "." + FLAGS "R" +END + +ENDPAGE + +PAGE "QUADRO I" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 0 "I8 - Quadro B" +END + +NUMBER F_B0NFCOM 5 +BEGIN + PROMPT 1 1 "N.fogli " + HELP "Numero di fogli compilati" + FIELD LF_BASE->B0NFCOM + FLAGS "R" +END + +NUMBER F_B0NLDIP 5 +BEGIN + PROMPT 21 1 "N.dipendenti " + HELP "Numero complessivo di lavoratori dipendenti" + FIELD LF_BASE->B0NLDIP + FLAGS "R" +END + +NUMBER F_B0TFR93 15 +BEGIN + PROMPT 41 1 "T.F.R.corrisposto 95" + HELP "T.F.R. corrisposto nel 1995" + FIELD LF_BASE->B0TFR93 + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0AI 15 +BEGIN + PROMPT 1 2 "Altre indennità 95 " + HELP "Altre indennita nel 1995" + FIELD LF_BASE->B0AI + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0COLAV 15 +BEGIN + PROMPT 41 2 "Cont.obb.caric.lav. " + HELP "Contributi obbligatori a carico del lavoratore" + FIELD LF_BASE->B0COLAV + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0TFR7492 15 +BEGIN + PROMPT 1 3 "T.F.R. erogato 74-94" + HELP "T.F.R. erogato dal 1974 al 1994" + FIELD LF_BASE->B0TFR7492 + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 5 "I9 - Quadro B" +END + +NUMBER F_B0AI7492 15 +BEGIN + PROMPT 1 6 "Altr.ind.erog. 74-94" + HELP "Altre indennita erogate dal 1974 al 1994" + FIELD LF_BASE->B0AI7492 + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0IMP 15 +BEGIN + PROMPT 41 6 "Imponibile dell'anno" + FIELD LF_BASE->B0IMP + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0TIMP 15 +BEGIN + PROMPT 1 7 "Totale imponibile " + FIELD LF_BASE->B0TIMP + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0ROP 15 +BEGIN + PROMPT 41 7 "Ritenute operate " + FIELD LF_BASE->B0ROP + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0AIINPS 15 +BEGIN + PROMPT 1 8 "Alt.ind.fin.con.Inps" + HELP "Altre indennita ai fini contributivi Inps" + FIELD LF_BASE->B0AIINPS + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 10 "I10 - Quadro B" +END + +NUMBER F_B0ROPESA 15 +BEGIN + PROMPT 1 11 "Ritenute operate SA " + FIELD LF_BASE->B0ROPESA + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0RITSI 15 +BEGIN + PROMPT 41 11 "Ritenute operate SI " + FIELD LF_BASE->B0RITSI + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0CIIAUT 15 +BEGIN + PROMPT 1 12 "Cred.imp.impr.autot." + HELP "Credito di imposta imprese di autotrasporto" + FIELD LF_BASE->B0CIIAUT + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0CRIMPRAS 15 +BEGIN + PROMPT 41 12 "Cred.imp.pre.assun. " + FIELD LF_BASE->B0CRIMPRAS + PICTURE "." + FLAGS "R" +END + +NUMBER F_B0CRIMPL85 15 +BEGIN + PROMPT 1 13 "Cred.imp.ex L.85/95 " + FIELD LF_BASE->B0CRIMP85 + PICTURE "." + FLAGS "R" +END + +ENDPAGE + +PAGE "QUADRO I" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 0 "I11 - Quadro B-1" +END + +NUMBER F_B1NFCOM 5 +BEGIN + PROMPT 1 1 "Numero di fogli compilati " + HELP "Numero di fogli compilati" + FIELD LF_BASE->B1NFCOM + FLAGS "R" +END + +NUMBER F_B1NPER 5 +BEGIN + PROMPT 41 1 "Numero percipienti " + HELP "Numero percipienti" + FIELD LF_BASE->B1NPER + FLAGS "R" +END + +NUMBER F_B1TIND 15 +BEGIN + PROMPT 1 2 "Totale indennità " + HELP "Totale indennita" + FIELD LF_BASE->B1TIND + PICTURE "." + FLAGS "R" +END + +NUMBER F_B1TIRM 15 +BEGIN + PROMPT 41 2 "Totale imponib. r.m." + HELP "Totale imponibile r.m." + FIELD LF_BASE->B1TIRM + PICTURE "." + FLAGS "R" +END + +NUMBER F_B1TICOM 15 +BEGIN + PROMPT 1 3 "Tot.imp.complessivo " + HELP "Totale imponibile complessivo" + FIELD LF_BASE->B1TICOM + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 5 "I12 - Quadro C" +END + +NUMBER F_C0NFCOM 5 +BEGIN + PROMPT 1 6 "Numero di fogli compilati " + HELP "Numero di fogli compilati" + FIELD LF_BASE->C0NFCOM + FLAGS "R" +END + +NUMBER F_C0NLASS 5 +BEGIN + PROMPT 41 6 "Numero percipienti " + HELP "Numero lavoratori assimilati" + FIELD LF_BASE->C0NLASS + FLAGS "R" +END + +NUMBER F_C0ACTOT 15 +BEGIN + PROMPT 1 7 "Ammont.corris.totale" + HELP "Ammontare corrisposto totale" + FIELD LF_BASE->C0ACTOT + PICTURE "." + FLAGS "R" +END + +NUMBER F_C0CONTSSN 15 +BEGIN + PROMPT 41 7 "Contributi S.S.N. " + HELP "Contributo S.S.N." + FIELD LF_BASE->C0CONTSSN + PICTURE "." + FLAGS "R" +END + +NUMBER F_C0SNSRIT 15 +BEGIN + PROMPT 1 8 "Somme non sogg.rit. " + HELP "Somme non soggette a ritenute" + FIELD LF_BASE->C0SNSRIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_C0ROPE 15 +BEGIN + PROMPT 41 8 "Ritenute operate " + FIELD LF_BASE->C0ROPE + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 10 "I13 - Quadro C" +END + +NUMBER F_C0CIIAUT 15 +BEGIN + PROMPT 1 11 "Cred.imp.impr.autot." + HELP "Credito di imposta imprese di autotrasporto" + FIELD LF_BASE->C0CIIAUT + PICTURE "." + FLAGS "R" +END + +NUMBER F_C0CRIMPRAS 15 +BEGIN + PROMPT 41 11 "Cred.imp.pre.assun. " + HELP "Credito d'imposta premio d'assunzione" + FIELD LF_BASE->C0CRIMPRAS + PICTURE "." + FLAGS "R" +END + +ENDPAGE + +PAGE "QUADRO I" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 0 "I14 - Quadro D" +END + +NUMBER F_D0NFCOM 5 +BEGIN + PROMPT 1 1 "Numero di fogli compilati " + HELP "Numero di fogli compilati" + FIELD LF_BASE->D0NFCOM + FLAGS "R" +END + +NUMBER F_D0NLAUT 5 +BEGIN + PROMPT 41 1 "Numero percipienti " + HELP "Numero percipienti" + FIELD LF_BASE->D0NLAUT + FLAGS "R" +END + +NUMBER F_D0ACTOT 15 +BEGIN + PROMPT 1 2 "Ammon.corris.totale " + HELP "Ammontare corrisposto totale" + FIELD LF_BASE->D0ACTOT + PICTURE "." + FLAGS "R" +END + +NUMBER F_D0SNSRIT 15 +BEGIN + PROMPT 41 2 "Somme non sogg.rit. " + HELP "Somme non soggette a ritenute" + FIELD LF_BASE->D0SNSRIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_D0ROPE 15 +BEGIN + PROMPT 1 3 "Ritenute operate " + FIELD LF_BASE->D0ROPE + PICTURE "." + FLAGS "R" +END + +NUMBER F_D0CIIAUT 15 +BEGIN + PROMPT 41 3 "Cred.imp.impr.autot." + HELP "Credito di imposta imprese di autotrasporto" + FIELD LF_BASE->D0CIIAUT + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 0 5 "I15 - Quadro D" +END + +NUMBER F_D0CRIMPRAS 15 +BEGIN + PROMPT 1 6 "Cred.imp.pre.assun. " + HELP "Credito d'imposta premio d'assunzione" + FIELD LF_BASE->D0CRIMPRAS + PICTURE "." + FLAGS "R" +END + +NUMBER F_D0CRIMPL85 15 +BEGIN + PROMPT 41 6 "Cred.imp.ex L.85/95 " + HELP "Credito d'imposta ex L.85/95" + FIELD LF_BASE->D0CRIMP85 + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 8 "I16 - Quadro D1" +END + +NUMBER F_D1NFCOM 5 +BEGIN + PROMPT 1 9 "Numero di fogli compilati " + HELP "Numero di fogli compilati" + FIELD LF_BASE->D1NFCOM + FLAGS "R" +END + +NUMBER F_D1NPER 5 +BEGIN + PROMPT 41 9 "Numero percipienti " + HELP "Numero percipienti" + FIELD LF_BASE->D1NPER + FLAGS "R" +END + +NUMBER F_D1TACOR 15 +BEGIN + PROMPT 1 10 "Ammon.corris.totale " + HELP "Ammontare corrisposto totale" + FIELD LF_BASE->D1TACOR + PICTURE "." + FLAGS "R" +END + +NUMBER F_D1SNSRIT 15 +BEGIN + PROMPT 41 10 "Somme non sogg.rit. " + HELP "Somme non soggette a ritenute" + FIELD LF_BASE->D1SNSRIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_D1ROPE 15 +BEGIN + PROMPT 1 11 "Ritenute operate " + FIELD LF_BASE->D1ROPE + PICTURE "." + FLAGS "R" +END + +NUMBER F_D1CRIMPRAS 15 +BEGIN + PROMPT 41 11 "Cred.imp.pre.assun. " + FIELD LF_BASE->D1CRIMPRAS + PICTURE "." + FLAGS "R" +END + +ENDPAGE + +PAGE "QUADRO I" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 0 "I17 - Quadro E" +END + +NUMBER F_E0NFCOM 5 +BEGIN + PROMPT 1 1 "Numero di fogli compilati " + HELP "Numero di fogli compilati" + FIELD LF_BASEBIS->E0NFCOM + FLAGS "R" +END + +NUMBER F_E0NPER 5 +BEGIN + PROMPT 41 1 "Numero percipienti " + HELP "Numero percipienti" + FIELD LF_BASEBIS->E0NPER + FLAGS "R" +END + +NUMBER F_E0AIMP 15 +BEGIN + PROMPT 1 2 "Ammontare imponibile" + FIELD LF_BASEBIS->E0AIMP + PICTURE "." + FLAGS "R" +END + +NUMBER F_E0ROPE 15 +BEGIN + PROMPT 41 2 "Ritenute operate " + FIELD LF_BASEBIS->E0ROPE + PICTURE "." + FLAGS "R" +END + +NUMBER F_E0SNSRIT 15 +BEGIN + PROMPT 1 3 "Somme non sogg.rit. " + HELP "Somme non soggette a ritenute" + FIELD LF_BASEBIS->E0SNSRIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_E0CRIMPRAS 15 +BEGIN + PROMPT 41 3 "Cred.imp.pre.assun. " + HELP "Credito d'imposta premio d'assunzione" + FIELD LF_BASEBIS->E0CRIMPRAS + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 5 "I18 - Quadro E1" +END + +NUMBER F_E1NFCOM 5 +BEGIN + PROMPT 1 6 "Numero di fogli compilati " + HELP "Numero di fogli compilati" + FIELD LF_BASEBIS->E1NFCOM + FLAGS "R" +END + +NUMBER F_E1NPER 5 +BEGIN + PROMPT 41 6 "Numero percipienti " + HELP "Numero percipienti" + FIELD LF_BASEBIS->E1NPER + FLAGS "R" +END + +NUMBER F_E1SCOR 15 +BEGIN + PROMPT 1 7 "Somme corrisposte " + FIELD LF_BASEBIS->E1SCOR + PICTURE "." + FLAGS "R" +END + +NUMBER F_E1BCOM 15 +BEGIN + PROMPT 41 7 "Base commisurazione " + FIELD LF_BASEBIS->E1BCOM + PICTURE "." + FLAGS "R" +END + +NUMBER F_E1ROPE 15 +BEGIN + PROMPT 1 8 "Ritenute operate " + FIELD LF_BASEBIS->E1ROPE + PICTURE "." + FLAGS "R" +END + +NUMBER F_E1ACOM 15 +BEGIN + PROMPT 41 8 "Ammontare compless. " + HELP "Ammontare complessivo" + FIELD LF_BASEBIS->E1ACOM + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 10 "I19 - Quadro E1" +END + +NUMBER F_E1BCOM2 15 +BEGIN + PROMPT 1 11 "Base commisurazione " + FIELD LF_BASEBIS->E1BCOM2 + PICTURE "." + FLAGS "R" +END + +NUMBER F_E1ROPE2 15 +BEGIN + PROMPT 41 11 "Ritenute operate " + FIELD LF_BASEBIS->E1ROPE2 + PICTURE "." + FLAGS "R" +END + +NUMBER F_E1CRIMPRAS 15 +BEGIN + PROMPT 1 12 "Cred.imp.pre.assun. " + HELP "Credito d'imposta premio d'assunzione" + FIELD LF_BASEBIS->E1CRIMPRAS + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 14 "I20 - Quadro E2" +END + +NUMBER F_E2NFCOM 5 +BEGIN + PROMPT 1 15 "Numero di fogli compilati " + HELP "Numero di fogli compilati" + FIELD LF_BASEBIS->E2NFCOM + FLAGS "R" +END + +NUMBER F_E2NPER 5 +BEGIN + PROMPT 41 15 "Numero Percipienti " + HELP "Numero percipienti" + FIELD LF_BASEBIS->E2NPER + FLAGS "R" +END + +NUMBER F_E2SSRIT 15 +BEGIN + PROMPT 1 16 "Somme sogg. ritenute " + HELP "Somme soggette a ritenute" + FIELD LF_BASEBIS->E2SSRIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_E2ROPE 15 +BEGIN + PROMPT 41 16 "Ritenute operate " + FIELD LF_BASEBIS->E2ROPE + PICTURE "." + FLAGS "R" +END + +NUMBER F_E2CRIMPRAS 15 +BEGIN + PROMPT 1 17 "Cred.imp.pre.assun. " + HELP "Credito d'imposta premio d'assunzione" + FIELD LF_BASEBIS->E2CRIMPRAS + PICTURE "." + FLAGS "R" +END + +ENDPAGE + +PAGE "QUADRO I" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 0 "I21 - Quadro F" +END + +NUMBER F_F0SRITA 15 +BEGIN + PROMPT 1 1 "Som.sog.rit.(pros.A)" + HELP "Somme soggette a ritenute (prospetto A)" + FIELD LF_BASEBIS->F0SRITA + PICTURE "." + FLAGS "R" +END + +NUMBER F_F0ROPEA 15 +BEGIN + PROMPT 41 1 "Rit.operate(pros.A) " + HELP "Ritenute operate (prospetto A)" + FIELD LF_BASEBIS->F0ROPEA + PICTURE "." + FLAGS "R" +END + +NUMBER F_F0TACCA 15 +BEGIN + PROMPT 1 2 "Tot.acconti (pros.A)" + HELP "Totale acconti (prospetto A)" + FIELD LF_BASEBIS->F0TACCA + PICTURE "." + FLAGS "R" +END + +NUMBER F_F0EDACCA 15 +BEGIN + PROMPT 41 2 "Ecc.dim.acc.(pros.A)" + HELP "Eccedenza in diminuzione degli acconti (prospetto A)" + FIELD LF_BASEBIS->F0EDACCA + PICTURE "." + FLAGS "R" +END + +NUMBER F_F0ERIMA 15 +BEGIN + PROMPT 1 3 "Ecc. rimbor.(pros.A)" + HELP "Eccedenza a rimborso (prospetto A)" + FIELD LF_BASEBIS->F0ERIMA + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 5 "I22 - Quadro F" +END + +NUMBER F_F0SSVA 15 +BEGIN + PROMPT 1 6 "Somme sog.VA(pros.A)" + HELP "Riepilogo F: somme soggette VA" + FIELD LF_BASEBIS->F0SSVA + PICTURE "." + FLAGS "R" +END + +NUMBER F_F0ROPEVA 15 +BEGIN + PROMPT 41 6 "Rit.oper.VA (pros.A)" + HELP "Riepilogo F: ritenute operate VA" + FIELD LF_BASEBIS->F0ROPEVA + PICTURE "." + FLAGS "R" +END + +NUMBER F_F0SSRITBF 15 +BEGIN + PROMPT 1 7 "Som.sogg.rit.(BCDEF)" + HELP "Somme soggette a ritenute (prospetti B,C,D,E,F)" + FIELD LF_BASEBIS->F0SSRITBF + PICTURE "." + FLAGS "R" +END + +NUMBER F_F0ROPEBF 15 +BEGIN + PROMPT 41 7 "Rit.op.(p.B,C,D,E,F)" + HELP "Ritenute operate (prospetti B,C,D,E,F)" + FIELD LF_BASEBIS->F0ROPEBF + PICTURE "." + FLAGS "R" +END + +NUMBER F_F0CRIMPRAS 15 +BEGIN + PROMPT 1 8 "Cred.imp.pre.assun. " + FIELD LF_BASEBIS->F0CRIMPRAS + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 10 "I23 - Quadro F1" +END + +NUMBER F_F1SSRIT 15 +BEGIN + PROMPT 1 11 "Som.sogg.rit.(p.A,B)" + HELP "Riepilogo F-1: Somme soggette a ritenute (prospetti A,B)" + FIELD LF_BASEBIS->F1SSRIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_F1ROPE 15 +BEGIN + PROMPT 41 11 "Riten.operat.(p.A,B)" + HELP "Riepilogo F-1: ritenute operate (prospetti A,B)" + FIELD LF_BASEBIS->F1ROPE + PICTURE "." + FLAGS "R" +END + +NUMBER F_F1CRIMPRAS 15 +BEGIN + PROMPT 1 12 "Cred.imp.pre.assun. " + FIELD LF_BASEBIS->F1CRIMPRAS + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 14 "I24 - Quadro F2" +END + +NUMBER F_F2SSRIT 15 +BEGIN + PROMPT 1 15 "Somme sogg. ritenute" + HELP "Riepilogo F-2: Somme soggette a ritenute" + FIELD LF_BASEBIS->F2SSRIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_F2ROPE 15 +BEGIN + PROMPT 41 15 "Ritenute operate " + FIELD LF_BASEBIS->F2ROPE + PICTURE "." + FLAGS "R" +END + +NUMBER F_F2CRIMPRAS 15 +BEGIN + PROMPT 1 16 "Cred.imp.pre.assun. " + FIELD LF_BASEBIS->F2CRIMPRAS + PICTURE "." + FLAGS "R" +END + +ENDPAGE + +PAGE "QUADRO I" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 0 "I25 - Quadro G" +END + +NUMBER F_G0NFCOM 5 +BEGIN + PROMPT 1 1 "N.fogli " + HELP "Numero di fogli compilati" + FIELD LF_BASEBIS->G0NFCOM + FLAGS "R" +END + +NUMBER F_G0NPER 5 +BEGIN + PROMPT 21 1 "N.percipienti " + HELP "Numero percipienti" + FIELD LF_BASEBIS->G0NPER + FLAGS "R" +END + +NUMBER F_G0USPE 15 +BEGIN + PROMPT 41 1 "Utili spettanti " + FIELD LF_BASEBIS->G0USPE + PICTURE "." + FLAGS "R" +END + +NUMBER F_G0ROPESPET 15 +BEGIN + PROMPT 1 2 "Rit.utili spettanti " + FIELD LF_BASEBIS->G0RITSPET + PICTURE "." + FLAGS "R" +END + +NUMBER F_G0UPAG 15 +BEGIN + PROMPT 41 2 "Utili pagati " + FIELD LF_BASEBIS->G0UPAG + PICTURE "." + FLAGS "R" +END + +NUMBER F_G0ROPE 15 +BEGIN + PROMPT 1 3 "Rit. su utili pagati" + FIELD LF_BASEBIS->G0ROPE + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 5 "I26 - Quadro G" +END + +NUMBER F_G0NAZI1 15 +BEGIN + PROMPT 1 6 "Azioni o quote(pr.1)" + HELP "Numero azioni o quote (prospetto 1)" + FIELD LF_BASEBIS->G0NAZI1 + PICTURE "." + FLAGS "R" +END + +NUMBER F_G0UDEN1 15 +BEGIN + PROMPT 41 6 "Utili denaro (pr.1) " + HELP "Utili in denaro (prospetto 1)" + FIELD LF_BASEBIS->G0UDEN1 + PICTURE "." + FLAGS "R" +END + +NUMBER F_G0UNAT1 15 +BEGIN + PROMPT 1 7 "Utili natura (pr.1) " + HELP "Utili in natura (prospetto 1)" + FIELD LF_BASEBIS->G0UNAT1 + PICTURE "." + FLAGS "R" +END + +NUMBER F_G0IUTI2 15 +BEGIN + PROMPT 41 7 "Importo utili (pr.2)" + FIELD LF_BASEBIS->G0IUTI2 + PICTURE "." + FLAGS "R" +END + +NUMBER F_G0USRIT3 15 +BEGIN + PROMPT 1 8 "Util.sogg.rit.(pr.3)" + HELP "Utili soggetti a ritenute (prospetto 3)" + FIELD LF_BASEBIS->G0USRIT3 + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 10 "I27 - Quadro G" +END + +NUMBER F_G0RACC3 15 +BEGIN + PROMPT 1 11 "Ritenuta acc.(pr.3) " + HELP "Ritenuta di acconto (prospetto A)" + FIELD LF_BASEBIS->G0RACC3 + PICTURE "." + FLAGS "R" +END + +NUMBER F_G0RIMP3 15 +BEGIN + PROMPT 41 11 "Riten. impos.(pr.3) " + HELP "Ritenuta di imposta (prospetto 3)" + FIELD LF_BASEBIS->G0RIMP3 + PICTURE "." + FLAGS "R" +END + +NUMBER F_G0UNSRIT3 15 +BEGIN + PROMPT 1 12 "Ut.non sogg.rit.(p3)" + HELP "Utili non soggetti a ritenute (prospetto 3)" + FIELD LF_BASEBIS->G0UNSRIT3 + PICTURE "." + FLAGS "R" +END + +NUMBER F_G0CRIMPRAS 15 +BEGIN + PROMPT 41 12 "Cred.imp.pre.assun. " + FIELD LF_BASEBIS->G0CRIMPRAS + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 0 14 "I28 - Quadro G1" +END + +NUMBER F_G1UCOR 15 +BEGIN + PROMPT 1 15 "Utili corrisposti " + FIELD LF_BASEBIS->G1UCOR + PICTURE "." + FLAGS "R" +END + +NUMBER F_G1USRIT 15 +BEGIN + PROMPT 41 15 "Utili sogg. ritenute" + HELP "Utili soggetti a ritenute" + FIELD LF_BASEBIS->G1USRIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_G1RACC 15 +BEGIN + PROMPT 1 16 "Ritenute di acconto " + FIELD LF_BASEBIS->G1RACC + PICTURE "." + FLAGS "R" +END + +NUMBER F_G1RIMP 15 +BEGIN + PROMPT 41 16 "Ritenute di imposta " + FIELD LF_BASEBIS->G1RIMP + PICTURE "." + FLAGS "R" +END + +NUMBER F_G1UNSRIT 15 +BEGIN + PROMPT 1 17 "Utili non sogg.rit. " + HELP "Utili non soggetti a ritenute" + FIELD LF_BASEBIS->G1UNSRIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_G1CRIMPRAS 15 +BEGIN + PROMPT 41 17 "Cred.imp.pre.assun. " + FIELD LF_BASEBIS->G1CRIMPRAS + PICTURE "." + FLAGS "R" +END + +ENDPAGE + +PAGE "QUADRO I" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 0 0 "I28 - Quadro H" +END + +NUMBER F_H0CODLAV 15 +BEGIN + PROMPT 1 1 "Cont.obb.car.dat.lav" + HELP "Contributi obbligatori a carico del datore di lavoro" + FIELD LF_BASEBIS->H0CODLAV + PICTURE "." + FLAGS "R" +END + +NUMBER F_H0COLDIP 15 +BEGIN + PROMPT 41 1 "Cont.ob.car.lav.dip." + HELP "Contributi obbligatori a carico del dipendente" + FIELD LF_BASEBIS->H0COLDIP + PICTURE "." + FLAGS "R" +END + +ENDPAGE + +ENDMASK diff --git a/m770/771400a.uml b/m770/771400a.uml index bd338683d..c00c00e4b 100755 --- a/m770/771400a.uml +++ b/m770/771400a.uml @@ -1,525 +1,525 @@ -// Versione senza FIELD -#include "771300.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -15 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -45 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -55 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Prospetto dati generali" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 2 1 "Ditta " - FLAGS "DGR" - USE LF_NDITTE KEY 1 - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale @50" RAGSOC - OUTPUT F_RAGSOC RAGSOC - MESSAGE COPY,1@ - FIELD LF_BASEBIS->CODDITTA - CHECKTYPE REQUIRED - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - MESSAGE COPY,2@ -END - -LISTBOX F_TIPOQUA 12 -BEGIN - PROMPT 90 90 "" - ITEM " |Normale" - ITEM "D|Dichiarante" - FLAGS "D" - KEY 1 - FIELD LF_BASEBIS->TIPOQUA -END - - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 4 "Dati relativi al conguaglio di fine anno effettuato dai datori di lavoro" -END - -NUMBER F_M1 15 -BEGIN - PROMPT 1 5 "M1 Eccedenza di ritenute di fine 1994 compensata nel 1995 " - FIELD LF_BASEBIS->ECCRIT12 - PICTURE "." - FLAGS "R" -END - -NUMBER F_M2 15 -BEGIN - PROMPT 1 6 "M2 Eccedenza di ritenute fine 1995 da compensare nel 1996 " - FIELD LF_BASEBIS->ECCRIT23 - PICTURE "." - FLAGS "R" -END - -GROUPBOX DLG_NULL 78 6 -BEGIN - PROMPT 0 8 "Prospetto riservato ai sostituti non tenuti a presentare la dichiarazione" -END - -NUMBER F_M3 15 -BEGIN - PROMPT 1 9 "M3 Credito di imposta ex D.L.357/94 spettante " - FIELD LF_BASEBIS->CRIMPDL - PICTURE "." - FLAGS "R" -END - -NUMBER F_M4 15 -BEGIN - PROMPT 1 10 "M4 Credito di imposta utilizzato ai fini IVA " - FIELD LF_BASEBIS->CRIMPIVA - PICTURE "." - FLAGS "R" - -END - -NUMBER F_M5 15 -BEGIN - PROMPT 1 11 "M5 Credito imposta utilizzato per versamento ritenute " - FIELD LF_BASEBIS->CRIMPRIT - PICTURE "." - FLAGS "R" -END - -NUMBER F_M6 15 -BEGIN - PROMPT 1 12 "M6 Credito di imposta residuo " - FIELD LF_BASEBIS->CRIMPRES - PICTURE "." - FLAGS "D" -END - -ENDPAGE - -PAGE "Prospetto dati generali" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER DLG_NULL 5 -BEGIN - PROMPT 2 1 "Ditta " - FLAGS "RDG" - GROUP 1 -END - -STRING DLG_NULL 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -GROUPBOX DLG_NULL 78 15 -BEGIN - PROMPT 0 3 "" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 4 "Il sottoscritto dichiara di aver corrisposto a dipendenti e terzi nell'anno" -END - -NUMBER F_ANNODIC 4 -BEGIN - PROMPT 1 5 "" - FLAGS "RD" -END - -TEXT DLG_NULL -BEGIN - PROMPT 7 5 "le somme e i valori e di aver effettuato le ritenute indicate" -END - -TEXT DLG_NULL -BEGIN - PROMPT 7 6 "nei quadri:" -END - -#define RA 8 -#define RB 9 -#define RC0 11 -#define RC1 12 -#define RD 13 - -BOOLEAN F_QCOMPA -BEGIN - PROMPT 2 RA "A" -END - -BOOLEAN F_QCOMPA3 -BEGIN - PROMPT 8 RA "A3" -END - -BOOLEAN F_QCOMPB -BEGIN - PROMPT 14 RA "B" -END - -BOOLEAN F_QCOMPB1 -BEGIN - PROMPT 20 RA "B1" -END - -BOOLEAN F_QCOMPC -BEGIN - PROMPT 26 RA "C" -END - -BOOLEAN F_QCOMPD -BEGIN - PROMPT 32 RA "D" -END - -BOOLEAN F_QCOMPD1 -BEGIN - PROMPT 38 RA "D1" -END - -BOOLEAN F_QCOMPE -BEGIN - PROMPT 44 RA "E" -END - -BOOLEAN F_QCOMPE1 -BEGIN - PROMPT 50 RA "E1" -END - -BOOLEAN F_QCOMPE2 -BEGIN - PROMPT 56 RA "E2" -END - -BOOLEAN F_QCOMPF -BEGIN - PROMPT 62 RA "F" -END - -BOOLEAN F_QCOMPF1 -BEGIN - PROMPT 68 RA "F1" -END - -BOOLEAN F_QCOMPF2 -BEGIN - PROMPT 2 RB "F2" -END - -BOOLEAN F_QCOMPG -BEGIN - PROMPT 8 RB "G" -END - -BOOLEAN F_QCOMPG1 -BEGIN - PROMPT 14 RB "G1" -END - -BOOLEAN F_QCOMPH -BEGIN - PROMPT 20 RB "H" -END - -BOOLEAN F_QCOMPI -BEGIN - PROMPT 26 RB "I" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 RC0 "Inoltre dichiara di aver effettuato i conguagli conseguenti all'assistenza" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 RC1 "fiscale indicati nel quadro A e nei quadri" -END - -BOOLEAN F_QCOMPA1 -BEGIN - PROMPT 2 RD "A1" -END - -BOOLEAN F_QCOMPA2 -BEGIN - PROMPT 8 RD "A2" -END - -BOOLEAN F_QCOMPN -BEGIN - PROMPT 14 RD "N" -END - -BOOLEAN F_QCOMPP -BEGIN - PROMPT 20 RD "P" -END - -BOOLEAN F_QCOMPQ -BEGIN - PROMPT 26 RD "Q" -END - -BOOLEAN F_QCOMPR -BEGIN - PROMPT 32 RD "R" -END - -BOOLEAN F_QCOMPS -BEGIN - PROMPT 38 RD "S" -END - -BOOLEAN F_QCOMPT -BEGIN - PROMPT 44 RD "T" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 15 "Dichiara altresì di aver eseguito i versamenti risultanti dai quadri L,P,Q," -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 16 "S,T e da n. " -END - -NUMBER F_H0NQLAGG 4 -BEGIN - PROMPT 13 16 "" - FIELD LF_BASEBIS->H0NQLAGG - FLAGS "R" - //FLAGS "D" -END - -TEXT DLG_NULL -BEGIN - PROMPT 19 16 "quadri aggiuntivi." -END - -ENDPAGE - -PAGE "Prospetto dati generali" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER DLG_NULL 5 -BEGIN - PROMPT 2 1 "Ditta " - FLAGS "RDG" - GROUP 1 -END - -STRING DLG_NULL 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -GROUPBOX DLG_NULL 78 10 -BEGIN - PROMPT 0 3 "" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 4 "Il sottoscritto dichiara di aver presentato i quadri" -END - -BOOLEAN F_QSUPPA -BEGIN - PROMPT 2 6 "A" -END - -BOOLEAN F_QSUPPA1 -BEGIN - PROMPT 8 6 "A1" -END - -BOOLEAN F_QSUPPA2 -BEGIN - PROMPT 14 6 "A2" -END - -BOOLEAN F_QSUPPA3 -BEGIN - PROMPT 20 6 "A3" -END - -BOOLEAN F_QSUPPB -BEGIN - PROMPT 26 6 "B" -END - -BOOLEAN F_QSUPPB1 -BEGIN - PROMPT 32 6 "B1" -END - -BOOLEAN F_QSUPPC -BEGIN - PROMPT 38 6 "C" -END - -BOOLEAN F_QSUPPD -BEGIN - PROMPT 44 6 "D" -END - -BOOLEAN F_QSUPPD1 -BEGIN - PROMPT 50 6 "D1" -END - -BOOLEAN F_QSUPPE -BEGIN - PROMPT 56 6 "E" -END - -BOOLEAN F_QSUPPE1 -BEGIN - PROMPT 62 6 "E1" -END - -BOOLEAN F_QSUPPE2 -BEGIN - PROMPT 68 6 "E2" -END - -BOOLEAN F_QSUPPF -BEGIN - PROMPT 2 7 "F" -END - -BOOLEAN F_QSUPPF1 -BEGIN - PROMPT 8 7 "F1" -END - -BOOLEAN F_QSUPPF2 -BEGIN - PROMPT 14 7 "F2" -END - -BOOLEAN F_QSUPPG -BEGIN - PROMPT 20 7 "G" -END - -BOOLEAN F_QSUPPG1 -BEGIN - PROMPT 26 7 "G1" -END - -BOOLEAN F_QSUPPH -BEGIN - PROMPT 32 7 "H" -END - -BOOLEAN F_QSUPPI -BEGIN - PROMPT 38 7 "I" -END - -BOOLEAN F_QSUPPL -BEGIN - PROMPT 44 7 "L" -END - -BOOLEAN F_QSUPPN -BEGIN - PROMPT 50 7 "N" -END - -BOOLEAN F_QSUPPP -BEGIN - PROMPT 56 7 "P" -END - -BOOLEAN F_QSUPPQ -BEGIN - PROMPT 62 7 "Q" -END - -BOOLEAN F_QSUPPR -BEGIN - PROMPT 68 7 "R" -END - -BOOLEAN F_QSUPPS -BEGIN - PROMPT 2 8 "S" -END - -BOOLEAN F_QSUPPT -BEGIN - PROMPT 8 8 "T" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 10 "mediante n. " -END - -NUMBER F_NSUPPM 4 -BEGIN - PROMPT 13 10 "" - FIELD LF_BASEBIS->NSUPPM -END - -TEXT DLG_NULL -BEGIN - PROMPT 19 10 "supporti magnetici." -END - -ENDPAGE - -ENDMASK - +// Versione senza FIELD +#include "771300.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -15 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -45 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -55 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Prospetto dati generali" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "DGR" + USE LF_NDITTE KEY 1 + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale @50" RAGSOC + OUTPUT F_RAGSOC RAGSOC + MESSAGE COPY,1@ + FIELD LF_BASEBIS->CODDITTA + CHECKTYPE REQUIRED + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + MESSAGE COPY,2@ +END + +LISTBOX F_TIPOQUA 12 +BEGIN + PROMPT 90 90 "" + ITEM " |Normale" + ITEM "D|Dichiarante" + FLAGS "D" + KEY 1 + FIELD LF_BASEBIS->TIPOQUA +END + + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 4 "Dati relativi al conguaglio di fine anno effettuato dai datori di lavoro" +END + +NUMBER F_M1 15 +BEGIN + PROMPT 1 5 "M1 Eccedenza di ritenute di fine 1994 compensata nel 1995 " + FIELD LF_BASEBIS->ECCRIT12 + PICTURE "." + FLAGS "R" +END + +NUMBER F_M2 15 +BEGIN + PROMPT 1 6 "M2 Eccedenza di ritenute fine 1995 da compensare nel 1996 " + FIELD LF_BASEBIS->ECCRIT23 + PICTURE "." + FLAGS "R" +END + +GROUPBOX DLG_NULL 78 6 +BEGIN + PROMPT 0 8 "Prospetto riservato ai sostituti non tenuti a presentare la dichiarazione" +END + +NUMBER F_M3 15 +BEGIN + PROMPT 1 9 "M3 Credito di imposta ex D.L.357/94 spettante " + FIELD LF_BASEBIS->CRIMPDL + PICTURE "." + FLAGS "R" +END + +NUMBER F_M4 15 +BEGIN + PROMPT 1 10 "M4 Credito di imposta utilizzato ai fini IVA " + FIELD LF_BASEBIS->CRIMPIVA + PICTURE "." + FLAGS "R" + +END + +NUMBER F_M5 15 +BEGIN + PROMPT 1 11 "M5 Credito imposta utilizzato per versamento ritenute " + FIELD LF_BASEBIS->CRIMPRIT + PICTURE "." + FLAGS "R" +END + +NUMBER F_M6 15 +BEGIN + PROMPT 1 12 "M6 Credito di imposta residuo " + FIELD LF_BASEBIS->CRIMPRES + PICTURE "." + FLAGS "D" +END + +ENDPAGE + +PAGE "Prospetto dati generali" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "RDG" + GROUP 1 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + GROUP 2 +END + +GROUPBOX DLG_NULL 78 15 +BEGIN + PROMPT 0 3 "" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 4 "Il sottoscritto dichiara di aver corrisposto a dipendenti e terzi nell'anno" +END + +NUMBER F_ANNODIC 4 +BEGIN + PROMPT 1 5 "" + FLAGS "RD" +END + +TEXT DLG_NULL +BEGIN + PROMPT 7 5 "le somme e i valori e di aver effettuato le ritenute indicate" +END + +TEXT DLG_NULL +BEGIN + PROMPT 7 6 "nei quadri:" +END + +#define RA 8 +#define RB 9 +#define RC0 11 +#define RC1 12 +#define RD 13 + +BOOLEAN F_QCOMPA +BEGIN + PROMPT 2 RA "A" +END + +BOOLEAN F_QCOMPA3 +BEGIN + PROMPT 8 RA "A3" +END + +BOOLEAN F_QCOMPB +BEGIN + PROMPT 14 RA "B" +END + +BOOLEAN F_QCOMPB1 +BEGIN + PROMPT 20 RA "B1" +END + +BOOLEAN F_QCOMPC +BEGIN + PROMPT 26 RA "C" +END + +BOOLEAN F_QCOMPD +BEGIN + PROMPT 32 RA "D" +END + +BOOLEAN F_QCOMPD1 +BEGIN + PROMPT 38 RA "D1" +END + +BOOLEAN F_QCOMPE +BEGIN + PROMPT 44 RA "E" +END + +BOOLEAN F_QCOMPE1 +BEGIN + PROMPT 50 RA "E1" +END + +BOOLEAN F_QCOMPE2 +BEGIN + PROMPT 56 RA "E2" +END + +BOOLEAN F_QCOMPF +BEGIN + PROMPT 62 RA "F" +END + +BOOLEAN F_QCOMPF1 +BEGIN + PROMPT 68 RA "F1" +END + +BOOLEAN F_QCOMPF2 +BEGIN + PROMPT 2 RB "F2" +END + +BOOLEAN F_QCOMPG +BEGIN + PROMPT 8 RB "G" +END + +BOOLEAN F_QCOMPG1 +BEGIN + PROMPT 14 RB "G1" +END + +BOOLEAN F_QCOMPH +BEGIN + PROMPT 20 RB "H" +END + +BOOLEAN F_QCOMPI +BEGIN + PROMPT 26 RB "I" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 RC0 "Inoltre dichiara di aver effettuato i conguagli conseguenti all'assistenza" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 RC1 "fiscale indicati nel quadro A e nei quadri" +END + +BOOLEAN F_QCOMPA1 +BEGIN + PROMPT 2 RD "A1" +END + +BOOLEAN F_QCOMPA2 +BEGIN + PROMPT 8 RD "A2" +END + +BOOLEAN F_QCOMPN +BEGIN + PROMPT 14 RD "N" +END + +BOOLEAN F_QCOMPP +BEGIN + PROMPT 20 RD "P" +END + +BOOLEAN F_QCOMPQ +BEGIN + PROMPT 26 RD "Q" +END + +BOOLEAN F_QCOMPR +BEGIN + PROMPT 32 RD "R" +END + +BOOLEAN F_QCOMPS +BEGIN + PROMPT 38 RD "S" +END + +BOOLEAN F_QCOMPT +BEGIN + PROMPT 44 RD "T" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 15 "Dichiara altresì di aver eseguito i versamenti risultanti dai quadri L,P,Q," +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 16 "S,T e da n. " +END + +NUMBER F_H0NQLAGG 4 +BEGIN + PROMPT 13 16 "" + FIELD LF_BASEBIS->H0NQLAGG + FLAGS "R" + //FLAGS "D" +END + +TEXT DLG_NULL +BEGIN + PROMPT 19 16 "quadri aggiuntivi." +END + +ENDPAGE + +PAGE "Prospetto dati generali" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "RDG" + GROUP 1 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + GROUP 2 +END + +GROUPBOX DLG_NULL 78 10 +BEGIN + PROMPT 0 3 "" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 4 "Il sottoscritto dichiara di aver presentato i quadri" +END + +BOOLEAN F_QSUPPA +BEGIN + PROMPT 2 6 "A" +END + +BOOLEAN F_QSUPPA1 +BEGIN + PROMPT 8 6 "A1" +END + +BOOLEAN F_QSUPPA2 +BEGIN + PROMPT 14 6 "A2" +END + +BOOLEAN F_QSUPPA3 +BEGIN + PROMPT 20 6 "A3" +END + +BOOLEAN F_QSUPPB +BEGIN + PROMPT 26 6 "B" +END + +BOOLEAN F_QSUPPB1 +BEGIN + PROMPT 32 6 "B1" +END + +BOOLEAN F_QSUPPC +BEGIN + PROMPT 38 6 "C" +END + +BOOLEAN F_QSUPPD +BEGIN + PROMPT 44 6 "D" +END + +BOOLEAN F_QSUPPD1 +BEGIN + PROMPT 50 6 "D1" +END + +BOOLEAN F_QSUPPE +BEGIN + PROMPT 56 6 "E" +END + +BOOLEAN F_QSUPPE1 +BEGIN + PROMPT 62 6 "E1" +END + +BOOLEAN F_QSUPPE2 +BEGIN + PROMPT 68 6 "E2" +END + +BOOLEAN F_QSUPPF +BEGIN + PROMPT 2 7 "F" +END + +BOOLEAN F_QSUPPF1 +BEGIN + PROMPT 8 7 "F1" +END + +BOOLEAN F_QSUPPF2 +BEGIN + PROMPT 14 7 "F2" +END + +BOOLEAN F_QSUPPG +BEGIN + PROMPT 20 7 "G" +END + +BOOLEAN F_QSUPPG1 +BEGIN + PROMPT 26 7 "G1" +END + +BOOLEAN F_QSUPPH +BEGIN + PROMPT 32 7 "H" +END + +BOOLEAN F_QSUPPI +BEGIN + PROMPT 38 7 "I" +END + +BOOLEAN F_QSUPPL +BEGIN + PROMPT 44 7 "L" +END + +BOOLEAN F_QSUPPN +BEGIN + PROMPT 50 7 "N" +END + +BOOLEAN F_QSUPPP +BEGIN + PROMPT 56 7 "P" +END + +BOOLEAN F_QSUPPQ +BEGIN + PROMPT 62 7 "Q" +END + +BOOLEAN F_QSUPPR +BEGIN + PROMPT 68 7 "R" +END + +BOOLEAN F_QSUPPS +BEGIN + PROMPT 2 8 "S" +END + +BOOLEAN F_QSUPPT +BEGIN + PROMPT 8 8 "T" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 10 "mediante n. " +END + +NUMBER F_NSUPPM 4 +BEGIN + PROMPT 13 10 "" + FIELD LF_BASEBIS->NSUPPM +END + +TEXT DLG_NULL +BEGIN + PROMPT 19 10 "supporti magnetici." +END + +ENDPAGE + +ENDMASK + diff --git a/m770/771400b.uml b/m770/771400b.uml index 85cb82dc2..587ae343a 100755 --- a/m770/771400b.uml +++ b/m770/771400b.uml @@ -1,492 +1,492 @@ -// Prospetto dati generali - soggetto dichiarante -#include "771300.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -15 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -45 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -55 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Prospetto dati generali" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 2 1 "Ditta " - FLAGS "DGR" - USE LF_NDITTE KEY 1 - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale @50" RAGSOC - OUTPUT F_RAGSOC RAGSOC - MESSAGE COPY,1@ - FIELD LF_BASEBIS->CODDITTA - CHECKTYPE REQUIRED - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - MESSAGE COPY,2@ -END - -LISTBOX F_TIPOQUA1 12 -BEGIN - PROMPT 90 90 "" - ITEM "D|Dichiarante" - FLAGS "D" - KEY 1 - FIELD LF_BASEBIS->TIPOQUA -// CHECKTYPE REQUIRED -END - -GROUPBOX DLG_NULL 78 15 -BEGIN - PROMPT 0 3 "" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 4 "Il sottoscritto dichiara di aver corrisposto a dipendenti e terzi nell'anno" -END - -NUMBER F_ANNODIC 4 -BEGIN - PROMPT 1 5 "" - FLAGS "RD" -END - -TEXT DLG_NULL -BEGIN - PROMPT 7 5 "le somme e i valori e di aver effettuato le ritenute indicate" -END - -TEXT DLG_NULL -BEGIN - PROMPT 7 6 "nei quadri:" -END - -#define RA 8 -#define RB 9 -#define RC0 11 -#define RC1 12 -#define RD 13 - -BOOLEAN F_QCOMPA -BEGIN - PROMPT 2 RA "A" - FIELD LF_BASEBIS->QCOMP[1,1] -END - -BOOLEAN F_QCOMPA3 -BEGIN - PROMPT 8 RA "A3" - FIELD LF_BASEBIS->QCOMP[25,1] -END - -BOOLEAN F_QCOMPB -BEGIN - PROMPT 14 RA "B" - FIELD LF_BASEBIS->QCOMP[2,1] -END - -BOOLEAN F_QCOMPB1 -BEGIN - PROMPT 20 RA "B1" - FIELD LF_BASEBIS->QCOMP[3,1] -END - -BOOLEAN F_QCOMPC -BEGIN - PROMPT 26 RA "C" - FIELD LF_BASEBIS->QCOMP[4,1] -END - -BOOLEAN F_QCOMPD -BEGIN - PROMPT 32 RA "D" - FIELD LF_BASEBIS->QCOMP[5,1] -END - -BOOLEAN F_QCOMPD1 -BEGIN - PROMPT 38 RA "D1" - FIELD LF_BASEBIS->QCOMP[6,1] -END - -BOOLEAN F_QCOMPE -BEGIN - PROMPT 44 RA "E" - FIELD LF_BASEBIS->QCOMP[7,1] -END - -BOOLEAN F_QCOMPE1 -BEGIN - PROMPT 50 RA "E1" - FIELD LF_BASEBIS->QCOMP[8,1] -END - -BOOLEAN F_QCOMPE2 -BEGIN - PROMPT 56 RA "E2" - FIELD LF_BASEBIS->QCOMP[9,1] -END - -BOOLEAN F_QCOMPF -BEGIN - PROMPT 62 RA "F" - FIELD LF_BASEBIS->QCOMP[10,1] -END - -BOOLEAN F_QCOMPF1 -BEGIN - PROMPT 68 RA "F1" - FIELD LF_BASEBIS->QCOMP[11,1] -END - -BOOLEAN F_QCOMPF2 -BEGIN - PROMPT 2 RB "F2" - FIELD LF_BASEBIS->QCOMP[12,1] -END - -BOOLEAN F_QCOMPG -BEGIN - PROMPT 8 RB "G" - FIELD LF_BASEBIS->QCOMP[13,1] -END - -BOOLEAN F_QCOMPG1 -BEGIN - PROMPT 14 RB "G1" - FIELD LF_BASEBIS->QCOMP[14,1] -END - -BOOLEAN F_QCOMPH -BEGIN - PROMPT 20 RB "H" - FIELD LF_BASEBIS->QCOMP[15,1] -END - -BOOLEAN F_QCOMPI -BEGIN - PROMPT 26 RB "I" - FIELD LF_BASEBIS->QCOMP[16,1] -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 RC0 "Inoltre dichiara di aver effettuato i conguagli conseguenti all'assistenza" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 RC1 "fiscale indicati nel quadro A e nei quadri" -END - -BOOLEAN F_QCOMPA1 -BEGIN - PROMPT 2 RD "A1" - FIELD LF_BASEBIS->QCOMP[23,1] -END - -BOOLEAN F_QCOMPA2 -BEGIN - PROMPT 8 RD "A2" - FIELD LF_BASEBIS->QCOMP[24,1] -END - -BOOLEAN F_QCOMPN -BEGIN - PROMPT 14 RD "N" - FIELD LF_BASEBIS->QCOMP[17,1] -END - -BOOLEAN F_QCOMPP -BEGIN - PROMPT 20 RD "P" - FIELD LF_BASEBIS->QCOMP[18,1] -END - -BOOLEAN F_QCOMPQ -BEGIN - PROMPT 26 RD "Q" - FIELD LF_BASEBIS->QCOMP[19,1] -END - -BOOLEAN F_QCOMPR -BEGIN - PROMPT 32 RD "R" - FIELD LF_BASEBIS->QCOMP[20,1] -END - -BOOLEAN F_QCOMPS -BEGIN - PROMPT 38 RD "S" - FIELD LF_BASEBIS->QCOMP[21,1] -END - -BOOLEAN F_QCOMPT -BEGIN - PROMPT 44 RD "T" - FIELD LF_BASEBIS->QCOMP[22,1] -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 15 "Dichiara altresì di aver eseguito i versamenti risultanti dai quadri L,P,Q," -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 16 "S,T e da n. " -END - -NUMBER F_H0NQLAGG 4 -BEGIN - PROMPT 13 16 "" - FIELD LF_BASEBIS->H0NQLAGG - FLAGS "R" - //FLAGS "D" -END - -TEXT DLG_NULL -BEGIN - PROMPT 19 16 "quadri aggiuntivi." -END - -ENDPAGE - -PAGE "Prospetto dati generali" -1 -1 78 18 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER DLG_NULL 5 -BEGIN - PROMPT 2 1 "Ditta " - FLAGS "RDG" - GROUP 1 -END - -STRING DLG_NULL 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" - GROUP 2 -END - -GROUPBOX DLG_NULL 78 10 -BEGIN - PROMPT 0 3 "" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 4 "Il sottoscritto dichiara di aver presentato i quadri" -END - -BOOLEAN F_QSUPPA -BEGIN - PROMPT 2 6 "A" - FIELD LF_BASEBIS->QSUPPINV[1,1] -END - -BOOLEAN F_QSUPPA1 -BEGIN - PROMPT 8 6 "A1" - FIELD LF_BASEBIS->QSUPPINV[2,1] -END - -BOOLEAN F_QSUPPA2 -BEGIN - PROMPT 14 6 "A2" - FIELD LF_BASEBIS->QSUPPINV[3,1] -END - -BOOLEAN F_QSUPPA3 -BEGIN - PROMPT 20 6 "A3" - FIELD LF_BASEBIS->QSUPPINV[4,1] -END - -BOOLEAN F_QSUPPB -BEGIN - PROMPT 26 6 "B" - FIELD LF_BASEBIS->QSUPPINV[5,1] -END - -BOOLEAN F_QSUPPB1 -BEGIN - PROMPT 32 6 "B1" - FIELD LF_BASEBIS->QSUPPINV[6,1] -END - -BOOLEAN F_QSUPPC -BEGIN - PROMPT 38 6 "C" - FIELD LF_BASEBIS->QSUPPINV[7,1] -END - -BOOLEAN F_QSUPPD -BEGIN - PROMPT 44 6 "D" - FIELD LF_BASEBIS->QSUPPINV[8,1] -END - -BOOLEAN F_QSUPPD1 -BEGIN - PROMPT 50 6 "D1" - FIELD LF_BASEBIS->QSUPPINV[9,1] -END - -BOOLEAN F_QSUPPE -BEGIN - PROMPT 56 6 "E" - FIELD LF_BASEBIS->QSUPPINV[10,1] -END - -BOOLEAN F_QSUPPE1 -BEGIN - PROMPT 62 6 "E1" - FIELD LF_BASEBIS->QSUPPINV[11,1] -END - -BOOLEAN F_QSUPPE2 -BEGIN - PROMPT 68 6 "E2" - FIELD LF_BASEBIS->QSUPPINV[12,1] -END - -BOOLEAN F_QSUPPF -BEGIN - PROMPT 2 7 "F" - FIELD LF_BASEBIS->QSUPPINV[13,1] -END - -BOOLEAN F_QSUPPF1 -BEGIN - PROMPT 8 7 "F1" - FIELD LF_BASEBIS->QSUPPINV[14,1] -END - -BOOLEAN F_QSUPPF2 -BEGIN - PROMPT 14 7 "F2" - FIELD LF_BASEBIS->QSUPPINV[15,1] -END - -BOOLEAN F_QSUPPG -BEGIN - PROMPT 20 7 "G" - FIELD LF_BASEBIS->QSUPPINV[16,1] -END - -BOOLEAN F_QSUPPG1 -BEGIN - PROMPT 26 7 "G1" - FIELD LF_BASEBIS->QSUPPINV[17,1] -END - -BOOLEAN F_QSUPPH -BEGIN - PROMPT 32 7 "H" - FIELD LF_BASEBIS->QSUPPINV[18,1] -END - -BOOLEAN F_QSUPPI -BEGIN - PROMPT 38 7 "I" - FIELD LF_BASEBIS->QSUPPINV[19,1] -END - -BOOLEAN F_QSUPPL -BEGIN - PROMPT 44 7 "L" - FIELD LF_BASEBIS->QSUPPINV[20,1] -END - -BOOLEAN F_QSUPPN -BEGIN - PROMPT 50 7 "N" - FIELD LF_BASEBIS->QSUPPINV[21,1] -END - -BOOLEAN F_QSUPPP -BEGIN - PROMPT 56 7 "P" - FIELD LF_BASEBIS->QSUPPINV[22,1] -END - -BOOLEAN F_QSUPPQ -BEGIN - PROMPT 62 7 "Q" - FIELD LF_BASEBIS->QSUPPINV[23,1] -END - -BOOLEAN F_QSUPPR -BEGIN - PROMPT 68 7 "R" - FIELD LF_BASEBIS->QSUPPINV[24,1] -END - -BOOLEAN F_QSUPPS -BEGIN - PROMPT 2 8 "S" - FIELD LF_BASEBIS->QSUPPINV[25,1] -END - -BOOLEAN F_QSUPPT -BEGIN - PROMPT 8 8 "T" - FIELD LF_BASEBIS->QSUPPINV[26,1] -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 10 "mediante n. " -END - -NUMBER F_NSUPPM 4 -BEGIN - PROMPT 13 10 "" - FIELD LF_BASEBIS->NSUPPM -END - -TEXT DLG_NULL -BEGIN - PROMPT 19 10 "supporti magnetici." -END - -ENDPAGE - -ENDMASK - +// Prospetto dati generali - soggetto dichiarante +#include "771300.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -15 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -45 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -55 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Prospetto dati generali" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "DGR" + USE LF_NDITTE KEY 1 + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale @50" RAGSOC + OUTPUT F_RAGSOC RAGSOC + MESSAGE COPY,1@ + FIELD LF_BASEBIS->CODDITTA + CHECKTYPE REQUIRED + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + MESSAGE COPY,2@ +END + +LISTBOX F_TIPOQUA1 12 +BEGIN + PROMPT 90 90 "" + ITEM "D|Dichiarante" + FLAGS "D" + KEY 1 + FIELD LF_BASEBIS->TIPOQUA +// CHECKTYPE REQUIRED +END + +GROUPBOX DLG_NULL 78 15 +BEGIN + PROMPT 0 3 "" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 4 "Il sottoscritto dichiara di aver corrisposto a dipendenti e terzi nell'anno" +END + +NUMBER F_ANNODIC 4 +BEGIN + PROMPT 1 5 "" + FLAGS "RD" +END + +TEXT DLG_NULL +BEGIN + PROMPT 7 5 "le somme e i valori e di aver effettuato le ritenute indicate" +END + +TEXT DLG_NULL +BEGIN + PROMPT 7 6 "nei quadri:" +END + +#define RA 8 +#define RB 9 +#define RC0 11 +#define RC1 12 +#define RD 13 + +BOOLEAN F_QCOMPA +BEGIN + PROMPT 2 RA "A" + FIELD LF_BASEBIS->QCOMP[1,1] +END + +BOOLEAN F_QCOMPA3 +BEGIN + PROMPT 8 RA "A3" + FIELD LF_BASEBIS->QCOMP[25,1] +END + +BOOLEAN F_QCOMPB +BEGIN + PROMPT 14 RA "B" + FIELD LF_BASEBIS->QCOMP[2,1] +END + +BOOLEAN F_QCOMPB1 +BEGIN + PROMPT 20 RA "B1" + FIELD LF_BASEBIS->QCOMP[3,1] +END + +BOOLEAN F_QCOMPC +BEGIN + PROMPT 26 RA "C" + FIELD LF_BASEBIS->QCOMP[4,1] +END + +BOOLEAN F_QCOMPD +BEGIN + PROMPT 32 RA "D" + FIELD LF_BASEBIS->QCOMP[5,1] +END + +BOOLEAN F_QCOMPD1 +BEGIN + PROMPT 38 RA "D1" + FIELD LF_BASEBIS->QCOMP[6,1] +END + +BOOLEAN F_QCOMPE +BEGIN + PROMPT 44 RA "E" + FIELD LF_BASEBIS->QCOMP[7,1] +END + +BOOLEAN F_QCOMPE1 +BEGIN + PROMPT 50 RA "E1" + FIELD LF_BASEBIS->QCOMP[8,1] +END + +BOOLEAN F_QCOMPE2 +BEGIN + PROMPT 56 RA "E2" + FIELD LF_BASEBIS->QCOMP[9,1] +END + +BOOLEAN F_QCOMPF +BEGIN + PROMPT 62 RA "F" + FIELD LF_BASEBIS->QCOMP[10,1] +END + +BOOLEAN F_QCOMPF1 +BEGIN + PROMPT 68 RA "F1" + FIELD LF_BASEBIS->QCOMP[11,1] +END + +BOOLEAN F_QCOMPF2 +BEGIN + PROMPT 2 RB "F2" + FIELD LF_BASEBIS->QCOMP[12,1] +END + +BOOLEAN F_QCOMPG +BEGIN + PROMPT 8 RB "G" + FIELD LF_BASEBIS->QCOMP[13,1] +END + +BOOLEAN F_QCOMPG1 +BEGIN + PROMPT 14 RB "G1" + FIELD LF_BASEBIS->QCOMP[14,1] +END + +BOOLEAN F_QCOMPH +BEGIN + PROMPT 20 RB "H" + FIELD LF_BASEBIS->QCOMP[15,1] +END + +BOOLEAN F_QCOMPI +BEGIN + PROMPT 26 RB "I" + FIELD LF_BASEBIS->QCOMP[16,1] +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 RC0 "Inoltre dichiara di aver effettuato i conguagli conseguenti all'assistenza" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 RC1 "fiscale indicati nel quadro A e nei quadri" +END + +BOOLEAN F_QCOMPA1 +BEGIN + PROMPT 2 RD "A1" + FIELD LF_BASEBIS->QCOMP[23,1] +END + +BOOLEAN F_QCOMPA2 +BEGIN + PROMPT 8 RD "A2" + FIELD LF_BASEBIS->QCOMP[24,1] +END + +BOOLEAN F_QCOMPN +BEGIN + PROMPT 14 RD "N" + FIELD LF_BASEBIS->QCOMP[17,1] +END + +BOOLEAN F_QCOMPP +BEGIN + PROMPT 20 RD "P" + FIELD LF_BASEBIS->QCOMP[18,1] +END + +BOOLEAN F_QCOMPQ +BEGIN + PROMPT 26 RD "Q" + FIELD LF_BASEBIS->QCOMP[19,1] +END + +BOOLEAN F_QCOMPR +BEGIN + PROMPT 32 RD "R" + FIELD LF_BASEBIS->QCOMP[20,1] +END + +BOOLEAN F_QCOMPS +BEGIN + PROMPT 38 RD "S" + FIELD LF_BASEBIS->QCOMP[21,1] +END + +BOOLEAN F_QCOMPT +BEGIN + PROMPT 44 RD "T" + FIELD LF_BASEBIS->QCOMP[22,1] +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 15 "Dichiara altresì di aver eseguito i versamenti risultanti dai quadri L,P,Q," +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 16 "S,T e da n. " +END + +NUMBER F_H0NQLAGG 4 +BEGIN + PROMPT 13 16 "" + FIELD LF_BASEBIS->H0NQLAGG + FLAGS "R" + //FLAGS "D" +END + +TEXT DLG_NULL +BEGIN + PROMPT 19 16 "quadri aggiuntivi." +END + +ENDPAGE + +PAGE "Prospetto dati generali" -1 -1 78 18 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "RDG" + GROUP 1 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" + GROUP 2 +END + +GROUPBOX DLG_NULL 78 10 +BEGIN + PROMPT 0 3 "" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 4 "Il sottoscritto dichiara di aver presentato i quadri" +END + +BOOLEAN F_QSUPPA +BEGIN + PROMPT 2 6 "A" + FIELD LF_BASEBIS->QSUPPINV[1,1] +END + +BOOLEAN F_QSUPPA1 +BEGIN + PROMPT 8 6 "A1" + FIELD LF_BASEBIS->QSUPPINV[2,1] +END + +BOOLEAN F_QSUPPA2 +BEGIN + PROMPT 14 6 "A2" + FIELD LF_BASEBIS->QSUPPINV[3,1] +END + +BOOLEAN F_QSUPPA3 +BEGIN + PROMPT 20 6 "A3" + FIELD LF_BASEBIS->QSUPPINV[4,1] +END + +BOOLEAN F_QSUPPB +BEGIN + PROMPT 26 6 "B" + FIELD LF_BASEBIS->QSUPPINV[5,1] +END + +BOOLEAN F_QSUPPB1 +BEGIN + PROMPT 32 6 "B1" + FIELD LF_BASEBIS->QSUPPINV[6,1] +END + +BOOLEAN F_QSUPPC +BEGIN + PROMPT 38 6 "C" + FIELD LF_BASEBIS->QSUPPINV[7,1] +END + +BOOLEAN F_QSUPPD +BEGIN + PROMPT 44 6 "D" + FIELD LF_BASEBIS->QSUPPINV[8,1] +END + +BOOLEAN F_QSUPPD1 +BEGIN + PROMPT 50 6 "D1" + FIELD LF_BASEBIS->QSUPPINV[9,1] +END + +BOOLEAN F_QSUPPE +BEGIN + PROMPT 56 6 "E" + FIELD LF_BASEBIS->QSUPPINV[10,1] +END + +BOOLEAN F_QSUPPE1 +BEGIN + PROMPT 62 6 "E1" + FIELD LF_BASEBIS->QSUPPINV[11,1] +END + +BOOLEAN F_QSUPPE2 +BEGIN + PROMPT 68 6 "E2" + FIELD LF_BASEBIS->QSUPPINV[12,1] +END + +BOOLEAN F_QSUPPF +BEGIN + PROMPT 2 7 "F" + FIELD LF_BASEBIS->QSUPPINV[13,1] +END + +BOOLEAN F_QSUPPF1 +BEGIN + PROMPT 8 7 "F1" + FIELD LF_BASEBIS->QSUPPINV[14,1] +END + +BOOLEAN F_QSUPPF2 +BEGIN + PROMPT 14 7 "F2" + FIELD LF_BASEBIS->QSUPPINV[15,1] +END + +BOOLEAN F_QSUPPG +BEGIN + PROMPT 20 7 "G" + FIELD LF_BASEBIS->QSUPPINV[16,1] +END + +BOOLEAN F_QSUPPG1 +BEGIN + PROMPT 26 7 "G1" + FIELD LF_BASEBIS->QSUPPINV[17,1] +END + +BOOLEAN F_QSUPPH +BEGIN + PROMPT 32 7 "H" + FIELD LF_BASEBIS->QSUPPINV[18,1] +END + +BOOLEAN F_QSUPPI +BEGIN + PROMPT 38 7 "I" + FIELD LF_BASEBIS->QSUPPINV[19,1] +END + +BOOLEAN F_QSUPPL +BEGIN + PROMPT 44 7 "L" + FIELD LF_BASEBIS->QSUPPINV[20,1] +END + +BOOLEAN F_QSUPPN +BEGIN + PROMPT 50 7 "N" + FIELD LF_BASEBIS->QSUPPINV[21,1] +END + +BOOLEAN F_QSUPPP +BEGIN + PROMPT 56 7 "P" + FIELD LF_BASEBIS->QSUPPINV[22,1] +END + +BOOLEAN F_QSUPPQ +BEGIN + PROMPT 62 7 "Q" + FIELD LF_BASEBIS->QSUPPINV[23,1] +END + +BOOLEAN F_QSUPPR +BEGIN + PROMPT 68 7 "R" + FIELD LF_BASEBIS->QSUPPINV[24,1] +END + +BOOLEAN F_QSUPPS +BEGIN + PROMPT 2 8 "S" + FIELD LF_BASEBIS->QSUPPINV[25,1] +END + +BOOLEAN F_QSUPPT +BEGIN + PROMPT 8 8 "T" + FIELD LF_BASEBIS->QSUPPINV[26,1] +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 10 "mediante n. " +END + +NUMBER F_NSUPPM 4 +BEGIN + PROMPT 13 10 "" + FIELD LF_BASEBIS->NSUPPM +END + +TEXT DLG_NULL +BEGIN + PROMPT 19 10 "supporti magnetici." +END + +ENDPAGE + +ENDMASK + diff --git a/m770/775100.cpp b/m770/775100.cpp index 06f212bab..921c76ca4 100755 --- a/m770/775100.cpp +++ b/m770/775100.cpp @@ -1,158 +1,158 @@ -// 775100.cpp - Gestione archivio percipienti - -#include -#include -#include "77lib.h" -#include "775100a.h" - -class TGestionePercipienti : public TRelation_application -{ - private: - TRelation* _rel; - TMask* _msk; - long _codditta; - char _tipoa; - long _codanagr; - bool _auto_posiz, _deleted; - int _anno_dic; - protected: - virtual void on_config_change(); - virtual void init_query_mode(TMask& m); - virtual void init_modify_mode(TMask& m); - void init_mask(TMask& m); - virtual bool user_create(); - virtual bool user_destroy(); - virtual TRelation* get_relation() const { return _rel; } - virtual TMask* get_mask(int mode) { return _msk; } - virtual bool changing_mask(int mode) { return FALSE; } - virtual bool remove(); - static bool codditta_handler(TMask_field& f, KEY k); - public: - TGestionePercipienti(const long codditta=0L, const char tipoa='\0', const long codanagr=0L); - virtual ~TGestionePercipienti() {}; -}; - -inline TGestionePercipienti& app() { return (TGestionePercipienti&) main_app(); } - -bool TGestionePercipienti::remove() -{ - bool ok1 = FALSE, ok2 = FALSE, ha_schede = FALSE; - int err; - TPercipiente perc(_rel->curr()); - - ha_schede = perc.esiste_scheda(); - if (ha_schede) - ok1 = yesno_box("Esistono in archivio delle schede riguardanti il percipiente selezionato\nEliminare ugualmente?"); - if (!ok1) - return TRUE; - err = _rel->remove(); - -// Non ri-compilare i dati in init_query_mode() - _deleted = TRUE; - - if (err != NOERR) - return TRUE; - if (ha_schede) - { - ok2 = yesno_box("Eliminare anche le schede collegate?"); - err = perc.elimina_schede(); - } - return TRUE; -} - -void TGestionePercipienti::init_mask(TMask& m) -{ - TString16 tipo; - m.set(F_ANNODIC, _anno_dic); - tipo << _tipoa; - m.set(F_TIPOA, tipo); -} - -void TGestionePercipienti::init_query_mode(TMask& m) -{ - init_mask(m); - if (_auto_posiz && !_deleted) - { - TString16 dit, tipo, coda; - dit << _codditta; - tipo << _tipoa; - coda << _codanagr; - m.set(F_CODDITTA, dit); - m.set(F_TIPOA, tipo); - m.set(F_CODANAGR, coda); - m.send_key(K_AUTO_ENTER, 0); - } -} - -void TGestionePercipienti::init_modify_mode(TMask& m) -{ - init_mask(m); -} - -TGestionePercipienti::TGestionePercipienti(const long codditta, const char tipoa, const long codanagr) - : _codditta(codditta), _tipoa(tipoa), _codanagr(codanagr), _auto_posiz(FALSE) -{ - _auto_posiz = _codanagr != 0L; - _deleted = FALSE; -} - -void TGestionePercipienti::on_config_change() -{ - TConfig conf(CONFIG_STUDIO); - _anno_dic = (int)conf.get_long(ANNO_SEL, NULL); -} - -bool TGestionePercipienti::codditta_handler(TMask_field& f, KEY k) -{ - if (k == K_TAB && !(f.mask().is_running()) ) - { - TString16 codditta; codditta << app()._codditta; - if (codditta != "0") - { - f.set(codditta); - f.check(); - } - } - return TRUE; -} - -bool TGestionePercipienti::user_create() -{ - _rel = new TRelation(LF_PERC); - _msk = new TMask("775100a"); - - if (!_auto_posiz) - _codditta = get_firm_770(); - - _msk->set_handler(F_CODDITTA, codditta_handler); - set_search_field(F_CODANAGR); - return TRUE; -} - -bool TGestionePercipienti::user_destroy() -{ - delete _rel; delete _msk; - return TRUE; -} - -// 775 -0 10001 F 10 -int GestPerc(int argc, char* argv[]) -{ - long codditta = 0L; - char tipoa = 'F'; - long codanagr = 0L; - - if (argc >= 5) - { - codditta = atol(argv[2]); - tipoa = *argv[3]; - codanagr = atol(argv[4]); - } - - TGestionePercipienti a(codditta, tipoa, codanagr); - a.run(argc, argv, "Gestione percipienti"); - return 0; -} - - - +// 775100.cpp - Gestione archivio percipienti + +#include +#include +#include "77lib.h" +#include "775100a.h" + +class TGestionePercipienti : public TRelation_application +{ + private: + TRelation* _rel; + TMask* _msk; + long _codditta; + char _tipoa; + long _codanagr; + bool _auto_posiz, _deleted; + int _anno_dic; + protected: + virtual void on_config_change(); + virtual void init_query_mode(TMask& m); + virtual void init_modify_mode(TMask& m); + void init_mask(TMask& m); + virtual bool user_create(); + virtual bool user_destroy(); + virtual TRelation* get_relation() const { return _rel; } + virtual TMask* get_mask(int mode) { return _msk; } + virtual bool changing_mask(int mode) { return FALSE; } + virtual bool remove(); + static bool codditta_handler(TMask_field& f, KEY k); + public: + TGestionePercipienti(const long codditta=0L, const char tipoa='\0', const long codanagr=0L); + virtual ~TGestionePercipienti() {}; +}; + +inline TGestionePercipienti& app() { return (TGestionePercipienti&) main_app(); } + +bool TGestionePercipienti::remove() +{ + bool ok1 = FALSE, ok2 = FALSE, ha_schede = FALSE; + int err; + TPercipiente perc(_rel->curr()); + + ha_schede = perc.esiste_scheda(); + if (ha_schede) + ok1 = yesno_box("Esistono in archivio delle schede riguardanti il percipiente selezionato\nEliminare ugualmente?"); + if (!ok1) + return TRUE; + err = _rel->remove(); + +// Non ri-compilare i dati in init_query_mode() + _deleted = TRUE; + + if (err != NOERR) + return TRUE; + if (ha_schede) + { + ok2 = yesno_box("Eliminare anche le schede collegate?"); + err = perc.elimina_schede(); + } + return TRUE; +} + +void TGestionePercipienti::init_mask(TMask& m) +{ + TString16 tipo; + m.set(F_ANNODIC, _anno_dic); + tipo << _tipoa; + m.set(F_TIPOA, tipo); +} + +void TGestionePercipienti::init_query_mode(TMask& m) +{ + init_mask(m); + if (_auto_posiz && !_deleted) + { + TString16 dit, tipo, coda; + dit << _codditta; + tipo << _tipoa; + coda << _codanagr; + m.set(F_CODDITTA, dit); + m.set(F_TIPOA, tipo); + m.set(F_CODANAGR, coda); + m.send_key(K_AUTO_ENTER, 0); + } +} + +void TGestionePercipienti::init_modify_mode(TMask& m) +{ + init_mask(m); +} + +TGestionePercipienti::TGestionePercipienti(const long codditta, const char tipoa, const long codanagr) + : _codditta(codditta), _tipoa(tipoa), _codanagr(codanagr), _auto_posiz(FALSE) +{ + _auto_posiz = _codanagr != 0L; + _deleted = FALSE; +} + +void TGestionePercipienti::on_config_change() +{ + TConfig conf(CONFIG_STUDIO); + _anno_dic = (int)conf.get_long(ANNO_SEL, NULL); +} + +bool TGestionePercipienti::codditta_handler(TMask_field& f, KEY k) +{ + if (k == K_TAB && !(f.mask().is_running()) ) + { + TString16 codditta; codditta << app()._codditta; + if (codditta != "0") + { + f.set(codditta); + f.check(); + } + } + return TRUE; +} + +bool TGestionePercipienti::user_create() +{ + _rel = new TRelation(LF_PERC); + _msk = new TMask("775100a"); + + if (!_auto_posiz) + _codditta = get_firm_770(); + + _msk->set_handler(F_CODDITTA, codditta_handler); + set_search_field(F_CODANAGR); + return TRUE; +} + +bool TGestionePercipienti::user_destroy() +{ + delete _rel; delete _msk; + return TRUE; +} + +// 775 -0 10001 F 10 +int GestPerc(int argc, char* argv[]) +{ + long codditta = 0L; + char tipoa = 'F'; + long codanagr = 0L; + + if (argc >= 5) + { + codditta = atol(argv[2]); + tipoa = *argv[3]; + codanagr = atol(argv[4]); + } + + TGestionePercipienti a(codditta, tipoa, codanagr); + a.run(argc, argv, "Gestione percipienti"); + return 0; +} + + + diff --git a/m770/775100a.uml b/m770/775100a.uml index 63c47dd0c..df78b12f2 100755 --- a/m770/775100a.uml +++ b/m770/775100a.uml @@ -1,91 +1,91 @@ -#include "775100a.h" -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "Gestione percipienti" -1 -1 78 21 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "RDG" - USE LF_NDITTE KEY 1 - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale @50" RAGSOC - OUTPUT F_RAGDITTA RAGSOC - FIELD LF_PERC->CODDITTA - KEY 1 - CHECKTYPE REQUIRED -END - -STRING F_RAGDITTA 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "D" -END - -NUMBER F_ANNODIC 4 -BEGIN - PROMPT 52 4 "Anno dichiarazione " - FLAGS "DR" -END - -TEXT DLG_NULL -BEGIN - PROMPT 1 7 "@bDati percipiente" -END - -LISTBOX F_TIPOA 1 9 -BEGIN - PROMPT 1 8 "" - FIELD LF_PERC->TIPOA - ITEM "F|Fisica" - ITEM "G|Giuridica" - KEY 1 -END - -NUMBER F_CODANAGR 5 -BEGIN - PROMPT 15 8 "" - USE LF_PERC KEY 1 SELECT ((CODDITTA==#F_CODDITTA)&&(TIPOA==#F_TIPOA)) - JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR - INPUT CODDITTA F_CODDITTA - INPUT TIPOA F_TIPOA - INPUT CODANAGR F_CODANAGR - DISPLAY "Tipo " TIPOA - DISPLAY "Codice " CODANAGR - DISPLAY "Cognome - Nome o Ragione sociale@50" LF_ANAG->RAGSOC - OUTPUT F_TIPOA TIPOA - OUTPUT F_CODANAGR CODANAGR - OUTPUT F_RAGSOC LF_ANAG->RAGSOC - FIELD LF_PERC->CODANAGR - CHECKTYPE REQUIRED - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 25 8 "" - FLAGS "D" -END - -NUMBER F_FATTBIL 15 -BEGIN - PROMPT 1 14 "Fatture da ricevere " - PICTURE "." - FIELD LF_PERC->FATTBIL - FLAGS "R" -END - -ENDPAGE - -ENDMASK - - - +#include "775100a.h" +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "Gestione percipienti" -1 -1 78 21 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "RDG" + USE LF_NDITTE KEY 1 + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale @50" RAGSOC + OUTPUT F_RAGDITTA RAGSOC + FIELD LF_PERC->CODDITTA + KEY 1 + CHECKTYPE REQUIRED +END + +STRING F_RAGDITTA 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "D" +END + +NUMBER F_ANNODIC 4 +BEGIN + PROMPT 52 4 "Anno dichiarazione " + FLAGS "DR" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 7 "@bDati percipiente" +END + +LISTBOX F_TIPOA 1 9 +BEGIN + PROMPT 1 8 "" + FIELD LF_PERC->TIPOA + ITEM "F|Fisica" + ITEM "G|Giuridica" + KEY 1 +END + +NUMBER F_CODANAGR 5 +BEGIN + PROMPT 15 8 "" + USE LF_PERC KEY 1 SELECT ((CODDITTA==#F_CODDITTA)&&(TIPOA==#F_TIPOA)) + JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR + INPUT CODDITTA F_CODDITTA + INPUT TIPOA F_TIPOA + INPUT CODANAGR F_CODANAGR + DISPLAY "Tipo " TIPOA + DISPLAY "Codice " CODANAGR + DISPLAY "Cognome - Nome o Ragione sociale@50" LF_ANAG->RAGSOC + OUTPUT F_TIPOA TIPOA + OUTPUT F_CODANAGR CODANAGR + OUTPUT F_RAGSOC LF_ANAG->RAGSOC + FIELD LF_PERC->CODANAGR + CHECKTYPE REQUIRED + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 25 8 "" + FLAGS "D" +END + +NUMBER F_FATTBIL 15 +BEGIN + PROMPT 1 14 "Fatture da ricevere " + PICTURE "." + FIELD LF_PERC->FATTBIL + FLAGS "R" +END + +ENDPAGE + +ENDMASK + + + diff --git a/m770/776100b.uml b/m770/776100b.uml index 2c62930c1..60029d854 100755 --- a/m770/776100b.uml +++ b/m770/776100b.uml @@ -1,1238 +1,1238 @@ -// Menu manutenzione quadri -#include "776100b.h" -TOOLBAR "" 0 19 0 0 - -BUTTON DLG_CANCEL 20 2 -BEGIN - PROMPT -22 -11 "Menu precedente" - GROUP 1 -END - -BUTTON DLG_QUIT 20 2 -BEGIN - PROMPT -12 -11 "Fine" -END - -BUTTON DLG_CANCEL_MENU 20 2 -BEGIN - PROMPT -22 -11 "Menu precedente" - GROUP 2 - FLAGS "H" -END - -BUTTON DLG_CANCEL_MENU_ST 20 2 -BEGIN - PROMPT -22 -11 "Menu precedente" - GROUP 3 - FLAGS "H" -END - -BUTTON DLG_CANCEL_MENU_SD 20 2 -BEGIN - PROMPT -22 -11 "Menu precedente" - GROUP 4 - FLAGS "H" -END - -#define DLG_CANCEL_MENUSTQ 303 - -BUTTON DLG_CANCEL_MENUSTQ 20 2 -BEGIN - PROMPT -22 -11 "Menu precedente" - GROUP 5 - FLAGS "H" - MESSAGE HIDE,5@|SHOW,3@ -END - -ENDPAGE - -PAGE "Manutenzione dichiarazione" -1 -1 78 21 - -// Serve solo per rileggere i quadri compilati (nel suo handler) -NUMBER RILEGGI_QUADRI 1 -BEGIN - PROMPT 1 1 "" - FLAGS "H" -END - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "D" - FIELD LF_BASE->CODDITTA -END - -STRING F_RAGDITTA 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "D" -END - -NUMBER F_ANNODIC 4 -BEGIN - PROMPT 52 3 "Anno dichiarazione " - FLAGS "DR" -END - -TEXT DLG_NULL -BEGIN - PROMPT 5 5 "Manutenzione dati anagrafici" - GROUP 1 -END - -// Il menu viene richiamato nell'handler di questo bottone -BUTTON DLG_MANUTENZ 1 1 -BEGIN - PROMPT 1 5 "" - PICTURE 123 - GROUP 1 -END - -// Aggancia il menu' sogg.dich. -TEXT DLG_NULL_SD -BEGIN - PROMPT 5 6 "Soggetto dichiarante" - FLAGS "D" - GROUP 1 -END - -// Il menu' viene richiamato nell'handler di questo bottone -BUTTON DLG_STOPREC_SD 1 1 -BEGIN - PROMPT 1 6 "" - PICTURE 123 - GROUP 1 -END - -TEXT DLG_NULL -BEGIN - PROMPT 5 7 "Anagrafica dipendenti" - GROUP 1 -END - -BUTTON DLG_STOPREC_AD 1 1 -BEGIN - PROMPT 1 7 "" - PICTURE 123 - GROUP 1 - MESSAGE RUN,773mod,-1,771150a,45,"Anagrafica dipendenti"|K_TAB,RILEGGI_QUADRI -END - -TEXT DLG_NULL -BEGIN - PROMPT 5 8 "Scheda percipienti" - GROUP 1 -END - -BUTTON DLG_STOPREC_SP 1 1 -BEGIN - PROMPT 1 8 "" - GROUP 1 - MESSAGE RUN,770,-0 -END - -TEXT DLG_NULL_SOCI -BEGIN - PROMPT 43 5 "Manutenzione amministratori" - GROUP 1 -END - -BUTTON DLG_MANUTENZ_SOCI 1 1 -BEGIN - PROMPT 39 5 "" - PICTURE 123 - GROUP 1 -END - -TEXT DLG_NULL -BEGIN - PROMPT 43 6 "Invio/Ricezione ministeriale" - GROUP 1 -END - -BUTTON DLG_STOPREC_IR 1 1 -BEGIN - PROMPT 39 6 "" - PICTURE 123 - FLAGS "D" - GROUP 1 -END - -BUTTON DLG_STOPREC_DG 1 1 -BEGIN - PROMPT 39 7 "" - MESSAGE RUN,771MOD,-2,W|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_DG -BEGIN - PROMPT 43 7 "Prospetto dati generali" - GROUP 1 -END - -TEXT DLG_NULL_ST -BEGIN - PROMPT 43 8 "Stampe" - GROUP 1 -END - -// Il menu' viene richiamato nell'handler di questo bottone -BUTTON DLG_STOPREC_ST 1 1 -BEGIN - PROMPT 39 8 "" - PICTURE 123 - GROUP 1 -END - - -// Prima colonna -TEXT DLG_NULL_A -BEGIN - PROMPT 5 10 "Quadro A" - GROUP 1 -END - -BUTTON DLG_STOPREC_A 1 1 -BEGIN - PROMPT 1 10 "" - MESSAGE RUN,771MOD,-7,A|K_TAB,RILEGGI_QUADRI - PICTURE 123 - GROUP 1 -END - -TEXT DLG_NULL_A1 -BEGIN - PROMPT 5 11 "Quadro A1" - GROUP 1 -END - -BUTTON DLG_STOPREC_A1 1 1 -BEGIN - PROMPT 1 11 "" - MESSAGE RUN,771MOD,-7,1|K_TAB,RILEGGI_QUADRI - PICTURE 123 - GROUP 1 -END - -TEXT DLG_NULL_A2 -BEGIN - PROMPT 5 12 "Quadro A2" - GROUP 1 - FLAGS "D" -END - -BUTTON DLG_STOPREC_A2 1 1 -BEGIN - PROMPT 1 12 "" - MESSAGE RUN,771MOD,-7,2|K_TAB,RILEGGI_QUADRI - PICTURE 123 - GROUP 1 -END - -TEXT DLG_NULL_A3 -BEGIN - PROMPT 5 13 "Quadro A3" - GROUP 1 -END - -BUTTON DLG_STOPREC_A3 1 1 -BEGIN - PROMPT 1 13 "" - MESSAGE RUN,771MOD,-7,3|K_TAB,RILEGGI_QUADRI - PICTURE 123 - GROUP 1 -END - -TEXT DLG_NULL_B -BEGIN - PROMPT 5 14 "Quadro B" - GROUP 1 -END - -BUTTON DLG_STOPREC_B 1 1 -BEGIN - PROMPT 1 14 "" - PICTURE 123 - MESSAGE RUN,773mod,-4,77qb,59,"Quadro B","B"|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_B1 -BEGIN - PROMPT 5 15 "Quadro B-1" - GROUP 1 -END - -BUTTON DLG_STOPREC_B1 1 1 -BEGIN - PROMPT 1 15 "" - PICTURE 123 - MESSAGE RUN,773mod,-4,77qb1,60,"Quadro B1","B1"|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_C -BEGIN - PROMPT 5 16 "Quadro C " - GROUP 1 -END - -BUTTON DLG_STOPREC_C 1 1 -BEGIN - PROMPT 1 16 "" - PICTURE 123 - MESSAGE RUN,771MOD,-5,C|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -// Fine prima colonna - -// -// Seconda colonna -// - -TEXT DLG_NULL_D -BEGIN - PROMPT 24 10 "Quadro D " - GROUP 1 -END - -BUTTON DLG_STOPREC_D 1 1 -BEGIN - PROMPT 20 10 "" - PICTURE 123 - MESSAGE RUN,771MOD,-5,D|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_D1 -BEGIN - PROMPT 24 11 "Quadro D-1 " - GROUP 1 -END - -BUTTON DLG_STOPREC_D1 1 1 -BEGIN - PROMPT 20 11 "" - PICTURE 123 - MESSAGE RUN,771MOD,-5,1|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_E -BEGIN - PROMPT 24 12 "Quadro E " - GROUP 1 -END - -BUTTON DLG_STOPREC_E 1 1 -BEGIN - PROMPT 20 12 "" - PICTURE 123 - MESSAGE RUN,771MOD,-5,E|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_E1 -BEGIN - PROMPT 24 13 "Quadro E-1 " - GROUP 1 -END - -BUTTON DLG_STOPREC_E1 1 1 -BEGIN - PROMPT 20 13 "" - PICTURE 123 - MESSAGE RUN,771MOD,-5,2|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_E2 -BEGIN - PROMPT 24 14 "Quadro E-2" - FLAGS "D" - GROUP 1 -END - -BUTTON DLG_STOPREC_E2 1 1 -BEGIN - PROMPT 20 14 "" - PICTURE 123 - MESSAGE RUN,771MOD,-5,3|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_F -BEGIN - PROMPT 24 15 "Quadro F" - GROUP 1 -END - -BUTTON DLG_STOPREC_F 1 1 -BEGIN - PROMPT 20 15 "" - PICTURE 123 - MESSAGE RUN,771MOD,-6,0|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_F1 -BEGIN - PROMPT 24 16 "Quadro F-1" - GROUP 1 -END - -BUTTON DLG_STOPREC_F1 1 1 -BEGIN - PROMPT 20 16 "" - PICTURE 123 - MESSAGE RUN,771MOD,-6,1|K_TAB,RILEGGI_QUADRI - GROUP 1 -END -// Fine seconda colonna - -// Terza colonna - -TEXT DLG_NULL_F2 -BEGIN - PROMPT 43 10 "Quadro F-2" - GROUP 1 -END - -BUTTON DLG_STOPREC_F2 1 1 -BEGIN - PROMPT 39 10 "" - PICTURE 123 - MESSAGE RUN,771MOD,-6,2|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_G -BEGIN - PROMPT 43 11 "Quadro G" - GROUP 1 -END - -BUTTON DLG_STOPREC_G 1 1 -BEGIN - PROMPT 39 11 "" - PICTURE 123 - MESSAGE RUN,771MOD,-6,3|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_G1 -BEGIN - PROMPT 43 12 "Quadro G-1" - GROUP 1 -END - -BUTTON DLG_STOPREC_G1 1 1 -BEGIN - PROMPT 39 12 "" - PICTURE 123 - MESSAGE RUN,771MOD,-6,5|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_H -BEGIN - PROMPT 43 13 "Quadro H " - GROUP 1 -END - -BUTTON DLG_STOPREC_H 1 1 -BEGIN - PROMPT 39 13 "" - PICTURE 123 - MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_I -BEGIN - PROMPT 43 14 "Quadro I " - GROUP 1 -END - -BUTTON DLG_STOPREC_I 1 1 -BEGIN - PROMPT 39 14 "" - PICTURE 123 - MESSAGE RUN,771MOD,-2,I|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_L -BEGIN - PROMPT 43 15 "Quadro L " - GROUP 1 -END - -// Forza l'esecuzione di leggi_quadri() -BUTTON DLG_STOPREC_L 1 1 -BEGIN - PROMPT 39 15 "" - PICTURE 123 - MESSAGE RUN,771MOD,-3|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_N -BEGIN - PROMPT 43 16 "Quadro N" - GROUP 1 -END - -BUTTON DLG_STOPREC_N 1 1 -BEGIN - PROMPT 39 16 "" - PICTURE 123 - MESSAGE RUN,773mod,-2,77qn,72,"Quadro N","N"|K_TAB,RILEGGI_QUADRI - GROUP 1 -END -// Fine terza colonna - -// QUARTA colonna -TEXT DLG_NULL_P -BEGIN - PROMPT 62 10 "Quadro P" - GROUP 1 -END - -BUTTON DLG_STOPREC_P 1 1 -BEGIN - PROMPT 58 10 "" - PICTURE 123 - MESSAGE RUN,773mod,-2,77qp,73,"Quadro P","P"|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_Q -BEGIN - PROMPT 62 11 "Quadro Q" - GROUP 1 -END - -BUTTON DLG_STOPREC_Q 1 1 -BEGIN - PROMPT 58 11 "" - MESSAGE RUN,773mod,-2,77qq,74,"Quadro Q","Q"|K_TAB,RILEGGI_QUADRI - PICTURE 123 - GROUP 1 -END - -TEXT DLG_NULL_R -BEGIN - PROMPT 62 12 "Quadro R" - GROUP 1 -END - -BUTTON DLG_STOPREC_R 1 1 -BEGIN - PROMPT 58 12 "" - PICTURE 123 - MESSAGE RUN,773mod,-2,77qr,75,"Quadro R","R"|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_S -BEGIN - PROMPT 62 13 "Quadro S" - GROUP 1 -END - -BUTTON DLG_STOPREC_S 1 1 -BEGIN - PROMPT 58 13 "" - PICTURE 123 - MESSAGE RUN,773mod,-2,77qs,76,"Quadro S","S"|K_TAB,RILEGGI_QUADRI - GROUP 1 -END - -TEXT DLG_NULL_T -BEGIN - PROMPT 62 14 "Quadro T" - GROUP 1 -END - -BUTTON DLG_STOPREC_T 1 1 -BEGIN - PROMPT 58 14 "" - PICTURE 123 - MESSAGE RUN,773mod,-2,77qt,77,"Quadro T","T"|K_TAB,RILEGGI_QUADRI - GROUP 1 -END -// Fine QUARTA colonna - -// -/////////// Colonna MENU' ANAGRAFICI //////////////////////////// -// -TEXT DLG_NULL_DICH -BEGIN - PROMPT 5 5 "Dichiarante" - FLAGS "H" - GROUP 2 -END - -BUTTON DLG_STOPREC_DICH 1 1 -BEGIN - PROMPT 1 5 "" - MESSAGE RUN,771MOD,-0,A - PICTURE 123 - FLAGS "H" - GROUP 2 -END - -TEXT DLG_NULL_RAPP -BEGIN - PROMPT 5 6 "Rappresentante" - FLAGS "H" - GROUP 2 -END - -BUTTON DLG_STOPREC_RAPP 1 1 -BEGIN - PROMPT 1 6 "" - PICTURE 123 - MESSAGE RUN,771MOD,-0,C - FLAGS "H" - GROUP 2 -END - -TEXT DLG_NULL_SCRIT -BEGIN - PROMPT 5 7 "Scritture contabili" - FLAGS "H" - GROUP 2 -END - -BUTTON DLG_STOPREC_SCRIT 1 1 -BEGIN - PROMPT 1 7 "" - PICTURE 123 - MESSAGE RUN,771MOD,-0,D - FLAGS "H" - GROUP 2 -END - -TEXT DLG_NULL_CAAF -BEGIN - PROMPT 5 8 "Dati C.A.A." - FLAGS "H" - GROUP 2 -END - -BUTTON DLG_STOPREC_CAAF 1 1 -BEGIN - PROMPT 1 8 "" - PICTURE 123 - MESSAGE RUN,771MOD,-0,E - FLAGS "H" - GROUP 2 -END - -TEXT DLG_NULL_DIRET -BEGIN - PROMPT 5 9 "Direttore / Professionista" - FLAGS "H" - GROUP 2 -END - -BUTTON DLG_STOPREC_DIRET 1 1 -BEGIN - PROMPT 1 9 "" - PICTURE 123 - MESSAGE RUN,771MOD,-0,F - FLAGS "H" - GROUP 2 -END - -TEXT DLG_NULL_CONC -BEGIN - PROMPT 5 10 "Concessione / UIDD" - FLAGS "H" - GROUP 2 -END - -BUTTON DLG_STOPREC_CONC 1 1 -BEGIN - PROMPT 1 10 "" - PICTURE 123 - MESSAGE RUN,771MOD,-0,G - FLAGS "H" - GROUP 2 -END - -TEXT DLG_NULL_DIC0 -BEGIN - PROMPT 5 11 "Gestione dichiarante / estinti" - FLAGS "HD" - GROUP 2 -END - -BUTTON DLG_STOPREC_DIC0 1 1 -BEGIN - PROMPT 1 11 "" - PICTURE 123 - MESSAGE RUN,776MOD,-5 - FLAGS "H" - GROUP 2 -END - -TEXT DLG_NULL_SOCTRA -BEGIN - PROMPT 5 12 "Manutenzione dati società trasformate" - FLAGS "HD" - GROUP 2 -END - -BUTTON DLG_STOPREC_SOCTRA 1 1 -BEGIN - PROMPT 1 12 "" - PICTURE 123 - MESSAGE RUN,773mod,-1,771100h,102,"Manutenzione dati società trasformate" - FLAGS "H" - GROUP 2 -END - -/////////// Fine colonna MENU' ANAGRAFICI //////////////////////////// - -/////////// Inizio colonna MENU' STAMPE //////////////////////////// -TEXT DLG_NULL_ST0 -BEGIN - PROMPT 5 5 "Stampa schede percipienti" - FLAGS "H" - GROUP 3 -END - -BUTTON DLG_STOPREC_ST0 1 1 -BEGIN - PROMPT 1 5 "" - MESSAGE RUN,772MOD,-0 - PICTURE 123 - FLAGS "H" - GROUP 3 -END - -TEXT DLG_NULL_ST1 -BEGIN - PROMPT 5 6 "Stampa certificazioni" - FLAGS "H" - GROUP 3 -END - -BUTTON DLG_STOPREC_ST1 1 1 -BEGIN - PROMPT 1 6 "" - PICTURE 123 - MESSAGE RUN,772MOD,-1 - FLAGS "H" - GROUP 3 -END - -TEXT DLG_NULL_ST2 -BEGIN - PROMPT 5 7 "Stampa movimenti percipienti" - FLAGS "H" - GROUP 3 -END - -BUTTON DLG_STOPREC_ST2 1 1 -BEGIN - PROMPT 1 7 "" - PICTURE 123 - MESSAGE RUN,772MOD,-2 - FLAGS "H" - GROUP 3 -END - -TEXT DLG_NULL_ST3 -BEGIN - PROMPT 5 8 "Stampa controllo versamento ritenute" - FLAGS "H" - GROUP 3 -END - -BUTTON DLG_STOPREC_ST3 1 1 -BEGIN - PROMPT 1 8 "" - PICTURE 123 - MESSAGE RUN,772MOD,-3 - FLAGS "H" - GROUP 3 -END - -TEXT DLG_NULL_STQD -BEGIN - PROMPT 5 9 "Menu stampe dichiarazioni" - FLAGS "H" - GROUP 3 -END - -BUTTON DLG_STOPREC_STQD 1 1 -BEGIN - PROMPT 1 9 "" - PICTURE 123 - FLAGS "H" - MESSAGE HIDE,3@|SHOW,5@ - GROUP 3 -END - -#define COL1 5 -#define COL2 24 -#define COL3 5 -#define COL4 5 - -#define ROW1 7 -#define ROW2 8 -#define ROW3 9 -#define ROW4 10 -#define ROW5 11 -#define ROW6 12 - -#define HIDDEN "H" -#define MYFLAGS "H" -#define GRUPPO 5 - -// Prima colonna -TEXT T_BASE -BEGIN - PROMPT COL1 ROW1 "Quadro Base" - GROUP GRUPPO - FLAGS MYFLAGS -END - -BUTTON B_BASE 1 1 -BEGIN - PROMPT 1 ROW1 "" - MESSAGE RUN,772MOD,-4,Base,D - PICTURE 123 - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_LAGG -BEGIN - PROMPT COL1 ROW2 "Quadro L agg." - GROUP GRUPPO - FLAGS MYFLAGS -END - -BUTTON B_LAGG 1 1 -BEGIN - PROMPT 1 ROW2 "" - MESSAGE RUN,772MOD,-4,L,D - PICTURE 123 - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_NAGG -BEGIN - PROMPT COL1 ROW3 "Quadro N agg." - GROUP GRUPPO - FLAGS MYFLAGS -END - -BUTTON B_NAGG 1 1 -BEGIN - PROMPT 1 ROW3 "" - MESSAGE RUN,772MOD,-4,N,D - PICTURE 123 - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_ALLSOC -BEGIN - PROMPT COL1 ROW4 "Allegato Soci " - GROUP GRUPPO - FLAGS MYFLAGS -END - -BUTTON B_ALLSOC 1 1 -BEGIN - PROMPT 1 ROW4 "" - MESSAGE RUN,772MOD,-4,S,D - PICTURE 123 - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_ALLG -BEGIN - PROMPT COL1 ROW5 "Allegato G " - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_ALLG 1 1 -BEGIN - PROMPT 1 ROW5 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,J,D - FLAGS MYFLAGS - GROUP GRUPPO -END -// Fine prima colonna - - -// Seconda colonna -TEXT T_A -BEGIN - PROMPT 24 ROW1 "Quadro A " - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_A 1 1 -BEGIN - PROMPT 20 ROW1 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,A,D|K_TAB,RILEGGI_QUADRI - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_A1 -BEGIN - PROMPT 24 ROW2 "Quadro A1 " - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_A1 1 1 -BEGIN - PROMPT 20 ROW2 "" - PICTURE 123 - FLAGS MYFLAGS - MESSAGE RUN,772MOD,-4,A1,D|K_TAB,RILEGGI_QUADRI - GROUP GRUPPO -END - -TEXT T_A2 -BEGIN - PROMPT 24 ROW3 "Quadro A2 " - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_A2 1 1 -BEGIN - PROMPT 20 ROW3 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,A2,D|K_TAB,RILEGGI_QUADRI - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_A3 -BEGIN - PROMPT 24 ROW4 "Quadro A3 " - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_A3 1 1 -BEGIN - PROMPT 20 ROW4 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,A3,D|K_TAB,RILEGGI_QUADRI - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_B -BEGIN - PROMPT 24 ROW5 "Quadro B" - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_B 1 1 -BEGIN - PROMPT 20 ROW5 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,B,D|K_TAB,RILEGGI_QUADRI - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_B1 -BEGIN - PROMPT 24 ROW6 "Quadro B1" - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_B1 1 1 -BEGIN - PROMPT 20 ROW6 "" - PICTURE 123 -// MESSAGE RUN,771MOD,-6,0|K_TAB,RILEGGI_QUADRI - FLAGS MYFLAGS - GROUP GRUPPO -END -// Fine seconda colonna - -// Terza colonna -TEXT T_C -BEGIN - PROMPT 43 ROW1 "Quadro C" - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_C 1 1 -BEGIN - PROMPT 39 ROW1 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,C,D|K_TAB,RILEGGI_QUADRI - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_D -BEGIN - PROMPT 43 ROW2 "Quadro D" - FLAGS HIDDEN - GROUP GRUPPO -END - -BUTTON B_D 1 1 -BEGIN - PROMPT 39 ROW2 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,D,D - FLAGS HIDDEN - GROUP GRUPPO -END - -TEXT T_D1 -BEGIN - PROMPT 43 ROW3 "Quadro D1" - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_D1 1 1 -BEGIN - PROMPT 39 ROW3 "" - PICTURE 123 - FLAGS MYFLAGS - MESSAGE RUN,772MOD,-4,D1,D|K_TAB,RILEGGI_QUADRI - GROUP GRUPPO -END - -TEXT T_E -BEGIN - PROMPT 43 ROW4 "Quadro E " - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_E 1 1 -BEGIN - PROMPT 39 ROW4 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,E,D|K_TAB,RILEGGI_QUADRI - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_E1 -BEGIN - PROMPT 43 ROW5 "Quadro E1 " - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_E1 1 1 -BEGIN - PROMPT 39 ROW5 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,E1,D|K_TAB,RILEGGI_QUADRI - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_E2 -BEGIN - PROMPT 43 ROW6 "Quadro E2 " - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_E2 1 1 -BEGIN - PROMPT 39 ROW6 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,E2,D|K_TAB,RILEGGI_QUADRI - FLAGS MYFLAGS - GROUP GRUPPO -END -// Fine terza colonna - -// QUARTA colonna -TEXT T_F -BEGIN - PROMPT 62 ROW1 "Quadro F" - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_F 1 1 -BEGIN - PROMPT 58 ROW1 "" - PICTURE 123 -// MESSAGE RUN,771MOD,-1 - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_F1 -BEGIN - PROMPT 62 ROW2 "Quadro F1" - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_F1 1 1 -BEGIN - PROMPT 58 ROW2 "" - PICTURE 123 -// MESSAGE RUN,771MOD,-1 - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_F2 -BEGIN - PROMPT 62 ROW3 "Quadro F2" - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_F2 1 1 -BEGIN - PROMPT 58 ROW3 "" - PICTURE 123 -// MESSAGE RUN,771MOD,-1 - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_G -BEGIN - PROMPT 62 ROW4 "Quadro G" - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_G 1 1 -BEGIN - PROMPT 58 ROW4 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,G,D - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_G1 -BEGIN - PROMPT 62 ROW5 "Quadro G1" - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_G1 1 1 -BEGIN - PROMPT 58 ROW5 "" - PICTURE 123 -// MESSAGE RUN,771MOD,-1 - FLAGS MYFLAGS - GROUP GRUPPO -END - -TEXT T_H -BEGIN - PROMPT 62 ROW6 "Quadro H" - FLAGS MYFLAGS - GROUP GRUPPO -END - -BUTTON B_H 1 1 -BEGIN - PROMPT 58 ROW6 "" - PICTURE 123 - MESSAGE RUN,772MOD,-4,H,D - FLAGS MYFLAGS - GROUP GRUPPO -END -// Fine QUARTA colonna - - -/////////// Fine colonna MENU' STAMPE //////////////////////////// - -/////////// Inizio colonna MENU' SOGG. DICHIARANTE //////////////////////////// -TEXT DLG_NULL_SD0 -BEGIN - PROMPT 5 5 "Quadro I" - FLAGS "H" - GROUP 4 -END - -BUTTON DLG_STOPREC_SD0 1 1 -BEGIN - PROMPT 1 5 "" - MESSAGE RUN,771MOD,-2,1|K_TAB,RILEGGI_QUADRI - PICTURE 123 - FLAGS "H" - GROUP 4 -END - -TEXT DLG_NULL_SD1 -BEGIN - PROMPT 5 6 "Prospetto dati generali" - FLAGS "H" - GROUP 4 -END - -BUTTON DLG_STOPREC_SD1 1 1 -BEGIN - PROMPT 1 6 "" - PICTURE 123 - MESSAGE RUN,771MOD,-2,2|K_TAB,RILEGGI_QUADRI - FLAGS "H" - GROUP 4 -END - -TEXT DLG_NULL_SD2 -BEGIN - PROMPT 5 7 "Generazione riporti" - FLAGS "H" - GROUP 4 -END - -BUTTON DLG_STOPREC_SD2 1 1 -BEGIN - PROMPT 1 7 "" - PICTURE 123 - MESSAGE RUN,774,-1,D - FLAGS "H" - GROUP 4 -END - -/////////// Fine colonna MENU' SOGG. DICHIARANTE //////////////////////////// - -ENDPAGE - -ENDMASK - +// Menu manutenzione quadri +#include "776100b.h" +TOOLBAR "" 0 19 0 0 + +BUTTON DLG_CANCEL 20 2 +BEGIN + PROMPT -22 -11 "Menu precedente" + GROUP 1 +END + +BUTTON DLG_QUIT 20 2 +BEGIN + PROMPT -12 -11 "Fine" +END + +BUTTON DLG_CANCEL_MENU 20 2 +BEGIN + PROMPT -22 -11 "Menu precedente" + GROUP 2 + FLAGS "H" +END + +BUTTON DLG_CANCEL_MENU_ST 20 2 +BEGIN + PROMPT -22 -11 "Menu precedente" + GROUP 3 + FLAGS "H" +END + +BUTTON DLG_CANCEL_MENU_SD 20 2 +BEGIN + PROMPT -22 -11 "Menu precedente" + GROUP 4 + FLAGS "H" +END + +#define DLG_CANCEL_MENUSTQ 303 + +BUTTON DLG_CANCEL_MENUSTQ 20 2 +BEGIN + PROMPT -22 -11 "Menu precedente" + GROUP 5 + FLAGS "H" + MESSAGE HIDE,5@|SHOW,3@ +END + +ENDPAGE + +PAGE "Manutenzione dichiarazione" -1 -1 78 21 + +// Serve solo per rileggere i quadri compilati (nel suo handler) +NUMBER RILEGGI_QUADRI 1 +BEGIN + PROMPT 1 1 "" + FLAGS "H" +END + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "D" + FIELD LF_BASE->CODDITTA +END + +STRING F_RAGDITTA 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "D" +END + +NUMBER F_ANNODIC 4 +BEGIN + PROMPT 52 3 "Anno dichiarazione " + FLAGS "DR" +END + +TEXT DLG_NULL +BEGIN + PROMPT 5 5 "Manutenzione dati anagrafici" + GROUP 1 +END + +// Il menu viene richiamato nell'handler di questo bottone +BUTTON DLG_MANUTENZ 1 1 +BEGIN + PROMPT 1 5 "" + PICTURE 123 + GROUP 1 +END + +// Aggancia il menu' sogg.dich. +TEXT DLG_NULL_SD +BEGIN + PROMPT 5 6 "Soggetto dichiarante" + FLAGS "D" + GROUP 1 +END + +// Il menu' viene richiamato nell'handler di questo bottone +BUTTON DLG_STOPREC_SD 1 1 +BEGIN + PROMPT 1 6 "" + PICTURE 123 + GROUP 1 +END + +TEXT DLG_NULL +BEGIN + PROMPT 5 7 "Anagrafica dipendenti" + GROUP 1 +END + +BUTTON DLG_STOPREC_AD 1 1 +BEGIN + PROMPT 1 7 "" + PICTURE 123 + GROUP 1 + MESSAGE RUN,773mod,-1,771150a,45,"Anagrafica dipendenti"|K_TAB,RILEGGI_QUADRI +END + +TEXT DLG_NULL +BEGIN + PROMPT 5 8 "Scheda percipienti" + GROUP 1 +END + +BUTTON DLG_STOPREC_SP 1 1 +BEGIN + PROMPT 1 8 "" + GROUP 1 + MESSAGE RUN,770,-0 +END + +TEXT DLG_NULL_SOCI +BEGIN + PROMPT 43 5 "Manutenzione amministratori" + GROUP 1 +END + +BUTTON DLG_MANUTENZ_SOCI 1 1 +BEGIN + PROMPT 39 5 "" + PICTURE 123 + GROUP 1 +END + +TEXT DLG_NULL +BEGIN + PROMPT 43 6 "Invio/Ricezione ministeriale" + GROUP 1 +END + +BUTTON DLG_STOPREC_IR 1 1 +BEGIN + PROMPT 39 6 "" + PICTURE 123 + FLAGS "D" + GROUP 1 +END + +BUTTON DLG_STOPREC_DG 1 1 +BEGIN + PROMPT 39 7 "" + MESSAGE RUN,771MOD,-2,W|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_DG +BEGIN + PROMPT 43 7 "Prospetto dati generali" + GROUP 1 +END + +TEXT DLG_NULL_ST +BEGIN + PROMPT 43 8 "Stampe" + GROUP 1 +END + +// Il menu' viene richiamato nell'handler di questo bottone +BUTTON DLG_STOPREC_ST 1 1 +BEGIN + PROMPT 39 8 "" + PICTURE 123 + GROUP 1 +END + + +// Prima colonna +TEXT DLG_NULL_A +BEGIN + PROMPT 5 10 "Quadro A" + GROUP 1 +END + +BUTTON DLG_STOPREC_A 1 1 +BEGIN + PROMPT 1 10 "" + MESSAGE RUN,771MOD,-7,A|K_TAB,RILEGGI_QUADRI + PICTURE 123 + GROUP 1 +END + +TEXT DLG_NULL_A1 +BEGIN + PROMPT 5 11 "Quadro A1" + GROUP 1 +END + +BUTTON DLG_STOPREC_A1 1 1 +BEGIN + PROMPT 1 11 "" + MESSAGE RUN,771MOD,-7,1|K_TAB,RILEGGI_QUADRI + PICTURE 123 + GROUP 1 +END + +TEXT DLG_NULL_A2 +BEGIN + PROMPT 5 12 "Quadro A2" + GROUP 1 + FLAGS "D" +END + +BUTTON DLG_STOPREC_A2 1 1 +BEGIN + PROMPT 1 12 "" + MESSAGE RUN,771MOD,-7,2|K_TAB,RILEGGI_QUADRI + PICTURE 123 + GROUP 1 +END + +TEXT DLG_NULL_A3 +BEGIN + PROMPT 5 13 "Quadro A3" + GROUP 1 +END + +BUTTON DLG_STOPREC_A3 1 1 +BEGIN + PROMPT 1 13 "" + MESSAGE RUN,771MOD,-7,3|K_TAB,RILEGGI_QUADRI + PICTURE 123 + GROUP 1 +END + +TEXT DLG_NULL_B +BEGIN + PROMPT 5 14 "Quadro B" + GROUP 1 +END + +BUTTON DLG_STOPREC_B 1 1 +BEGIN + PROMPT 1 14 "" + PICTURE 123 + MESSAGE RUN,773mod,-4,77qb,59,"Quadro B","B"|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_B1 +BEGIN + PROMPT 5 15 "Quadro B-1" + GROUP 1 +END + +BUTTON DLG_STOPREC_B1 1 1 +BEGIN + PROMPT 1 15 "" + PICTURE 123 + MESSAGE RUN,773mod,-4,77qb1,60,"Quadro B1","B1"|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_C +BEGIN + PROMPT 5 16 "Quadro C " + GROUP 1 +END + +BUTTON DLG_STOPREC_C 1 1 +BEGIN + PROMPT 1 16 "" + PICTURE 123 + MESSAGE RUN,771MOD,-5,C|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +// Fine prima colonna + +// +// Seconda colonna +// + +TEXT DLG_NULL_D +BEGIN + PROMPT 24 10 "Quadro D " + GROUP 1 +END + +BUTTON DLG_STOPREC_D 1 1 +BEGIN + PROMPT 20 10 "" + PICTURE 123 + MESSAGE RUN,771MOD,-5,D|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_D1 +BEGIN + PROMPT 24 11 "Quadro D-1 " + GROUP 1 +END + +BUTTON DLG_STOPREC_D1 1 1 +BEGIN + PROMPT 20 11 "" + PICTURE 123 + MESSAGE RUN,771MOD,-5,1|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_E +BEGIN + PROMPT 24 12 "Quadro E " + GROUP 1 +END + +BUTTON DLG_STOPREC_E 1 1 +BEGIN + PROMPT 20 12 "" + PICTURE 123 + MESSAGE RUN,771MOD,-5,E|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_E1 +BEGIN + PROMPT 24 13 "Quadro E-1 " + GROUP 1 +END + +BUTTON DLG_STOPREC_E1 1 1 +BEGIN + PROMPT 20 13 "" + PICTURE 123 + MESSAGE RUN,771MOD,-5,2|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_E2 +BEGIN + PROMPT 24 14 "Quadro E-2" + FLAGS "D" + GROUP 1 +END + +BUTTON DLG_STOPREC_E2 1 1 +BEGIN + PROMPT 20 14 "" + PICTURE 123 + MESSAGE RUN,771MOD,-5,3|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_F +BEGIN + PROMPT 24 15 "Quadro F" + GROUP 1 +END + +BUTTON DLG_STOPREC_F 1 1 +BEGIN + PROMPT 20 15 "" + PICTURE 123 + MESSAGE RUN,771MOD,-6,0|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_F1 +BEGIN + PROMPT 24 16 "Quadro F-1" + GROUP 1 +END + +BUTTON DLG_STOPREC_F1 1 1 +BEGIN + PROMPT 20 16 "" + PICTURE 123 + MESSAGE RUN,771MOD,-6,1|K_TAB,RILEGGI_QUADRI + GROUP 1 +END +// Fine seconda colonna + +// Terza colonna + +TEXT DLG_NULL_F2 +BEGIN + PROMPT 43 10 "Quadro F-2" + GROUP 1 +END + +BUTTON DLG_STOPREC_F2 1 1 +BEGIN + PROMPT 39 10 "" + PICTURE 123 + MESSAGE RUN,771MOD,-6,2|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_G +BEGIN + PROMPT 43 11 "Quadro G" + GROUP 1 +END + +BUTTON DLG_STOPREC_G 1 1 +BEGIN + PROMPT 39 11 "" + PICTURE 123 + MESSAGE RUN,771MOD,-6,3|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_G1 +BEGIN + PROMPT 43 12 "Quadro G-1" + GROUP 1 +END + +BUTTON DLG_STOPREC_G1 1 1 +BEGIN + PROMPT 39 12 "" + PICTURE 123 + MESSAGE RUN,771MOD,-6,5|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_H +BEGIN + PROMPT 43 13 "Quadro H " + GROUP 1 +END + +BUTTON DLG_STOPREC_H 1 1 +BEGIN + PROMPT 39 13 "" + PICTURE 123 + MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_I +BEGIN + PROMPT 43 14 "Quadro I " + GROUP 1 +END + +BUTTON DLG_STOPREC_I 1 1 +BEGIN + PROMPT 39 14 "" + PICTURE 123 + MESSAGE RUN,771MOD,-2,I|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_L +BEGIN + PROMPT 43 15 "Quadro L " + GROUP 1 +END + +// Forza l'esecuzione di leggi_quadri() +BUTTON DLG_STOPREC_L 1 1 +BEGIN + PROMPT 39 15 "" + PICTURE 123 + MESSAGE RUN,771MOD,-3|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_N +BEGIN + PROMPT 43 16 "Quadro N" + GROUP 1 +END + +BUTTON DLG_STOPREC_N 1 1 +BEGIN + PROMPT 39 16 "" + PICTURE 123 + MESSAGE RUN,773mod,-2,77qn,72,"Quadro N","N"|K_TAB,RILEGGI_QUADRI + GROUP 1 +END +// Fine terza colonna + +// QUARTA colonna +TEXT DLG_NULL_P +BEGIN + PROMPT 62 10 "Quadro P" + GROUP 1 +END + +BUTTON DLG_STOPREC_P 1 1 +BEGIN + PROMPT 58 10 "" + PICTURE 123 + MESSAGE RUN,773mod,-2,77qp,73,"Quadro P","P"|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_Q +BEGIN + PROMPT 62 11 "Quadro Q" + GROUP 1 +END + +BUTTON DLG_STOPREC_Q 1 1 +BEGIN + PROMPT 58 11 "" + MESSAGE RUN,773mod,-2,77qq,74,"Quadro Q","Q"|K_TAB,RILEGGI_QUADRI + PICTURE 123 + GROUP 1 +END + +TEXT DLG_NULL_R +BEGIN + PROMPT 62 12 "Quadro R" + GROUP 1 +END + +BUTTON DLG_STOPREC_R 1 1 +BEGIN + PROMPT 58 12 "" + PICTURE 123 + MESSAGE RUN,773mod,-2,77qr,75,"Quadro R","R"|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_S +BEGIN + PROMPT 62 13 "Quadro S" + GROUP 1 +END + +BUTTON DLG_STOPREC_S 1 1 +BEGIN + PROMPT 58 13 "" + PICTURE 123 + MESSAGE RUN,773mod,-2,77qs,76,"Quadro S","S"|K_TAB,RILEGGI_QUADRI + GROUP 1 +END + +TEXT DLG_NULL_T +BEGIN + PROMPT 62 14 "Quadro T" + GROUP 1 +END + +BUTTON DLG_STOPREC_T 1 1 +BEGIN + PROMPT 58 14 "" + PICTURE 123 + MESSAGE RUN,773mod,-2,77qt,77,"Quadro T","T"|K_TAB,RILEGGI_QUADRI + GROUP 1 +END +// Fine QUARTA colonna + +// +/////////// Colonna MENU' ANAGRAFICI //////////////////////////// +// +TEXT DLG_NULL_DICH +BEGIN + PROMPT 5 5 "Dichiarante" + FLAGS "H" + GROUP 2 +END + +BUTTON DLG_STOPREC_DICH 1 1 +BEGIN + PROMPT 1 5 "" + MESSAGE RUN,771MOD,-0,A + PICTURE 123 + FLAGS "H" + GROUP 2 +END + +TEXT DLG_NULL_RAPP +BEGIN + PROMPT 5 6 "Rappresentante" + FLAGS "H" + GROUP 2 +END + +BUTTON DLG_STOPREC_RAPP 1 1 +BEGIN + PROMPT 1 6 "" + PICTURE 123 + MESSAGE RUN,771MOD,-0,C + FLAGS "H" + GROUP 2 +END + +TEXT DLG_NULL_SCRIT +BEGIN + PROMPT 5 7 "Scritture contabili" + FLAGS "H" + GROUP 2 +END + +BUTTON DLG_STOPREC_SCRIT 1 1 +BEGIN + PROMPT 1 7 "" + PICTURE 123 + MESSAGE RUN,771MOD,-0,D + FLAGS "H" + GROUP 2 +END + +TEXT DLG_NULL_CAAF +BEGIN + PROMPT 5 8 "Dati C.A.A." + FLAGS "H" + GROUP 2 +END + +BUTTON DLG_STOPREC_CAAF 1 1 +BEGIN + PROMPT 1 8 "" + PICTURE 123 + MESSAGE RUN,771MOD,-0,E + FLAGS "H" + GROUP 2 +END + +TEXT DLG_NULL_DIRET +BEGIN + PROMPT 5 9 "Direttore / Professionista" + FLAGS "H" + GROUP 2 +END + +BUTTON DLG_STOPREC_DIRET 1 1 +BEGIN + PROMPT 1 9 "" + PICTURE 123 + MESSAGE RUN,771MOD,-0,F + FLAGS "H" + GROUP 2 +END + +TEXT DLG_NULL_CONC +BEGIN + PROMPT 5 10 "Concessione / UIDD" + FLAGS "H" + GROUP 2 +END + +BUTTON DLG_STOPREC_CONC 1 1 +BEGIN + PROMPT 1 10 "" + PICTURE 123 + MESSAGE RUN,771MOD,-0,G + FLAGS "H" + GROUP 2 +END + +TEXT DLG_NULL_DIC0 +BEGIN + PROMPT 5 11 "Gestione dichiarante / estinti" + FLAGS "HD" + GROUP 2 +END + +BUTTON DLG_STOPREC_DIC0 1 1 +BEGIN + PROMPT 1 11 "" + PICTURE 123 + MESSAGE RUN,776MOD,-5 + FLAGS "H" + GROUP 2 +END + +TEXT DLG_NULL_SOCTRA +BEGIN + PROMPT 5 12 "Manutenzione dati società trasformate" + FLAGS "HD" + GROUP 2 +END + +BUTTON DLG_STOPREC_SOCTRA 1 1 +BEGIN + PROMPT 1 12 "" + PICTURE 123 + MESSAGE RUN,773mod,-1,771100h,102,"Manutenzione dati società trasformate" + FLAGS "H" + GROUP 2 +END + +/////////// Fine colonna MENU' ANAGRAFICI //////////////////////////// + +/////////// Inizio colonna MENU' STAMPE //////////////////////////// +TEXT DLG_NULL_ST0 +BEGIN + PROMPT 5 5 "Stampa schede percipienti" + FLAGS "H" + GROUP 3 +END + +BUTTON DLG_STOPREC_ST0 1 1 +BEGIN + PROMPT 1 5 "" + MESSAGE RUN,772MOD,-0 + PICTURE 123 + FLAGS "H" + GROUP 3 +END + +TEXT DLG_NULL_ST1 +BEGIN + PROMPT 5 6 "Stampa certificazioni" + FLAGS "H" + GROUP 3 +END + +BUTTON DLG_STOPREC_ST1 1 1 +BEGIN + PROMPT 1 6 "" + PICTURE 123 + MESSAGE RUN,772MOD,-1 + FLAGS "H" + GROUP 3 +END + +TEXT DLG_NULL_ST2 +BEGIN + PROMPT 5 7 "Stampa movimenti percipienti" + FLAGS "H" + GROUP 3 +END + +BUTTON DLG_STOPREC_ST2 1 1 +BEGIN + PROMPT 1 7 "" + PICTURE 123 + MESSAGE RUN,772MOD,-2 + FLAGS "H" + GROUP 3 +END + +TEXT DLG_NULL_ST3 +BEGIN + PROMPT 5 8 "Stampa controllo versamento ritenute" + FLAGS "H" + GROUP 3 +END + +BUTTON DLG_STOPREC_ST3 1 1 +BEGIN + PROMPT 1 8 "" + PICTURE 123 + MESSAGE RUN,772MOD,-3 + FLAGS "H" + GROUP 3 +END + +TEXT DLG_NULL_STQD +BEGIN + PROMPT 5 9 "Menu stampe dichiarazioni" + FLAGS "H" + GROUP 3 +END + +BUTTON DLG_STOPREC_STQD 1 1 +BEGIN + PROMPT 1 9 "" + PICTURE 123 + FLAGS "H" + MESSAGE HIDE,3@|SHOW,5@ + GROUP 3 +END + +#define COL1 5 +#define COL2 24 +#define COL3 5 +#define COL4 5 + +#define ROW1 7 +#define ROW2 8 +#define ROW3 9 +#define ROW4 10 +#define ROW5 11 +#define ROW6 12 + +#define HIDDEN "H" +#define MYFLAGS "H" +#define GRUPPO 5 + +// Prima colonna +TEXT T_BASE +BEGIN + PROMPT COL1 ROW1 "Quadro Base" + GROUP GRUPPO + FLAGS MYFLAGS +END + +BUTTON B_BASE 1 1 +BEGIN + PROMPT 1 ROW1 "" + MESSAGE RUN,772MOD,-4,Base,D + PICTURE 123 + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_LAGG +BEGIN + PROMPT COL1 ROW2 "Quadro L agg." + GROUP GRUPPO + FLAGS MYFLAGS +END + +BUTTON B_LAGG 1 1 +BEGIN + PROMPT 1 ROW2 "" + MESSAGE RUN,772MOD,-4,L,D + PICTURE 123 + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_NAGG +BEGIN + PROMPT COL1 ROW3 "Quadro N agg." + GROUP GRUPPO + FLAGS MYFLAGS +END + +BUTTON B_NAGG 1 1 +BEGIN + PROMPT 1 ROW3 "" + MESSAGE RUN,772MOD,-4,N,D + PICTURE 123 + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_ALLSOC +BEGIN + PROMPT COL1 ROW4 "Allegato Soci " + GROUP GRUPPO + FLAGS MYFLAGS +END + +BUTTON B_ALLSOC 1 1 +BEGIN + PROMPT 1 ROW4 "" + MESSAGE RUN,772MOD,-4,S,D + PICTURE 123 + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_ALLG +BEGIN + PROMPT COL1 ROW5 "Allegato G " + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_ALLG 1 1 +BEGIN + PROMPT 1 ROW5 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,J,D + FLAGS MYFLAGS + GROUP GRUPPO +END +// Fine prima colonna + + +// Seconda colonna +TEXT T_A +BEGIN + PROMPT 24 ROW1 "Quadro A " + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_A 1 1 +BEGIN + PROMPT 20 ROW1 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,A,D|K_TAB,RILEGGI_QUADRI + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_A1 +BEGIN + PROMPT 24 ROW2 "Quadro A1 " + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_A1 1 1 +BEGIN + PROMPT 20 ROW2 "" + PICTURE 123 + FLAGS MYFLAGS + MESSAGE RUN,772MOD,-4,A1,D|K_TAB,RILEGGI_QUADRI + GROUP GRUPPO +END + +TEXT T_A2 +BEGIN + PROMPT 24 ROW3 "Quadro A2 " + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_A2 1 1 +BEGIN + PROMPT 20 ROW3 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,A2,D|K_TAB,RILEGGI_QUADRI + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_A3 +BEGIN + PROMPT 24 ROW4 "Quadro A3 " + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_A3 1 1 +BEGIN + PROMPT 20 ROW4 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,A3,D|K_TAB,RILEGGI_QUADRI + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_B +BEGIN + PROMPT 24 ROW5 "Quadro B" + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_B 1 1 +BEGIN + PROMPT 20 ROW5 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,B,D|K_TAB,RILEGGI_QUADRI + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_B1 +BEGIN + PROMPT 24 ROW6 "Quadro B1" + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_B1 1 1 +BEGIN + PROMPT 20 ROW6 "" + PICTURE 123 +// MESSAGE RUN,771MOD,-6,0|K_TAB,RILEGGI_QUADRI + FLAGS MYFLAGS + GROUP GRUPPO +END +// Fine seconda colonna + +// Terza colonna +TEXT T_C +BEGIN + PROMPT 43 ROW1 "Quadro C" + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_C 1 1 +BEGIN + PROMPT 39 ROW1 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,C,D|K_TAB,RILEGGI_QUADRI + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_D +BEGIN + PROMPT 43 ROW2 "Quadro D" + FLAGS HIDDEN + GROUP GRUPPO +END + +BUTTON B_D 1 1 +BEGIN + PROMPT 39 ROW2 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,D,D + FLAGS HIDDEN + GROUP GRUPPO +END + +TEXT T_D1 +BEGIN + PROMPT 43 ROW3 "Quadro D1" + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_D1 1 1 +BEGIN + PROMPT 39 ROW3 "" + PICTURE 123 + FLAGS MYFLAGS + MESSAGE RUN,772MOD,-4,D1,D|K_TAB,RILEGGI_QUADRI + GROUP GRUPPO +END + +TEXT T_E +BEGIN + PROMPT 43 ROW4 "Quadro E " + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_E 1 1 +BEGIN + PROMPT 39 ROW4 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,E,D|K_TAB,RILEGGI_QUADRI + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_E1 +BEGIN + PROMPT 43 ROW5 "Quadro E1 " + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_E1 1 1 +BEGIN + PROMPT 39 ROW5 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,E1,D|K_TAB,RILEGGI_QUADRI + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_E2 +BEGIN + PROMPT 43 ROW6 "Quadro E2 " + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_E2 1 1 +BEGIN + PROMPT 39 ROW6 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,E2,D|K_TAB,RILEGGI_QUADRI + FLAGS MYFLAGS + GROUP GRUPPO +END +// Fine terza colonna + +// QUARTA colonna +TEXT T_F +BEGIN + PROMPT 62 ROW1 "Quadro F" + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_F 1 1 +BEGIN + PROMPT 58 ROW1 "" + PICTURE 123 +// MESSAGE RUN,771MOD,-1 + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_F1 +BEGIN + PROMPT 62 ROW2 "Quadro F1" + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_F1 1 1 +BEGIN + PROMPT 58 ROW2 "" + PICTURE 123 +// MESSAGE RUN,771MOD,-1 + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_F2 +BEGIN + PROMPT 62 ROW3 "Quadro F2" + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_F2 1 1 +BEGIN + PROMPT 58 ROW3 "" + PICTURE 123 +// MESSAGE RUN,771MOD,-1 + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_G +BEGIN + PROMPT 62 ROW4 "Quadro G" + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_G 1 1 +BEGIN + PROMPT 58 ROW4 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,G,D + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_G1 +BEGIN + PROMPT 62 ROW5 "Quadro G1" + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_G1 1 1 +BEGIN + PROMPT 58 ROW5 "" + PICTURE 123 +// MESSAGE RUN,771MOD,-1 + FLAGS MYFLAGS + GROUP GRUPPO +END + +TEXT T_H +BEGIN + PROMPT 62 ROW6 "Quadro H" + FLAGS MYFLAGS + GROUP GRUPPO +END + +BUTTON B_H 1 1 +BEGIN + PROMPT 58 ROW6 "" + PICTURE 123 + MESSAGE RUN,772MOD,-4,H,D + FLAGS MYFLAGS + GROUP GRUPPO +END +// Fine QUARTA colonna + + +/////////// Fine colonna MENU' STAMPE //////////////////////////// + +/////////// Inizio colonna MENU' SOGG. DICHIARANTE //////////////////////////// +TEXT DLG_NULL_SD0 +BEGIN + PROMPT 5 5 "Quadro I" + FLAGS "H" + GROUP 4 +END + +BUTTON DLG_STOPREC_SD0 1 1 +BEGIN + PROMPT 1 5 "" + MESSAGE RUN,771MOD,-2,1|K_TAB,RILEGGI_QUADRI + PICTURE 123 + FLAGS "H" + GROUP 4 +END + +TEXT DLG_NULL_SD1 +BEGIN + PROMPT 5 6 "Prospetto dati generali" + FLAGS "H" + GROUP 4 +END + +BUTTON DLG_STOPREC_SD1 1 1 +BEGIN + PROMPT 1 6 "" + PICTURE 123 + MESSAGE RUN,771MOD,-2,2|K_TAB,RILEGGI_QUADRI + FLAGS "H" + GROUP 4 +END + +TEXT DLG_NULL_SD2 +BEGIN + PROMPT 5 7 "Generazione riporti" + FLAGS "H" + GROUP 4 +END + +BUTTON DLG_STOPREC_SD2 1 1 +BEGIN + PROMPT 1 7 "" + PICTURE 123 + MESSAGE RUN,774,-1,D + FLAGS "H" + GROUP 4 +END + +/////////// Fine colonna MENU' SOGG. DICHIARANTE //////////////////////////// + +ENDPAGE + +ENDMASK + diff --git a/m770/776500a.uml b/m770/776500a.uml index 978982320..61224e138 100755 --- a/m770/776500a.uml +++ b/m770/776500a.uml @@ -1,162 +1,162 @@ -#include "776500.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -13 -1 "" -MESSAGE EXIT,K_SAVE -PICTURE BMP_SAVEREC -PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -23 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -33 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Prospetto dati generali" -1 -1 78 18 - -#define G_ABICAB 1 -#define G_DISTINTA 2 -#define G_CC 3 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 2 1 "Ditta " - FLAGS "RD" - USE LF_NDITTE KEY 1 - FIELD LF_BASE->CODDITTA - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale @50" RAGSOC - OUTPUT F_RAGSOC RAGSOC - KEY 1 -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 2 2 "Ragione sociale " - FLAGS "D" -END - -TEXT 96 -BEGIN - PROMPT 2 13 "Numero serie " - GROUP G_DISTINTA -END - -TEXT 97 -BEGIN - PROMPT 2 13 "Codice ABI " - GROUP G_ABICAB -END - -TEXT 98 -BEGIN - PROMPT 46 13 "Numero quietanza " - GROUP G_DISTINTA G_CC -END - -TEXT 99 -BEGIN - PROMPT 46 13 "Codice CAB " - GROUP G_ABICAB -END - -DATE F_DATAVERS -BEGIN - PROMPT 2 7 "Data versamento " - FIELD LF_BASE->DATAVERS - FLAGS "A" -END - -RADIOBUTTON F_LUOVERS 25 -BEGIN - PROMPT 2 8 "Luogo versamento " - ITEM "C|Concessione" - ITEM "T|Tesoreria" - FIELD LF_BASE->LUOVERS -END - -RADIOBUTTON F_TIPOVERS 26 -BEGIN - PROMPT 46 7 "Tipo versamento " - ITEM "B|Delega bancaria" - MESSAGE RESET,G_DISTINTA@|CLEAR,F_CCQUIETANZA|HIDE,G_DISTINTA@|HIDE,G_CC@|SHOW,G_ABICAB@ - ITEM "D|Distinta" - MESSAGE RESET,G_ABICAB@|CLEAR,F_CCQUIETANZA|HIDE,G_ABICAB@|HIDE,G_CC@|SHOW,G_DISTINTA@ - ITEM "C|C/C Postale" - MESSAGE RESET,G_ABICAB@|HIDE,G_ABICAB@|RESET,G_DISTINTA@|HIDE,G_DISTINTA@|SHOW,G_CC@|ENABLE,G_CC@ - FIELD LF_BASE->TIPOVERS -END - -NUMBER F_ABI 5 -BEGIN - PROMPT 18 13 "" - FIELD LF_BASE->SERIE - FLAGS "Z" - GROUP G_ABICAB -END - -NUMBER F_CAB 5 -BEGIN - PROMPT 63 13 "" - FIELD LF_BASE->NUMERO[1,5] - FLAGS "Z" - GROUP G_ABICAB -END - -NUMBER F_PROGBANCA 6 -BEGIN - PROMPT 69 13 "" - FLAGS "Z" - FIELD LF_BASE->NUMERO[6,11] - GROUP G_ABICAB -END - -STRING F_SERIE 5 -BEGIN - PROMPT 18 13 "" - FIELD LF_BASE->SERIE - GROUP G_DISTINTA -END - -STRING F_NUMERO 11 -BEGIN - PROMPT 63 13 "" - FIELD LF_BASE->NUMERO - GROUP G_DISTINTA -END - -STRING F_CCQUIETANZA 11 -BEGIN - PROMPT 63 13 "" - FIELD LF_BASE->NUMERO - GROUP G_CC -END - -GROUPBOX DLG_NULL 78 11 -BEGIN - PROMPT 0 5 "Dati relativi ai versamenti con codice 1015" -END - -ENDPAGE - +#include "776500.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -13 -1 "" +MESSAGE EXIT,K_SAVE +PICTURE BMP_SAVEREC +PICTURE BMP_SAVERECDN +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -23 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -33 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Prospetto dati generali" -1 -1 78 18 + +#define G_ABICAB 1 +#define G_DISTINTA 2 +#define G_CC 3 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "RD" + USE LF_NDITTE KEY 1 + FIELD LF_BASE->CODDITTA + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale @50" RAGSOC + OUTPUT F_RAGSOC RAGSOC + KEY 1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" +END + +TEXT 96 +BEGIN + PROMPT 2 13 "Numero serie " + GROUP G_DISTINTA +END + +TEXT 97 +BEGIN + PROMPT 2 13 "Codice ABI " + GROUP G_ABICAB +END + +TEXT 98 +BEGIN + PROMPT 46 13 "Numero quietanza " + GROUP G_DISTINTA G_CC +END + +TEXT 99 +BEGIN + PROMPT 46 13 "Codice CAB " + GROUP G_ABICAB +END + +DATE F_DATAVERS +BEGIN + PROMPT 2 7 "Data versamento " + FIELD LF_BASE->DATAVERS + FLAGS "A" +END + +RADIOBUTTON F_LUOVERS 25 +BEGIN + PROMPT 2 8 "Luogo versamento " + ITEM "C|Concessione" + ITEM "T|Tesoreria" + FIELD LF_BASE->LUOVERS +END + +RADIOBUTTON F_TIPOVERS 26 +BEGIN + PROMPT 46 7 "Tipo versamento " + ITEM "B|Delega bancaria" + MESSAGE RESET,G_DISTINTA@|CLEAR,F_CCQUIETANZA|HIDE,G_DISTINTA@|HIDE,G_CC@|SHOW,G_ABICAB@ + ITEM "D|Distinta" + MESSAGE RESET,G_ABICAB@|CLEAR,F_CCQUIETANZA|HIDE,G_ABICAB@|HIDE,G_CC@|SHOW,G_DISTINTA@ + ITEM "C|C/C Postale" + MESSAGE RESET,G_ABICAB@|HIDE,G_ABICAB@|RESET,G_DISTINTA@|HIDE,G_DISTINTA@|SHOW,G_CC@|ENABLE,G_CC@ + FIELD LF_BASE->TIPOVERS +END + +NUMBER F_ABI 5 +BEGIN + PROMPT 18 13 "" + FIELD LF_BASE->SERIE + FLAGS "Z" + GROUP G_ABICAB +END + +NUMBER F_CAB 5 +BEGIN + PROMPT 63 13 "" + FIELD LF_BASE->NUMERO[1,5] + FLAGS "Z" + GROUP G_ABICAB +END + +NUMBER F_PROGBANCA 6 +BEGIN + PROMPT 69 13 "" + FLAGS "Z" + FIELD LF_BASE->NUMERO[6,11] + GROUP G_ABICAB +END + +STRING F_SERIE 5 +BEGIN + PROMPT 18 13 "" + FIELD LF_BASE->SERIE + GROUP G_DISTINTA +END + +STRING F_NUMERO 11 +BEGIN + PROMPT 63 13 "" + FIELD LF_BASE->NUMERO + GROUP G_DISTINTA +END + +STRING F_CCQUIETANZA 11 +BEGIN + PROMPT 63 13 "" + FIELD LF_BASE->NUMERO + GROUP G_CC +END + +GROUPBOX DLG_NULL 78 11 +BEGIN + PROMPT 0 5 "Dati relativi ai versamenti con codice 1015" +END + +ENDPAGE + ENDMASK \ No newline at end of file diff --git a/m770/776600.cpp b/m770/776600.cpp index f9fe40cba..986d16855 100755 --- a/m770/776600.cpp +++ b/m770/776600.cpp @@ -1,197 +1,197 @@ -// 776600.cpp - Gestione estinti -#include -#include -#include -#include -#include -#include -#include "776600a.h" -#include "77lib.h" -// -// Lista modifiche -// 3.4.96 Aggiunto controllo in save() per impedire la creazione di un record-dichiarazione -// anche quando si vuol solo cancellare il codice dichiarante senza immetterne un altro -// - -class TEstinti_app : public TApplication -{ - long _codditta; - TMask* _msk; - TLocalisamfile* _base, *_basebis; - TRelation* _rel; - TCursor* _cur; - TBrowse_sheet* _estint_sheet; - TRectype& _rec; - static bool show_estinti(TMask_field& f, KEY k); - void force_output(int dlg, const long cod); - protected: - virtual bool create(); - virtual bool destroy(); - virtual bool menu(MENU_TAG m); - bool save(TMask& m, const long coddic_prec); - bool set_codditta(TMask_field& f); - bool main_loop(); -}; - -TEstinti_app& app() { return (TEstinti_app&) main_app(); } - -bool TEstinti_app::set_codditta(TMask_field& f) -{ - TString16 codditta; - codditta << get_firm_770(); - if (codditta != "0") - { - f.set(codditta); -// f.set_dirty(); - f.check(); - } - return TRUE; -} - -bool TEstinti_app::show_estinti(TMask_field& f, KEY k) -{ - if (k == K_SPACE) - app()._estint_sheet->run(); - return TRUE; -} - -bool TEstinti_app::create() -{ - TApplication::create(); - _base = new TLocalisamfile(LF_BASE); - _basebis = new TLocalisamfile(LF_BASEBIS); - _msk = new TMask("776600a"); - _rel = new TRelation(LF_BASE); - _rel->add(LF_NDITTE, "CODDITTA=CODDITTA"); - - _codditta = get_firm_770(); - set_codditta(_msk->field(F_CODDITTA)); - TString16 filt; - filt.format("CODDIC=%ld", _codditta); - _cur = new TCursor(_rel, filt); - TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY); - TToken_string siblings; - _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); - dispatch_e_menu (BAR_ITEM(1)); - return TRUE; -} - -bool TEstinti_app::destroy() -{ - delete _estint_sheet; - delete _rel; delete _cur; - delete _msk; delete _base; delete _basebis; - return TApplication::destroy(); -} - -void TEstinti_app::force_output(int dlg, const long codditta) -{ - TLocalisamfile ditte(LF_NDITTE); - ditte.zero(); - ditte.put("CODDITTA", (long)codditta); - int ret = ditte.read(_isequal); - if (ret == NOERR) - { - TString80 ragsoc(ditte.get("RAGSOC")); - _msk->set(dlg, ragsoc); - } -} - -bool TEstinti_app::save(TMask& m, const long codic_prec) -{ - const long new_codic = m.get_long(F_CODDIC); - _rec = _base->curr(); - _rec.zero(); - _rec.put("TIPOQUA", ' '); - _rec.put("CODDITTA",(long)_codditta); - _base->read(_rec); - _rec.put("CODDIC",(long)new_codic); - _base->rewrite(_rec); - -// Stessa cosa su basebis - _basebis->zero(); - _basebis->put("CODDITTA", (long)_codditta); - _basebis->put("CODDIC", (long)new_codic); - _basebis->rewrite(); - -// Crea il record globale per il dichiarante scelto se non esiste -// 3.4.96 - Solo se il dichiarante e' diverso da 0, senno' quando si vuol cancellare -// il dichiarante crea un record duplicato! - if (new_codic != 0L) - if (!exist_dichiar_770(new_codic, TRUE)) - enter_dichiar_770(new_codic, anno_770(), TRUE); - - return TRUE; -} - -bool TEstinti_app::main_loop() -{ - KEY tasto = K_ESC; - - const long codditta = _msk->get_long(F_CODDITTA); - _base->zero(); - _base->setkey(1); - _base->put("CODDITTA", (long)codditta); - _base->read(); - _msk->open_modal(); - - while (tasto != K_QUIT) - { - const bool dichiarante = sogg_dic(_codditta); - long coddic = 0L; - if (!dichiarante) - { - coddic = sogg_estinto(_codditta); - if (coddic > 0L && coddic < COD_QUA_I_DIC) - { - _msk->set(F_CODDIC, coddic); -// _msk->field(F_CODDIC).check(); - force_output(F_RAGSOC, coddic); - } - } - _msk->enable(F_CODDIC, !dichiarante); - _msk->enable(F_ESTINTI, dichiarante); - _msk->enable(DLG_SAVEREC,!dichiarante); - - tasto = _msk->run(); - - switch (tasto) { - case K_ENTER: - if (_msk->dirty()) -// Se e' un dichiarante F_CODDIC e' disabilitato e non c'e' nulla da salvare - if (!dichiarante) - save(*_msk, coddic); - break; - case K_ESC : - tasto = K_QUIT; - break; - case K_QUIT : - break; - case K_SAVE : - if (!dichiarante) - save(*_msk, coddic); - break; - default: - break; - } - } - _msk->close(); - return FALSE; -} - -bool TEstinti_app::menu(MENU_TAG m) -{ - if (m == BAR_ITEM(1)) - return main_loop(); - return FALSE; -} - -int Estinti(int argc, char* argv[]) -{ - TEstinti_app a; - a.run(argc, argv, "Gestione dichiarante / estinti"); - return 0; -} - +// 776600.cpp - Gestione estinti +#include +#include +#include +#include +#include +#include +#include "776600a.h" +#include "77lib.h" +// +// Lista modifiche +// 3.4.96 Aggiunto controllo in save() per impedire la creazione di un record-dichiarazione +// anche quando si vuol solo cancellare il codice dichiarante senza immetterne un altro +// + +class TEstinti_app : public TApplication +{ + long _codditta; + TMask* _msk; + TLocalisamfile* _base, *_basebis; + TRelation* _rel; + TCursor* _cur; + TBrowse_sheet* _estint_sheet; + TRectype& _rec; + static bool show_estinti(TMask_field& f, KEY k); + void force_output(int dlg, const long cod); + protected: + virtual bool create(); + virtual bool destroy(); + virtual bool menu(MENU_TAG m); + bool save(TMask& m, const long coddic_prec); + bool set_codditta(TMask_field& f); + bool main_loop(); +}; + +TEstinti_app& app() { return (TEstinti_app&) main_app(); } + +bool TEstinti_app::set_codditta(TMask_field& f) +{ + TString16 codditta; + codditta << get_firm_770(); + if (codditta != "0") + { + f.set(codditta); +// f.set_dirty(); + f.check(); + } + return TRUE; +} + +bool TEstinti_app::show_estinti(TMask_field& f, KEY k) +{ + if (k == K_SPACE) + app()._estint_sheet->run(); + return TRUE; +} + +bool TEstinti_app::create() +{ + TApplication::create(); + _base = new TLocalisamfile(LF_BASE); + _basebis = new TLocalisamfile(LF_BASEBIS); + _msk = new TMask("776600a"); + _rel = new TRelation(LF_BASE); + _rel->add(LF_NDITTE, "CODDITTA=CODDITTA"); + + _codditta = get_firm_770(); + set_codditta(_msk->field(F_CODDITTA)); + TString16 filt; + filt.format("CODDIC=%ld", _codditta); + _cur = new TCursor(_rel, filt); + TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY); + TToken_string siblings; + _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); + dispatch_e_menu (BAR_ITEM(1)); + return TRUE; +} + +bool TEstinti_app::destroy() +{ + delete _estint_sheet; + delete _rel; delete _cur; + delete _msk; delete _base; delete _basebis; + return TApplication::destroy(); +} + +void TEstinti_app::force_output(int dlg, const long codditta) +{ + TLocalisamfile ditte(LF_NDITTE); + ditte.zero(); + ditte.put("CODDITTA", (long)codditta); + int ret = ditte.read(_isequal); + if (ret == NOERR) + { + TString80 ragsoc(ditte.get("RAGSOC")); + _msk->set(dlg, ragsoc); + } +} + +bool TEstinti_app::save(TMask& m, const long codic_prec) +{ + const long new_codic = m.get_long(F_CODDIC); + _rec = _base->curr(); + _rec.zero(); + _rec.put("TIPOQUA", ' '); + _rec.put("CODDITTA",(long)_codditta); + _base->read(_rec); + _rec.put("CODDIC",(long)new_codic); + _base->rewrite(_rec); + +// Stessa cosa su basebis + _basebis->zero(); + _basebis->put("CODDITTA", (long)_codditta); + _basebis->put("CODDIC", (long)new_codic); + _basebis->rewrite(); + +// Crea il record globale per il dichiarante scelto se non esiste +// 3.4.96 - Solo se il dichiarante e' diverso da 0, senno' quando si vuol cancellare +// il dichiarante crea un record duplicato! + if (new_codic != 0L) + if (!exist_dichiar_770(new_codic, TRUE)) + enter_dichiar_770(new_codic, anno_770(), TRUE); + + return TRUE; +} + +bool TEstinti_app::main_loop() +{ + KEY tasto = K_ESC; + + const long codditta = _msk->get_long(F_CODDITTA); + _base->zero(); + _base->setkey(1); + _base->put("CODDITTA", (long)codditta); + _base->read(); + _msk->open_modal(); + + while (tasto != K_QUIT) + { + const bool dichiarante = sogg_dic(_codditta); + long coddic = 0L; + if (!dichiarante) + { + coddic = sogg_estinto(_codditta); + if (coddic > 0L && coddic < COD_QUA_I_DIC) + { + _msk->set(F_CODDIC, coddic); +// _msk->field(F_CODDIC).check(); + force_output(F_RAGSOC, coddic); + } + } + _msk->enable(F_CODDIC, !dichiarante); + _msk->enable(F_ESTINTI, dichiarante); + _msk->enable(DLG_SAVEREC,!dichiarante); + + tasto = _msk->run(); + + switch (tasto) { + case K_ENTER: + if (_msk->dirty()) +// Se e' un dichiarante F_CODDIC e' disabilitato e non c'e' nulla da salvare + if (!dichiarante) + save(*_msk, coddic); + break; + case K_ESC : + tasto = K_QUIT; + break; + case K_QUIT : + break; + case K_SAVE : + if (!dichiarante) + save(*_msk, coddic); + break; + default: + break; + } + } + _msk->close(); + return FALSE; +} + +bool TEstinti_app::menu(MENU_TAG m) +{ + if (m == BAR_ITEM(1)) + return main_loop(); + return FALSE; +} + +int Estinti(int argc, char* argv[]) +{ + TEstinti_app a; + a.run(argc, argv, "Gestione dichiarante / estinti"); + return 0; +} + diff --git a/m770/776600a.uml b/m770/776600a.uml index e93a84e9b..49a783a2c 100755 --- a/m770/776600a.uml +++ b/m770/776600a.uml @@ -1,98 +1,98 @@ -// 776600a.uml - Gestione estinti-dichiaranti - -#include "776600a.h" - -PAGE "Gestione dichiarante / estinti" -1 -1 78 8 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - USE LF_BASE KEY 1 - 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 - OUTPUT F_RAGDITTA LF_NDITTE->RAGSOC - FLAGS "DG" - FIELD LF_BASE->CODDITTA - CHECKTYPE REQUIRED -END - -STRING F_RAGDITTA 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "D" -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 -BEGIN - PROMPT 1 3 "Soggetto dichiarante " - USE LF_BASE KEY 1 SELECT ((CODDITTA!=#F_CODDITTA)&&(CODDIC="")&&(TIPOQUA!="D")) - JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA - INPUT TIPOQUA F_TIPOQUA - INPUT CODDITTA F_CODDIC - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC - OUTPUT F_CODDIC CODDITTA - OUTPUT F_RAGSOC LF_NDITTE->RAGSOC - FIELD LF_BASE->CODDIC - WARNING "Ditta dichiarante non valida" - HELP "Indicare la ditta dichiarante" - CHECKTYPE NORMAL -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 1 4 "Ragione " - FLAGS "D" -END - -BUTTON DLG_SAVEREC 9 2 -BEGIN - PROMPT -13 -1 "" - MESSAGE EXIT,K_SAVE - PICTURE BMP_SAVEREC - PICTURE BMP_SAVERECDN -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -23 -1 "" - MESSAGE EXIT,K_QUIT -END - -BUTTON F_ESTINTI 16 2 -BEGIN - PROMPT -33 -1 "~Soggetti estinti" -END - -STRING F_TIPOQUA 2 -BEGIN - PROMPT 80 80 "" - FIELD LF_BASE->TIPOQUA - KEY 1 -END - -ENDPAGE - -ENDMASK - +// 776600a.uml - Gestione estinti-dichiaranti + +#include "776600a.h" + +PAGE "Gestione dichiarante / estinti" -1 -1 78 8 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + USE LF_BASE KEY 1 + 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 + OUTPUT F_RAGDITTA LF_NDITTE->RAGSOC + FLAGS "DG" + FIELD LF_BASE->CODDITTA + CHECKTYPE REQUIRED +END + +STRING F_RAGDITTA 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "D" +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 +BEGIN + PROMPT 1 3 "Soggetto dichiarante " + USE LF_BASE KEY 1 SELECT ((CODDITTA!=#F_CODDITTA)&&(CODDIC="")&&(TIPOQUA!="D")) + JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA + INPUT TIPOQUA F_TIPOQUA + INPUT CODDITTA F_CODDIC + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC + OUTPUT F_CODDIC CODDITTA + OUTPUT F_RAGSOC LF_NDITTE->RAGSOC + FIELD LF_BASE->CODDIC + WARNING "Ditta dichiarante non valida" + HELP "Indicare la ditta dichiarante" + CHECKTYPE NORMAL +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 4 "Ragione " + FLAGS "D" +END + +BUTTON DLG_SAVEREC 9 2 +BEGIN + PROMPT -13 -1 "" + MESSAGE EXIT,K_SAVE + PICTURE BMP_SAVEREC + PICTURE BMP_SAVERECDN +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -23 -1 "" + MESSAGE EXIT,K_QUIT +END + +BUTTON F_ESTINTI 16 2 +BEGIN + PROMPT -33 -1 "~Soggetti estinti" +END + +STRING F_TIPOQUA 2 +BEGIN + PROMPT 80 80 "" + FIELD LF_BASE->TIPOQUA + KEY 1 +END + +ENDPAGE + +ENDMASK + diff --git a/m770/77qaall.uml b/m770/77qaall.uml index 5276982d6..3193b6fa1 100755 --- a/m770/77qaall.uml +++ b/m770/77qaall.uml @@ -1,48 +1,48 @@ -// 77qaall.uml - A,A2 - allegati 730 -#include "77qaall.h" - -PAGE "Allegati 730 " -1 14 60 7 - -TEXT DLG_NULL -BEGIN - PROMPT 2 2 "Il sottoscritto allega n. " -END - -NUMBER QA_NUM_ALL 5 -BEGIN - PROMPT 28 2 "" -END - -NUMBER QA2_NUM_ALL 5 -BEGIN - PROMPT 28 2 "" -END - -TEXT QA2_ANNO_ALL -BEGIN - PROMPT 35 2 "mod.730/95 completi" -END - -TEXT QA_ANNO_ALL -BEGIN - PROMPT 35 2 "mod.730/96 completi" -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1" -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK +// 77qaall.uml - A,A2 - allegati 730 +#include "77qaall.h" + +PAGE "Allegati 730 " -1 14 60 7 + +TEXT DLG_NULL +BEGIN + PROMPT 2 2 "Il sottoscritto allega n. " +END + +NUMBER QA_NUM_ALL 5 +BEGIN + PROMPT 28 2 "" +END + +NUMBER QA2_NUM_ALL 5 +BEGIN + PROMPT 28 2 "" +END + +TEXT QA2_ANNO_ALL +BEGIN + PROMPT 35 2 "mod.730/95 completi" +END + +TEXT QA_ANNO_ALL +BEGIN + PROMPT 35 2 "mod.730/96 completi" +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1" +END + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_CANCEL 9 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK