campo-sirio/src/ca/ca2100a.uml

#include "ca2100a.h"

TOOLBAR "topbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Testata" 0 0 0 2

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 1 "@bTestata"
END

LIST F_TIPO 1 25
BEGIN
  PROMPT 2 2 "Tipo movimento        "
  ITEM " |Normale" 
  ITEM "P|Preventivo" 
  ITEM "V|Variazione preventivo" 
  FIELD TIPOMOV
END

DATE F_DATAREG
BEGIN
  PROMPT 2 3 "Data di registrazione "
  CHECKTYPE REQUIRED
  FIELD DATAREG
  FLAGS "A"
  WARNING "La data di registrazione non appartiene ad un esercizio valido"
  GROUP 5
  MESSAGE COPY,F_DATAREG2
END

NUMBER F_NUMREG 7
BEGIN
  PROMPT 54 2 "Movimento n. "
  USE LF_MOVANA SELECT TIPOMOV==#F_TIPO
  INPUT NUMREG F_NUMREG
  DISPLAY "Numero@7" NUMREG
  DISPLAY "Tipo" TIPOMOV
  DISPLAY "Data reg.@10" DATAREG
  DISPLAY "Data comp.@10" DATACOMP
  DISPLAY "Eser." ANNOES
  DISPLAY "P. nota" NUMREGCG
  DISPLAY "Caus." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_NUMREG NUMREG
  CHECKTYPE REQUIRED
  KEY 1
  FIELD NUMREG
  FLAGS "G"
  MESSAGE COPY,F_NUMREG2
END

DATE F_DATACOMP
BEGIN
  PROMPT 2 4 "Data di competenza    "
  FIELD DATACOMP
  CHECKTYPE REQUIRED
  WARNING "La data di competenza non appartiene ad un esercizio valido"
END

DATE F_DATAFCOMP
BEGIN
  PROMPT 43 4 "Data di fine competenza "
  FIELD DATAFCOMP
  WARNING "La data di fine competenza non puo' essere anteriore alla data di competenza"
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 54 3 "Esercizio    "
  FIELD ANNOES
  MESSAGE COPY,F_ANNOES2
  FLAGS "DG"
END

BOOLEAN F_AUTOFCOMP
BEGIN
  PROMPT 2 5 "Fine competenza coincidente con fine commessa di ogni riga"
  MESSAGE FALSE ENABLE,F_DATAFCOMP
  MESSAGE TRUE CLEAR,F_DATAFCOMP
  FIELD AUTOFCOMP
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 6 "Descrizione           "
  FIELD DESCR
  MESSAGE COPY,F_DESCR2
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 8 "@bDati contabili"
END

STRINGA F_CODCAUS 3
BEGIN
  PROMPT 2 9 "Causale "
  USE LF_CAUSALI SELECT MOVIND!=''
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Industriale@C" MOVCGIND
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCAUS DESCR
  CHECKTYPE REQUIRED
  FLAGS "UG"
  FIELD CODCAUS
  GROUP 5
  ADD RUN cg0 -4
END

STRINGA F_DESCAUS 50 40
BEGIN
  PROMPT 20 9 ""
  USE LF_CAUSALI KEY 2 SELECT MOVIND!=''
  INPUT DESCR F_DESCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  DISPLAY "Industriale@C" MOVCGIND
  COPY OUTPUT F_CODCAUS
  CHECKTYPE REQUIRED
  GROUP 5
  ADD RUN cg0 -4
END

STRING F_TIPODOC 2
BEGIN
  PROMPT 2 10 "Documento:   Tipo "
  USE %TPD
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_TIPODOC CODTAB
  CHECKTYPE NORMAL
  FIELD TIPODOC
  GROUP 5
END

STRING F_NUMDOC 7
BEGIN
  PROMPT 28 10 "Numero "
  CHECKTYPE NORMAL
  FIELD NUMDOC
  GROUP 5
