#include "ca2100a.h"

TOOLBAR "" 0 -3 0 3

#include <toolbar.h>

ENDPAGE

PAGE "Testata" -1 -1 80 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "@bDitta"
END

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

STRING F_RAGSOC 50 52
BEGIN
  PROMPT 17 2 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 4 "@bTestata"
END

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

NUMBER F_NUMREG 7
BEGIN
  PROMPT 52 5 "Movimento n. "
  USE LF_MOVANA
  INPUT NUMREG F_NUMREG
  DISPLAY "Numero@7" NUMREG
  DISPLAY "Data reg.@10" DATAREG
  DISPLAY "Data comp.@10" DATACOMP
  DISPLAY "Eser." ANNOES
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_NUMREG NUMREG
  CHECKTYPE REQUIRED
  KEY 1
  FIELD NUMREG
  MESSAGE COPY,F_NUMREG2
END

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

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

DATE F_DATADOC
BEGIN
  PROMPT 2 7 "Data del documento    "
  FIELD DATADOC
END

STRING F_TIPODOC 2
BEGIN
  PROMPT 42 7 "Tipo documento "
  USE %TPD
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_TIPODOC CODTAB
  CHECKTYPE NORMAL
  FIELD TIPODOC
END

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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 10 "@bPrima nota"
END

NUMBER F_NUMREGCG 7
BEGIN
  PROMPT 2 11 "Numero "
  FLAGS "D"
  FIELD NUMREGCG
END

STRINGA F_CODCAUS 3
BEGIN
  PROMPT 19 11 "Causale "
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCAUS DESCR
  CHECKTYPE REQUIRED
  FIELD CODCAUS
END

STRINGA F_DESCAUS 50 40
BEGIN
  PROMPT 34 11 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CODCAUS
  CHECKTYPE REQUIRED
END

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

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

CURRENCY F_TOTDOC 18
BEGIN
  PROMPT 2 16 "Totale documento "
  FIELD TOTDOC
END

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

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

ENDPAGE

PAGE "Righe" -1 -1 80 20

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

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

NUMBER F_DATAREG2 7
BEGIN
  PROMPT 22 2 "Data registrazione "
  FLAGS "D"
END

NUMBER F_ANNOES2 7
BEGIN
  PROMPT 59 2 "Esercizio "
  FLAGS "D"
END

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

CURRENCY F_DARE 18
BEGIN
  PROMPT 1 5 "Saldo riga corrente:   Dare "
  FLAGS "D"
END

CURRENCY F_AVERE 18
BEGIN
  PROMPT 41 5 "Avere "
  FLAGS "D"
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 6 ""
  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"
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 78 19

CURRENCY S_DARE 15
BEGIN
  PROMPT 1 0 "Dare "
END

CURRENCY S_AVERE 15
BEGIN
  PROMPT 31 0 "Avere "
END

STRING S_DESCR 50
BEGIN
  PROMPT 1 1 "Descrizione "
END

STRING S_CDC1 20
BEGIN
  PROMPT 1 2 "Cdc 1"
  USE LF_CDC
  GROUP 1
END

STRING S_CDC2 20
BEGIN
  PROMPT 21 2 "Cdc 2"
  COPY USE S_CDC1
  GROUP 1
END

STRING S_CDC3 20
BEGIN
  PROMPT 41 2 "Cdc 3"
  COPY USE S_CDC1
  GROUP 1
END

STRING S_CDC4 20
BEGIN
  PROMPT 61 2 "Cdc 4"
  COPY USE S_CDC1
  GROUP 1
END

STRING S_CMS1 20
BEGIN
  PROMPT 1 3 "Cms 1"
  USE LF_COMMESSE
  GROUP 1
END

STRING S_CMS2 20
BEGIN
  PROMPT 21 3 "Cms 2"
  COPY USE S_CMS1
  GROUP 1
END

STRING S_CMS3 20
BEGIN
  PROMPT 41 3 "Cms 3"
  COPY USE S_CMS1
  GROUP 1
END

STRING S_CMS4 20
BEGIN
  PROMPT 61 3 "Cms 4"
  COPY USE S_CMS1
  GROUP 1
END

STRING S_FAS1 20
BEGIN
  PROMPT 1 4 "Fas 1"
  USE LF_FASI
  GROUP 1
END

STRING S_FAS2 20
BEGIN
  PROMPT 21 4 "Fas 2"
  COPY USE S_FAS1
  GROUP 1
END

STRING S_FAS3 20
BEGIN
  PROMPT 41 4 "Fas 3"
  COPY USE S_FAS1
  GROUP 1
END

STRING S_FAS4 20
BEGIN
  PROMPT 61 4 "Fas 4"
  COPY USE S_FAS1
  GROUP 1
END

STRING S_CON1 20
BEGIN
  PROMPT 1 5 "Con 1"
  USE LF_PCON
  GROUP 1
END

STRING S_CON2 20
BEGIN
  PROMPT 21 5 "Con 2"
  COPY USE S_CON1
  GROUP 1
END

STRING S_CON3 20
BEGIN
  PROMPT 41 5 "Con 3"
  COPY USE S_CON1
  GROUP 1
END

STRING S_CON4 20
BEGIN
  PROMPT 61 5 "Con 4"
  COPY USE S_CON1
  GROUP 1
END

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