Errori aga002-003-004-005-008

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

ef/ef0100a.uml

@@ -1,4 +1,3 @@
-// DEFINIZIONE CAMPI MASCHERA PRINCIPALE PER LA GESTIONE EFFETTI
 #include "ef0100.h"
 
 TOOLBAR "" 0 19 0 2
@@ -9,14 +8,14 @@ ENDPAGE
 
 PAGE "Testata/Righe" 0 -1 0 19
 
-GROUPBOX DLG_NULL 78 5
+GROUPBOX DLG_NULL 80 5
 BEGIN
-  PROMPT 1 0 ""
+  PROMPT 0 0 ""
 END
 
 NUMBER F_NPROGTR 7
 BEGIN
-  PROMPT 2 1 "Numero         "
+  PROMPT 1 1 "Numero         "
   FIELD LF_EFFETTI->NPROGTR
   FLAGS "R"
   KEY 1
@@ -34,25 +33,30 @@ BEGIN
   OUTPUT F_TIPOPAG TIPOPAG
   OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC
   CHECKTYPE REQUIRED
+  MESSAGE COPY,10@
 END
 
 NUMBER F_CODCF 6
 BEGIN
-  PROMPT 2 2 "Cliente        "
+  PROMPT 1 2 "Cliente        "
   FIELD LF_EFFETTI->CODCF
   USE LF_CLIFO
   INPUT TIPOCF "C"
   INPUT CODCF F_CODCF
-  DISPLAY "Ragione sociale@60" RAGSOC
   DISPLAY "Codice" CODCF
+  DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_CODCF CODCF
   OUTPUT F_CFRAGSOC RAGSOC
+  OUTPUT F_CODABI CODABI
+  OUTPUT F_CODCAB CODCAB
   CHECKTYPE REQUIRED
+  ADD RUN cg0 -1
+  MESSAGE COPY,11@
 END
 
 STRING F_CFRAGSOC 50
 BEGIN
-  PROMPT 26 2  ""
+  PROMPT 27 2  ""
   USE LF_CLIFO KEY 2
   INPUT TIPOCF "C"
   INPUT RAGSOC F_CFRAGSOC
@@ -60,11 +64,13 @@ BEGIN
   DISPLAY "Codice" CODCF
   COPY OUTPUT F_CODCF
   CHECKTYPE REQUIRED
+  ADD RUN cg0 -1
+  MESSAGE COPY,12@
 END
 
 DATE F_DATASCAD
 BEGIN
-  PROMPT 2 3 "Data scadenza  "
+  PROMPT 1 3 "Data scadenza  "
   FIELD LF_EFFETTI->DATASCAD
   KEY 3
   USE LF_EFFETTI KEY 3
@@ -78,11 +84,12 @@ BEGIN
   DISPLAY "Tipo distinta" TIPODIST
   COPY OUTPUT F_NPROGTR
   CHECKTYPE REQUIRED
+  MESSAGE COPY,13@
 END
 
 LIST F_TIPOPAG 24
 BEGIN
-  PROMPT 2 5 "Tipo pagamento "
+  PROMPT 1 5 "Tipo pagamento "
   FIELD LF_EFFETTI->TIPOPAG
   ITEM "2|Tratta"
   ITEM "3|Ricevuta Bancaria"
@@ -91,7 +98,7 @@ BEGIN
   ITEM "6|Lettera di credito"
   ITEM "7|Tratta accettata"
   ITEM "8|Rapporti interb. diretti"
-  ITEM "9|Bonifici"
+  ITEM "9|Bonifico"
 END
 
 STRING F_ULTCLASS 1
@@ -108,7 +115,7 @@ END
 
 STRING F_CODVAL 3
 BEGIN
-  PROMPT 2 6 "Codice valuta  "
+  PROMPT 1 6 "Codice valuta  "
   FIELD LF_EFFETTI->CODVAL
   FLAGS "UZ"
   USE %VAL
@@ -138,7 +145,7 @@ END
 
 NUMBER F_CAMBIO 15  5
 BEGIN
-  PROMPT 2 7 "Cambio         "
+  PROMPT 1 7 "Cambio         "
   FIELD LF_EFFETTI->CAMBIO
   FLAGS "RU"
   PICTURE ".5"
@@ -153,9 +160,9 @@ BEGIN
   FIELD LF_EFFETTI->ULTRATA
 END
 
-SPREADSHEET F_SHEET_RIGHE 76 7
+SPREADSHEET F_SHEET_RIGHE 0 7
 BEGIN
