campo-sirio/src/ca/ca0800a.uml

#include "ca0800a.h"

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

PAGE "Ripartizioni" 0 0 0 2

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 ""
END

RADIOBUTTON F_TIPO 1 76
BEGIN
  PROMPT 2 0 ""
  FLAGS "ZP"
  ITEM "I|Interattiva"
    MESSAGE SHOW,1@|HIDE,2@
  ITEM "B|Batch"
    MESSAGE SHOW,2@|HIDE,1@
  ITEM "P|Pareggio"
    MESSAGE SHOW,1@|HIDE,2@
  FIELD TIPO
  KEY 1
END

STRING F_CODICE_I 8
BEGIN
  PROMPT 2 2 "Codice "
  FLAGS "Z"
  USE LF_RIP
  INPUT TIPO F_TIPO SELECT
  INPUT CODICE F_CODICE_I
  DISPLAY "Codice@8" CODICE
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODICE_I CODICE
  OUTPUT F_DESCRIZ_I DESCRIZ
  CHECKTYPE REQUIRED
  FIELD CODICE
  KEY 1
  GROUP 1
END

STRING F_CODICE_B 8
BEGIN
  PROMPT 2 2 "Codice "
  FLAGS "Z"
  USE LF_RIP
  INPUT TIPO "B"
  INPUT CODICE F_CODICE_B
  DISPLAY "Codice@8 " CODICE
  DISPLAY "Costo@20" CODCOSTO
  DISPLAY "Commessa@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Fase@10" CODFASE
  OUTPUT F_CODICE_B CODICE
  OUTPUT F_DESCRIZ_B DESCRIZ
  CHECKTYPE REQUIRED
  FIELD CODICE
  KEY 1
  GROUP 2
END

STRING F_DESCRIZ_I 50
BEGIN
  PROMPT 24 2 ""
  USE LF_RIP KEY 2
  INPUT TIPO "I"
  INPUT DESCRIZ F_DESCRIZ_I
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice " CODICE
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" CONTO
  COPY OUTPUT F_CODICE_I
  FIELD DESCRIZ
  KEY 2
  GROUP 1
END

STRING F_DESCRIZ_B 50
BEGIN
  PROMPT 24 2 ""
  COPY USE F_DESCRIZ_I
  INPUT TIPO "B"
  INPUT DESCRIZ F_DESCRIZ_B
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice " CODICE
  DISPLAY "Costo@20" CODCOSTO
  DISPLAY "Commessa@20" CODCMS
  DISPLAY "Fase@10" CODFASE
  COPY OUTPUT F_CODICE_B
  FIELD DESCRIZ
  KEY 2
  GROUP 2
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 4 "@bConto"
  GROUP 1
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 2 5 "Conto       "
  USE LF_PCON
  INPUT GRUPPO F_GRUPPO 
  INPUT CONTO F_CONTO
  INPUT SOTTOCONTO F_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
  FIELD GRUPPO
  GROUP 1
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 22 5 ""
  COPY ALL F_GRUPPO
  FIELD CONTO
  CHECKTYPE NORMAL
  GROUP 1
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 30 5 ""
  COPY ALL F_GRUPPO
  FIELD SOTTOCONTO
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 6 "Descrizione "
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCR 
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_GRUPPO
  CHECKTYPE REQUIRED
  GROUP 1
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 2 8 "Esercizio "
  USE ESC
  INPUT CODTAB F_ANNOES
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_ANNOES CODTAB
  FIELD ANNOES
  CHECKTYPE NORMAL
END

LIST F_INDBIL 16
BEGIN
  PROMPT 20 8 "Indicatore di bilancio "
  ITEM "0|0. Non definito"
  ITEM "1|1. Attivita'"
  ITEM "2|2. Passivita'"
  ITEM "3|3. Costi"
  ITEM "4|4. Ricavi"
  FIELD INDBIL
END

LIST F_CLASSEMOV 25
BEGIN
  PROMPT 2 9 "Classe movimento "
  ITEM "0|Tutti"
  ITEM "1|Normali e Temporanei"
  ITEM "2|Preventivi e Variazioni"
  FIELD CLASSEMOV
  GROUP 2
END

ENDPAGE

PAGE "Righe" -1 -1 78 22

