campo-sirio/src/fp/fp0500a.uml

#include "fp0500a.h"

TOOLBAR "topbar" 0 0 0 2

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

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 "Elabora"
  PICTURE TOOL_ELABORA
  FLAGS "D"
END

#include <helpbar.h>

ENDPAGE

PAGE "Elenco fatture mancata consegna" 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<70> essere minore della data iniziale"
  CHECKTYPE REQUIRED
END

SPREADSHEET F_DOCUMENTI_TIPO 80 5
BEGIN
  PROMPT 1 6 ""
  ITEM "Cod Num"
  ITEM "Tipo Doc"
  ITEM "Stato Iniziale"
  ITEM "Stato Finale"
  ITEM "Tipo SDI"
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@20"
  ITEM "Riferimento\nAmministrazione@20"
  ITEM "Codice Fiscale@16"
  ITEM "Scissione\nPagamenti@9"
  ITEM "Allegati"
  ITEM "Solo generazione"
END

ENDPAGE
ENDMASK

PAGE "Riga tipo doc" -1 -1 50 3

STRING S_SELCODNUM 4
BEGIN
  PROMPT 1 1 "Numerazione "
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB S_SELCODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_SELCODNUM CODTAB
  CHECKTYPE REQUIRED
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

STRING S_TIPODOCSEL 4
BEGIN
  PROMPT 15 1  "Tipo doc    "
  HELP "Codice tipo documento"
  USE %TIP
  SELECT S3[37,40]!=""
  INPUT CODTAB S_TIPODOCSEL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo SDI@10" S3[37,40]
  OUTPUT S_TIPODOCSEL CODTAB
  OUTPUT S_TIPODOCSDI S3[37,40]
  CHECKTYPE FORCED
  FLAG "UPA"
END

STRING S_DASTATO 1
BEGIN
  PROMPT 1 2 "Da stato "
  USE %STD
  INPUT CODTAB S_DASTATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_DASTATO CODTAB  
  FLAG "U"  
END

STRING S_ASTATO 1
BEGIN
  PROMPT 15 2 "A stato "
  USE %STD
  INPUT CODTAB S_ASTATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_ASTATO CODTAB  
  FLAG "U"  
END

STRING S_TIPODOCSDI 4
BEGIN
  PROMPT 30 1  "Tipo Doc SDI"
  FLAG "D"
END

ENDPAGE

TOOLBAR "Tipo Documento" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2 
BEGIN
  PROMPT 1 1 ""
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 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

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"
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 50 20
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