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