Corretti errori di ricerca

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

cg/cg0200a.uml

@@ -595,17 +595,11 @@ BEGIN
   GROUP 6
 END
 
-GROUPBOX DLG_NULL 76 4
-BEGIN
-  PROMPT 1 4 "Banca"
-END
-
 NUMBER F_CODABI 5
 BEGIN
-  PROMPT 2 5 "Codice ABI         "
+  PROMPT 2 4 "Codice ABI          "
   FIELD LF_CLIFO->CODABI
   FLAGS "Z"
-//  USE %BAN KEY 1 SELECT CODTAB ?= "?????"
   USE %BAN
   INPUT CODTAB F_CODABI
   DISPLAY "Codice ABI" CODTAB[1,5]
@@ -620,10 +614,9 @@ END
 
 NUMBER F_CODBAN 5
 BEGIN
-  PROMPT 55 5 "Codice CAB "
+  PROMPT 56 4 "Codice CAB "
   FIELD LF_CLIFO->CODCAB
   FLAGS "Z"
-//      USE %BAN
   COPY USE F_CODABI
   INPUT CODTAB[1,5] F_CODABI 
   INPUT CODTAB[6,10] F_CODBAN
@@ -635,7 +628,7 @@ END
 
 STRING F_DESBAN 50
 BEGIN
-  PROMPT 2 6 "Denominazione      "
+  PROMPT 2 5 "Denominazione       "
   USE %BAN KEY 2
   INPUT S0 F_DESBAN
   DISPLAY "Denominazione@50" S0
@@ -646,42 +639,56 @@ END
 
 STRING F_CODVAL 3
 BEGIN
-  PROMPT 2 8 "Codice valuta      "
+  PROMPT 2 6 "Valuta      "
   FIELD LF_CLIFO->CODVAL
   USE %VAL
   INPUT CODTAB F_CODVAL
   DISPLAY "Codice valuta" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODVAL CODTAB
-  HELP "Codice valute per C/F esteri"
+  OUTPUT F_DESVAL S0
+  CHECKTYPE NORMAL
+END
+
+STRING F_DESVAL 50
+BEGIN
+  PROMPT 22 6 ""
+  USE %VAL KEY 2
+  INPUT S0 F_DESVAL
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice valuta" CODTAB
+  COPY OUTPUT F_CODVAL
   CHECKTYPE NORMAL
 END
 
 STRING F_CODLIN 1
 BEGIN
-  PROMPT 45 8 "Codice lingua           "
+  PROMPT 2 7 "Lingua        "
   FIELD LF_CLIFO->CODLIN
   USE %LNG
   INPUT CODTAB F_CODLIN
   DISPLAY "Codice lingua " CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODLIN CODTAB
+  OUTPUT F_DESLIN S0
   HELP "Codice lingua per C/F esteri"
   CHECKTYPE NORMAL
 END
 
-NUMBER F_FIDO 15
+STRING F_DESLIN 50
 BEGIN
-  PROMPT 2 9 "Fido               "
-  FIELD LF_CLIFO->FIDO
-  FLAGS "R"
-  PICTURE "."
-  HELP "Importo massimo fido del cliente/fornitore"
+  PROMPT 22 7 ""
+  USE %LNG KEY 2
+  INPUT S0 F_DESLIN
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice lingua" CODTAB
+  COPY OUTPUT F_CODLIN
+  CHECKTYPE NORMAL
 END
 
 STRING F_CODPAG 4
 BEGIN
-  PROMPT 45 9 "Codice di pagamento     "
+  PROMPT 2 8 "Pagamento  "
   FIELD LF_CLIFO->CODPAG
   FLAGS "UZ"
   USE %CPG
@@ -689,10 +696,31 @@ BEGIN
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODPAG CODTAB
+  OUTPUT F_DESPAG S0
   HELP "Codice condizione di pagamento concordata"
   CHECKTYPE NORMAL
 END
 
+STRING F_DESPAG 50
+BEGIN
+  PROMPT 22 8 ""
+  USE %CPG KEY 2
+  INPUT S0 F_DESPAG
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice pagamento" CODTAB
+  COPY OUTPUT F_CODPAG
+  CHECKTYPE NORMAL
+END
+
+NUMBER F_FIDO 15
+BEGIN
+  PROMPT 2 9 "Fido                "
+  FIELD LF_CLIFO->FIDO
+  FLAGS "R"
+  PICTURE "."
+  HELP "Importo massimo fido del cliente/fornitore"
+END
+
 GROUPBOX DLG_NULL 76 4
 BEGIN
   PROMPT 1 10 "Conto cliente/fornitore"

cg/cg5400b.uml

@@ -2,37 +2,9 @@
 
 PAGE "Ripristino stampa indici libro unico" -1 -1 78 11
 
-NUMBER F_FIRM 5
-BEGIN
-  PROMPT 4 1 "Ditta     "
-  FLAGS "RF"
-  USE LF_NDITTE KEY 1
-  CHECKTYPE NORMAL
-  INPUT CODDITTA F_FIRM
-  DISPLAY "Codice" CODDITTA
-  DISPLAY "Ragione sociale @50" RAGSOC
-  OUTPUT F_FIRM CODDITTA
-  OUTPUT F_DFIRM RAGSOC
-  HELP "Codice della ditta da cui prelevare i dati"
-  WARNING "Ditta assente"
-END
-
-STRING F_DFIRM 50
-BEGIN
-  PROMPT 22 1 ""
-  USE LF_NDITTE KEY 2
-  CHECKTYPE NORMAL
-  INPUT RAGSOC F_DFIRM
-  DISPLAY "Ragione sociale @50" RAGSOC
-  DISPLAY "Codice" CODDITTA
-  COPY OUTPUT F_FIRM
-  HELP "Ragione sociale della ditta da cui prelevare i dati"
-  WARNING "Ditta assente"
-END
-
 NUMBER F_YEAR 4
 BEGIN
-  PROMPT 4 3 "Anno      "
+  PROMPT 4 1 "Anno      "
   FLAGS "AR"
   CHECKTYPE REQUIRED
   HELP "Anno IVA"
@@ -41,7 +13,7 @@ END
 
 STRING F_REG 3
 BEGIN
-  PROMPT 4 5 "Libro unico "
+  PROMPT 4 3 "Libro unico "
   FLAGS "UZ"
   USE %LBU
   INPUT CODTAB[1,4] F_YEAR