campo-sirio/dt/dt0300b.uml

#include "dt0300b.h"

TOOLBAR "" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Configurazione modulo" 0 2 0 0

TEXT DLG_NULL
BEGIN
  PROMPT 2 1 "@bTabella conversione negozi"
END

SPREADSHEET F_CONF_DITTE 78 8
BEGIN
  PROMPT 1 2 ""
  ITEM "Negozio"
  ITEM "Ditta"
  ITEM "CDC"
  ITEM "Cod. num."
END

ENDPAGE

ENDMASK

TOOLBAR "" 0 0 0 2

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

PAGE "" -1 -1 75 10

STRING F_S_NEGOZIO 6
BEGIN
  PROMPT 1 1 "Negozio  "
  VALIDATE NOT_EMPTY_FUNC
END

NUMBER F_S_CODDITTA 5
BEGIN
  PROMPT 1 2 "Ditta    "
  HELP "Codice della ditta corrispondente al negozio"
  FLAGS "R"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_S_CODDITTA
  DISPLAY "Codice@10" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_S_CODDITTA CODDITTA
  OUTPUT F_S_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  WARNING "Ditta assente"
END

STRING F_S_CDC 20
BEGIN
  PROMPT 1 3 "CDC      "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB F_S_CDC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_S_CDC CODTAB
  CHECKTYPE SEARCH
END

STRING F_S_CODNUM 4
BEGIN
  PROMPT 1 4 "Cod. num.    "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_S_CODNUM
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_S_CODNUM CODTAB
  OUTPUT F_S_D_CODNUM S0
  CHECKTYPE NORMAL
END

STRING F_S_RAGSOC 50
BEGIN
  PROMPT 20 2 ""
  USE LF_NDITTE KEY 2
  HELP "Ragione sociale ditta corrispondente"
  INPUT RAGSOC F_S_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice@10" CODDITTA
  COPY OUTPUT F_S_CODDITTA
  CHECKTYPE SEARCH
  VALIDATE NOT_EMPTY_FUNC
  WARNING "Inserire la ragione sociale"
END

STRING F_S_D_CODNUM 50
BEGIN
  PROMPT 23 4 ""
  FLAGS "D"
  USE %NUM
  INPUT CODTAB F_S_CODNUM
  OUTPUT F_S_D_CODNUM S0
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK