campo-sirio/src/li/li0400a.uml

#include "li0400a.h"

TOOLBAR "Relapbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Dichiarazioni d'intento" -1 -1 78 20

GROUPBOX DLG_NULL 75 3
BEGIN
  PROMPT 0 1 "@bNostri riferimenti" 
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 2 "Anno "
  FLAGS "AU"
  USE LF_LETINT
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCLI
  INPUT ANNO F_ANNO
  INPUT NUMPROT F_NUMPROT
  DISPLAY "Anno" ANNO
  DISPLAY "N.Protocollo" NUMPROT
  DISPLAY "Data Reg.@10" DATAREG
  DISPLAY "Cliente" CODCLI
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_ANNO ANNO
  OUTPUT F_NUMPROT NUMPROT
  CHECKTYPE REQUIRED
  FIELD ANNO
  KEY 1
END

NUMBER F_NUMPROT 6
BEGIN
  PROMPT 15 2 "Numero protocollo "
  FLAGS "U"
  COPY ALL F_ANNO  
  CHECKTYPE REQUIRED
  FIELD NUMPROT
  KEY 1
END

DATE F_DATAREG
BEGIN
  PROMPT 43 2 "Data registrazione "
  FIELD DATAREG
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_VSDATA
  WARNING "Specificare una 'Data registrazione' non inferiore alla 'Data di emissione'"
END

GROUPBOX DLG_NULL 75 11
BEGIN
  PROMPT 0 4 "@bRiferimenti cliente"
END

NUMBER F_CODCLI 6
BEGIN
  PROMPT 1 5 "Cod. "
  FLAGS "U"
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCLI
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_CODCLI CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_INDCF INDCF
  OUTPUT F_CIVCF CIVCF
  OUTPUT F_STATOCF STATOCF
  OUTPUT F_COMCF COMCF
  OUTPUT F_CAPCF CAPCF
  OUTPUT F_LOCALITACF LOCALITACF
  OUTPUT F_PAIV PAIV
  //OUTPUT F_UFFIVA PAIV[8,10]
  CHECKTYPE REQUIRED
  FIELD CODCLI
  ADD RUN cg0 -1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 19 5 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice " CODCF  
  COPY OUTPUT F_CODCLI
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

STRING F_INDCF 35
BEGIN
  PROMPT 1 6 "Indirizzo     "
  FLAGS "D"
END

STRING F_CIVCF 10
BEGIN
  PROMPT 59 6 "N. "
  FLAGS "D"
END

NUMBER F_STATOCF 3
BEGIN
  PROMPT 9 7 "Stato "
  USE %STA
  INPUT CODTAB F_STATOCF
  OUTPUT F_DESTACF S0
  FLAGS "ZD"
  CHECKTYPE NORMAL
END

STRING F_DESTACF 50
BEGIN
  PROMPT 22 7 ""
  FLAGS "D"
END

STRING F_COMCF 4
BEGIN
  PROMPT 8 8 "Comune "
  USE LF_COMUNI
  INPUT STATO F_STATOCF
  INPUT COM F_COMCF
  OUTPUT F_DENCOMCF DENCOM
  OUTPUT F_PROVCF PROVCOM
  FLAGS "D"
  CHECKTYPE NORMAL
END

STRING F_DENCOMCF 50
BEGIN
  PROMPT 22 8 ""
  FLAGS "D"
END

STRING F_LOCALITACF 35
BEGIN
  PROMPT 1 9 "Localita'     "
  FLAGS "D"
END

STRING F_CAPCF 5
BEGIN
  PROMPT 52 9 "CAP "
  FLAGS "D"
END

STRING F_PROVCF 5
BEGIN
  PROMPT 63 9 "Prov"
  FLAGS "D"
END

STRING F_PAIV 12
BEGIN
  PROMPT 1 10 "Partita IVA   "
  FLAGS "D"
END

