#include "cg7100.h"

PAGE "Lista movimenti 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 "@bConto/Cliente/Fornitore"
END

LIST F_I_TIPOCF 1 11
BEGIN
  PROMPT 2 7 "Tipo    "
  FLAGS "PG"
  ITEM "C|Cliente" 
    MESSAGE SHOW,1@|HIDE,2@
  ITEM "F|Fornitore"
    MESSAGE SHOW,1@|HIDE,2@
  ITEM "|Conto"
    MESSAGE SHOW,2@|HIDE,1@
END

NUMBER F_R_GRUPPO 3
BEGIN
  PROMPT 26 7 ""
  USE LF_PCON SELECT TMCF=#F_I_TIPOCF
  INPUT GRUPPO F_R_GRUPPO
  INPUT CONTO  F_R_CONTO
  INPUT SOTTOCONTO  F_R_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_R_GRUPPO GRUPPO 
  OUTPUT F_R_CONTO CONTO  
  OUTPUT F_R_SOTTOCONTO SOTTOCONTO  
  OUTPUT F_R_DESCR DESCR
  CHECKTYPE NORMAL
  FIELD #GRUPPO
END

NUMBER F_R_CONTO 3
BEGIN
  PROMPT 33 7 ""
  COPY ALL F_R_GRUPPO
  FIELD #CONTO
END

NUMBER F_R_SOTTOCONTO 6
BEGIN
  PROMPT 40 7 ""
  COPY ALL F_R_GRUPPO
  FIELD #SOTTOCONTO
  GROUP 2
END

STRING F_R_DESCR 50
BEGIN
  PROMPT 20 8 ""
  USE LF_PCON KEY 2 SELECT TMCF=#F_I_TIPOCF
  INPUT DESCR F_R_DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  COPY OUTPUT F_R_SOTTOCONTO
  GROUP 2
END

NUMBER F_I_CODCF 6
BEGIN
  PROMPT 40 7 ""
  FLAGS "G"
  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_CODCF CODCF
  OUTPUT F_I_RAGSOC RAGSOC
  HELP "Codice relativo al cliente o fornitore"
  CHECKTYPE NORMAL
  FIELD #SOTTOCONTO
  GROUP 1
END

STRING F_I_RAGSOC 50
BEGIN
  PROMPT 20 8 ""
  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@6R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_I_CODCF
  CHECKTYPE NORMAL
  GROUP 1
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 10 "@bImporti"
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

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

#include <printbar.h>

ENDPAGE

ENDMASK