campo-sirio/ps/pd0666100a.uml

#include "pd0666100a.h"

PAGE "Trasferimento a SAP per Medicasa" -1 -1 72 22

GROUPBOX DLG_NULL 71 4
BEGIN
  PROMPT 1 1 "@bEsportazione clenti / fornitori"
END

BOOLEAN F_CLIENTI
BEGIN
  PROMPT 2 2 "Clienti"
  MESSAGE FALSE DISABLE,F_CLIFILE
  MESSAGE TRUE ENABLE,F_CLIFILE
END

STRING F_CLIFILE 128 50
BEGIN
  PROMPT 14 2 "File "
  CHECKTYPE REQUIRED
  FIELD CLIFILE
END

BOOLEAN F_FORNITORI
BEGIN
  PROMPT 2 3 "Fornitori"
  MESSAGE FALSE DISABLE,F_FORNFILE
  MESSAGE TRUE ENABLE,F_FORNFILE
END

STRING F_FORNFILE 128 50
BEGIN
  PROMPT 14 3 "File "
  CHECKTYPE REQUIRED
  FIELD FORNFILE
END

GROUPBOX DLG_NULL 71 10
BEGIN
  PROMPT 1 5 "@bEsportazione partite"
END

BOOLEAN F_PARTITEC
BEGIN
  PROMPT 2 6 "Partite clienti   "
  MESSAGE FALSE DISABLE,F_PARTFILEC
  MESSAGE TRUE ENABLE,F_PARTFILEC
END

STRING F_PARTFILEC 128 40
BEGIN
  PROMPT 24 6 "File "
  CHECKTYPE REQUIRED
  FIELD PARTFILEC
END

DATE F_LASTDATAC
BEGIN
  PROMPT 2 7 "Data ultimo invio "
  FLAGS "D"
  FIELD LASTDATAC
END

NUMBER F_LASTNUMC 3
BEGIN
  PROMPT 40 7 "Numero ultimo invio "
  FLAGS "D"
  FIELD LASTNUMC
END

NUMBER F_NEXTNUMC 3
BEGIN
  PROMPT 2 8 "Numero invio da effettuare "
END

BOOLEAN F_PARTITEF
BEGIN
  PROMPT 2 11 "Partite fornitori "
  MESSAGE FALSE DISABLE,F_PARTFILEF
  MESSAGE TRUE ENABLE,F_PARTFILEF
END

STRING F_PARTFILEF 128 40
BEGIN
  PROMPT 24 11 "File "
  CHECKTYPE REQUIRED
  FIELD PARTFILEF
END

DATE F_LASTDATAF
BEGIN
  PROMPT 2 12 "Data ultimo invio "
  FLAGS "D"
  FIELD LASTDATAF
END

NUMBER F_LASTNUMF 3
BEGIN
  PROMPT 40 12 "Numero ultimo invio "
  FLAGS "D"
  FIELD LASTNUMF
END

NUMBER F_NEXTNUMF 3
BEGIN
  PROMPT 2 13 "Numero invio da effettuare "
END

GROUPBOX DLG_NULL 71 5
BEGIN
  PROMPT 1 15 "@bEsportazione cespiti"
END

BOOLEAN F_CESPI
BEGIN
  PROMPT 2 16 "Cespiti   "
  MESSAGE FALSE DISABLE,F_CESPIFILE
  MESSAGE TRUE ENABLE,F_CESPIFILE
END

STRING F_CESPIFILE 128 40
BEGIN
  PROMPT 24 16 "File "
  CHECKTYPE REQUIRED
  FIELD CESPIFILE
END

DATE F_LASTDATACESPI
BEGIN
  PROMPT 2 17 "Data ultimo invio "
  FLAGS "D"
  FIELD LASTDATACESPI
END

NUMBER F_LASTNUMCESPI 3
BEGIN
  PROMPT 40 17 "Numero ultimo invio "
  FLAGS "D"
  FIELD LASTNUMCESPI
END

NUMBER F_NEXTNUMCESPI 3
BEGIN
  PROMPT 2 18 "Numero invio da effettuare "
END


DATE F_TODAY
BEGIN
  PROMPT 2 20 "Data invio da effettuare "
  FLAGS "A"
END


BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -12 -1 ""
  PICTURE BMP_ELABORA
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK