campo-sirio/cg/cg2100b.uml

#include "cg2100.h"
#include "cg21sld.h"

TOOLBAR "" 0 -2 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Testata" -1 -1 77 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 "@BMovimento di sola contabilita'"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "DFR"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC 
  OUTPUT K_CODDITTA CODDITTA
  OUTPUT K_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50 52
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"
END

NUMBER F_NUMREG 7
BEGIN
  PROMPT 56 3 "Operazione n. "
  FIELD NUMREG
  FLAGS "DGR"
  MESSAGE COPY,K_NUMREG
END

DATE F_DATAREG
BEGIN
  PROMPT 1 3 "Data operazione         "
  FIELD DATAREG
  CHECKTYPE REQUIRED
  MESSAGE COPY,K_DATAREG
END


DATE F_DATACOMP
BEGIN
  PROMPT 1 4 "Data di competenza      "
  FIELD DATACOMP
  MESSAGE COPY,K_DATACOMP
// DATACOMP NEW WAY  
//  CHECKTYPE REQUIRED
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 56 4 "Codice esercizio "
  FIELD ANNOES
  MESSAGE COPY,K_ANNOES
  FLAGS "DGZ"
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 1 5 "Causale       "
  FLAGS "UZ"
  FIELD CODCAUS
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Registro" REG
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCRCAUS DESCR
  OUTPUT F_TIPODOC TIPODOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -4
  MESSAGE COPY,K_CODCAUS
END

STRING F_DESCRCAUS 50
BEGIN
  PROMPT 25 5 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCRCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CODCAUS
  MESSAGE COPY,K_DESCRCAUS
END

LIST F_PROVVISORIO 1 24
BEGIN
  PROMPT 1 6 "Movimento provvisorio   "
  FIELD PROVVIS
  ITEM " |No (movimento normale)"
  ITEM "P|Si (cancellabile)"
  ITEM "C|Cespiti"
END

STRING F_TIPODOC 2
BEGIN
  PROMPT 60 6 "Tipo documento "
  FIELD TIPODOC
  FLAGS "DG"
  MESSAGE COPY,K_TIPODOC
END

DATE F_DATADOC
BEGIN
  PROMPT 1 7 "Data del documento      "
  FIELD DATADOC
  WARNING "Specificare una data del documento non superiore a quella dell'operazione"
  VALIDATE DATE_CMP_FUNC <= F_DATAREG
  MESSAGE COPY,K_DATADOC
END

STRING F_NUMDOC 7
BEGIN
  PROMPT 56 7 "Documento n.  "
  FIELD NUMDOC
  FLAGS "U"
  WARNING "La causale impone di specificare il numero documento"
  MESSAGE COPY,K_NUMDOC
END

NUMBER F_ANNOIVA 4
BEGIN
  FLAGS "H"
END

STRING F_DESCAGG 5
BEGIN
  PROMPT 1 8 "Descrizione   "
  FLAGS "UZ"
  USE %DPN
  INPUT CODTAB F_DESCAGG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESCAGG CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE NORMAL
END

STRING F_DESCR 50
BEGIN
  PROMPT 25 8 ""
  FIELD DESCR
  USE %DPN KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_DESCAGG
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 10 "@bVoci per saldaconto"
  GROUP 5
END

STRING SK_VALUTA 3
BEGIN
  PROMPT 2 11 "Valuta "
  FIELD CODVAL
  FLAGS "UZ"
  GROUP 3 5
  USE %VAL
  INPUT CODTAB SK_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT SK_VALUTA CODTAB
  CHECKTYPE NORMAL
END

DATE SK_DATACAMBIO
BEGIN
  PROMPT 17 11 "Data cambio "
  FIELD DATACAM
  FLAGS "R"
  USE CAM
  INPUT CODTAB[1,3] SK_VALUTA SELECT
  INPUT CODTAB[4,11] SK_DATACAMBIO
  DISPLAY "Codice valuta" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Cambio@18R" S4
  OUTPUT SK_DATACAMBIO D0
  OUTPUT SK_CAMBIO S4
  GROUP 3 5
  CHECKTYPE SEARCH
END

NUMBER SK_CAMBIO 15 6
BEGIN
  PROMPT 44 11 "Cambio "
  FIELD CAMBIO
  FLAGS "RU"
  GROUP 3 5
  PICTURE ".6"
  CHECKTYPE REQUIRED
  WARNING "E' stata specificata una valuta senza il cambio relativo"
END

CURRENCY F_TOTALE 18
BEGIN
  PROMPT 2 12 "Importo movimento "
  GROUP 5
  FIELD TOTDOC
  VALIDATE REQIF_FUNC 1 SK_TOTDOCVAL
  MESSAGE COPY,K_TOTALE|COPY,FS_IMPONIBILI
