root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni di PG

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3203 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-07-18 16:30:00 +00:00
parent 575590459b
commit 831720873d
1 changed files with 86 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
ve/ve0300a.src
View File

@ -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
PROMPT="Modifica"
X=61
SIZE=1901
PROMPT="Cliente occasionale"
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
DISPLAY="Codice Fiscale@16" COFI~"Ragione sociale@50" LF_CLIFO->RAGSOC~"Codice" LF_CLIFO->CODCF~"Indrizzo@35" LF_CLIFO->INDCF
INPUT=TIPOCF F_TIPOCF SELECT~COFI F_COFI
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!=""
SPECIAL=ADD RUN ve2 -1 l~JOIN %CVE TO LF_CONDV INTO CODTAB==CATVEN
INPUT=TIPO "L"~CATVEN F_CATVEN~COD F_CODLIST
DISPLAY="Cat.Ven." LF_CONDV->CATVEN~"Codice" LF_CONDV->COD~"Descrizione@50" LF_CONDV->DESCR
OUTPUT=F_CATVEN LF_CONDV->CATVEN~F_DESCATVEN %CVE->S0~F_CODLIST LF_CONDV->COD~F_DESLIST LF_CONDV->DESCR
USE=%CVE
INPUT=CODTAB F_CATVEN
DISPLAY="Cat.Ven." CODTAB~"Descrizione@50" S0
OUTPUT=F_CATVEN CODTAB~F_DESCATVEN S0
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