RADIOBUTTON F_TIPORIP 1 78
BEGIN
  PROMPT 1 0 "Ripartizione"
  FLAGS "Z"
  ITEM "0|Percentuale"
  ITEM "1|Costo\Ricavo"
  ITEM "2|Parti"
  FIELD TIPORIP
END

NUMBER F_TOTRIP 15 5
BEGIN
	PROMPT 2 3 "Totale "  
	FIELD TOTRIP
END 

NUMBER F_SOMMA 15 5
BEGIN
	PROMPT 27 3 "Somma "  
	FLAGS "D"
END 

NUMBER F_DIFFERENZA 15 5
BEGIN
	PROMPT 51 3 "Differenza "  
	FLAGS "D"
END 

SPREADSHEET F_SHEET 80 -3
BEGIN
  PROMPT 0 4 ""
  ITEM "Ripartiz.@15F"
  ITEM "Cdc1"
  ITEM "Cdc2"
  ITEM "Cdc3"
  ITEM "Cdc4"
  ITEM "Cms1"
  ITEM "Cms2"
  ITEM "Cms3"
  ITEM "Cms4"
  ITEM "Fas1"
  ITEM "Fas2"
  ITEM "Fas3"
  ITEM "Fas4"
  ITEM "Con1"
  ITEM "Con2"
  ITEM "Con3"
  ITEM "Con4"
  ITEM "Articolo@20"
END

BUTTON F_GENFASI 60 2
BEGIN
  PROMPT -11 -1 "Ripartire la commessa d'origine tra le sue fasi"
END

ENDPAGE

ENDMASK

PAGE "Sheet" -1 -1 78 19

NUMBER 101 15 5
BEGIN
  PROMPT 1 0 "% Ripartizione "
  FLAGS "U"
  FIELD RIPARTO
  MESSAGE COPY,201
END

NUMBER 201 15 5
BEGIN
  PROMPT 1 0 "Numero parti "
  FLAGS "U"
  FIELD RIPARTO
  MESSAGE COPY,101
END

STRING 102 20
BEGIN
  PROMPT 1 1 "Cdc1 "
  USE LF_CDC
  GROUP 1
END

STRING 103 20
BEGIN
  PROMPT 1 2 "Cdc2 "
  COPY USE 102
  GROUP 1
END

STRING 104 20
BEGIN
  PROMPT 1 3 "Cdc3 "
  COPY USE 102
  GROUP 1
END

STRING 105 20
BEGIN
  PROMPT 1 4 "Cdc4 "
  COPY USE 102
  GROUP 1
END

STRING 106 20
BEGIN
  PROMPT 1 5 "Cms1 "
  USE LF_COMMESSE
  GROUP 1
END

STRING 107 20
BEGIN
  PROMPT 1 6 "Cms2 "
  COPY USE 106
  GROUP 1
END

STRING 108 20
BEGIN
  PROMPT 1 7 "Cms3 "
  COPY USE 106
  GROUP 1
END

STRING 109 20
BEGIN
  PROMPT 1 8 "Cms4 "
  COPY USE 106
  GROUP 1
END

STRING 110 20
BEGIN
  PROMPT 1 9 "Fas1 "
  USE LF_FASI
  GROUP 1
END

STRING 111 10
BEGIN
  PROMPT 1 10 "Fas2 "
  COPY USE 110
  GROUP 1
END

STRING 112 10
BEGIN
  PROMPT 1 11 "Fas3 "
  COPY USE 110
  GROUP 1
END

STRING 113 10
BEGIN
  PROMPT 1 12 "Fas4 "
  COPY USE 110
  GROUP 1
END

STRING 114 20
BEGIN
  PROMPT 1 14 "Gruppo     "
  USE LF_PCON
  GROUP 1
END

STRING 115 20
BEGIN
  PROMPT 27 14 "Conto "
  COPY USE 114
  GROUP 1
END

STRING 116 20
BEGIN
  PROMPT 46 14 "Sottoconto "
  COPY USE 114
  GROUP 1
END

STRING 117 20
BEGIN
  PROMPT 1 15 "Sottoconticino "
  COPY USE 114
  GROUP 1
END

STRING 118 20
BEGIN
  PROMPT 1 16 "Articolo "
  USE LF_ANAMAG
  INPUT CODART 118
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT 118 CODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FIELD CODART
  MODULE CI
END


ENDPAGE

TOOLBAR "topbar" 0 0 0 2

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

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

ENDPAGE

ENDMASK