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

Corretto errore aga0193

Browse Source 
Aggiunta copia da F_CODVAL a f_CODVAL1


git-svn-id: svn://10.65.10.50/trunk@5712 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-12-09 10:53:43 +00:00
parent 3467281fc2
commit 20f50689d7
1 changed files with 43 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
ve/ve0300a.src
View File

@ -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