From 88b417ff55ad8af44cb1efc0bb37582719198a4a Mon Sep 17 00:00:00 2001 From: angelo Date: Mon, 16 Oct 1995 17:57:03 +0000 Subject: [PATCH] Modifiche apportate ai form: DELIVA aggiunta la stampa del codice dipendenza al posto del codice CAB DELIVACF aggiunta la stampa dei dati di costituzione in caso di persona giuridica git-svn-id: svn://10.65.10.50/trunk@1966 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/deliva.frm | 6 +++--- cg/delivacf.frm | 28 ++++++++++++++++++++++++++++ 2 files changed, 31 insertions(+), 3 deletions(-) diff --git a/cg/deliva.frm b/cg/deliva.frm index c1437e14b..01053ffc7 100755 --- a/cg/deliva.frm +++ b/cg/deliva.frm @@ -362,15 +362,15 @@ BEGIN KEY "Codice Azienda" PROMPT 110 58 "" PICTURE "@ @ @ @" - FIELD S7 + FIELD S7[2,5] END STRINGA 39 BEGIN - KEY "Codice Filiale" + KEY "Codice Dipendenza" PROMPT 124 58 "" PICTURE "@ @ @ @" - FIELD S8 + FIELD 1@->I0 END END diff --git a/cg/delivacf.frm b/cg/delivacf.frm index 4974c26d1..ab615599a 100755 --- a/cg/delivacf.frm +++ b/cg/delivacf.frm @@ -2,12 +2,14 @@ USE %DEL JOIN 9 INTO CODDITTA=CODTAB[1,5] JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 8 TO 9 INTO CODANAGR=CODANAGR +JOIN 7 TO 9 INTO CODANAGR=CODANAGR JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES) JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB==UFFCONC JOIN %BAN ALIAS 24 INTO CODTAB=S7 JOIN %BAN ALIAS 34 INTO CODTAB=S7+S8 JOIN 13 TO 24@ ALIAS 313 INTO COM=S5 +JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST END DESCRIPTION @@ -108,6 +110,16 @@ BEGIN FORMAT "1444-" END +DATA +BEGIN + KEY "DATA DI COSTITUZIONE" + PROMPT 4 17 "" + GROUP 2 + PICTURE "# # ^ # # ^ ^ # # #" + FIELD 7->DATACOST + FORMAT "1444-" +END + STRINGA 9 BEGIN KEY "SESSO (M o F)" @@ -124,6 +136,14 @@ BEGIN FIELD 113@->DENCOM END +STRINGA +BEGIN + KEY "COMUNE (o Stato estero) DI COSTITUZIONE" + PROMPT 42 17 "" + GROUP 2 + FIELD 413@->DENCOM +END + STRINGA 11 BEGIN KEY "PROV. DI NASCITA (sigla)" @@ -132,6 +152,14 @@ BEGIN FIELD 113@->PROVCOM END +STRINGA +BEGIN + KEY "PROV. DI COSTITUZIONE (sigla)" + PROMPT 120 17 "" + GROUP 2 + FIELD 413@->PROVCOM +END + STRINGA 12 BEGIN KEY "DOMICILIO FISCALE: COMUNE"