PA "Stampa consegnato per articolo/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 20
BE
PR 2 6 "Articolo "
US 47
FI DACODART
IN CODART 255
DI "Codice@20" CODART
DI "Descrizione@50" DESCR
OU 255 CODART
OU 256 DESCR
GR 1
CH NORMAL
EN
ST 256 50
BE
PR 2 7 ""
US 47 KE 2
IN DESCR 256
DI "Descrizione@50" DESCR
DI "Codice@20" CODART
OU 255 CODART
OU 256 DESCR
GR 1
CH NORMAL
EN
GR -1 60 4
BE
PR 1 9 "@bA:"
EN
ST 259 20
BE
PR 2 10 "Articolo  "
FI ACODART
US 47
IN CODART 259
DI "Codice@20" CODART
DI "Descrizione@50" DESCR
OU 259 CODART
OU 260 DESCR
GR 2
CH NORMAL
EN
ST 260 50
BE
PR 2 11 ""
US 47 KE 2
IN DESCR 260
DI "Descrizione@50" DESCR
DI "Codice@20" CODART
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