Correzioni di PG

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

ve/ve0300a.src

@@ -100,9 +100,8 @@ 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~"Indrizzo@35" INDCF
+DISPLAY="Ragione sociale@50" RAGSOC~"Codice" CODCF~"Indrizzo@35" INDCF
 OUTPUT=F_CODCF CODCF~F_RAGSOC RAGSOC
-SPECIAL=ME 9,F_CODCF
 WARNING=Ragione sociale non trovata
 HELP=Inserire la ragione sociale della ditta
 
@@ -122,9 +121,9 @@ CONFIGS=GESOCCAS||S_NASCOSTO
 [OCCASEDIT]
 GROUP=100
 TYPE=T_BOTTONE
-SIZE=801
+SIZE=1901
-PROMPT="Modifica"
+PROMPT="Cliente occasionale"
-X=61
+X=2
 Y=0
 MSKID=F_OCCASEDIT
 CONFIGS=GESOCCAS||S_NASCOSTO
@@ -138,10 +137,9 @@ MSKID=F_COFI
 TYPE=T_STRINGA
 PROMPT="Cod. fisc. "
 USE=LF_CLIFO KE 4
-INPUT=COFI F_COFI
+INPUT=TIPOCF F_TIPOCF SELECT~COFI F_COFI
-DISPLAY="Codice Fiscale@16" COFI~"Ragione sociale@50" LF_CLIFO->RAGSOC~"Codice" LF_CLIFO->CODCF~"Indrizzo@35" LF_CLIFO->INDCF
+DISPLAY="Codice Fiscale@16" COFI~"Ragione sociale@50" RAGSOC~"Codice" CODCF~"Indrizzo@35" INDCF
 OUTPUT=@F_CODCF
-SPECIAL=ME 9,F_CODCF
 SIZE=16
 
 [STATOPAIV]
@@ -152,7 +150,7 @@ Y=0
 MSKID=F_STATOPAIVA
 TYPE=T_LISTA
 PROMPT="P.Iva "
-ITEMS=  |Italia o extra CEE@BE|Belgio@DE|Germania@DK|Danimarca@L|Grecia@ES|Spagna@FR|Francia@GB|Gran Bretagna@IE|Irlanda@IT|Italia@LU|Lussemburgo@NL|Olanda@PT|Portogallo
+ITEMS=|Italia o extra CEE@BE|Belgio@DE|Germania@DK|Danimarca@L|Grecia@ES|Spagna@FR|Francia@GB|Gran Bretagna@IE|Irlanda@IT|Italia@LU|Lussemburgo@NL|Olanda@PT|Portogallo
 SIZE=20
 
 [PAIVA]
@@ -164,10 +162,9 @@ MSKID=F_PAIVA
 TYPE=T_STRINGA
 PROMPT=""
 USE=LF_CLIFO KE 5
-INPUT=COFI F_COFI
+INPUT=TIPOCF F_TIPOCF SELECT~STATOPAIV F_STATOPAIVA~PAIV F_PAIVA
 DISPLAY="Partita IVA@12" PAIV~"Ragione sociale@50" RAGSOC~"Codice" CODCF~"Indrizzo@35" INDCF
 OUTPUT=@F_CODCF
-SPECIAL=ME 9,F_CODCF
 SIZE=12
 
 [GRRECAPITO]
@@ -296,6 +293,12 @@ Y=0
 MSKID=F_NOMEVAL
 TYPE=T_STRINGA
 SIZE=50
+USE=%VAL KEY 2
+INPUT=S0 F_NOMEVAL
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB~"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
 CONFIGS=GESVAL||S_NASCOSTO
 
 [CAMBIO]
@@ -376,6 +379,13 @@ Y=0
 MSKID=F_DESCODPAG
 TYPE=T_STRINGA
 SIZE=50
+USE=%CPG KEY 2
+INPUT=S0 F_DESCODPAG
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_CODPAG CODTAB~F_DESCODPAG S0
+WARNING=Codice tipo pagamento non trovato
+HELP=Inserisci il codice del tipo di pagamento
+SPECIAL=ADD RU BA3 -6
 
 [GRSCADENZE]
 GROUP=500
@@ -446,7 +456,7 @@ FIELDNAME=CODABIA
 MSKID=F_CODABIA
 TYPE=T_NUMERO
 PROMPT="Banca appoggio      : cod. ABI "
-SIZE=5                     
+SIZE=5
 FLAG=Z
 USE=%BAN SE CODTAB?="?????"
 INPUT=CODTAB[1,5] F_CODABIA
@@ -534,11 +544,10 @@ TYPE=T_STRINGA
 PROMPT="C.vendita  "
 SIZE=2
 FLAG=U
-USE=LF_CONDV SELECT CATVEN!=""
+USE=%CVE
-SPECIAL=ADD RUN ve2 -1 l~JOIN %CVE TO LF_CONDV INTO CODTAB==CATVEN
+INPUT=CODTAB F_CATVEN
-INPUT=TIPO "L"~CATVEN F_CATVEN~COD F_CODLIST
+DISPLAY="Cat.Ven." CODTAB~"Descrizione@50" S0
-DISPLAY="Cat.Ven." LF_CONDV->CATVEN~"Codice" LF_CONDV->COD~"Descrizione@50" LF_CONDV->DESCR
+OUTPUT=F_CATVEN CODTAB~F_DESCATVEN S0
-OUTPUT=F_CATVEN LF_CONDV->CATVEN~F_DESCATVEN %CVE->S0~F_CODLIST LF_CONDV->COD~F_DESLIST LF_CONDV->DESCR
 CONFIGS=GES[1]||S_NASCOSTO|GESLISCV||S_NASCOSTO
 
 [DESCATVEN]
