campo-sirio/ve/ve5200.uml

#include <doc.h>
#include "ve5200.h"

PAGE "Cambiamento stato documenti" -1 -1 72 15

GROUPBOX DLG_NULL 70 4
BEGIN
  PROMPT 1 1 "Numerazione"
END

RADIOBUTTON F_PROVVIS 35
BEGIN
  PROMPT 1 1 ""
  ITEM "D|Definitiva"
  ITEM "P|Provvisoria"
  FLAGS "Z"
  FIELD PROVV
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 59 2 "Anno "
  FLAGS "AU"
  CHECKTYPE REQUIRED
  FIELD ANNO
END

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

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

GROUPBOX DLG_NULL 70 4
BEGIN
  PROMPT 1 5 "Stato"
END

STRING F_INIZIALE 1
BEGIN
  PROMPT 2 6 "Iniziale "
  USE %STD
  INPUT CODTAB F_INIZIALE
  DISPLAY "Stato documento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_INIZIALE CODTAB
  OUTPUT F_DESCINI S0
  CHECKTYPE REQUIRED
END

STRING F_DESCINI 50 52
BEGIN
  PROMPT 16 6 ""
  FLAGS "D"
END

STRING F_FINALE 1
BEGIN
  PROMPT 2 7 "Finale   "
  COPY USE F_INIZIALE
  INPUT CODTAB F_FINALE
  DISPLAY "Stato documento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_FINALE CODTAB
  OUTPUT F_DESCFIN S0
  CHECKTYPE REQUIRED
  NUM_EXPR (#F_FINALE!=#F_INIZIALE)
  WARNING "Lo stato finale deve essere diverso da quello iniziale"
END

STRING F_DESCFIN 50 52
BEGIN
  PROMPT 16 7 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 70 4
BEGIN
  PROMPT 1 9 "Intervallo"
END

NUMBER F_DANUMERO 7
BEGIN
  PROMPT 2 10 "Da "
  USE LF_DOC SELECT STATO==#F_INIZIALE
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
  INPUT ANNO F_ANNO SELECT
  INPUT PROVV F_PROVVIS SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_DANUMERO
  DISPLAY "Num." CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Provv" PROVV
  DISPLAY "Tipo" TIPODOC
  DISPLAY "N.Doc. " NDOC
  DISPLAY "Data Doc. " DATADOC
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_DANUMERO NDOC
  CHECKTYPE SEARCH
  FLAGS "U"
END

STRING F_DACLIFO 50 52
BEGIN
  PROMPT 16 10 ""
  FLAGS "D"
END

NUMBER F_ANUMERO 7
BEGIN
  PROMPT 2 11 "A  "
  COPY USE F_DANUMERO
  INPUT ANNO F_ANNO SELECT
  INPUT PROVV F_PROVVIS SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_ANUMERO
  COPY DISPLAY F_DANUMERO
  OUTPUT F_ANUMERO NDOC
  CHECKTYPE SEARCH
  NUM_EXPR (#F_ANUMERO==0)||(#F_ANUMERO>=#F_DANUMERO)
  WARNING "Il numero finale deve essere maggiore di quello iniziale"
END

STRING F_ACLIFO 50 52
BEGIN
  PROMPT 16 11 ""
  FLAGS "D"
END

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

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

ENDPAGE

ENDMASK