END

DATE F_DATADOC
BEGIN
  PROMPT 47 10 "Data "
  FIELD DATADOC
  GROUP 5
END

NUMBER F_NUMREGCG 7
BEGIN
  PROMPT 2 11 "N. reg. contabile "
  FLAGS "DG"
  FIELD NUMREGCG
  MESSAGE EMPTY ENABLE,F_TIPO|HIDE,F_RESET
  MESSAGE DISABLE,F_TIPO|SHOW,F_RESET
END

LIST F_TIPOCF 1 11
BEGIN
  PROMPT 2 12 "Tipo   "
  FLAGS "DG"
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 25 12 "Codice "
  FLAGS "DG"
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF
  OUTPUT F_TIPOCF TIPOCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOCCF RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGSOCCF 50
BEGIN
  PROMPT 2 13 "Ragione Sociale "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 16 "@bMovimento"
END

CURRENCY F_TOTDOC 18
BEGIN
  PROMPT 2 17 "Totale documento "
  FIELD TOTDOC
  GROUP 5
END

LISTBOX F_SEZIONE 1 5
BEGIN
  PROMPT 39 17 ""
  ITEM "D|Dare"
  ITEM "A|Avere"
  FIELD SEZIONE
  GROUP 5
END

STRING NP_CONTSEP 6
BEGIN
  PROMPT 2 18 "Cont. separata "
  USE &NPENT
  INPUT CODTAB NP_CONTSEP
  DISPLAY "Codice@6" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT NP_CONTSEP CODTAB
  OUTPUT NP_DESCONTSEP S0
  CHECKTYPE NORMAL
  FIELD CONTSEP
  MODULE NP
  GROUP 5
END

STRING NP_DESCONTSEP 50
BEGIN
  PROMPT 25 18 ""
  USE &NPENT KEY 2
  INPUT S0 NP_DESCONTSEP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@6" CODTAB
  COPY OUTPUT NP_CONTSEP
  CHECKTYPE NORMAL
  MODULE NP
  GROUP 5
END

BOOLEAN F_BLOCCATO
BEGIN
  PROMPT 2 20 "Movimento bloccato"
  FIELD BLOCCATO
END

ENDPAGE

PAGE "Righe" 0 2 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 "@bMovimento"
END

NUMBER F_NUMREG2 7
BEGIN
  PROMPT 2 1 "Numero "
  FLAGS "D"
END

DATE F_DATAREG2
BEGIN
  PROMPT 22 1 "Data registrazione "
  FLAGS "D"
END

NUMBER F_ANNOES2 4
BEGIN
  PROMPT 59 1 "Esercizio "
  FLAGS "D"
END

STRING F_DESCR2 50
BEGIN
  PROMPT 2 2 "Descrizione "
  FLAGS "D"
END

CURRENCY F_DARE 18
BEGIN
  PROMPT 2 4 "Saldo riga corrente:   Dare "
  FLAGS "D"
END

CURRENCY F_AVERE 18
BEGIN
  PROMPT 52 4 "Avere "
  FLAGS "D"
END

SPREADSHEET F_RIGHE -1 -2
BEGIN
  PROMPT 0 5 ""
  ITEM "Dare@15"
  ITEM "Avere@15"
  ITEM "Descrizione@30"
  ITEM "Cdc 1"
  ITEM "Cdc 2"
  ITEM "Cdc 3"
  ITEM "Cdc 4"
  ITEM "Cms 1"
  ITEM "Cms 2"
  ITEM "Cms 3"
  ITEM "Cms 4"
  ITEM "Fas 1"
  ITEM "Fas 2"
  ITEM "Fas 3"
  ITEM "Fas 4"
  ITEM "Con 1"
  ITEM "Con 2"
  ITEM "Con 3"
  ITEM "Con 4"
  ITEM "Articolo@20"
  ITEM "Descrizione@30"
  ITEM "Cdc.Orig."
  ITEM "Cms.Orig."
  ITEM "Fase Orig."
  ITEM "Conto Orig."
