campo-sirio/cg/cg2100b.uml

#include "cg2100.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "OPERAZIONE DI PRIMA NOTA" -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 "FRD"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT K_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"
  MESSAGE COPY,K_RAGSOC
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         "
  HELP "Data in cui viene effettuata l'operazione"
  FIELD DATAREG
  CHECKTYPE REQUIRED
  MESSAGE COPY,K_DATAREG
END


DATE F_DATACOMP
BEGIN
  PROMPT 1 4 "Data di competenza      "
  HELP "Data di competenza dell'operazione"
  FIELD DATACOMP
  CHECKTYPE REQUIRED
  MESSAGE COPY,K_DATACOMP
END

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

STRING F_CODCAUS 3
BEGIN
  PROMPT 1 5 "Causale       "
  HELP "Codice della causale generante l'operazione"
  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
  OUTPUT F_TIPOMOV TIPOMOV
  CHECKTYPE NORMAL
  ADD RUN cg0 -4       
  MESSAGE COPY,K_CODCAUS
END

STRING F_DESCRCAUS 50
BEGIN
  PROMPT 25 5 ""
  HELP "Descrizione della causale generante l'operazione"
  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 25
BEGIN
  PROMPT 1 6 "Movimento provvisorio   "
  HELP "Indicare se si tratta di movimento provvisorio"
  FIELD PROVVIS
  ITEM " |No (movimento normale)"
  ITEM "P|Si (cancellabile)"
  MESSAGE COPY,K_PROVVISORIO
END

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

NUMBER F_TIPOMOV 1
BEGIN
  PROMPT 32 6 "Tipo movimento "
  FIELD LF_MOV->TIPOMOV
  FLAGS "H"
END

DATE F_DATADOC
BEGIN
  PROMPT 1 7 "Data del documento      "
  HELP "Data del documento generante il movimento"
  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.  "
  HELP "Numero del documento generante il movimento"
  FIELD NUMDOC
  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   "
  HELP "Codice descrizione del movimento di contabilita'"
  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 ""
  HELP "Descrizione del movimento di contabilita'"
  FIELD DESCR
  USE %DPN KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_DESCAGG
END

STRING F_VALUTA 3
BEGIN
  PROMPT 1 9 "Valuta "
  HELP "Codice della valuta per movimento"
  FIELD LF_MOV->CODVAL
  FLAGS "U"
  GROUP 3
  USE %VAL
  INPUT CODTAB F_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  DISPLAY "Cambio@15" R10
  DISPLAY "Ultimo aggiornamento" D0
  OUTPUT F_VALUTA CODTAB
  OUTPUT F_CAMBIO R10
  CHECKTYPE NORMAL
END

NUMBER F_CAMBIO 15 5
BEGIN
  PROMPT 20 9 "Cambio "
  HELP "Cambio della valuta"
  FIELD LF_MOV->CAMBIO
  FLAGS "RU"
  GROUP 3
  PICTURE ".5"
END

BOOLEAN F_VISVAL
BEGIN
  PROMPT 47 9 "Visualizza importi in valuta"
  HELP "Indicare se gli importi sono visualizzati in valuta (non in Lit)"
  GROUP 3
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 10 "Voci di spesa per saldaconto"
END

NUMBER S_TOTDOC 15 0
BEGIN 
  PROMPT 2 11 "Totale documento  "
  HELP ""        
  FLAGS "R"
  PICTURE "."
  GROUP 5
END

NUMBER S_SPESE 15 0
BEGIN                            
  PROMPT 2 12 "Spese e rimborsi  "
  HELP ""
  FLAGS "R"
  PICTURE "."
  GROUP 5
END

NUMBER S_ALSPESE 15 0
BEGIN 
  PROMPT 39 12 "Altre spese     "
  HELP ""
  FLAGS "R"
  PICTURE "."
  GROUP 5
END


NUMBER S_ABBATT 15 0
BEGIN 
  PROMPT 2 14 "Abbuoni attivi    "
  HELP ""
  FLAGS "R"
  PICTURE "."
  GROUP 5
END

NUMBER S_ABBPASS 15 0
BEGIN 
  PROMPT 39 14 "Abbuoni passivi "
  HELP ""
  FLAGS "R"
  PICTURE "."
  GROUP 5
END

NUMBER S_RITPROF 15 0
BEGIN 
  PROMPT 2 16 "Ritenuta prof.    "
  HELP ""
  FLAGS "R"
  PICTURE "."
  GROUP 5
END


NUMBER S_DIFFCAMB 15 0
BEGIN 
  PROMPT 39 16 "Diff. cambio    "
  HELP ""
  FLAGS "R"
  PICTURE "."
  GROUP 5
END

ENDPAGE

PAGE "OPERAZIONE DI PRIMA NOTA" -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
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"
END

NUMBER K_NUMREG 7
BEGIN
  PROMPT 56 3 "Operazione n. "
  FLAGS "RD"
END

DATE K_DATAREG
BEGIN
  PROMPT 1 3 "Data operazione         "
  FLAGS "D"
END


DATE K_DATACOMP
BEGIN
  PROMPT 1 4 "Data di competenza      "
  FLAGS "D"
END

NUMBER K_ANNOES 4
BEGIN
  PROMPT 56 4 "Esercizio     "
  FLAGS "DZ"
END

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

STRING K_DESCRCAUS 50
BEGIN
  PROMPT 25 5 ""
  FLAGS "D"
END     

LIST K_PROVVISORIO 1 25
BEGIN
  PROMPT 1 6 "Movimento provvisorio   "
  ITEM " |No (movimento normale)"
  ITEM "P|Si (cancellabile)"
  FLAGS "D"
END

STRING K_TIPODOC 2
BEGIN
  PROMPT 60 6 "Tipo documento "
  FLAGS "D"
END

DATE K_DATADOC
BEGIN
  PROMPT 1 7 "Data del documento      "
  FLAGS "D"
END

STRING K_NUMDOC 7
BEGIN
  PROMPT 56 7 "Documento n.  "
  FLAGS "D"
END

SPREADSHEET F_SHEETCG
BEGIN
  PROMPT 0 8 ""
  ITEM "Dare@15"
  ITEM "Avere@15"
  ITEM "CF@1"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc.@6"
  ITEM "Descrizione conto@50"
  ITEM "Codice"
  ITEM "Descrizione riga@50"
  ITEM "CF@1"
  ITEM "Gr./c@3"
  ITEM "Co./c@3"
  ITEM "Sottoc./c@6"
  ITEM "Descrizione contropartita@50"
  ITEM "Giornale"
  ITEM " @1"
END      

NUMBER F_DARE 15
BEGIN       
  PROMPT 1 -1 "Sbilancio Dare   "
  FLAGS "DRV"
  PICTURE "."
END

NUMBER F_AVERE 15
BEGIN
  PROMPT 41 -1 "Sbilancio Avere "
  FLAGS "DRV"
  PICTURE "."
END

ENDPAGE

ENDMASK

#include "cg21cg.uml"

                                                                                        z