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_FINDREC 2 2
BEGIN
  PROMPT 1 1 "Segna pronto"
  PICTURE TOOL_PERMISSIONS
  FLAGS "D"
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


ENDPAGE

PAGE "Elenco Fatture" 0 2 0 0

SPREADSHEET F_DOCS
BEGIN
  PROMPT 0 2 ""
	ITEM ""
  ITEM "Anno"
  ITEM "Tipo SDI@4"
  ITEM "Num.\nDoc.@11"
  ITEM "Data\nDoc.@10"
	ITEM "Totale\nDoc."
  ITEM "Fornitore"
  ITEM "Ragione Sociale@50"
	ITEM "Stato P.IVA@2"
  ITEM "P. IVA@16"
	ITEM "Cod. Fiscale@16"
  ITEM "Allegati"
  ITEM "Codice destinatario@20"
	ITEM "Rag. Soc. (XML)@50"
	ITEM "Numero Protocollo"
	ITEM "Chiave Prot.@80"
END

ENDPAGE

PAGE "Errore Fornitori" 0 2 0 0

SPREADSHEET F_ERR
BEGIN
  PROMPT 0 2 ""
	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 "Documento" -1 -1 78 9

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

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

LIST S_CODSDI 35
BEGIN
  PROMPT 41 2  "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"
	FLAG "D"
END

NUMBER S_NDOC 11
BEGIN
  PROMPT 1 3 "Numero "
  FLAGS "D"
END

DATE S_DATADOC
BEGIN
  PROMPT 21 3 "Data "
  FLAGS "D"
END

NUMBER S_TOTDOC 11 3
BEGIN
  PROMPT 26 3 "Data "
  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
  HELP "Codice relativo al cliente o fornitore"
  MESSAGE COPY,2@
  CHECKTYPE REQUIRED
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"
  CHECKTYPE REQUIRED
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 1 5 ""
  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 5 ""
  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_COFI 20
BEGIN
  PROMPT 1 6 ""
  FLAGS "D"
END

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

STRING S_RAGXML 50
	BEGIN
  PROMPT 21 4 ""
	FLAG "D"
	HELP "Ragione sociale scritta nell'xml"
END

STRING S_NPROT 20
BEGIN
  PROMPT 1 5 ""
  HELP "Numero Protocollo"
	FLAGS "D"
END

STRING S_PROKEY 80
BEGIN
  PROMPT 1 5 ""
  HELP "Numero Protocollo"
	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

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

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

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

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

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


ENDPAGE
ENDMASK