#include "pg0214100a.h"

TOOLBAR "" 0 -3 0 3

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 0 "Profilo "
  PSELECT
  FLAGS "H"
END

ENDPAGE

PAGE "Stampa certificazioni" -1 -1 78 10

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Codice "
  FLAGS "GDF"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Rag.Soc. "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 5
BEGIN
   PROMPT 1 3 "@bMovimenti"
END

DATE F_DADATA
BEGIN
  PROMPT 2 4 "Data iniziale "
  FIELD #DADATA
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 2 5 "Data finale   "
  FIELD #ADATA
  CHECKTYPE REQUIRED
END

STRING F_CAUSALE 3
BEGIN
  FLAGS "U"
  PROMPT 2 6 "Causale cont. "
  USE LF_CAUSALI
  INPUT CODCAUS  F_CAUSALE
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAUSALE CODCAUS
  CHECKTYPE NORMAL
END


SPREADSHEET F_CONTI
BEGIN
  PROMPT 2 8 "Conti/causali/tributi"
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Descr. causale"
  ITEM "Tributo"
END

ENDPAGE

ENDMASK

PAGE "CONTI" 4 10 70 10

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 2 2 "Gruppo        "
  USE LF_PCON SELECT (CONTO="")
  INPUT GRUPPO F_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  CHECKTYPE REQUIRED
  WARNING "Gruppo assente"
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 2 3 "Conto         "
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  CHECKTYPE REQUIRED
  WARNING "Conto assente"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 2 4 "Sottoconto "
  USE LF_PCON SELECT (SOTTOCONTO!="")
  COPY INPUT F_CONTO
  INPUT SOTTOCONTO F_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  CHECKTYPE REQUIRED
  WARNING "Sottoconto assente"
END

STRING F_DESCCAUS 20
BEGIN
  PROMPT 2 5 "Causale "
END

STRING F_TRIBUTO 4
BEGIN
  PROMPT 2 6 ""
  USE %TRB //SELECT S6=="E"
  INPUT CODTAB F_TRIBUTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_TRIBUTO CODTAB
END 

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK