campo-sirio/cg/cg6903a.uml

#include "cg6900a.h"

TOOLBAR "topbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Invio contabilita'" 0 2 0 0

NUMBER F_DITTAINV 5
BEGIN
  PROMPT 2 1 "Codice ditta inviante "
  USE %IND
  JOIN LF_NDITTE TO %IND INTO CODDITTA=CODTAB
  INPUT CODTAB F_DITTAINV
  DISPLAY "Ditta" CODTAB
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  OUTPUT F_DITTAINV CODTAB
  OUTPUT F_RAGSOC LF_NDITTE->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
                
ENDPAGE

ENDMASK