campo-sirio/cg/cg7100i.uml

#include "cg7100.h"

PAGE "Lista documenti per importo" -1 -1 78 14

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1  
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA 
  OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 15 1 ""
  FLAGS "D"
END

DATE F_DATASTAMPA 
BEGIN
  PROMPT 1 2 "Data stampa   "
  HELP "Data in cui viene effettuata la stampa"
  FLAGS "A"
  FIELD #DATASTAMPA
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 3 "@bData registrazione"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 4 "Dal "
  HELP "Data da cui iniziare la ricerca"
  FIELD #DATAINI
END

DATE F_DATAFIN
BEGIN
  PROMPT 28 4 "Al "
  HELP "Data fino a cui eseguire la ricerca"
  FIELD #DATAFIN
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 6 "@bCliente/Fornitore"
END

LIST F_I_TIPOCF 1 11
BEGIN
  PROMPT 2 7 "Tipo    "
  FLAGS "PG"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FIELD #TIPOCF
END

NUMBER F_I_CODCF 6
BEGIN
  PROMPT 26 7 "Codice "
  FLAGS "GR"
  USE LF_CLIFO
  INPUT TIPOCF F_I_TIPOCF SELECT
  INPUT CODCF F_I_CODCF
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_I_TIPOCF TIPOCF
  OUTPUT F_I_CODCF CODCF
  OUTPUT F_I_RAGSOC RAGSOC
  HELP "Codice relativo al cliente o fornitore"
  CHECKTYPE NORMAL
  FIELD #CODCF
END

STRING F_I_RAGSOC 50
BEGIN
  PROMPT 2 8 "Ragsoc. "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_I_TIPOCF SELECT
  INPUT RAGSOC F_I_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_I_CODCF
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 10 "@bImporti/Valuta"
END

CURRENCY F_I_DAIMPORTO
BEGIN
  PROMPT 2 11 "Da "
  FIELD #DAIMPORTO
END

CURRENCY F_I_AIMPORTO
BEGIN
  PROMPT 26 11 "A "
  FIELD #AIMPORTO
  NUM_EXPR #THIS_FIELD>=#F_I_DAIMPORTO
  WARNING "Il secondo importo non puo' essere inferiore al primo"
END

STRING F_I_CODVAL 3
BEGIN
  PROMPT 51 11 "Valuta "
  FLAGS "UZ"
  USE %VAL
  INPUT CODTAB F_I_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Valuta@50" S0
  OUTPUT F_I_CODVAL CODTAB
  HELP "Codice della valuta: indicare se NON Euro"
  CHECKTYPE NORMAL
  FIELD #VALUTA
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

#include <printbar.h>

ENDPAGE

ENDMASK