Patch level :10.0 724

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0001598: Manca ricerca alfabetica percipienti
Descrizione  Manca la ricerca percipienti per ragione sociale!


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

m770/772100a.uml

@@ -16,7 +16,7 @@ END
 
 NUMBER F_CODDITTA 5
 BEGIN
-    PROMPT 3 1 "Ditta  "
+    PROMPT 2 1 "Ditta "
     FLAGS "GRD"
     KEY 1
     CHECKTYPE REQUIRED             
@@ -30,92 +30,110 @@ END
 
 STRING F_RAGDITTA 50
 BEGIN
-    PROMPT 17 1 "Ragione "
+  PROMPT 15 1 "Rag.soc. "
   FLAGS "D"
 END
 
-STRING F_TIPODA 1 
-BEGIN
-  PROMPT 3 4 "Da codice        "    
-  FLAGS "U"
-END
- 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 23 4 "/"
+  PROMPT 1 3 "@bDa percipiente"
+END
+
+LIST F_TIPODA 1 9
+BEGIN
+  PROMPT 1 4 ""    
+  ITEM "F|Fisica"
+  ITEM "G|Giuridica"
 END
 
 NUMBER F_CODDA 5
 BEGIN
-  PROMPT 25 4 ""
+  PROMPT 13 4 ""
   HELP "Codice anagrafico del percipiente"
-  USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)
+  USE LF_PERC
   JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR  
-  CHECKTYPE NORMAL   
+  INPUT CODDITTA F_CODDITTA SELECT
-  INPUT CODDITTA F_CODDITTA
+  INPUT TIPOA    F_TIPODA SELECT
-  INPUT TIPOA F_TIPODA
   INPUT CODANAGR F_CODDA
   DISPLAY "Tipo " TIPOA
   DISPLAY "Codice " CODANAGR
-  DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
+  DISPLAY "Cognome - Nome o Ragione sociale@50"  LF_ANAG->RAGSOC
   OUTPUT F_TIPODA TIPOA
   OUTPUT F_CODDA CODANAGR
   OUTPUT F_RAGDA LF_ANAG->RAGSOC  
   WARNING "Percipiente inesistente"
+  CHECKTYPE NORMAL
 END
 
 STRING F_RAGDA 50
 BEGIN
-  PROMPT 3 5 "Ragione sociale  "
+  PROMPT 21 4 ""
-  FLAGS "D"
+  USE LF_ANAG KEY 2      
-END
+  INPUT TIPOA F_TIPODA 
-
+  INPUT RAGSOC F_RAGDA
-STRING F_TIPOA 1 
+  DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
-BEGIN
+  DISPLAY "Tipo" TIPOA
-  PROMPT 3 6 "A codice         "    
+  DISPLAY "Codice" CODANAGR
-  FLAGS "U"
+  OUTPUT F_RAGDA RAGSOC
+  OUTPUT F_CODDA CODANAGR
+  OUTPUT F_TIPODA TIPOA
 END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 23 6 "/"
+  PROMPT 1 5 "@bA percipiente"
+END
+
+LIST F_TIPOA 1 9
+BEGIN
+  PROMPT 1 6 ""    
+  ITEM "F|Fisica"
+  ITEM "G|Giuridica"
 END
 
 NUMBER F_CODA 5
 BEGIN
-  PROMPT 25 6 ""
+  PROMPT 13 6 ""
   HELP "Codice anagrafico del percipiente"
-  USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)
+  USE LF_PERC
   JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR  
-  CHECKTYPE NORMAL         
+  INPUT CODDITTA F_CODDITTA SELECT
-  INPUT CODDITTA F_CODDITTA
+  INPUT TIPOA    F_TIPOA SELECT
-  INPUT TIPOA F_TIPOA
   INPUT CODANAGR F_CODA
   DISPLAY "Tipo " TIPOA
   DISPLAY "Codice " CODANAGR
-  DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
+  DISPLAY "Cognome - Nome o Ragione sociale@50"  LF_ANAG->RAGSOC
   OUTPUT F_TIPOA TIPOA
   OUTPUT F_CODA CODANAGR
   OUTPUT F_RAGA LF_ANAG->RAGSOC  
   WARNING "Percipiente inesistente"
+  CHECKTYPE NORMAL
 END
 
 STRING F_RAGA 50
 BEGIN
-  PROMPT 3 7 "Ragione sociale  "
+  PROMPT 21 6 ""
-  FLAGS "D"
+  USE LF_ANAG KEY 2      
+  INPUT TIPOA F_TIPOA 
+  INPUT RAGSOC F_RAGA
+  DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
+  DISPLAY "Tipo" TIPOA
+  DISPLAY "Codice" CODANAGR
+  OUTPUT F_RAGA RAGSOC
+  OUTPUT F_CODA CODANAGR
+  OUTPUT F_TIPOA TIPOA
 END
 
 LIST F_CARATTERE 13
 BEGIN
-  PROMPT 3 9 "Tipo stampa "
+  PROMPT 1 9 "Tipo stampa "
   ITEMS "1|132 caratteri"
   ITEMS "2|198 caratteri"
 END                
 
 LIST F_TIPOSEL 25
 BEGIN
-  PROMPT 35 9 "Tipo selezione "
+  PROMPT 32 9 "Tipo selezione "
   ITEMS "1|per data pagamento"
   ITEMS "2|per periodo di competenza"
 END