#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

BUTTON DLG_EXPORT 10 2
BEGIN
  PROMPT 4 1 "Contabilizza"
  PICTURE TOOL_EXPORT
END

#include <helpbar.h>

ENDPAGE

PAGE "Fatture Passive" 0 2 0 0

RADIOBUTTON F_ASSOC 20 50
BEGIN
	PROMPT 0 1 "@BFornitori"
	ITEM "E|Associate"
	ITEM "|Non Associate"
	ITEM "A|Tutte"
	FLAGS "Z"
END

DATE F_DATAINI
BEGIN
  PROMPT 0 4 "Data iniziale"
	VALIDATE DATE_CMP_FUNC <= F_DATAEND
  WARNING "La data iniziale non puo' essere superiore della data iniziale"
  CHECKTYPE REQUIRED
END

DATE F_DATAEND
BEGIN
  PROMPT 25 4 "Data finale  "
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data finale non puo' essere minore della data iniziale"
  CHECKTYPE REQUIRED
END

RADIOBUTTON F_FATTORD 20 20
BEGIN
  PROMPT 56 1 "Ordinamento fatture per "
  ITEM "|Data Ricezione"
  ITEM "D|Data Documento"
  FLAGS ""
END

RADIOBUTTON F_VERSOORD 20 20
BEGIN
  PROMPT 56 5 "Ordinamento:"
  ITEM "|Decrescente"
  ITEM "C|Crescente"
  FLAGS ""
END

GROUPBOX DLG_NULL 55 6
BEGIN
	PROMPT 0 5 "@BFiltro fornitore"
END

BOOLEAN F_ENABLEFORN
BEGIN
	PROMPT 1 6 "Abilita"
END

NUMBER F_FORNITORE 6
BEGIN
  PROMPT 17 6 "Codice fornitore "
  FIELD CODCF
  FLAGS "GRD"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF "F" SELECT
  INPUT CODCF F_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 F_FORNITORE CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_STATOPAIV STATOPAIV
  OUTPUT F_PARIVA PAIV
  OUTPUT F_CODFISC COFI
	ADD RUN cg0 -1 F F_FORNITORE
  HELP "Codice relativo al cliente o fornitore"
  MESSAGE COPY,2@
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 7 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_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 F_FORNITORE
  HELP "Prima parte della ragione sociale o cognome"
  MESSAGE COPY,3@
  WARNING "Manca la ragione sociale"
	FLAGS "D"
END

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

STRING F_PARIVA 50 20
BEGIN
  PROMPT 10 8 "P. IVA"
  KEY 5
  USE LF_CLIFO KEY 5
  INPUT TIPOCF "F"
  INPUT STATOPAIV F_STATOPAIV
  INPUT PAIV F_PARIVA
  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 F_FORNITORE
  HELP "Partita IVA del cliente/fornitore"
	FLAGS "D"
END

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

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

GROUPBOX F_GROUPCON 32 5
BEGIN
	PROMPT 0 16 "@BContabilita'"
END

BOOLEAN F_CONTABIL
BEGIN
	PROMPT 1 17 "Mostra solo doc. registrati"
	MODULE F1
END

DATE F_DATAINIREG
BEGIN
  PROMPT 1 18 "Data iniziale"
	VALIDATE DATE_CMP_FUNC <= F_DATAENDREG
  WARNING "La data iniziale non puo' essere superiore della data iniziale"
  CHECKTYPE REQUIRED
	MODULE F1
END

DATE F_DATAENDREG
BEGIN
  PROMPT 1 19 "Data finale  "
  VALIDATE DATE_CMP_FUNC >= F_DATAINIREG
  WARNING "La data finale non puo' essere minore della data iniziale"
  CHECKTYPE REQUIRED
	MODULE F1
END

GROUPBOX F_GROUPCON2 59 3
BEGIN
	PROMPT 33 16 "@BContabilizzazione automatica:"
END

BOOLEAN F_PERIODPREC
BEGIN
	PROMPT 34 17 "Selezione automatica liquid. periodo precedente"
	MODULE F1
END

ENDPAGE

PAGE "Elenco Fatture" 0 2 0 0

GROUPBOX F_GROUPCAU 70 4
BEGIN
	PROMPT 0 0 "@BParametri di default per Registrazione Contabile:"
END

STRING F_CAUSFA 3
BEGIN
  PROMPT 1 1 "Causale per Contabilizzazione"
  FLAGS "UZ"
  FIELD CODCAUS
  USE LF_CAUSALI
  INPUT CODCAUS F_CAUSFA
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "SC" TIPOMOV
  DISPLAY "CA" MOVIND
  DISPLAY "CE" COLLCESP
  DISPLAY "770" M770
  OUTPUT F_CAUSFA CODCAUS
	OUTPUT F_DESCAUSFA DESCR
  ADD RUN cg0 -4
  CHECKTYPE NORMAL
  WARNING "Causale assente"
	MODULE F1
END

STRING F_DESCAUSFA 50
BEGIN
  PROMPT 1 2 ""
  USE LF_CAUSALI KEY 2
  CHECKTYPE NORMAL
  INPUT DESCR F_DESCAUSFA
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "SC" TIPOMOV
  DISPLAY "CA" MOVIND
  DISPLAY "CE" COLLCESP
  DISPLAY "770" M770
  COPY OUTPUT F_CAUSFA
  ADD RUN cg0 -4
	MODULE F1
END

SPREADSHEET F_DOCS -1 -1
BEGIN
  PROMPT 0 4 ""
	ITEM ""
  ITEM "Anno"
  ITEM "Tipo Doc.\nSDI@5"
  ITEM "Numero\nDocumento@14"
	ITEM "Data\nRicezione@8"
  ITEM "Data\nDoc.@8"
	ITEM "Totale\nDocumento@7"
	ITEM "Totale\nritenute@6"
	ITEM "Fornitore\nassociato@6"
	ITEM "Num. Regis.\ncontabile@8"
	ITEM "Data Regis.\ncontabile@8"
  ITEM "Fornitore@5"
  ITEM "Ragione Sociale@40"
	ITEM "Stato\nP.IVA@4"
  ITEM "Partita IVA@10"
	ITEM "Cod. Fiscale@12"
  ITEM "Allegati@6"
	ITEM "Ragione Sociale (XML)@40"
	ITEM "Numero Protocollo (in entrata)\n[anno-tipo prot/progressivo]@20"
	ITEM "Chiave Prot.@40"
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 "Tipo 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 7 0 "Anno "
  FLAGS "D"
END

LIST S_TIPODOCSDI 35
BEGIN
  PROMPT 25 0 "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 1 "Numero Doc. "
  FLAGS "D"
END

DATE S_DATARIC
BEGIN
	PROMPT 20 1 "Data\nRicezione"
	FLAGS "D"
END

DATE S_DATADOC
BEGIN
  PROMPT 40 1 "Data Doc. "
  FLAGS "D"
END

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

NUMBER S_TOTRIT 10 2
BEGIN
  PROMPT 1 2 "Totale Ritenute"
  FLAGS "D"
END

BOOLEAN S_FPPRO
BEGIN
	PROMPT 15 2 "Salvato in FP-PRO"
	FLAGS "D"
END

NUMBER S_NUMREGCONT 6 0
BEGIN
	PROMPT 40 2 "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

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