END

BUTTON F_RESET 78 2
BEGIN
  PROMPT -11 -1 "Rigenera le righe in base alle tabelle di ripartizione"
  FLAGS "H"
END

ENDPAGE

ENDMASK

TOOLBAR "topbar" 0 0 0 2

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

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -24 -1 "Ripartizione"
  PICTURE TOOL_MULTISEL
END

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

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

ENDPAGE

PAGE "Riga" 0 2 0 0

CURRENCY S_DARE 15
BEGIN
  PROMPT 8 0 "Dare "
END

CURRENCY S_AVERE 15
BEGIN
  PROMPT 42 0 "Avere "
END

STRING S_DESCR 50
BEGIN
  PROMPT 1 1 "Descrizione "
  FIELD DESCR
END

STRING S_CDC1 50
BEGIN
  PROMPT 1 4 "Cdc 1"
  USE LF_CDC
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC2 50
BEGIN
  PROMPT 21 5 "Cdc 2"
  COPY USE S_CDC1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC3 50
BEGIN
  PROMPT 41 6 "Cdc 3"
  COPY USE S_CDC1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC4 50
BEGIN
  PROMPT 61 7 "Cdc 4"
  COPY USE S_CDC1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CMS1 50
BEGIN
  PROMPT 1 8 "Cms 1"
  USE LF_COMMESSE
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CMS2 50
BEGIN
  PROMPT 21 9 "Cms 2"
  COPY USE S_CMS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CMS3 50
BEGIN
  PROMPT 41 10 "Cms 3"
  COPY USE S_CMS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CMS4 50
BEGIN
  PROMPT 61 11 "Cms 4"
  COPY USE S_CMS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_FAS1 50
BEGIN
  PROMPT 1 12 "Fas 1"
  USE LF_FASI
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_FAS2 50
BEGIN
  PROMPT 21 13 "Fas 2"
  COPY USE S_FAS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_FAS3 50
BEGIN
  PROMPT 41 14 "Fas 3"
  COPY USE S_FAS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_FAS4 50
BEGIN
  PROMPT 61 15 "Fas 4"
  COPY USE S_FAS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CON1 50
BEGIN
  PROMPT 1 16 "Con 1"
  USE LF_PCON
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CON2 50
BEGIN
  PROMPT 21 17 "Con 2"
  COPY USE S_CON1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CON3 50
BEGIN
  PROMPT 41 18 "Con 3"
  COPY USE S_CON1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CON4 50
BEGIN
  PROMPT 61 19 "Con 4"
  COPY USE S_CON1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CODART 20
BEGIN
  PROMPT 1 20 "Articolo    "
  USE LF_ANAMAG 
  INPUT CODART S_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODART CODART
  OUTPUT S_DESCART DESCR
  CHECKTYPE NORMAL
  FIELD CODART
  MODULE CI
END

STRING S_DESCART 50 35
BEGIN
  PROMPT 38 20 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR S_DESCART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT S_CODART
  CHECKTYPE NORMAL
  MODULE CI
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 21 "@bValori originali pre-ripartizione"
END

STRING S_CDC_ORI 20
BEGIN
  PROMPT 1 22 "Cdc "
  FLAGS "D"
  FIELD CODCCORI
END

STRING S_CMS_ORI 20
BEGIN
  PROMPT 27 22 "Cms "
  FLAGS "D"
  FIELD CODCMSORI
END

STRING S_FAS_ORI 20
BEGIN
  PROMPT 53 22 "Fase "
  FLAGS "D"
  FIELD CODFASEORI
END

STRING S_CON_ORI 20
BEGIN
  PROMPT 1 23 "Conto "
  FLAGS "D"
  FIELD CODCONTORI
END

ENDPAGE 

ENDMASK