campo-sirio/m770/777100a.uml

#include "777100a.h"

PAGE "Invio 770" -1 -1 72 8

NUMBER F_ANNO 4
BEGIN
  PROMPT 47 1 "Anno dichiarazione "
  FLAGS "D"
END

STRING F_PATH 260 53
BEGIN
  PROMPT 1 2 "Destinazione "
  DSELECT
  CHECTYPE REQUIRED
END

NUMBER F_DADITTA 5
BEGIN
  PROMPT 1 3 "Da ditta "
  USE LF_BASE 
  JOIN LF_NDITTE INTO CODDITTA=CODDITTA
  INPUT CODDITTA F_DADITTA
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Anno" ANNODIC
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  OUTPUT F_DADITTA CODDITTA
  OUTPUT F_DADESC LF_NDITTE->RAGSOC 
  CHECKTYPE NORMAL
END

STRING F_DADESC 50
BEGIN
  PROMPT 20 3 ""
  FLAGS "D"
END

NUMBER F_ADITTA 5
BEGIN
  PROMPT 1 4 "A ditta  "
  COPY USE F_DADITTA
  INPUT CODDITTA F_ADITTA
  COPY DISPLAY F_DADITTA
  OUTPUT F_ADITTA CODDITTA 
  OUTPUT F_ADESC LF_NDITTE->RAGSOC
  CHECKTYPE SEARCH
  NUM_EXPR (#F_ADITTA=0)||(#F_ADITTA>=#F_DADITTA)
  WARNING "La ditta finale deve seguire quella iniziale"
END

STRING F_ADESC 50
BEGIN
  PROMPT 20 4 ""
  FLAGS "D"
END

BOOLEAN F_HEADERS
BEGIN
  PROMPT 1 6 "Genera record di testata (tipo A, B, Z)"
END

BOOLEAN F_CENT
BEGIN
  PROMPT 1 7 "Salva importi in centesimi (x 100)"
  FLAGS "H"
END


ENDPAGE

TOOLBAR "" 0 0 0 2

#include "stdbar.h"

ENDPAGE

ENDMASK