campo-sirio/src/fp/fp0300a.uml

#include "fp0300a.h"

TOOLBAR "topbar" 0 0 0 2

#include <allbar.h>
ENDPAGE

PAGE "Fatture Pubblica Amministrazione" 0 2 0 0

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

DATE F_DATAEND
BEGIN
  PROMPT 30 0 "Data finale"
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data finale non pu<70> essere minore della data iniziale"
  CHECKTYPE REQUIRED
END

RADIOBUTTON F_FATTSEL 25
BEGIN
  PROMPT 1 1 "Fatture da visualizzare"
  ITEM "|Da inviare"
  ITEM "P|Pronte"
  ITEM "X|XML Generato"
  ITEM "E|In errore"
  ITEM "N|Accettate"
END

STRING F_COFI 16
BEGIN
  PROMPT 30 1 "Codice fiscale trasmittente "
  CHECKTYPE REQUIRED
END

STRING F_DATIPODOC 4
BEGIN
  PROMPT 30 2 "Da tipo doc   "
  FIELD TIPODOC
  HELP "Codice tipo documento"
  USE %TIP
  SELECT S12!=""
  INPUT CODTAB F_DATIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo SDI@10" S12
  OUTPUT F_DATIPODOC CODTAB
  CHECKTYPE FORCED
  FLAG "UP"
END

STRING F_ATIPODOC 4
BEGIN
  PROMPT 30 3  "A tipo doc    "
  FIELD TIPODOC
  HELP "Codice tipo documento"
  USE %TIP
  SELECT S12!=""
  INPUT CODTAB F_ATIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo SDI@10" S12
  OUTPUT F_ATIPODOC CODTAB
  CHECKTYPE FORCED
  FLAG "UP"
END

STRING DLG_PROFILE 256
BEGIN
  PROMPT 1 -1 "Profilo "
  PSELECT
  FLAGS "H"
END

ENDPAGE

PAGE "Elenco Fatture" 0 2 0 0

SPREADSHEET F_DOCS
BEGIN
  PROMPT 0 2 ""
  ITEM "@1"
  ITEM "Anno"
  ITEM "Cod.\nNum.@4"
  ITEM "Tipo\nDoc@4"
  ITEM "Tipo SDI@4"
  ITEM "Num.\nDoc.@7"
  ITEM "Data\nDoc.@10"
  ITEM "Cliente"
  ITEM "Ragione Sociale@50"
  ITEM "Codice destinatario"
  ITEM "Riferimento\nAmministrazione@20"
  ITEM "Codice Fiscale@16"
  ITEM "Scissione\nPagamenti@9"
  ITEM "Allegati"
  ITEM "Solo generazione"
END

ENDPAGE

ENDMASK

PAGE "Documento" -1 -1 78 9

BOOLEAN S_SELECTED
BEGIN
  PROMPT 1 1 "Da elaborare"
END

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

STRING S_CODNUM 4
BEGIN
  PROMPT 21 2 "Numerazione "
  FLAGS "D"
END

STRING S_TIPODOC 4
BEGIN
  PROMPT 21 2 "Tipo Documento "
  FLAGS "D"
END

STRING S_CODSDI 4
BEGIN
  PROMPT 41 2 "Tipo SDI "
  FLAGS "D"
END

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

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

NUMBER S_CLIENTE 6
BEGIN
  PROMPT 1 4 "Cliente "
  FLAGS "D"
END

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

STRING S_UFFICIO 6
BEGIN
  PROMPT 1 5 ""
  FLAGS "D"
END

STRING S_RIFAMM 20
BEGIN
  PROMPT 21 5 ""
  FLAGS "D"
END

STRING S_COFI 20
BEGIN
  PROMPT 1 6 ""
  FLAGS "D"
END

BOOLEAN S_SPLITPAY
BEGIN
  PROMPT 1 7 "Assogettato scissione pagamenti art.17 ter DPR 633/72"
  FLAGS "D"
END

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

BOOLEAN S_ONLYGEN
BEGIN
  PROMPT 20 8 "Solo generazione"
  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