d030bbabe2
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 766 git-svn-id: svn://10.65.10.50/trunk@14628 c028cbd2-c16b-5b4b-a496-9718f37d4682
128 lines
1.6 KiB
Plaintext
Executable File
128 lines
1.6 KiB
Plaintext
Executable File
PA "Stampa consegnato per linea/cliente" -1 -1 64 16
|
|
NU 251 5
|
|
BE
|
|
PR 1 1 "Ditta "
|
|
FL "FRD"
|
|
US 9 KE 1
|
|
CH REQUIRED
|
|
IN CODDITTA 251
|
|
DI "Codice" CODDITTA
|
|
DI "Ragione sociale @50" RAGSOC
|
|
OU 251 CODDITTA
|
|
OU 252 RAGSOC
|
|
EN
|
|
ST 252 50
|
|
BE
|
|
PR 15 1 ""
|
|
FL "D"
|
|
EN
|
|
DA 253
|
|
BE
|
|
PR 1 3 "Dalla data "
|
|
FI DADATA
|
|
CHECKTYPE REQUIRED
|
|
GR 1
|
|
EN
|
|
DA 254
|
|
BE
|
|
PR 28 3 "Alla data "
|
|
FI ADATA
|
|
CHECKTYPE REQUIRED
|
|
GR 2
|
|
FL "A"
|
|
EN
|
|
NU 257 6
|
|
BEGIN
|
|
PROMPT 1 4 "Cliente "
|
|
FLAGS "R"
|
|
FIELD CLIENTE
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF 257
|
|
DISPLAY "Codice@10" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT 257 CODCF
|
|
OUTPUT 258 RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
ST 258 50 40
|
|
BEGIN
|
|
PROMPT 20 4 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC 258
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice@10" CODCF
|
|
COPY OUTPUT 257
|
|
CHECKTYPE NORMAL
|
|
END
|
|
GR -1 60 4
|
|
BE
|
|
PR 1 5 "@bDa:"
|
|
EN
|
|
ST 255 3
|
|
BE
|
|
PR 2 6 "Linea "
|
|
FI DAGRMERC
|
|
FL "U"
|
|
US GMC SE CODTAB[4,5]==""
|
|
IN CODTAB[1,3] 255
|
|
DI "Linea" CODTAB[1,3]
|
|
DI "Descrizione linea@50" S0
|
|
OU 255 CODTAB[1,3]
|
|
OU 256 S0
|
|
GR 1
|
|
CH NORMAL
|
|
EN
|
|
ST 256 50
|
|
BE
|
|
PR 2 7 ""
|
|
US GMC KE 2
|
|
IN S0 256
|
|
DI "Descrizione linea@50" S0
|
|
DI "Linea" CODTAB[1,3]
|
|
CO OU 255
|
|
GR 1
|
|
CH NORMAL
|
|
EN
|
|
GR -1 60 4
|
|
BE
|
|
PR 1 9 "@bA:"
|
|
EN
|
|
ST 259 3
|
|
BE
|
|
PR 2 10 "Linea "
|
|
FI AGRMERC
|
|
FL "U"
|
|
US GMC SE CODTAB[4,5]==""
|
|
IN CODTAB[1,3] 259
|
|
DI "Linea" CODTAB[1,3]
|
|
DI "Descrizione linea@50" S0
|
|
OU 259 CODTAB[1,3]
|
|
OU 260 S0
|
|
GR 2
|
|
CH NORMAL
|
|
EN
|
|
ST 260 50
|
|
BE
|
|
PR 2 11 ""
|
|
US GMC KE 2
|
|
IN S0 256
|
|
DI "Descrizione linea@50" S0
|
|
DI "Linea" CODTAB[1,3]
|
|
CO OU 259
|
|
GR 2
|
|
CH NORMAL
|
|
EN
|
|
BU 24 10 2
|
|
BE
|
|
PR -12 -1 "~Stampa"
|
|
ME EXIT,13
|
|
EN
|
|
BU 9 10 2
|
|
BE
|
|
PR -22 -1 ""
|
|
EN
|
|
EN
|
|
ENDMASK
|