campo-sirio/src/cg/cg2100t.uml

#include "cg2100.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_CONFIG 2 2
BEGIN
	PROMPT 1 1 "Ricarica Fatture"
	PICTURE TOOL_CONVERT
END

BUTTON DLG_OK 2 2
BEGIN
	PROMPT 2 1 "Contabilizzaz."
	PICTURE TOOL_EXPORT
	MODULE F1
END

BUTTON DLG_LINK 2 2
BEGIN
	PROMPT 3 1 "Collega in Prima nota"
	PICTURE TOOL_LINK
END

BUTTON DLG_QUIT 2 2
BEGIN
  PROMPT 4 1 "Fine"
  PICTURE TOOL_QUIT
END

ENDPAGE


PAGE "Fatture Ricevute SDI" -1 -1 77 20

NUMBER F_CODCLIFORS 6
BEGIN
	PROMPT 0 1 "Fornitore"
	FIELD CODCF
  GROUP 1
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_CODCLIFORS
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT F_CODCLIFORS CODCF
  OUTPUT F_STATOPAIVS STATOPAIV
  OUTPUT F_PIVAS PAIV
	OUTPUT F_COFIS COFI
	OUTPUT F_RAGSOCS RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
	FLAGS "D"
END

STRING F_RAGSOCS 50
BEGIN
	PROMPT 20 1 ""
	INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOCCF
	FLAGS "D"
END

STRING F_STATOPAIVS 2
BEGIN
	PROMPT 0 2 "P. IVA"
	USE %SCE
  INPUT CODTAB F_STATOPAIVS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOPAIVS CODTAB
  CHECKTYPE NORMAL
	FLAGS "D"
END

STRING F_PIVAS 12
BEGIN
  PROMPT 15 2 ""
	GROUP 1
  USE LF_CLIFO KEY 5
  INPUT TIPOCF "F"
  INPUT STATOPAIV F_STATOPAIVS
  INPUT PAIV F_PIVAS
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Codice Fiscale@16" COFI
  COPY OUTPUT F_CODCLIFORS
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
	FLAGS "D"
END

STRING F_COFIS 16
BEGIN
  PROMPT 35 2 "Cod. Fiscale "
	GROUP 1
  USE LF_CLIFO KEY 4
  INPUT TIPOCF "F"
  INPUT COFI F_COFIS
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Partita IVA@12" PAIV
  COPY OUTPUT F_CODCLIFORS
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
	FLAGS "D"
END

BOOLEAN F_ENABSEARCH
BEGIN
	PROMPT 0 4 "Effettua ricerca per P.IVA/Disabilita ricerca per cod. Fornitore"
END

BOOLEAN F_ENABDATE
BEGIN
	PROMPT 0 5 "Abilita filtro per data"
END

DATE F_DATESEARCH
BEGIN
	PROMPT 35 5 "Data documento"
	FLAGS "H"
END

TEXT F_SHEET_TEXT
BEGIN
	PROMPT 0 6 "@BSelezionare la fattura, quindi premere 'Collega Documento'"
END

BOOLEAN F_SHOWALL
BEGIN
	PROMPT 0 7 "Mostra anche fatture gi<67> registrate"
END

SPREADSHEET F_SHEETFPPROS 0 15
BEGIN
	PROMPT 0 8 ""
	ITEM " "
	ITEM "Tipo Doc@5"
	ITEM "Data\nRicezione@8"
	ITEM "Data\nDoc.@8"
	ITEM "Totale\nDocumento@7"
	ITEM "Ritenute\nfiscali@6"
	ITEM "Numero@14"
	ITEM "Ragione sociale@40"
	ITEM "Paese@4"
	ITEM "P. IVA@10"
	ITEM "Cod. Fiscale@14"
	ITEM "Tipo Protocollo\nin ingresso@10"
	ITEM "Progressivo\ndi ingresso@10"
	ITEM "Chiave FPPRO@40"
END

STRING F_NUMEROI 20
BEGIN
	PROMPT 1 20 "NUMERO"
	FLAGS "H"
END

DATE F_DATAI
BEGIN
	PROMPT 1 21 "DATA"
	FLAGS "H"
END

NUMBER F_TOTDOCI 10 3
BEGIN
	PROMPT 1 22 "IMPTOTDOC"
	FLAGS "H"
END

STRING F_PROTFPPROI 18
BEGIN
	PROMPT 1 23 "Tipo Protocollo"
	FLAGS "H"
END

STRING F_FPPROKEYSI 80
BEGIN
  PROMPT 1 19 "db key"
  HELP "Chiave database"
	FLAGS "H"
END

ENDPAGE
ENDMASK


PAGE "ELEMENTI SPREADSHEET" -1 -1 77 20

BOOLEAN F_SELFPPROS
BEGIN
	PROMPT 1 0 "Selected"
	FLAGS ""
END

STRING F_TIPODOCS 4
BEGIN
	PROMPT 10 0 "TIPODOC"
	FLAGS "D"
END

DATE F_DATAS
BEGIN
	PROMPT 1 1 "DATA"
	FLAGS "D"
END

DATE F_DATAORARICS
BEGIN
	PROMPT 1 2 "DATAORARIC"
	FLAGS "D"
END

NUMBER F_IMPTOTDOCS 10 3
BEGIN
	PROMPT 1 3 "IMPTOTDOC"
	FLAGS "D"
END

NUMBER F_RITENUTE 10 3
BEGIN
	PROMPT 1 4 "Ritenute d'acconto"
	FLAGS "D"
END

STRING F_NUMEROS 20
BEGIN
	PROMPT 1 5 "NUMERO"
	FLAGS "D"
END

STRING F_RAGXML 50
	BEGIN
  PROMPT 1 8 ""
	FLAGS "D"
	HELP "Ragione sociale scritta nell'xml"
END

STRING F_FISCIVAPAESES 2
BEGIN
	PROMPT 1 6 "FISCIVAPAESE"
	FLAGS "D"
END

STRING F_FISCIVACODS 16
BEGIN
	PROMPT 1 7 "FISCIVACOD"
	FLAGS "D"
END

STRING F_CODFISCALES 16
BEGIN
	PROMPT 1 8 "CODFISCALE"
	FLAGS "D"
END

STRING F_TIPOPROTS 2
BEGIN
	PROMPT 1 9 "TIPOPROT"
	FLAGS "D"
END

NUMBER F_PROGRESSS 10 0
BEGIN
	PROMPT 1 10 "PROGRESS"
	FLAGS "D"
END

STRING F_KEYFPPROS 80
BEGIN
	PROMPT 1 11 "CHIAVE FPPRO"
	FLAGS "D"
END

ENDPAGE
TOOLBAR "Documento" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_USER 2 2 
BEGIN
  PROMPT 1 1 "Collega"
  PICTURE TOOL_LINK
END

BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 1 1 ""
END

ENDPAGE
ENDMASK