campo-sirio/cg/cg6903a.uml

#include "cg6900a.h"

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

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

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

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

ENDMASK