-  PROMPT 2 9 "RIGHE EFFETTO"
+  PROMPT 1 9 "RIGHE EFFETTO"
   ITEM "Importo fatt.@20"
   ITEM "Importo effet.@14"
   ITEM "Imp.fatt.val.@20"
@@ -173,7 +180,7 @@ END
 
 NUMBER F_TOTIMP 18 2
 BEGIN
-  PROMPT 2 17 "Totale importi           "
+  PROMPT 1 17 "Totale importi           "
   FIELD LF_EFFETTI->IMPORTO
   PICTURE "###.###.###.###,@@"
   FLAG "D"
@@ -181,7 +188,7 @@ END
 
 NUMBER F_TOTIMPVAL 18 3
 BEGIN
-  PROMPT 2 18 "Totale importi in valuta "
+  PROMPT 1 18 "Totale importi in valuta "
   FIELD LF_EFFETTI->IMPORTOVAL
   PICTURE "###.###.###.###,@@@"
   FLAG "D"
@@ -192,14 +199,47 @@ ENDPAGE
 
 PAGE "Parametri" 0 -1 0 19
 
+GROUPBOX DLG_NULL 80 5
+BEGIN
+  PROMPT 0 0 ""
+END
+
+NUMBER DLG_NULL 7
+BEGIN
+  PROMPT 1 1 "Numero         "
+  FLAGS "RD"
+  GROUP 10
+END
+
+NUMBER DLG_NULL 6
+BEGIN
+  PROMPT 1 2 "Cliente        "
+  FLAGS "RD"
+  GROUP 11
+END
+
+STRING DLG_NULL 50
+BEGIN
+  PROMPT 27 2  ""
+  FLAGS "D"
+  GROUP 12
+END
+
+DATE DLG_NULL
+BEGIN
+  PROMPT 1 3 "Data scadenza  "
+  FLAGS "D"
+  GROUP 13
+END
+
 GROUPBOX DLG_NULL 38 4
 BEGIN
-  PROMPT 1 1 "BANCA D'APPOGGIO"
+  PROMPT 0 5 "Banca d'appoggio"
 END
 
 NUMBER F_CODABI 5
 BEGIN
-  PROMPT 2 2 "Codice ABI        "
+  PROMPT 1 6 "Codice ABI        "
   FIELD LF_EFFETTI->CODABI
   FLAGS "RZ"
   USE %BAN KEY 1 SELECT CODTAB ?= "?????"
@@ -214,7 +254,7 @@ END
 
 NUMBER F_CODCAB 5
 BEGIN
-  PROMPT 2 3 "Codice CAB        "
+  PROMPT 1 7 "Codice CAB        "
   FIELD LF_EFFETTI->CODCAB
   FLAGS "RZ"
   USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
@@ -232,12 +272,12 @@ END
 
 GROUPBOX DLG_NULL 38 4
 BEGIN
-  PROMPT 41 1 "BANCA DI PRESENTAZIONE"
+  PROMPT 41 5 "Banca di presentazione"
 END
 
 NUMBER F_CODABIP 5
 BEGIN
-  PROMPT 42 2 "Codice ABI        "
+  PROMPT 42 6 "Codice ABI        "
   FIELD LF_EFFETTI->CODABIP
   FLAGS "RZ"
   USE %BAN KEY 1 SELECT CODTAB ?= "?????"
@@ -252,7 +292,7 @@ END
 
 NUMBER F_CODCABP 5
 BEGIN
-  PROMPT 42 3 "Codice CAB        "
+  PROMPT 42 7 "Codice CAB        "
   FIELD LF_EFFETTI->CODCABP
   FLAGS "RZ"
   USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
@@ -268,108 +308,86 @@ BEGIN
   WARNING "Banca assente"
 END
 
-GROUPBOX DLG_NULL 78 4
-BEGIN
-  PROMPT 1 5 ""
-END
-
 DATE F_DATAEMISS
 BEGIN
-  PROMPT 2 6 "Data di emissione "
+  PROMPT 1 10 "Data di emissione "
   FIELD LF_EFFETTI->DATAEMISS
 END
 
 NUMBER F_NUMEMISS 8
 BEGIN
-  PROMPT 42 6 "Nr. di emissione  "
+  PROMPT 42 10 "Nr. di emissione  "
   FIELD LF_EFFETTI->NUMEMISS
 END
 
 BOOLEAN F_EFFSTAMP
 BEGIN
-  PROMPT 2 7 "Effetto stampato"
+  PROMPT 1 11 "Effetto stampato"
   FIELD LF_EFFETTI->EFFSTAMP
 END
 
