campo-sirio/ve/ve3900a.uml

#include "ve3900a.h"

TOOLBAR "Topbar" 0 0 0 2

BUTTON DLG_PREVIEW 2 2
BEGIN
  PROMPT 1 1 "~Anteprima"
  MESSAGE EXIT,65
  PICTURE TOOL_PREVIEW
END

BUTTON DLG_PDF 2 2
BEGIN
  PROMPT 2 1 "~Pdf"
  MESSAGE EXIT,80
  PICTURE TOOL_PDF
END

#include <printbar.h>

ENDPAGE

PAGE "Stampa fatturato" 0 2 0 0

GROUPBOX DLG_NULL 78 9
BEGIN
  PROMPT 1 1 "@bDocumenti da considerare"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 2 "Anno     "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  OUTPUT F_DADATA D0
  OUTPUT F_ADATA D1
  FLAGS "Z"
  FIELD #ANNO
  CHECKTYPE REQUIRED
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 3 "Numer.   "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  FLAGS "UPA"
  FIELD #CODNUM
  CHECKTYPE REQUIRED
END

STRING F_DESNUM 50
BEGIN
  PROMPT 20 3 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
  CHECKTYPE NORMAL
END

STRING F_TIPO 4
BEGIN
  PROMPT 2 4 "Tipo     "
  USE %TIP
  INPUT CODTAB F_TIPO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPO CODTAB
  OUTPUT F_DESTIPO S0
  FLAGS "UPA"
  FIELD #TIPODOC
  CHECKTYPE NORMAL
END

STRING F_DESTIPO 50
BEGIN
  PROMPT 20 4 ""
  USE %TIP KEY 2
  INPUT S0 F_DESTIPO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPO
  CHECKTYPE NORMAL
END

STRING F_DASTATO 1
BEGIN
  PROMPT 2 5 "Da stato "
  USE %STD
  INPUT CODTAB F_DASTATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DASTATO CODTAB
  OUTPUT F_DADESTATO S0
  FLAGS "U"
  FIELD #DASTATO
  CHECKTYPE NORMAL
END

STRING F_DADESTATO 50
BEGIN
  PROMPT 20 5 ""
  USE %STD KEY 2
  INPUT S0 F_DADESTATO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_DASTATO
  CHECKTYPE NORMAL
END

STRING F_ASTATO 1
BEGIN
  PROMPT 2 6 "A stato  "
  USE %STD
  INPUT CODTAB F_ASTATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ASTATO CODTAB
  OUTPUT F_ADESTATO S0
  FLAGS "U"
  FIELD #ASTATO
  CHECKTYPE NORMAL
END

STRING F_ADESTATO 50
BEGIN
  PROMPT 20 6 ""
  USE %STD KEY 2
  INPUT S0 F_ADESTATO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_ASTATO
  CHECKTYPE NORMAL
END

DATE F_DADATA
BEGIN
  PROMPT 2 7 "Da data  "
  FIELD #DADATA
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 2 8 "A data   "
  FIELD #ADATA
  CHECKTYPE REQUIRED
END


GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 10 "@bFiltri secondari"
END

NUMBER F_DACLIFO 6
BEGIN
  PROMPT 2 11 "Da Cliente "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_DACLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_DACLIFO CODCF
  OUTPUT F_DARAGSOC RAGSOC
  FLAGS "R"
  FIELD #DACLIFO
  CHECKTYPE NORMAL
END

STRING F_DARAGSOC 50
BEGIN
  PROMPT 25 11 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_DACLIFO
  CHECKTYPE NORMAL
END

NUMBER F_ACLIFO 6
BEGIN
  PROMPT 2 12 "A Cliente  "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_ACLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_ACLIFO CODCF
  OUTPUT F_ARAGSOC RAGSOC
  FLAGS "R"
  FIELD #ACLIFO
  CHECKTYPE NORMAL
END

STRING F_ARAGSOC 50
BEGIN
  PROMPT 25 12 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_ARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_ACLIFO
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK