campo-sirio/ba/baeura0.uml

#include "baeura0.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -11 ""
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -23 -11 ""
  PICTURE BMP_PRINT
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -33 -11 ""
END

ENDPAGE    

PAGE "Trasferimento movimenti 2002" 0 0 80 18

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@bDitta da convertire"  
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 2 2 "Ditta "
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FLAGS "DF"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 21 2 ""
  FLAGS "D"
END

STRING F_DATI 50
BEGIN
  PROMPT 2 3 "Area dati in Lire  "
  FLAGS "D"
END

STRING F_DATIE 50
BEGIN
  PROMPT 2 4 "Area dati in Euro  "
  FLAGS "D"
END

DATE F_ADOZIONE
BEGIN
  PROMPT 2 5 "Data adozione Euro "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 7 "@bUltimo trasferimento "
END

DATE F_LAST_DATE
BEGIN
  PROMPT 2 8 "Data "
  FLAGS "D"
END

NUMBER F_LAST_FROM 5
BEGIN
  PROMPT 25 8 "Dal "
  FLAGS "D"
END

NUMBER F_LAST_TO 5
BEGIN
  PROMPT 50 8 "al "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 10 "@bProssimo trasferimento"
END

DATE DLG_NULL
BEGIN
  PROMPT 2 11 "Data "
  FLAGS "AD"
END

NUMBER F_MOV_FROM 5
BEGIN
  PROMPT 25 11 "Dal "
  USE LF_MOV 
  INPUT NUMREG F_MOV_FROM
  DISPLAY "Num. Lire" NUMREG
  DISPLAY "Num. Euro" TNUMREG
  DISPLAY "Registrazione" DATAREG
  DISPLAY "Causale" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_MOV_FROM NUMREG
  CHECKTYPE REQUIRED
  WARNING "Inserire un movimento valido"
  ADD RUN cg2 -0
END

NUMBER F_MOV_TO 5
BEGIN
  PROMPT 50 11 "al "
  COPY USE F_MOV_FROM
  INPUT NUMREG F_MOV_TO
  COPY DISPLAY F_MOV_FROM
  OUTPUT F_MOV_TO NUMREG
  CHECKTYPE REQUIRED
  WARNING "Inserire un movimento valido" 
  ADD RUN cg2 -0
END

BROWSEFILE F_LOG 75 -1
BEGIN
  PROMPT 1 12 ""
END

ENDMASK