campo-sirio/cm/cm1100a.uml

#include "cm1100a.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_PRINT 10 2
BEGIN
 PROMPT -13 -1 "~Stampa"
 MESSAGE EXIT,K_ENTER
END

BUTTON DLG_CONFIG 10 2
BEGIN
 PROMPT -23 -1 "~Configura"
 PICTURE BMP_CONFIG
END

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

ENDPAGE

PAGE "Stampa pagato per commessa / fornitore" -1 -1 50 10

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@bSelezione periodo"
END

RADIOBUTTON F_TIPODATA 76
BEGIN
  PROMPT 2 2 "Estrazione per data di: "
  ITEM "0|Registrazione"
  ITEM "1|Documento"
  ITEM "2|Pagamento"
  FLAGS "Z"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 5 "Dalla data "
END

DATE F_DATAFIN
BEGIN
  PROMPT 25 5 "Alla data  "
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data finale deve essere successiva a quella iniziale"
END

RADIOBUTTON F_ORDINAMENTO 1 40
BEGIN
  PROMPT 1 7 "@bTipo ordinamento"
  ITEM " |Commessa"
  ITEM "X|Fornitore"
  FLAGS "Z"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 10 "@bSelezione commesse"
END

STRING F_DACDC 20
BEGIN
  PROMPT 2 11 "Da CDC/Commessa "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB F_DACDC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_DACDC CODTAB
  CHECKTYPE SEARCH
END

STRING F_DAFSC 10
BEGIN
  PROMPT 50 11 "Da fase   "
  FLAGS "UZ"
  USE FSC
  INPUT CODTAB F_DAFSC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_DAFSC CODTAB
  CHECKTYPE SEARCH
END

STRING F_ACDC 20
BEGIN
  PROMPT 2 12 "A CDC/Commessa  "
  FLAGS "UZ"
  COPY USE F_DACDC
  INPUT CODTAB F_ACDC
  COPY DISPLAY F_DACDC
  OUTPUT F_ACDC CODTAB
  CHECKTYPE SEARCH
  STR_EXPR (#F_ACDC=="")||(#F_ACDC>=#F_DACDC)
  WARNING "Il codice commessa finale non puo' essere inferiore a quello iniziale"
END

STRING F_AFSC 10
BEGIN
  PROMPT 50 12 "A fase    "
  FLAGS "UZ"
  COPY USE F_DAFSC
  INPUT CODTAB F_AFSC
  COPY DISPLAY F_DAFSC
  OUTPUT F_AFSC CODTAB
  CHECKTYPE SEARCH
  STR_EXPR (#F_AFSC=="")||(#F_AFSC>=#F_DAFSC)
  WARNING "Il codice fase finale non puo' essere inferiore a quello iniziale"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "@bSelezione fornitori"
END

NUMBER F_DACODFOR 6
BEGIN
  PROMPT 2 15 "Da codice "
  USE LF_CLIFO KEY 1
  FLAGS "U"
  INPUT TIPOCF "F"
  INPUT CODCF F_DACODFOR
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_DACODFOR CODCF
  OUTPUT F_DADESFOR RAGSOC
  CHECKTYPE NORMAL
END

STRING F_DADESFOR 50
BEGIN
  PROMPT 23 15 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DADESFOR
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice " CODCF
  COPY OUTPUT F_DACODFOR
  CHECKTYPE NORMAL
END

NUMBER F_ACODFOR 6
BEGIN
  PROMPT 2 16 "A codice  "
  COPY USE F_DACODFOR
  FLAGS "U"
  INPUT TIPOCF "F"
  INPUT CODCF F_ACODFOR
  COPY DISPLAY F_DACODFOR
  OUTPUT F_ACODFOR CODCF
  OUTPUT F_ADESFOR RAGSOC
  CHECKTYPE NORMAL
  NUM_EXPR (#F_ACODFOR==0)||(#F_ACODFOR>=#F_DACODFOR)
  WARNING "Il codice fornitore finale non puo' essere inferiore a quello iniziale"
END

STRING F_ADESFOR 50
BEGIN
  PROMPT 23 16 ""
  COPY USE F_DADESFOR
  INPUT TIPOCF "F"
  INPUT RAGSOC F_ADESFOR
  COPY DISPLAY F_DADESFOR
  COPY OUTPUT F_ACODFOR
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK