campo-sirio/src/ps/ps6362100a.uml

#include "ps6362100a.h"

TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 "~Conferma"
  PICTURE TOOL_OK
END

#include <helpbar.h>
ENDPAGE

PAGE "Configurazione Esportazione Major-Flexform" 0 2 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 "@bPercorso salvataggio file"
END

STRING F_FLDDEST 250 50
BEGIN
  PROMPT 2 1 "Cartella di destinazione"
  DSELECT
  FLAGS ""
  CHECKTYPE REQUIRED
END

BOOLEAN F_SUBFLD
BEGIN
  PROMPT 2 2 "Crea sottocartella con data odierna"
  FLAGS ""
END

GROUPBOX DLG_NULL 66 12
BEGIN
   PROMPT 5 4 "@bEstremi dei documenti da elaborare:"
END

RADIOBUTTON F_TIPODOC 64
BEGIN
  PROMPT 6 5 "@bSelezionare tipo documento da esportare/importare"
  ITEM "D|DDT"
  ITEM "O|Ordini"
  FLAG "ZD"
END

GROUPBOX DLG_NULL 25 4
BEGIN
  PROMPT 6 8 "@bSelezionare cod. numerazione"
END

STRING F_NUMDDT 4
BEGIN
  PROMPT 7 9 "DDT   "
  FLAG "UZ"
  USE %NUM
  INPUT CODTAB F_NUMDDT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUMDDT CODTAB
  CHECKTYPE NORMAL
END

STRING F_NUMORD 4
BEGIN
  PROMPT 7 10 "ORDINI"
  FLAG "UZD"
  USE %NUM
  INPUT CODTAB F_NUMORD
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUMORD CODTAB
  CHECKTYPE NORMAL
END

STRING F_ANNO_ELAB 4
BEGIN
  PROMPT 32 8 "Anno elaborazione"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 32 9 "cod. cliente  "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Cod." CODCF
  DISPLAY "Rag. Soc.@50" RAGSOC
  OUTPUT F_CODCF CODCF
  FLAGS ""
END

STRING F_NUMDDT_DA 7
BEGIN
  PROMPT 32 10 "da num. doc. "
  USE LF_DOC
    JOIN %TIP ALIAS 104 INTO CODTAB=TIPODOC
    JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF
  INPUT PROVV "D"
  INPUT TIPOCF "C" SELECT
  INPUT ANNO F_ANNO_ELAB SELECT
  INPUT CODNUM F_NUMDDT SELECT
  INPUT NDOC F_NUMDDT_DA
  DISPLAY "Numero" NDOC
  DISPLAY "Tipo@50" 104@->S0
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NUMDDT_DA NDOC
  ADD RUN ve0 -0
END

STRING F_NUMDDT_A 7
BEGIN
  PROMPT 57 10 "a "
  COPY USE F_NUMDDT_DA
  INPUT PROVV "D"
  INPUT TIPOCF "C" SELECT
  INPUT ANNO F_ANNO_ELAB SELECT
  INPUT CODNUM F_NUMDDT SELECT
  INPUT NDOC F_NUMDDT_A
  COPY DISPLAY F_NUMDDT_DA
  OUTPUT F_NUMDDT_A NDOC
  NUM_EXPR (#THIS_FIELD==0)||(#THIS_FIELD>=#F_NUMDDT_DA)
  WARNING "Specificare un numero documento superiore a quello di partenza"
  ADD RUN ve0 -0
END

ENDPAGE