From 20f50689d72a5fb7275010e119bad05115ae8f31 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 9 Dec 1997 10:53:43 +0000
Subject: [PATCH] Corretto errore aga0193 Aggiunta copia da F_CODVAL a
 f_CODVAL1

git-svn-id: svn://10.65.10.50/trunk@5712 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ve/ve0300a.src | 83 ++++++++++++++++++++++++++------------------------
 1 file changed, 43 insertions(+), 40 deletions(-)

diff --git a/ve/ve0300a.src b/ve/ve0300a.src
index 90f8c5dd9..676e664b2 100755
--- a/ve/ve0300a.src
+++ b/ve/ve0300a.src
@@ -62,49 +62,51 @@
 #include "veuml1.h"
 #include "veini.h"
 
-[TIPOCF]
-GROUP=101
-X=1
-Y=1
-FIELDNAME=TIPOCF
-MSKID=F_TIPOCF
-TYPE=T_STRINGA
-SIZE=1
-PROMPT=Tipo cliente/fornitore
+// non dovrebbero piu' servire !!!!!
+//
+//[TIPOCF]
+//GROUP=101
+//X=1
+//Y=1
+//FIELDNAME=TIPOCF
+//MSKID=F_TIPOCF
+//TYPE=T_STRINGA
+//SIZE=1
+//PROMPT=Tipo cliente/fornitore
 
-[CODCF]
-GROUP=100
-X=1
-Y=1
-FIELDNAME=CODCF
-MSKID=F_CODCF
-TYPE=T_NUMERO
+//[CODCF]
+//GROUP=100
+//X=1
+//Y=1
+//FIELDNAME=CODCF
+//MSKID=F_CODCF
+//TYPE=T_NUMERO
 // se CODCF="F" cioe' fornitore il PROMPT=Fornitore
-PROMPT=Cliente
-SIZE=6
-FLAG=R
-USE=20~JO LF_CFVEN TO LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF
-INPUT=TIPOCF F_TIPOCF SELECT~CODCF F_CODCF
-DISPLAY="Codice" CODCF~"Ragione sociale@50" RAGSOC~"Indirizzo@35" INDCF
-OUTPUT=F_CODCF CODCF~F_RAGSOC RAGSOC~F_INDCF INDCF~F_CIVCF CIVCF~F_CODAG CODAG~F_CODVAL CODVAL~F_OCCAS OCCAS~F_CODLIN CODLIN~F_CODABIA CODABI~F_CODCABA CODCAB~F_CODLIST LF_CFVEN->CODLIST~F_CODPAG CODPAG
-SPECIAL=ME 9,F_CODVAL~ME 9,F_CODLIN~ME 9,F_CODABIA~ME 9,F_CODCABA~ME 9,F_CODPAG
-WARNING=Cliente non presente
-HELP=Inserire il codice del cliente
+//PROMPT=Cliente
+//SIZE=6
+//FLAG=R
+//USE=20~JO LF_CFVEN TO LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF
+//INPUT=TIPOCF F_TIPOCF SELECT~CODCF F_CODCF
+//DISPLAY="Codice" CODCF~"Ragione sociale@50" RAGSOC~"Indirizzo@35" INDCF
+//OUTPUT=F_CODCF CODCF~F_RAGSOC RAGSOC~F_INDCF INDCF~F_CIVCF CIVCF~F_CODAG CODAG~F_OCCAS OCCAS~F_CODLIN CODLIN~F_CODABIA CODABI~F_CODCABA CODCAB~F_CODLIST LF_CFVEN->CODLIST~F_CODPAG CODPAG
+//SPECIAL=ME 9,F_CODLIN~ME 9,F_CODABIA~ME 9,F_CODCABA~ME 9,F_CODPAG
+//WARNING=Cliente non presente
+//HELP=Inserire il codice del cliente
 
-[RAGSOC]
-// il campo e' letto nel file 20 clifo
-GROUP=100
-X=15
-Y=1
-MSKID=F_RAGSOC
-TYPE=T_STRINGA
-SIZE=50
-USE=LF_CLIFO KE 2
-INPUT=TIPOCF F_TIPOCF SELECT~RAGSOC F_RAGSOC
-DISPLAY="Ragione sociale@50" RAGSOC~"Codice" CODCF~"Indirizzo@35" INDCF
-OUTPUT=F_CODCF CODCF~F_RAGSOC RAGSOC
-WARNING=Ragione sociale non trovata
-HELP=Inserire la ragione sociale della ditta
+//[RAGSOC]
+/// il campo e' letto nel file 20 clifo
+//GROUP=100
+//X=15
+//Y=1
+//MSKID=F_RAGSOC
+//TYPE=T_STRINGA
+//SIZE=50
+//USE=LF_CLIFO KE 2
+//INPUT=TIPOCF F_TIPOCF SELECT~RAGSOC F_RAGSOC
+//DISPLAY="Ragione sociale@50" RAGSOC~"Codice" CODCF~"Indirizzo@35" INDCF
+//OUTPUT=F_CODCF CODCF~F_RAGSOC RAGSOC
+//WARNING=Ragione sociale non trovata
+//HELP=Inserire la ragione sociale della ditta
 
 [OCCASEDIT]
 GROUP=100
@@ -301,6 +303,7 @@ DISPLAY="Codice" CODTAB~"Descrizione@50" S0~"Cambio@15" R10~"Data valuta" D0
 OUTPUT=F_CODVAL CODTAB~F_NOMEVAL S0~F_CAMBIO R10~F_DATACAMBIO D0
 WARNING=Codice valuta non trovato
 HELP=Inserisci il codice della valuta
+SPECIAL=ME CO,F_CODVAL1
 
 [CODVAL2]
 //se codice=LIT il campo cambio e' di sola visualizzazione