/*
NUMBER F_UFFIVA 3
BEGIN
  PROMPT 1 11 "Ufficio IVA   "
	USE %UIV
	INPUT CODTAB F_UFFIVA
	DISPLAY "Ufficio" CODTAB
	DISPLAY "Denominazione@50" S0
	OUTPUT F_UFFIVA CODTAB
	OUTPUT F_DENUFFIVA S0
	CHECKTYPE REQUIRED
	WARNING "Ufficio IVA assente"
	FLAGS "Z"
	FIELD UFFIVA
END

STRING F_DENUFFIVA 50 
BEGIN
	PROMPT 22 11 ""
	FLAGS "D"
END
*/

STRING F_VSPROT 7
BEGIN
  PROMPT 1 11 "Numero di protocollo"
  FIELD VSPROT
END

DATE F_VSDATA
BEGIN
  PROMPT 35 11 "Data di emissione"
  FIELD VSDATA
  CHECKTYPE REQUIRED
END

STRING F_PROTINTF 17
BEGIN
  PROMPT 1 12 "Numero di protocollo di invio:"
  FIELD PROTINTF
  //CHECKTYPE REQUIRED
END

STRING F_PROTINTS 6
BEGIN
  PROMPT 50 12 " - "
  FIELD PROTINTS
  //CHECKTYPE REQUIRED
END

STRING F_TIPOES 6
BEGIN
  PROMPT 1 13 "Codice   "
  USE %TPE
  FLAGS "UZ"
  INPUT CODTAB F_TIPOES
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPOES CODTAB
  OUTPUT F_DESCTPE S0
  CHECKTYPE NORMAL
  FIELD CODTPE
END

STRING F_DESCTPE 50
BEGIN
  PROMPT 20 13 ""
  USE %TPE KEY 2
  INPUT S0 F_DESCTPE
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPOES
  CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 0 15 "@bOperazione"
END

LIST F_TIPOOP 1 15
BEGIN
  PROMPT 1 16 "Tipo operazione     "
  ITEM "1|Singola"
  MESSAGE ENABLE,F_IMPORTO|CLEAR,1@
  ITEM "2|A concorrenza"
  MESSAGE ENABLE,F_IMPORTO|CLEAR,1@
  ITEM "3|Nel periodo"
  MESSAGE ENABLE,1@|CLEAR,F_IMPORTO
  FIELD TIPOOP
END

BOOLEAN B_CHIUSA
BEGIN
  PROMPT 42 16 "Chiusa"
  FIELD CHIUSA
END

CURRENCY F_IMPORTO 18
BEGIN
  PROMPT 1 17 "Importo             "
  FIELD IMPORTO
  CHECKTYPE REQUIRED
END

CURRENCY F_UTILIZZATO 18
BEGIN
  PROMPT 1 18 "Utilizzato          "
  FIELD UTILIZZATO
   FLAGS "D"
END

CURRENCY F_DISPONIBILE 18
BEGIN
  PROMPT 1 19 "Disponibile         "
  NUM_EXPR #F_IMPORTO-#F_UTILIZZATO
  DRIVENBY F_IMPORTO F_UTILIZZATO
  FLAGS "DG"
END

DATE F_DAL
BEGIN
  PROMPT 42 18 "Data inizio periodo"
  FIELD DAL
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_VSDATA
  WARNING "Specificare una 'Data inizio periodo' non inferiore alla 'Data di emissione'"
  FLAGS "D"
END

DATE F_AL
BEGIN
  PROMPT 42 19 "Data fine periodo  "
  FIELD AL
  CHECKTYPE REQUIRED
  FLAGS "D"
END

BOOLEAN F_STAMPATO
BEGIN
  PROMPT 2 20 ""
  FIELD STAMPATO
  FLAGS "HD"
END

ENDPAGE
PAGE "Note" -1 -1 78 20

MEMO F_NOTE 78 19
BEGIN
  PROMPT 1 1 ""
  FIELD NOTE
END

ENDPAGE
ENDMASK