#include "sc1200.h"

PAGE "Apertura partite da saldi contabili" -1 -1 51 12

GROUPBOX DLG_NULL 49 6
BEGIN
  PROMPT 1 0  ""
END


TEXT DLG_NULL
BEGIN
	PROMPT 20 1 "ATTENZIONE"
END

TEXT DLG_NULL
BEGIN
	PROMPT 4 3 "La generazione della partite puo' richiedere"
END

TEXT DLG_NULL
BEGIN
	PROMPT 7 4 "tempo. Siate certi di voler proseguire."
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 6 "Anno esercizio    "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Anno Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_ANNO CODTAB
  CHECKTYPE REQUIRED
  HELP "Anno di esercizio del quale si desidera la generazione delle partite"
  WARNING "L' anno di esercizio e' obbligatorio"
END                 

STRING F_CODPAG 4
BEGIN
  PROMPT 27 6 "Pagamento      "
  HELP "Codice del pagamento concordato per il movimento"
  FIELD CODPAG
  FLAGS "UZ"
  USE %CPG
  INPUT CODTAB F_CODPAG 
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPAG CODTAB
  CHECKTYPE REQUIRED
  ADD RUN ba3 -6
  WARNING "Codice pagamento obbligatorio"
END


DATE F_DATA
BEGIN      
  PROMPT 1 8 "Data scadenza "                     
  FLAGS "A"
END

NUMBER F_NUMPART 3
BEGIN      
  PROMPT 27 8 "N. partite aperte " 
  FLAGS "D"
END


BUTTON DLG_OK 9 2
BEGIN
        PROMPT -12 -1 "Conferma"
END

BUTTON DLG_QUIT 9 2
BEGIN
        PROMPT -22 -1 ""
END

ENDPAGE
ENDMASK