@@ -601,7 +610,7 @@ X=2
 Y=0
 FIELDNAME=CODCONT
 MSKID=F_CODCONT
-TYPE=T_NUMERO
+TYPE=T_STRINGA
 PROMPT="Contratto  "
 SIZE=3
 USE=LF_CONDV SE CODCF==""
@@ -617,7 +626,7 @@ X=2
 Y=0
 FIELDNAME=CODCONT
 MSKID=F_CODCONT
-TYPE=T_NUMERO
+TYPE=T_STRINGA
 PROMPT="Contratto  "
 SIZE=3
 USE=LF_CONDV SELECT CODCF!=""
@@ -844,6 +853,10 @@ MSKID=F_DESAG
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%AGE KEY 2
+INPUT=S0 F_DESAG
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_CODAG CODTAB~F_DESAG S0
 CONFIGS=GESAGE||S_NASCOSTO
 
 [CODAGVIS]
@@ -871,6 +884,10 @@ MSKID=F_DESAGVIS
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%AGE KEY 2
+INPUT=S0 F_DESAGVIS
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_CODAGVIS CODTAB~F_DESAGVIS S0
 CONFIGS=GESAGE||S_NASCOSTO
 
 [CODSPMEZZO]
@@ -897,6 +914,10 @@ MSKID=F_DESSPMEZZO
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%MSP KEY 2
+INPUT=S0 F_DESSPMEZZO
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_CODSPMEZZO CODTAB~F_DESSPMEZZO S0
 
 [CODPORTO]
 GROUP=1210
@@ -923,6 +944,12 @@ MSKID=F_DESPORTO
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%POR KEY 2
+INPUT=S0 F_DESPORTO
+DISPLAY="Porto@50" S0~"Codice" CODTAB
+OUTPUT=F_CODPORTO CODTAB~F_DESPORTO S0
+WARNING=Codice porto non trovato
+HELP=Inserisci il codice del porto
 
 [CODNOTESP1]
 GROUP=1300
@@ -947,6 +974,10 @@ MSKID=F_DESNOTESP1
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%NDO KEY 2
+INPUT=S0 F_DESNOTESP1
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_CODNOTESP1 CODTAB~F_DESNOTESP1 S0
 
 [CODNOTESP2]
 GROUP=1300
@@ -971,6 +1002,10 @@ MSKID=F_DESNOTESP2
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%NDO KEY 2
+INPUT=S0 F_DESNOTESP2
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_CODNOTESP2 CODTAB~F_DESNOTESP2 S0
 
 [CAUSTRASP]
 GROUP=1400
@@ -997,6 +1032,12 @@ MSKID=F_DENCAUSTRASP
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%CTR KEY 2
+INPUT=S0 F_DENCAUSTRASP
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_CAUSTRASP CODTAB~F_DENCAUSTRASP S0
+WARNING=Codice di causale non trovato
+HELP=Inserisci il codice dalla causale del trasporto
 
 //[TRASPORTO] //???Va messo???
 //GROUP=1500
@@ -1034,6 +1075,12 @@ MSKID=F_NOMEVETT1
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%VET KEY 2
+INPUT=S0 F_NOMEVETT1
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_CODVETT1 CODTAB~F_NOMEVETT1 S0
+WARNING=Codice primo vettore non trovato
+HELP=Inserisci il codice del primo (o unico) vettore
 
 [CODVETT2]
 GROUP=1500
@@ -1060,6 +1107,12 @@ MSKID=F_NOMEVETT2
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%VET KEY 2
+INPUT=S0 F_NOMEVETT2
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_CODVETT2 CODTAB~F_NOMEVETT2 S0
+WARNING=Codice primo vettore non trovato
+HELP=Inserisci il codice del primo (o unico) vettore
 
 [CODVETT3]
 GROUP=1500
@@ -1086,6 +1139,12 @@ MSKID=F_NOMEVETT3
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%VET KEY 2
+INPUT=S0 F_NOMEVETT3
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_CODVETT3 CODTAB~F_NOMEVETT3 S0
+WARNING=Codice primo vettore non trovato
+HELP=Inserisci il codice del primo (o unico) vettore
 
 [NCOPIE]
 GROUP=1600
@@ -1209,6 +1268,10 @@ MSKID=F_DESCRBENI1
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%ABE KEY 2
+INPUT=S0 F_DESCRBENI1
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_ASPBENI1 CODTAB~F_DESCRBENI1 S0
 
 [ASPBENI2]
 GROUP=2100
@@ -1235,6 +1298,10 @@ MSKID=F_DESCRBENI2
 TYPE=T_STRINGA
 PROMPT=""
 SIZE=50
+USE=%ABE KEY 2
+INPUT=S0 F_DESCRBENI2
+DISPLAY="Descrizione@50" S0~"Codice" CODTAB
+OUTPUT=F_ASPBENI2 CODTAB~F_DESCRBENI2 S0
 
 [IMPNETTI]
 GROUP=2200