campo-sirio/ca/ca2100a.uml

#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 2 2 ""
  FLAGS "DFR"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC 
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50 52
BEGIN
  PROMPT 9 2 "Ragione sociale "
  FLAGS "D"
END

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

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

DATE F_DATAREG
BEGIN
  PROMPT 2 6 "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 52 6 "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 "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 7 "Data di competenza    "
  FIELD DATACOMP
  CHECKTYPE REQUIRED
  WARNING "La data di competenza non appartiene ad un esercizio valido"
END

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

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

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

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

STRINGA F_CODCAUS 3
BEGIN
  PROMPT 19 11 "Causale "
  USE LF_CAUSALI SELECT MOVIND!=''
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCAUS DESCR
  CHECKTYPE REQUIRED
	FLAGS "U"
  FIELD CODCAUS
  GROUP 5
END

STRINGA F_DESCAUS 50 40
BEGIN
  PROMPT 34 11 ""
  USE LF_CAUSALI KEY 2 SELECT MOVIND!=''
  INPUT DESCR F_DESCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_CODCAUS
  CHECKTYPE REQUIRED
  GROUP 5
END

STRING F_TIPODOC 2
BEGIN
  PROMPT 2 12 "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 27 12 "Numero "
  CHECKTYPE NORMAL
  FIELD NUMDOC
  GROUP 5
END

DATE F_DATADOC
BEGIN
  PROMPT 48 12 "Data "
  FIELD DATADOC
  GROUP 5
END

LIST F_TIPOCF 1 11
BEGIN
  PROMPT 2 13 "Tipo   "
  FIELD TIPOCF
  FLAGS "G"
  GROUP 5
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 25 13 "Codice "
  FIELD CODCF
  FLAGS "G"
  GROUP 5
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_TIPOCF TIPOCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOCCF RAGSOC
  HELP "Codice relativo al cliente o fornitore"
  CHECKTYPE NORMAL
END

STRING F_RAGSOCCF 50
BEGIN
  PROMPT 2 14 "Ragione Sociale "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_RAGSOCCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice@R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_CODCF
  FLAGS "G"
  GROUP 5
  CHECKTYPE NORMAL
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

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

ENDPAGE

PAGE "Righe" -1 -1 80 20

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"
END

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

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 78 19

CURRENCY S_DARE 15
BEGIN
  PROMPT 1 1 "Dare "
END

CURRENCY S_AVERE 15
BEGIN
  PROMPT 31 1 "Avere "
END

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

STRING S_CON4 20
BEGIN
  PROMPT 61 19 "Con 4"
  COPY USE S_CON1
  CHECKTYPE NORMAL
  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