campo-sirio/ce/ce4200a.uml

#include "ce4200a.h"

TOOLBAR "" 0 -3 0 2

BUTTON DLG_ELABORA 10 2
BEGIN    
  PROMPT -13 -11 "~Elabora"
  PICTURE BMP_ELABORA
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -23 -11 "~Stampa"
  PICTURE BMP_PRINT
  MESSAGE EXIT,K_ESC
END

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

ENDPAGE

PAGE "Calcolo saldi per commessa" -1 -1 0 -3

LIST F_NRIGA 3
BEGIN
  PROMPT 1 100 ""
  FLAGS "D"
  ITEM "1|1"
  FIELD NRIGA
  KEY 1
END

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

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

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 3 "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
  FIELD CODES
END

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

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

STRING F_DA_IDCESPITE 10
BEGIN
  PROMPT 1 5 "Dal cespite "
  FLAGS "UZ"
  USE LF_SALCECMS SELECT NRIGA==1
  JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
  INPUT IDCESPITE F_DA_IDCESPITE
  INPUT CODES F_ESERCIZIO
  INPUT NRIGA F_NRIGA
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Descrizione@50" LF_CESPI->DESC
  DISPLAY "Cat." LF_CESPI->CODCAT
  DISPLAY "Impianto@10" LF_CESPI->CODIMP
  DISPLAY "Data Acq.@10" LF_CESPI->DTCOMP
  DISPLAY "Data Ali.@10" LF_CESPI->DTALIEN
  OUTPUT F_DA_IDCESPITE IDCESPITE
  OUTPUT F_DA_DESC LF_CESPI->DESC
  CHECKTYPE SEARCH
  ADD RUN "ce0 -4"
END

STRING F_DA_DESC 60 50
BEGIN
  PROMPT 26 5 ""
  FLAGS "D"
END

STRING F_A_IDCESPITE 10
BEGIN
  PROMPT 1 6 "Al cespite  "
  FLAGS "UZ"
  COPY USE F_DA_IDCESPITE
  INPUT IDCESPITE F_A_IDCESPITE
  INPUT CODES F_ESERCIZIO
  INPUT NRIGA F_NRIGA
  COPY DISPLAY F_DA_IDCESPITE
  OUTPUT F_A_IDCESPITE IDCESPITE
  OUTPUT F_A_DESC LF_CESPI->DESC
  CHECKTYPE SEARCH
  ADD RUN "ce0 -4"
END

STRING F_A_DESC 60 50
BEGIN
  PROMPT 26 6 ""
  FLAGS "D"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 1 9 "Numerazione  "
  USE %NUM
  INPUT CODTAB F_CODNUM
  OUTPUT F_DESNUM S0
  KEY 1 2
  CHECKTYPE NORMAL
  FLAGS "UD"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 9 ""
  FLAGS "D"
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 1 10 "Tipo         "
  USE %TIP
  INPUT CODTAB F_TIPODOC
  OUTPUT F_DESTIPODOC S0
  CHECKTYPE NORMAL
  FLAGS "UD"
END

STRING F_DESTIPODOC 50
BEGIN
  PROMPT 24 10 ""
  FLAGS "D"
END

STRING F_TIPORIGA 4
BEGIN
  PROMPT 1 11 "Tipo riga    "
  USE %TRI
  INPUT CODTAB F_TIPORIGA
  OUTPUT F_DESTIPORIGA S0
  CHECKTYPE NORMAL
  FLAGS "D"
END

STRING F_DESTIPORIGA 50
BEGIN
  PROMPT 24 11 ""
  FLAGS "D"
END

STRING F_CODIVA 4
BEGIN
  PROMPT 1 12 "Codice IVA   "
  USE %IVA
  INPUT CODTAB F_CODIVA
  OUTPUT F_DESIVA S0
  CHECTYPE NORMAL
  FLAGS "D"
END

STRING F_DESIVA 50
BEGIN
  PROMPT 24 12 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 14 "@bCommessa spese generali"
END

STRING F_CMSGEN 20
BEGIN
  PROMPT 1 15 "Codice Commessa "
  FLAGS "DUZ"
  KEY 1
  USE CMS
  INPUT CODTAB F_CMSGEN
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMSGEN CODTAB
  OUTPUT F_DESCMSGEN S0
  CHECKTYPE NORMAL
END

STRING F_DESCMSGEN 50
BEGIN
  PROMPT 1 16 "Descrizione     "
  FLAGS "D"
  KEY 2
  USE CMS KEY 2
  INPUT S0 F_DESCMSGEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  COPY OUTPUT F_CMSGEN
  CHECKTYPE NORMAL
END

BOOLEAN F_SOLOPERC
BEGIN
  PROMPT 1 18 "Utilizza solo le percentuali nel calcolo"
END

BOOLEAN F_CMSGROUP
BEGIN
  PROMPT 1 19 "Raggruppamento per commessa"
END

ENDPAGE

ENDMASK