Correzione gestione deleghe

git-svn-id: svn://10.65.10.50/trunk@2025 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/batbdel.uml

@@ -8,7 +8,7 @@ ENDPAGE
 
 PAGE "Tabella deleghe IVA" -1 -1 78 15
 
-NUMBER F_CODDITTA 5
+NUMBER F_DITTA 5
 BEGIN
   PROMPT 4 1 "Ditta            "
   HELP "Codice ditta a cui si riferisce la delega"
@@ -16,91 +16,89 @@ BEGIN
   FLAGS "RZ"
   KEY 1
   USE LF_NDITTE KEY 1
-  INPUT CODDITTA F_CODDITTA
+  INPUT CODDITTA F_DITTA
   DISPLAY "Ditta" CODDITTA
   DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_CODDITTA CODDITTA
-  OUTPUT F_RAGSOC RAGSOC
+  OUTPUT F_DITTA CODDITTA
+  OUTPUT F_RSOC RAGSOC
   CHECKTYPE FORCED
   WARNING "Ditta assente"
 END
 
-STRING F_RAGSOC 50
+STRING F_RSOC 50
 BEGIN
   PROMPT 4 2 "Ragione sociale  "
   HELP "Ragione sociale ditta a cui si riferisce la delega"
   KEY 1
   USE LF_NDITTE KEY 2
-  INPUT RAGSOC F_RAGSOC
+  INPUT RAGSOC F_RSOC
   DISPLAY "Ragione sociale@50" RAGSOC
   DISPLAY "Ditta" CODDITTA
-  OUTPUT F_CODDITTA CODDITTA
-  OUTPUT F_RAGSOC RAGSOC
+  OUTPUT F_DITTA CODDITTA
+  OUTPUT F_RSOC RAGSOC
+  CHECKTYPE NORMAL       
   WARNING "Ditta assente"
-  CHECKTYPE NORMAL
 END
 
-LIST F_TIPO 20
+NUMBER F_ANNODEL 4
 BEGIN
-  PROMPT 4 3 "Tipo             "
-  FIELD CODTAB[12,12]
-  KEY 1
-  HELP "Tipo di versamento"
-  ITEM "1|normale"
-  MESSAGE ENABLE,F_MESE
-  ITEM "2|annuale"
-  MESSAGE "13",F_MESE|DISABLE,F_MESE
-  ITEM "3|art. 74"
-  MESSAGE ENABLE,F_MESE
-  ITEM "4|cessazione attivita'"
-  MESSAGE ENABLE,F_MESE
-  ITEM "5|integrativa"
-  MESSAGE ENABLE,F_MESE
-  ITEM "7|acconti IVA"
-  MESSAGE "12",F_MESE|DISABLE,F_MESE
-END
-
-
-LIST F_MESE 10
-BEGIN
-  PROMPT 4 4 "Mese             "
-  FIELD CODTAB[10,11]
-  FLAGS "MA"
-  KEY 1     
-  HELP "Mese di versamento"
-  ITEM "13|Annuale"
-  MESSAGE "2",F_TIPO
-  VALIDATE MTCHECK_FUNC 
-END
-
-
-NUMBER F_ANNO 4
-BEGIN
-  PROMPT 4 5 "Anno             "
+  PROMPT 4 3 "Anno versamento  "
   FIELD CODTAB[6,9]
   CHECKTYPE REQUIRED
   FLAGS "RZ"
   KEY 1
   USE %DEL 
   JOIN LF_NDITTE TO %DEL INTO CODDITTA=CODTAB[1,5]
-  INPUT CODTAB[1,5] F_CODDITTA
-  INPUT CODTAB[6,9] F_ANNO
-  INPUT CODTAB[10,11] F_MESE
-  INPUT CODTAB[12,12] F_TIPO
+  INPUT CODTAB[1,5] F_DITTA
+  INPUT CODTAB[6,9] F_ANNODEL
+  INPUT CODTAB[10,11] F_MESEDEL
+  INPUT CODTAB[12,12] F_TIPODEL
   DISPLAY "Ditta" CODTAB[1,5]
   DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
   DISPLAY "Anno" CODTAB[6,9]
   DISPLAY "Mese" CODTAB[10,11]
   DISPLAY "Tipo" CODTAB[12,12]
