#include "cg6900a.h"

PAGE "Invio contabilita'" -1 -1 76 12

NUMBER F_DITTAINV 5
BEGIN
  PROMPT 2 1 "Codice ditta inviante "
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_DITTAINV
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_DITTAINV CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  FLAGS "Z"
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale       "
  FLAGS "D"
END

BOOLEAN F_RIPPN
BEGIN
  PROMPT 2 4 "Ripristina movimenti di primanota"
END

BOOLEAN F_RIPIVA
BEGIN
  PROMPT 2 5 "Ripristina movimenti iva"
END

BOOLEAN F_RIPSC
BEGIN
  PROMPT 2 6 "Ripristina movimenti saldaconto"
END

DATE F_DATA 
BEGIN
  PROMPT 2 8 "Data inizio ripristino "
END

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

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

ENDMASK