campo-sirio/ce/ce1500a.uml

#include "ce1500a.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Movimenti cespiti" 0 2 0 0

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 0 0 "@bParametri di selezione"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 1 1 "Ditta     "
  FLAGS "DF"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 1 ""
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FLAGS "D"
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 2 "Esercizio "
  FLAGS "AZ"
  USE CCE
  JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" 104@->D0
  DISPLAY "Fine esercizio" 104@->D1
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES 104@->D0
  OUTPUT F_FINE_ES 104@->D1
  CHECKTYPE REQUIRED
END

DATE F_INIZIO_ES
BEGIN
  PROMPT 26 2 "Inizio "
  FLAGS "D"
END

DATE F_FINE_ES
BEGIN
  PROMPT 50 2 "Fine "
  FLAGS "D"
END

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 1 3 "Gruppo    "
  FLAGS "Z"
END

STRING F_SPECIE 4
BEGIN
  PROMPT 16 3 "Specie "
  FLAGS "_"
  USE CCB 
  JOIN %CAT ALIAS 400 INTO CODTAB=CODTAB[5,10]
  INPUT CODTAB[1,4] F_ESERCIZIO SELECT
  INPUT CODTAB[5,6] F_GRUPPO
  INPUT CODTAB[7,10] F_SPECIE
  DISPLAY "Gruppo" CODTAB[5,6]
  DISPLAY "Specie" CODTAB[7,10]
  DISPLAY "Descrizione@60" 400@->S0
  OUTPUT F_GRUPPO CODTAB[5,6]
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_DESC_GRSP 400@->S0
  CHECKTYPE REQUIRED
  WARNING "È necessario specificare l'attività corrente"
END

STRING F_DESC_GRSP 60 45
BEGIN
  PROMPT 31 3 ""
  FLAGS "D"
END

NUMBER F_IMPIANTO 10
BEGIN
  PROMPT 1 4 "Impianto  "
  FLAGS "Z"
  USE CIM
  INPUT CODTAB F_IMPIANTO
  DISPLAY "Impianto@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_IMPIANTO CODTAB
  OUTPUT F_DESC_IMP S0
  CHECKTYPE NORMAL
END

STRING F_DESC_IMP 50 48
BEGIN
  PROMPT 27 4 ""
  FLAGS "Z"
  USE CIM KEY 2
  INPUT S0 F_DESC_IMP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_IMPIANTO
  CHECKTYPE NORMAL
END

STRING F_IDCESPITE 10
BEGIN
  PROMPT 1 5 "Cespite   "
  FLAGS "UZ"
  USE LF_CESPI 
  INPUT IDCESPITE F_IDCESPITE
  DISPLAY "Cespite@10" IDCESPITE
  DISPLAY "Desc@50" DESC
  DISPLAY "Cat." CODCAT
  DISPLAY "Impianto@10" CODIMP
  DISPLAY "Stabilimento@30" STABILIM
  DISPLAY "Reparto@30" REPARTO
  DISPLAY "Data Acq.@10" DTCOMP
  DISPLAY "Data Ali.@10" DTALIEN
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_DESC_CES DESC
  CHECKTYPE NORMAL
END

STRING F_DESC_CES 50 48
BEGIN
  PROMPT 27 5 ""
  USE LF_CESPI KEY 3
  INPUT DESC F_DESC_CES
  DISPLAY "Desc@50" DESC
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Cat." CODCAT
  DISPLAY "Impianto@10" CODIMP
  DISPLAY "Stabilimento@30" STABILIM
  DISPLAY "Reparto@30" REPARTO
  DISPLAY "Data Acq.@10" DTCOMP
  DISPLAY "Data Ali.@10" DTALIEN
  COPY OUTPUT F_IDCESPITE
  CHECKTYPE REQUIRED
END

NUMBER F_IDMOV 11
BEGIN
  PROMPT 1 6 "Movimento "
  FLAGS "Z"
  USE LF_MOVCE
  JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
  INPUT IDMOV F_IDMOV
  DISPLAY "Movimento@11" IDMOV
  DISPLAY "Rettifica@11" IDRET
  DISPLAY "Data mov.@10" DTMOV
  DISPLAY "Codice" CODMOV
  DISPLAY "Data doc.@10" DTDOC
  DISPLAY "Tipo doc." TPDOC
  DISPLAY "Num. doc." NDOC
  DISPLAY "Descrizione Movimento@50" DESC
  DISPLAY "Cespite@10" IDCESPITE
  DISPLAY "Descrizione Cespite@50" LF_CESPI->DESC
  DISPLAY "Impianto@10" LF_CESPI->CODIMP
  OUTPUT F_IDMOV IDMOV
  OUTPUT F_DESC_MOV DESC
  CHECKTYPE REQUIRED
  FIELD IDMOV
  KEY 1
END

STRING F_DESC_MOV 50 48
BEGIN
  PROMPT 27 6 ""
  FLAGS "D"
END

NUMBER F_NUMREG 7
BEGIN
  PROMPT 1 14 "Selezione per numero di registrazione di prima nota "
  USE LF_MOVCE KEY 3
  JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
  INPUT NUMREG F_NUMREG 
  DISPLAY "Registrazione" NUMREG 
  DISPLAY "Movimento@11" IDMOV
  DISPLAY "Data@10" DTMOV
  DISPLAY "Descrizione Movimento@50" DESC
  DISPLAY "Cespite@10" IDCESPITE
  DISPLAY "Descrizione Cespite@50" LF_CESPI->DESC
  DISPLAY "Costo storico@18" CSTO
  DISPLAY "Importo vendita@18" IMPVEN
  OUTPUT F_NUMREG NUMREG
  OUTPUT F_IDMOV IDMOV
  CHECKTYPE NORMAL
END

SPREADSHEET F_CGROWS 0 -2
BEGIN
  PROMPT 0 15 ""
  ITEM "Importo@18"
  ITEM "Residuo@18"
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Descrizione"
  GROUP 8
END

CURRENCY F_TOTIMP 18
BEGIN
  PROMPT 1 -1 "@bTotale Importi   "
  FLAGS "D"
  GROUP 8
END

CURRENCY F_TOTRES 18
BEGIN
  PROMPT 41 -1 "@bTotale Residuo   "
  FLAGS "D"
  GROUP 8
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 8 "@bRicerche personalizzate"
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 60 6

CURRENCY S_IMPORTO 18
BEGIN
  PROMPT 1 1 "Importo "
  FLAGS "D"
END

CURRENCY S_RESIMP 18
BEGIN
  PROMPT 1 2 "Residuo "
  FLAGS "D"
END

NUMBER S_GRUPPO 3
BEGIN
  PROMPT 1 3 "Gruppo "
END

NUMBER S_CONTO 3
BEGIN
  PROMPT 21 3 "Conto "
END

NUMBER S_SOTTOCONTO 6
BEGIN
  PROMPT 41 3 "Sottoconto "
END

STRING S_DESCR 50
BEGIN
  PROMPT 1 4 "Descr. "
END

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

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

ENDPAGE

ENDMASK