campo-sirio/m770/777100a.uml

#include "777100a.h"

PAGE "Invio 770" -1 -1 76 10

NUMBER F_ANNOPAG 4
BEGIN
  PROMPT 49 0 "Anno pagamenti     "
  FLAGS "D"
END

NUMBER F_ANNODIC 4
BEGIN
  PROMPT 49 1 "Anno dichiarazione "
  FLAGS "D"
END

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

NUMBER F_DADITTA 5
BEGIN
  PROMPT 1 4 "Dalla 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
  ADD RUN ba4 -2
END

STRING F_DADESC 50
BEGIN
  PROMPT 22 4 ""
  FLAGS "D"
END

NUMBER F_ADITTA 5
BEGIN
  PROMPT 1 5 "Alla 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"
  ADD RUN ba4 -2
END

STRING F_ADESC 50
BEGIN
  PROMPT 22 5 ""
  FLAGS "D"
END

BOOLEAN F_NOHEADERS
BEGIN
  PROMPT 1 7 "Generazione dei soli record dati (H,J) senza record di testata (A, B, Z)"
END

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


ENDPAGE

TOOLBAR "" 0 0 0 2

#include "stdbar.h"

ENDPAGE

ENDMASK