campo-sirio/ha/ha0300a.uml

#include "ha0300a.h"

TOOLBAR "" 0 0 0 2

#include <filebar.h>

BUTTON DLG_NULL 2 2 
BEGIN
  PROMPT -1 1 ""
END

BUTTON DLG_ELABORA 2 2 
BEGIN
  PROMPT 3 1 "Contabilizza"
  PICTURE TOOL_ELABORA
END

#include <cancelbar.h>

ENDPAGE

PAGE "Gestione contratti premio" -1 -1 78 23

GROUPBOX DLG_NULL 78 15
BEGIN
  PROMPT 1 0 ""
END

LIST F_TIPOCONTR 1 20
BEGIN
  PROMPT 2 1 "@bTipo contratto premio "
  ITEM "A|Anticipo" 
	MESSAGE CLEAR,F_DATAFCOMP|ENABLE,1@|CLEAR,F_CODLIS
  ITEM "P|Posticipo" 
	MESSAGE ENABLE,F_DATAFCOMP|CLEAR,1@|ENABLE,F_CODLIS
  ITEM "R|Rifatturazione" 
	MESSAGE CLEAR,F_DATAFCOMP|ENABLE,1@|CLEAR,F_CODLIS
//  ITEM "N|Noleggio" 
  FLAGS "DGZ"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 102 101 "Cod. num.  "
  FIELD CODNUM
  USE %NUM KEY 1
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  CHECKTYPE NORMAL
  FLAGS "GDU"
  KEY 1
END

STRING F_TIPODOC 4
BEGIN
  FIELD TIPODOC
  PROMPT 120 101 "Tipo doc.  "
  USE %TIP KEY 1
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  CHECKTYPE NORMAL
  FLAGS "GDU"
END

LIST F_TIPOCF 9
BEGIN
  PROMPT 130 101 ""
  FIELD TIPOCF
  IT "C|Cliente"
  FLAGS "D"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 2 "Cliente   "
  WARNING "Cliente assente"
  HELP "Codice del cliente del documento"
  FIELD CODCF
  USE LF_CLIFO SELECT SOSPESO!="X"
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso" SOSPESO
  OUTPUT F_CODCF CODCF
  OUTPUT F_DESCF RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 C
END

STRING F_DESCF 50
BEGIN
  WARNING "Cliente assente"
  HELP "Ragione sociale del cliente del documento"
  PROMPT 24 2 ""
  USE LF_CLIFO KEY 2 SELECT SOSPESO!="X"
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso" SOSPESO
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 C
END

NUMBER F_CODCFATT 6
BEGIN
  PROMPT 2 3 "Cli. fatt."
  USE LF_CLIFO SELECT (GRUPPO=4)&&(CONTO=101)&&(SOSPESO!="X")
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCFATT
  COPY DISPLAY F_CODCF
  OUTPUT F_CODCFATT CODCF
  OUTPUT F_DESCFATT RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 C
  FIELD DOC2
  WARNING "Inserire un codice >= 200000"
  HELP "Codice del cliente cui fatturare >= 200000"
END

STRING F_DESCFATT 50
BEGIN
  PROMPT 24 3 ""
  USE LF_CLIFO KEY 2 SELECT (GRUPPO=4)&&(CONTO=101)&&(SOSPESO!="X")
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCFATT
  COPY DISPLAY F_DESCF
  COPY OUTPUT F_CODCFATT
  CHECKTYPE SEARCH
  ADD RUN cg0 -1 C
  WARNING "Cliente assente"
  HELP "Ragione sociale del cliente cui fatturare"
END


LIST F_PROVV 1
BEGIN
  PROMPT 140 101 ""
  ITEM "D|D"
  FIELD PROVV
  FLAGS "D"
  KEY 1
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 4 "Esercizio "
  FIELD ANNO
  CHECKTYPE REQUIRED
  FLAGS "AD"
  KEY 1
END

NUMBER F_NDOC 6
BEGIN
  PROMPT 24 4 "N. contr. premi "
  FIELD NDOC
  CHECKTYPE REQUIRED
  KEY 1
  FLAGS "D"
END

DATE F_DATADOC
BEGIN
  PROMPT 50 4 "Data "
  FIELD DATADOC
END

STRING F_STATO 1
BEGIN
  PROMPT 69 4 "Stato "
  FIELD STATO
  USE %STD KEY 1
  INPUT CODTAB F_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO CODTAB
  CHECKTYPE NORMAL
  FLAGS "DG"
END

STRING F_CODCONTR 3
BEGIN
  PROMPT 2 5 "Listino cliente  "
  USE CONDV 
  INPUT TIPO "C"
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCFATT SELECT
  INPUT COD F_CODCONTR
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Inizio validit<69>" VALIN
  DISPLAY "Fine validit<69>" VALFIN
  OUTPUT F_CODCONTR COD
  OUTPUT F_DESCONTR DESCR
  FIELD CODCONT
  CHECKTYPE NORMAL
END

STRING F_DESCONTR 50
BEGIN
  PROMPT 26 5 ""
  FLAGS "DG"
END

STRING F_CODLIS 3
BEGIN
  PROMPT 2 6 "Listino standard "
  USE CONDV 
  INPUT TIPO "L"
  INPUT COD F_CODLIS
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Inizio validit<69>" VALIN
  DISPLAY "Fine validit<69>" VALFIN
  OUTPUT F_CODLIS COD
  OUTPUT F_DESLIS DESCR
  FIELD CODLIST
  CHECKTYPE NORMAL
END

STRING F_DESLIS 50
BEGIN
  PROMPT 26 6 ""
  FLAGS "DG"
END