-GROUPBOX DLG_NULL 78 5
-BEGIN
-  PROMPT 1 9 ""
-END
-
 LIST F_TIPODIST 15
 BEGIN
-  PROMPT 2 10 "Tipo distinta     "
+  PROMPT 1 13 "Tipo distinta     "
   FIELD LF_EFFETTI->TIPODIST
-  ITEM " |** Nessuno **"
+  ITEM " | "
-  MESSAGE DISABLE,2@|RESET,2@
   ITEM "I|All'incasso"
-  MESSAGE ENABLE,2@
   ITEM "B|Salvo buon fine"
-  MESSAGE ENABLE,2@
   ITEM "S|Allo sconto"
-  MESSAGE ENABLE,2@
+  FLAGS "D"
 END
 
 NUMBER F_NDIST 8
 BEGIN
-  PROMPT 42 10 "Nr. distinta      "
+  PROMPT 42 13 "Nr. distinta      "
   FIELD LF_EFFETTI->NDIST
   FLAGS "D"
   VALIDATE NOT_EMPTY_FUNC
   WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
-  GROUP 2
 END
 
 DATE F_DATADIST
 BEGIN
-  PROMPT 2 11 "Data distinta     "
+  PROMPT 1 14 "Data distinta     "
   FIELD LF_EFFETTI->DATADIST
   FLAGS "D"
-  GROUP 2
-END
-
-BOOLEAN F_DISTSTAM
-BEGIN
-  PROMPT 2 12 "Distinta stampata"
-  FIELD LF_EFFETTI->DISTSTAM
-  FLAGS "D"
-  GROUP 2
 END
 
 NUMBER F_NRIGADIST 6
 BEGIN
-  PROMPT 42 12 "Nr. di riga       " 
+  PROMPT 42 14 "Nr. di riga       "
   FIELD LF_EFFETTI->NRIGADIST
   FLAGS "D"
-  GROUP 2
 END
 
-GROUPBOX DLG_NULL 78 3
+BOOLEAN F_DISTSTAM
 BEGIN
-  PROMPT 1 14 ""
+  PROMPT 1 15 "Distinta stampata"
+  FIELD LF_EFFETTI->DISTSTAM
+  FLAGS "D"
 END
 
 DATE F_DATARIBA
 BEGIN
-  PROMPT 2 15 "Data Ri.Ba.       "
+  PROMPT 1 17 "Data Ri.Ba.       "
   FIELD LF_EFFETTI->DATARIBA
 END
 
 BOOLEAN F_DISRIBAEST
 BEGIN
-  PROMPT 42 15 "Distinta Ri.Ba. estratta"
+  PROMPT 42 17 "Distinta Ri.Ba. estratta"
   FIELD LF_EFFETTI->DISRIBAEST
 END
 
 BOOLEAN F_EFFCONT
 BEGIN
-  PROMPT 2 17 "Effetto contabilizzato"
+  PROMPT 1 19 "Effetto contabilizzato"
   FIELD LF_EFFETTI->EFFCONT
 END
 
 BOOLEAN F_EFFCOMP
 BEGIN
-  PROMPT 42 17 "Effetto completato"
+  PROMPT 42 19 "Effetto completato"
   FIELD LF_EFFETTI->EFFCOMP
 END
 
@@ -377,9 +395,42 @@ ENDPAGE
 
 PAGE "Cessionari" 0 -1 0 19
 
-SPREADSHEET F_SHEET_EFF 76 8
+GROUPBOX DLG_NULL 80 5
 BEGIN
-  PROMPT 3 2 "OBBLIGATI PRINCIPALI"
+  PROMPT 0 0 ""
+END
+
+NUMBER DLG_NULL 7
+BEGIN
+  PROMPT 1 1 "Numero         "
+  FLAGS "RD"
+  GROUP 10
+END
+
+NUMBER DLG_NULL 6
+BEGIN
+  PROMPT 1 2 "Cliente        "
+  FLAGS "RD"
+  GROUP 11
+END
+
+STRING DLG_NULL 50
+BEGIN
+  PROMPT 27 2  ""
+  FLAGS "D"
+  GROUP 12
+END
+
+DATE DLG_NULL
+BEGIN
+  PROMPT 1 3 "Data scadenza  "
+  FLAGS "D"
+  GROUP 13
+END
+
+SPREADSHEET F_SHEET_EFF 0 8
+BEGIN
+  PROMPT 1 6 "Obbligati principali"
   ITEM "Ragione Sociale@50"
   ITEM "Localita'@35"
   ITEM "Stato"