#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
  DISPLAY "Codice" CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

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

NUMBER F_NUMREG 7
BEGIN
  PROMPT 1 3 "Operazione n.  "
  FIELD NUMREG
  FLAGS "RD"
  KEY 1
END

DATE F_DATAREG
BEGIN
  PROMPT 44 3 "Data operazione      "
  FIELD DATAREG
END

STRING F_NUMDOC 7
BEGIN
  PROMPT 1 4 "Documento n.   "
  FIELD NUMDOC
  WARNING "La causale impone di specificare il numero documento"
END

DATE F_DATACOMP
BEGIN
  PROMPT 44 4 "Data di competenza   "
  FIELD DATACOMP
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 1 5 "Esercizio      "
  FIELD ANNOES
  FLAGS "D"
END

NUMBER F_ANNOIVA 4
BEGIN
  FLAGS "H"
END

DATE F_DATADOC
BEGIN
  PROMPT 44 5 "Data del documento   "
  FIELD DATADOC
  FLAGS "A"
  WARNING "Specificare una data del documento non superiore a quella di registrazione"
  VALIDATE DATE_CMP_FUNC <= F_DATAREG
END

STRING F_DESCAGG 5
BEGIN
  PROMPT 1 6 "Descrizione     "
  FLAGS "U"
  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 6 ""
  FIELD DESCR
  USE %DPN KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_DESCAGG
END

LIST F_PROVVISORIO 1 25
BEGIN
  PROMPT 1 7 "Movimento provvisorio   "
  FIELD PROVVIS
  ITEM " |No (movimento normale)"
  ITEM "P|Si (cancellabile)"
  ITEM "N|Si (non cancellabile)"
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 1 8 "Causale        "
  FLAGS "U"
  FIELD CODCAUS
  USE LF_CAUSALI KEY 1
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCRCAUS DESCR
  CHECKTYPE NORMAL
  ADD RUN cg0 -4
END

STRING F_DESCRCAUS 50
BEGIN
  PROMPT 23 8 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCRCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CODCAUS
END

STRING F_VALUTA 3
BEGIN
  PROMPT 1 9 "Valuta "
  FIELD CODVAL
  FLAGS "U"
  GROUP 3
  USE %VAL
  INPUT CODTAB F_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  DISPLAY "Cambio corrente" R0
  OUTPUT F_VALUTA CODTAB
  OUTPUT F_CAMBIO R0
END

NUMBER F_CAMBIO 10
BEGIN
  PROMPT 16 9 "Cambio "
  FIELD CAMBIO
  FLAGS "RU"
  GROUP 3
  PICTURE ".3"
END

BOOLEAN F_VISVAL
BEGIN
  PROMPT 42 9 "Visualizza importi in valuta"
  GROUP 3
END

SPREADSHEET F_SHEETCG
BEGIN
  PROMPT 1 10 ""
  ITEM "Dare@17"
  ITEM "Avere@17"
  ITEM " @1"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc."
  ITEM "Descrizione conto@50"
  ITEM "Codice"
  ITEM "Descrizione riga@50"
  ITEM " @1"
  ITEM "Gr./c"
  ITEM "Co./c"
  ITEM "Sottoc./c"
  ITEM "Descrizione contropartita@50"
  ITEM " @1"
END

ENDPAGE

ENDMASK

#include "cg21cg.uml"