STRING F_CODAG	5
BEGIN
  PROMPT 2 7 "Agente     "
  FIELD CODAG
  USE LF_AGENTI
  INPUT CODAGE F_CODAG
  DISPLAY "Codice@8R" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CODAG CODAGE
  OUTPUT F_DESCRAG RAGSOC
  CHECKTYPE NORMAL
  FLAGS "UZ"
END

STRING F_DESCRAG 50
BEGIN
  PROMPT 24 7 ""
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_DESCRAG
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice@8R" CODAGE
  COPY OUTPUT F_CODAG
  CHECKTYPE NORMAL
END

STRING F_CODPAG 4
BEGIN
  PROMPT 2 8 "Cond. pag. "
  FIELD CODPAG
  USE %CPG
  INPUT CODTAB F_CODPAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPAG CODTAB
  OUTPUT F_DESCRPAG S0
  CHECKTYPE NORMAL
  FLAGS "U"
  HE "Inserisci il codice del tipo di pagamento"
  WA "Codice tipo pagamento non trovato"
  ADD RUN ba3 -6
END

STRING F_DESCRPAG 50
BEGIN
  PROMPT 24 8 ""
  USE %CPG KEY 2
  INPUT S0 F_DESCRPAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODPAG
  CHECKTYPE NORMAL
  HE "Inserisci il codice del tipo di pagamento"
  WA "Codice tipo pagamento non trovato"
  ADD RUN ba3 -6
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "@bValidit<69>: "
END

DATE F_DATACOMP
BEGIN
  PROMPT 13 9 "Inizio "
  FIELD DATACOMP
  CHECKTYPE REQUIRED
END

DATE F_DATAFCOMP
BEGIN
  PROMPT 33 9 "Fine "
  FIELD DATAFCOMP
END

NUMBER F_NUMREG 7
BEGIN
  PROMPT 54 9 "N.reg.CG "
  FIELD NUMREG
  FLAGS "DUG"
  MESSAGE EMPTY DISABLE,F_COLLEGA
  MESSAGE ENABLE,F_COLLEGA
END

BUTTON F_COLLEGA 2 1
BEGIN
  PROMPT 74 9 "CG mov."
  PICTURE BMP_DARROWR
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "@bRiferimenti contratto"
END

STRING F_DOCRIF 12
BEGIN
  PROMPT 31 10 "Codice "
  FIELD DOC1
END

DATA F_DATA_DOCRIF
BEGIN
  PROMPT 55 10 "Data "
  FIELD DATADOCRIF
END

LIST F_FREQUENZA 1 15
BEGIN
  PROMPT 2 11 "Generazione NAC a frequenza  "
  ITEM "A|Annuale"
  ITEM "S|Semestrale"
  ITEM "T|Trimestrale" 
  ITEM " | "
  FIELD CATVEN
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 2 12 "@bSomme anticipate/restituite"
END

CURRENCY F_ANTICIPATO 12
BEGIN
  PROMPT 3 13 "Anticipato "
  GROUP 1
END

CURRENCY F_RESO_STORICO 12 
BEGIN
  PROMPT 30 13 "Restituito "
  GROUP 1
END

NUMERO F_RESIDUO 12 2
BEGIN
  PROMPT 56 13 "Residuo "
  VALIDATE 14 1 #231-#232
  FLAGS "GD"
  DRIVENBY 231 232
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 2 15 ""
  ITEM "Articolo@20"
  ITEM "Descrizione@40"
  ITEM "UM@2"
  ITEM "Prezzo listino"
  ITEM "Premio@10"
  ITEM "Ns. carico"
  ITEM "Bonus@10"
END

ENDPAGE

ENDMASK

/////////////////////////////////////////
//maschera di riga
TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

PAGE "Riga contratto premi Hardy" -1 -1 76 12

STRING S_CODART 20
BEGIN
  PROMPT 1 1 "Articolo    "
  USE LF_ANAMAG
  JOIN LF_UMART INTO CODART==CODART NRIGA=1
  INPUT CODART S_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "U.M." LF_UMART->UM
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODART CODART
  OUTPUT S_DESCR DESCR
  CHECKTYPE REQUIRED
  WARNING "Articolo assente"
  FLAGS "U"
  FIELD CODART
  ADD RUN ve2 -3
END

STRING S_DESCR 50
BEGIN
  PROMPT 1 2 "Descrizione "
  USE LF_ANAMAG KEY 2
  JOIN LF_UMART INTO CODART==CODART NRIGA=1
  INPUT DESCR S_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  DISPLAY "U.M." LF_UMART->UM
  COPY OUTPUT S_CODART
  FIELD DESCR
  CHECKTYPE SEARCH
END

STRING S_UMQTA 2
BEGIN
  PROMPT 1 3 "U.M.        "
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART S_CODART SELECT
  INPUT UM S_UMQTA
  DISPLAY "Codice@20" UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT S_UMQTA UM
  FIELD UMQTA
  FLAGS "U"
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 74 6
BEGIN
  PROMPT 1 4 "@bValori"
END

CURRENCY S_PREZZO
BEGIN
  PROMPT 2 5 "Prezzo listino "
  FLAGS "UDG"
  FIELD PREZZO
END

CURRENCY S_PREMIO
BEGIN
  PROMPT 2 6 "Premio         "
  FLAGS "U"
  FIELD QTAGG1
END

CURRENCY S_RICARICO
BEGIN
  PROMPT 2 7 "A Ns. carico   "
  FLAGS "U"
  FIELD QTAGG2
END

CURRENCY S_MATURATO
BEGIN
  PROMPT 2 8 "Bonus maturato "
  FLAGS "DU"
  FIELD QTAGG5
END

ENDPAGE

ENDMASK