END

CURRENCY SK_TOTDOCVAL 18
BEGIN
  PROMPT 41 12 "Totale in valuta "
  GROUP 3 5
  VALIDATE REQIF_FUNC 1 F_TOTALE
  DRIVENBY SK_VALUTA
  FIELD TOTDOCVAL
END

STRING F_CODPAG 4
BEGIN
  PROMPT 2 14 "Cod. Pagamento "
  FIELD CODPAG
  FLAGS "U#"
  USE %CPG
  INPUT CODTAB F_CODPAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPAG CODTAB
  OUTPUT F_DESPAG S0
  CHECKTYPE NORMAL
  ADD RUN ba3 -6
  WARNING "Codice pagamento assente"
  GROUP 5 6 
END

STRING F_DESPAG 50
BEGIN
  PROMPT 25 14 ""
  USE %CPG KEY 2
  INPUT S0 F_DESPAG
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODPAG
  ADD RUN ba3 -6
  GROUP 5 6
END

NUMBER F_ANNORIF 4
BEGIN
  PROMPT 48 15 "Rif.partita "
  FIELD LF_PARTITE->ANNO
  FLAGS "U"
  GROUP 5 6
END

STRING F_NUMRIF 7
BEGIN
  PROMPT 66 15 "/ "
  FIELD LF_PARTITE->NUMPART
  FLAGS "U#"
  GROUP 5 6
END

ENDPAGE

PAGE "Righe" -1 -1 77 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 "@BMovimento di sola contabilita'"
END

NUMBER K_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "D"
END

STRING K_RAGSOC 50 56
BEGIN
  PROMPT 21 1 ""
  FLAGS "D"
END

NUMBER K_NUMREG 7
BEGIN
  PROMPT 1 3 "Operazione "
  FLAGS "D"
END

DATE K_DATAREG
BEGIN
  PROMPT 22 3 "del "
  FLAGS "D"
END

DATE K_DATACOMP
BEGIN
  PROMPT 41 3 "Competenza "
  FLAGS "D"
END

NUMBER K_ANNOES 4
BEGIN
  PROMPT 64 3 "Esercizio "
  FLAGS "DZ"
END

STRING K_NUMDOC 7
BEGIN
  PROMPT 1 4 "Documento  "
  FLAGS "D"
END

DATE K_DATADOC
BEGIN
  PROMPT 22 4 "del "
  FLAGS "D"
END

STRING K_TIPODOC 2
BEGIN
  PROMPT 41 4 "Tipo documento "
  FLAGS "D"
END

STRING K_CODCAUS 3
BEGIN
  PROMPT 1 5 "Causale        "
  FLAGS "D"
END

STRING K_DESCRCAUS 50 52
BEGIN
  PROMPT 26 5 ""
  FLAGS "D"
END

CURRENCY K_TOTALE 18
BEGIN
  PROMPT 1 6 "Imp. mov. "
  FLAGS "D"
  GROUP 5
END

CURRENCY K_RESIDUO 18
BEGIN
  PROMPT 32 6 "Residuo "
  FLAGS "D"
  GROUP 5
END

LIST SK_TIPORIGA 1 12
BEGIN
  PROMPT 60 6 "Riga "
  ITEM "K|Saldaconto"
  ITEM "G|Spese"
  ITEM "A|Normale"
END

SPREADSHEET F_SHEETCG 0 -3
BEGIN
  PROMPT 0 7 ""
  ITEM "Dare@15F"
  ITEM "Avere@15F"
  ITEM "CF@2"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sott.@6"
  ITEM "Descrizione conto@30"
  ITEM "Codice"
  ITEM "Descrizione riga@30"
  ITEM "CF@1"
  ITEM "Gr./c@3"
  ITEM "Co./c@3"
  ITEM "Sott./c@6"
  ITEM "Descrizione contropartita@30"
  ITEM "Tipo@4"
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 1 -2 "Conto riga corrente      "
  FLAGS "D"
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 31 -2 ""
  FLAGS "D"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 36 -2 ""
  FLAGS "D"
END

STRING F_SALDOCONTO 20
BEGIN
  PROMPT 51 -2 "Saldo  "
  FLAGS "DR"
END

CURRENCY F_DARE 18
BEGIN
  PROMPT 1 -1 "Sbilancio Dare   "
  FLAGS "DRV"
END

CURRENCY F_AVERE 18
BEGIN
  PROMPT 42 -1 "Sbilancio Avere "
  FLAGS "DRV"
END

ENDPAGE

#include "cg21sld.uml"

ENDMASK

#include "cg21cg.uml"
#include "cg21rata.uml"