campo-sirio/cg/cg4a00a.uml

#include "cg4a00a.h"

TOOLBAR "topbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Gestione Autotrasportatori" 0 0 0 2

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 1 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 2 "Codice "
  FLAGS "FRD"
  USE LF_NDITTE
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 2 "Ragione "
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 4 "Selezione movimenti"
END

DATE F_DADATA
BEGIN
  PROMPT 2 5 "Dal             "
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 37 5 "Al "
  VALIDATE DATE_CMP_FUNC >= F_DADATA
  CHECKTYPE REQUIRED
  WARNING "La data finale deve essere maggiore di quella iniziale"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 1 ""
  FLAGS "H"
END

STRING F_CODREG 3
BEGIN
  PROMPT 2 6 "Codice registro "
  USE REG SELECT (B1=="X")&&(I9<=1)
  INPUT CODTAB[1,4] F_ANNO SELECT
  INPUT CODTAB[5,7] F_CODREG
  DISPLAY "Anno " CODTAB[1,4]
  DISPLAY "Codice " CODTAB[5,7]
  DISPLAY "Descrizione @40" S0
  DISPLAY "Sosp.@4C" B1
  DISPLAY "Tipo Sosp.@10" I9
  OUTPUT F_CODREG CODTAB[5,7]
  OUTPUT F_DESREG S0
  FLAGS "U"
  CHECKTYPE REQUIRED
END

STRING F_DESREG 50 30
BEGIN
  PROMPT 40 6 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 8 "Generazione movimenti"
END

DATE F_DATAOP
BEGIN
  PROMPT 2 9 "Data operazione   "
  VALIDATE DATE_CMP_FUNC >= F_DADATA
  CHECKTYPE REQUIRED
  WARNING "La data operazione deve essere maggiore di quella iniziale"
END

STRING F_CAUS 3
BEGIN
  PROMPT 2 10 "Causale di storno "
  FLAGS "UZ"
  USE LF_CAUSALI SELECT TIPODOC="ST"
  INPUT CODCAUS F_CAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Registro" REG
  OUTPUT F_CAUS CODCAUS
  OUTPUT F_DESCRCAUS DESCR
  CHECKTYPE REQUIRED
  WARNING "Causale indicata non completa od errata"
  ADD RUN cg0 -4
END

STRING F_DESCRCAUS 50 40
BEGIN
  PROMPT 35 10 ""
  FLAGS "D"
END

SPREADSHEET F_SHEET_CAUSALI 78
BEGIN
PROMPT 1 12 "Selezione causali"
  ITEM "C.sos."
  ITEM "Descrizione@15"
  ITEM "T.D."
  ITEM "C.def."
  ITEM "Descrizione@15"
  ITEM "C.Reg."
  ITEM "Nr.\nProt."
END

ENDPAGE
ENDMASK

PAGE "" -1 -1 65 16

STRING F_CAUMOV 3
BEGIN
  PROMPT 1 1 "Causale mov. in sosp. "
  FLAGS "D"
END

STRING F_DESCAUMOV 50 15
BEGIN
  PROMPT 1 2 "Descrizione           "
  FLAGS "D"
END

STRING F_TIPODOC 2
BEGIN
  PROMPT 1 3 "Tipo documento        "
  FLAGS "D"
END

STRING F_CAUDEF 3
BEGIN
  PROMPT 1 4 "Caus. mov. definitivo "
  FLAGS "UZ"
  USE LF_CAUSALI
  JOIN REG INTO CODTAB[1,4]=-#ANNO CODTAB[5,7]=REG
  INPUT CODCAUS F_CAUDEF
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Registro" REG
  OUTPUT F_CAUDEF CODCAUS
  OUTPUT F_DESCAUDEF DESCR[1,15]
  OUTPUT F_CAUDEFREG REG
  CHECKTYPE NORMAL
  WARNING "La causale definitiva <20> obbligatoria"
END

STRING F_DESCAUDEF 15
BEGIN
  PROMPT 1 5 "Descrizione           "
  FLAGS "D"
END

STRING F_CAUDEFREG 3
BEGIN
  PROMPT 1 6 "Cod. registro         "
  FLAGS "D"
END

NUMBER F_NUMPROT 7
BEGIN
  PROMPT 1 7 "Ultimo nr. protocollo "
  FLAGS "D"
END

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

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


ENDPAGE

ENDMASK