#include "pg9000a.h"

PAGE "Stampa Conferimenti" -1 -1 78 10


DATE F_DADATA
BEGIN
  PROMPT 2 1 "Movimenti Da data   "
  FIELD #DADATA
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 30 1 "A data   "
  FIELD #ADATA
  CHECKTYPE REQUIRED
END


SPREADSHEET F_CONTI
BEGIN
  PROMPT 4 5 "Tabella Codici IVA"
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Causale"
  ITEM "Codice tributo"
END

ENDPAGE

ENDMASK

PAGE "CONTI" 4 10 70 10

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

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

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 2 8 "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
  OUTPUT F_DESSOTTOC DESCR
  CHECKTYPE REQUIRED
  WARNING "Sottoconto assente"
  GROUP 1 4
END

STRING F_CAUS 20
BEGIN
  PROMPT 23 16 ""
  CHECKTYPE SEARCH
  GROUP 5
END

STRING 101 4
BEGIN
  PROMPT 1 2 ""
  USE %TRB SELECT S6=="E"
  INPUT CODTAB 101
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT 101 CODTAB
  CHECKTYPE REQUIRED
  FIELD TRIBUTO
END 

ENDPAGE

ENDMASK