campo-sirio/src/fp/fp0400a.uml

#include "fp0400a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_ALL 2 2
BEGIN
  PROMPT 1 1 "~Tutti"
	PICTURE TOOL_MULTISEL
END

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "Salva Fornitori"
  PICTURE TOOL_ELABORA
	FLAGS ""
END

BUTTON DLG_NEWREC 10 2
BEGIN
  PROMPT 1 1 "Nuovo"
  PICTURE BMP_NEWREC
  PICTURE BMP_NEWRECDN
END

BUTTON DLG_RECALC 10 2
BEGIN
  PROMPT -13 -11 "Aggiorna"
  PICTURE BMP_RECALC
END

#include <helpbar.h>

ENDPAGE

PAGE "Fatture Passive" 0 2 0 0

DATE F_DATAINI
BEGIN
  PROMPT 1 1 "Data iniziale"
  CHECKTYPE REQUIRED
END

DATE F_DATAEND
BEGIN
  PROMPT 50 1 "Data finale "
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data finale non può essere minore della data iniziale"
  CHECKTYPE REQUIRED
END

RADIOBUTTON F_FATTSEL 3 80
BEGIN
  PROMPT 1 2 "Fatture da visualizzare"
  ITEM "|Non elaborate"
  ITEM "E|Elaborate"
  ITEM "A|Tutte"
  FLAGS "Z"
END

SPREADSHEET F_PROT 25 10
BEGIN
  PROMPT 1 6 "Selezionare o aggiungere un filtro sul Tipo Progressivo"
	ITEM "@1"
	ITEM "Codice\nProtocol.@12"
END

ENDPAGE

PAGE "Elenco Fatture" 0 2 0 0

SPREADSHEET F_DOCS
BEGIN
  PROMPT 0 2 ""
	ITEM ""
  ITEM "Anno"
  ITEM "Tipo Doc.\nSDI@6"
  ITEM "Numero\nDocumento@18"
  ITEM "Data\nDoc.@8"
	ITEM "Totale\nDocumento@12"
	ITEM "Salvato in\nFP PRO@7"
	ITEM "Num. Registrazione\ncontabile@12"
	ITEM "Data Registrazione\ncontabile@12"
  ITEM "Fornitore@7"
  ITEM "Ragione Sociale@50"
	ITEM "Stato\nP.IVA@4"
  ITEM "Partita IVA@10"
	ITEM "Cod. Fiscale@16"
  ITEM "Allegati@7"
  ITEM "Codice\ndestinatario@8"
	ITEM "Ragione Sociale (XML)@50"
	ITEM "Numero Protocollo (in entrata)\n[anno-tipo prot/progressivo]@22"
	ITEM "Chiave Prot.@80"
END

ENDPAGE

PAGE "Errore Fornitori" 0 2 0 0

SPREADSHEET F_ERR
BEGIN
  PROMPT 0 2 ""
	ITEM "@1"
	ITEM "Stato\nP.IVA@5"
  ITEM "P. IVA@16"
	ITEM "Cod. Fiscale@16"
	ITEM "Rag. Soc. (XML)@50"
	ITEM "Descrizione @100"
END

ENDPAGE
ENDMASK


PAGE "Spread protocol " -1 -1 50 5

BOOLEAN S_SELCODPROT
BEGIN
	PROMPT 1 1 "Seleziona Protocollo"
	FLAGS ""
END

STRING S_CODPROT 12
BEGIN
	PROMPT 1 3 "Codice Protocollo"
	FLAGS ""
END

ENDPAGE

TOOLBAR "Fatture Passive" 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


PAGE "Documento" -1 -1 78 9

BOOLEAN S_SELECTED
BEGIN
  PROMPT 1 0 ""
  FLAGS ""
END

NUMBER S_ANNO 4
BEGIN
  PROMPT 1 1 "Anno "
  FLAGS "D"
END

LIST S_TIPODOCSDI 35
BEGIN
  PROMPT 12 1 "Tipo Doc SDI"
  ITEM "TD01|TD01 Fattura"
  ITEM "TD02|TD02 Acconto/Anticipo su fattura"
  ITEM "TD03|TD03 Acconto/Anticipo su parcella"
  ITEM "TD04|TD04 Nota di credito"
  ITEM "TD05|TD05 Nota di debito"
  ITEM "TD06|TD06 Parcella"
  ITEM "TD20|TD20 Autofattura"
	FLAGS "D"
