campo-sirio/dl/dl0500b.uml

#include "dl0500b.h"

PAGE "Generazione ordini" -1 -1 71 19

NUMBER F_CODCF 6
BEGIN
  PROMPT 1 1 "Codice fornitore "
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "F"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione sociale  "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED
END

STRING F_CODORD 4
BEGIN
  PROMPT 1 3 "Numerazione ordini  "
  USE %NUM SELECT (I1=="3")&&(B1=="X")
  INPUT CODTAB F_CODORD
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Numeraz. autom." B1
  OUTPUT F_CODORD CODTAB
  OUTPUT F_TIPODOC S2[1,4]
  CHECKTYPE REQUIRED
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 30 3 "Tipo documento "
  FLAGS "D"
END

DATE F_DATACONS
BEGIN
  PROMPT 1 4 "Data consegna "
END

SPREADSHEET F_RIGHE 0 -3
BEGIN
  PROMPT 1 5 "@bRighe ordine "
  ITEM "Quantita'"
  ITEM "Codice a barre"
  ITEM "Titolo"
END

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -13 -1 "~Elabora"
  PICTURE BMP_ELABORA
  MESSAGE EXIT,K_INS
END

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

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

ENDPAGE
ENDMASK

//----------------------------------righe sheet-------------------------------------
PAGE "Articoli selezionati" -1 -1 45 5

NUMBER F_QTA 10
BEGIN
  PROMPT 1 1 "Quantita' "
END

STRING F_BARCODE 20
BEGIN
  PROMPT 1 2 "Codice a barre "
  USE LF_ANAMAG KEY 1
  INPUT CODART F_BARCODE
  DISPLAY "Codice a barre@20" CODART
  DISPLAY "Titolo@50" DESCR
  OUTPUT F_BARCODE CODART
  OUTPUT F_TITLE DESCR
  CHECKTYPE REQUIRED
END

STRING F_TITLE 50 35
BEGIN
  PROMPT 1 3 "Titolo "
  FLAGS "D"
END                       

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

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

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

ENDPAGE

ENDMASK