-  OUTPUT F_CODDITTA CODTAB[1,5]
-  OUTPUT F_ANNO CODTAB[6,9]
-  OUTPUT F_MESE CODTAB[10,11]
-  OUTPUT F_TIPO CODTAB[12,12]
+  OUTPUT F_DITTA CODTAB[1,5]
+  OUTPUT F_ANNODEL CODTAB[6,9]
+  OUTPUT F_MESEDEL CODTAB[10,11]
+  OUTPUT F_TIPODEL CODTAB[12,12]
   HELP "Anno di versamento"
 //  VALIDATE AUTOEXIT_FUNC 2 F_CODDITTA F_ANNO
-  GROUP GR_SEARCH
+//  GROUP GR_SEARCH
 END
+ 
+LIST F_TIPODEL 20
+BEGIN
+  PROMPT 4 4 "Tipo versamento  "
+  FIELD CODTAB[12,12]
+  KEY 1
+  HELP "Tipo di versamento"
+  ITEM "1|normale"
+  MESSAGE ENABLE,F_MESEDEL
+  ITEM "2|annuale"
+  MESSAGE "13",F_MESEDEL|DISABLE,F_MESEDEL
+  ITEM "3|art. 74"
+  MESSAGE ENABLE,F_MESEDEL
+  ITEM "4|cessazione attivita'"
+  MESSAGE ENABLE,F_MESEDEL
+  ITEM "5|integrativa"
+  MESSAGE ENABLE,F_MESEDEL
+  ITEM "7|acconti IVA"
+  MESSAGE "12",F_MESEDEL|DISABLE,F_MESEDEL
+END 
 
+LIST F_MESEDEL 10
+BEGIN
+  PROMPT 4 5 "Mese versamento  "
+  HELP "Mese di versamento"
+  FIELD CODTAB[10,11]
+  FLAGS "MG"
+  KEY 1     
+  ITEM "13|Annuale"
+  MESSAGE "2",F_TIPODEL
+  // VALIDATE MTCHECK_FUNC  
+  // WARNING "Ditta trimestrale: indicare trimestre"
+END
 
 DATE F_DATA
 BEGIN
@@ -141,14 +139,21 @@ END
 NUMBER F_CONCESSIONE 3
 BEGIN
   PROMPT 4 9 "Concessione      "  
-  HELP "Codice Concessione del Comune di residenza fiscale"
+  HELP "Codice concessione del comune di residenza fiscale"
   FIELD S9
-  FLAGS "DRZ"
+  FLAGS "RZ"
+  USE %UCC
+  INPUT CODTAB F_CONCESSIONE
+  DISPLAY "Concessione " CODTAB[1,5]
+  DISPLAY "Descrizione @50" S0
+  OUTPUT F_CONCESSIONE CODTAB
+  CHECKTYPE NORMAL
+  WARNING "Concessione assente"
 END
 
 NUMBER F_IMPORTO 15
 BEGIN
-  PROMPT 4 10 "Importo          "
+  PROMPT 4 10 "Importo versato  "
   FIELD R0
   FLAGS "R"
   PICTURE "."
@@ -156,10 +161,19 @@ BEGIN
   NUM_CALC {ROUND(#THIS_FIELD, -3)}   
 END
 
+NUMBER F_INTERESSI 15
+BEGIN
+  PROMPT 4 11 "Di cui interessi "
+  FIELD R1
+  FLAGS "R"
+  PICTURE "."
+  HELP "Interessi da pagare" 
+END
+
 BOOLEAN F_STAMPATO
 BEGIN
-  PROMPT 4 12 "Stampato "
-  HELP "Indicare se si tratta di delega gia' stampata"
+  PROMPT 4 13 "Stampato "
+  HELP "Indicare se si tratta di versamento gia' stampato"
   FIELD B0
 END