END

STRING S_NDOC 20
BEGIN
  PROMPT 1 2 "Numero Doc. "
  FLAGS "D"
END

DATE S_DATADOC
BEGIN
  PROMPT 20 0 "Data Doc. "
  FLAGS "D"
END

NUMBER S_TOTDOC 11 3
BEGIN
  PROMPT 26 2 "Totale Doc. "
  FLAGS "D"
END

BOOLEAN S_FPPRO
BEGIN
	PROMPT 1 3 "Salvato in FP-PRO"
	FLAGS "D"
END

NUMBER S_NUMREGCONT 6 0
BEGIN
	PROMPT 1 3 "Num. Registrazione contabile"
	FLAGS "D"
END

DATE S_DATAREGCONT
BEGIN
	PROMPT 1 3 "Data Registrazione contabile"
	FLAGS "D"
END

NUMBER S_FORNITORE 6
BEGIN
  PROMPT 1 4 "Fornitore "
  FIELD CODCF
  FLAGS "GR"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF "F" SELECT
  INPUT CODCF S_FORNITORE
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT S_FORNITORE CODCF
  OUTPUT S_RAGSOC RAGSOC
	ADD RUN cg0 -1 F S_FORNITORE
  HELP "Codice relativo al cliente o fornitore"
  MESSAGE COPY,2@
END

STRING S_RAGSOC 50
BEGIN
  PROMPT 21 4 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC S_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT S_FORNITORE
  HELP "Prima parte della ragione sociale o cognome"
  MESSAGE COPY,3@
  WARNING "Manca la ragione sociale"
END

STRING S_STATOPAIV 2
BEGIN
  PROMPT 1 5 ""
  HELP "Codice ISO dello stato"
  FLAGS "U"
  USE %SCE
  INPUT CODTAB S_STATOPAIV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_STATOPAIV CODTAB
  CHECKTYPE NORMAL
	FLAGS "D"
END


STRING S_PARIVA 50 20
BEGIN
  PROMPT 10 5 "P. IVA"
  KEY 5
  USE LF_CLIFO KEY 5
  INPUT TIPOCF "F"
  INPUT STATOPAIV F_STATOPAIV
  INPUT PAIV S_PAIV
  DISPLAY "ISO@3" STATOPAIV
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  COPY OUTPUT S_FORNITORE
  HELP "Partita IVA del cliente/fornitore"
	FLAGS "D"
END

STRING S_CODFISC 50 20
BEGIN
  PROMPT 1 6 "Cod. Fisc."
  FLAGS "U"
  KEY 4
  USE LF_CLIFO KEY 4
  INPUT TIPOCF "F"
  INPUT COFI F_COFI
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT S_FORNITORE
  HELP "Codice fiscale del cliente/fornitore"
	FLAGS "D"
END

STRING S_CODSDI 20
BEGIN
  PROMPT 35 6 "Cod. Destinatario"
  FLAGS "D"
END

BOOLEAN S_ATTACH
BEGIN
  PROMPT 1 7 "Documenti in allegato"
  FLAGS "D"
END

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

STRING S_NPROT 32
BEGIN
  PROMPT 1 9 "Numero Protocollo"
  HELP "Numero Protocollo"
	FLAGS "D"
END

STRING S_PROKEY 80
BEGIN
  PROMPT 1 10 "db key"
  HELP "Chiave database"
	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


PAGE "Riga Errore" -1 -1 69 14

BOOLEAN S_SELECTF
BEGIN
	PROMPT 21 4 "Seleziona Fornitore da salvare"
	FLAGS ""
END

STRING S_STATOERR 2
BEGIN
	PROMPT 21 4 ""
	FLAGS "D"
END

STRING S_PIVAERR 50 20
BEGIN
	PROMPT 21 4 ""
	FLAGS "D"
END

STRING S_CODFIERR 50 20
BEGIN
	PROMPT 21 4 ""
	FLAGS "D"
END

STRING S_RAGSERR 50
BEGIN
	PROMPT 21 4 ""
	FLAGS "D"
END

STRING S_DESCERR 100
BEGIN
	PROMPT 21 4 ""
	FLAGS "D"
END


ENDPAGE
ENDMASK