campo-sirio/cg/cg7200a.uml

#include "cg7200a.h"

TOOLBAR "topbar" 0 0 0 2

#include <printbar.h>

ENDPAGE

PAGE "Lista movimenti per imponibile" 0 2 0 0

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 4
BEGIN
  PROMPT 1 4 "@bParametri movimenti"
END

LIST F_TIPODATE 13
BEGIN
  PROMPT 2 5 "Seleziona per data di:      "
  HELP "Movimenti per data registrazione o data documento"
  ITEM "R|Registrazione"
  ITEM "D|Documento"
  FIELD #TIPODATE
END

DATE F_DATAINI
BEGIN
  PROMPT 2 6 "Stampa movimenti dalla data "
  HELP "Data da cui iniziare la stampa"
  FIELD #DATAINI
END

DATE F_DATAFIN
BEGIN
  PROMPT 50 6 "alla data "
  HELP "Data fino a cui eseguire la stampa"
  FIELD #DATAFIN
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 8 "@bParametri clienti/fornitori"
END

LIST F_TIPOELENCO 9
BEGIN
  PROMPT 2 9 "Tipo elenco       "
  HELP "Indicare cosa includere nella stampa"
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
  FIELD #TIPOELENCO
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 10 "Cliente/Fornitore "
  HELP "Indicare il codice da cui iniziare la stampa"
  GROUP 1
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOELENCO SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_DESCF RAGSOC
  FLAGS "R"       
  CHECKTYPE NORMAL
  FIELD #CODCF
END

STRING F_DESCF 50 45
BEGIN
  PROMPT 29 10 ""
  GROUP 1
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOELENCO SELECT
  INPUT RAGSOC F_DESCF
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
  FIELD #DESCF
END

CURRENCY F_LIMITE 15
BEGIN
  PROMPT 2 12 "Importo limite per imponibile "
  FIELD #LIMITE
END

ENDPAGE

ENDMASK