campo-sirio/src/f9/f90100d.uml
smen 5b160f7fe1 Patch level : 12.0
Files correlati     : f90100.cpp f90100d.uml f90104.sql

Commento:
Aggiornamenti sostanziali al programma di Archiviazione Passiva. Il funzionamento è rimasto lo stesso della versione precedente ma il giro interno del programma è stato rivisto e migliorato (si spera)
2022-10-04 17:00:02 +02:00

399 lines
4.6 KiB
Plaintext

#include "f90100d.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_INFO 2 2
BEGIN
PROMPT 1 1 "Info"
MESSAGE EXIT,K_F2
PICTURE TOOL_INFO
END
BUTTON DLG_HELP 2 2
BEGIN
PROMPT 2 1 "Help"
MESSAGE EXIT,K_F1
PICTURE TOOL_HELP
END
BUTTON DLG_NULL 2 2
BEGIN
PROMPT -1 0 ""
PICTURE 0
END
BUTTON B_ISELESCL 2 2
BEGIN
PROMPT 1 8 "Sel. esclusi"
PICTURE TOOL_MULTISEL
FLAGS ""
END
BUTTON B_IESCL 2 2
BEGIN
PROMPT 1 7 "Conf. esclusi"
PICTURE TOOL_WARNING
FLAGS ""
END
BUTTON B_IALLESCL 2 2
BEGIN
PROMPT 1 7 "Sel. tutti"
PICTURE TOOL_MULTISEL
FLAGS ""
END
BUTTON DLG_NULL 2 2
BEGIN
PROMPT -1 0 ""
PICTURE 0
END
BUTTON DLG_QUIT 2 2
BEGIN
PROMPT 3 1 "Fine"
MESSAGE EXIT,K_QUIT
PICTURE TOOL_QUIT
END
ENDPAGE
PAGE "Movimenti" 0 2 0 0
STRING F_IIDESTR 18
BEGIN
PROMPT 0 0 "Id estrazione"
FLAGS "D"
END
DATA F_IDATA
BEGIN
PROMPT 45 0 "Data estrazione "
FLAGS "D"
END
BOOLEAN F_IPROV
BEGIN
PROMPT 0 1 "Provvisorio"
FLAGS "D"
END
STRING F_ITIPOD 9
BEGIN
PROMPT 15 1 "Tipo Documenti"
FLAGS "D"
END
STRING F_ISTATOESTR 38
BEGIN
PROMPT 45 1 "Stato estrazione"
FLAGS "D"
END
DATA F_IDAL
BEGIN
PROMPT 0 2 "Dal"
FLAGS "D"
END
DATA F_IAL
BEGIN
PROMPT 15 2 "Al"
FLAGS "D"
END
TEXT F_ETEXT
BEGIN
PROMPT 0 3 "@BMovimenti estratti nel pacchetto:"
END
SPREADSHEET S_INCL -1 -1
BEGIN
PROMPT 0 4 "Movimenti estratti"
ITEM " "
ITEM "Numero\nReg.@8"
ITEM "Data\nReg.@8"
ITEM "Data\nDoc.@8"
ITEM "Codice\nCaus.@8"
ITEM "Tipo Doc.@5"
ITEM "Mese\nliquidazione@8"
ITEM "Numero\nDocumento@8"
ITEM "Totale\nDocumento@8"
ITEM "Cliente/\nFornitore@8"
ITEM "Ragione\nSociale@8"
ITEM "Cod. regis./\nprot.IVA@8"
ITEM "Descrizione@8"
ITEM "ESCLUDI@5"
ITEM "ESCLUSO@6"
END
ENDPAGE
PAGE "Risultato estrazione" 0 0 0 0
SPREADSHEET S_RES -1 -1
BEGIN
PROMPT 0 0 "Movimenti"
ITEM "Estratto"
ITEM "Numero\nReg.@8"
ITEM "Data\nReg.@8"
ITEM "Data\nDoc.@8"
ITEM "Tipo Doc\nSDI@9"
ITEM "Codice\nCaus.@8"
ITEM "Tipo Mov.@5"
ITEM "Mese\nliquidazione@8"
ITEM "Numero\nDocumento@8"
ITEM "Totale\nDocumento@8"
ITEM "Cliente/\nFornitore@8"
ITEM "Ragione\nSociale@8"
ITEM "Cod. regis./\nprot.IVA@8"
ITEM "Descrizione@8"
ITEM "Descrizione Estrazione@30"
END
ENDPAGE
ENDMASK
PAGE "Mov Inclusi" -1 -1 78 13
BOOLEAN FI_SEL
BEGIN
PROMPT 1 1 ""
END
NUMERIC FI_NUMREG 7
BEGIN
PROMPT 1 2 ""
FLAGS "D"
END
DATA FI_DATAREG
BEGIN
PROMPT 1 3 ""
FLAGS "D"
END
DATA FI_DATADOC
BEGIN
PROMPT 1 4 ""
FLAGS "D"
END
STRING FI_CODCAUS 3
BEGIN
PROMPT 1 5 ""
FLAGS "D"
END
STRING FI_TIPOMOV 3
BEGIN
PROMPT 1 6 ""
FLAGS "D"
END
NUMERIC FI_MESELIQ 2
BEGIN
PROMPT 1 7 ""
FLAGS "D"
END
STRING FI_NUMDOC 50
BEGIN
PROMPT 1 8 ""
FLAGS "D"
END
NUMERIC FI_IMPTOTDOC 15 2
BEGIN
PROMPT 1 9 ""
FLAGS "D"
END
NUMERIC FI_FORN 6
BEGIN
PROMPT 1 10 ""
FLAGS "D"
END
STRING FI_RAGSOC 80
BEGIN
PROMPT 1 11 ""
FLAGS "D"
END
STRING FI_PROTIVA 10
BEGIN
PROMPT 1 12 ""
FLAGS "D"
END
STRING FI_DESCR 50
BEGIN
PROMPT 1 13 ""
FLAGS "D"
END
LIST FI_IESCLUDI 2
BEGIN
PROMPT 1 1 "Escludi"
ITEM "|"
ITEM "S|SI"
ITEM "N|NO"
FLAGS "D"
END
BOOLEAN FI_IESCLUSO
BEGIN
PROMPT 1 1 "ESCLUSO"
FLAG "D"
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_USER 2 2
BEGIN
PROMPT 1 1 "Collega"
PICTURE TOOL_LINK
END
BUTTON DLG_NULL 2 2
BEGIN
PROMPT -1 0 ""
PICTURE 0
END
BUTTON DLG_QUIT 2 2
BEGIN
PROMPT 3 1 "Fine"
MESSAGE EXIT,K_QUIT
PICTURE TOOL_QUIT
END
ENPAGE
ENDMASK
PAGE "Risultato estratti" -1 -1 78 13
BOOLEAN F_RSEL
BEGIN
PROMPT 1 1 ""
FLAGS "D"
END
NUMERIC F_RNUMREG 7
BEGIN
PROMPT 1 2 ""
FLAGS "D"
END
DATA F_RDATAREG
BEGIN
PROMPT 1 3 ""
FLAGS "D"
END
DATA F_RDATADOC
BEGIN
PROMPT 1 4 ""
FLAGS "D"
END
STRING F_RTIPODOCSDI 4
BEGIN
PROMPT 1 5 ""
FLAGS "D"
END
STRING F_RCODCAUS 3
BEGIN
PROMPT 1 6 ""
FLAGS "D"
END
STRING F_RTIPOMOV 3
BEGIN
PROMPT 1 7 ""
FLAGS "D"
END
NUMERIC F_RMESELIQ 2
BEGIN
PROMPT 1 8 ""
FLAGS "D"
END
STRING F_RNUMDOC 50
BEGIN
PROMPT 1 9 ""
FLAGS "D"
END
NUMERIC F_RIMPTOTDOC 15 2
BEGIN
PROMPT 1 10 ""
FLAGS "D"
END
NUMERIC F_RFORN 6
BEGIN
PROMPT 1 11 ""
FLAGS "D"
END
STRING F_RRAGSOC 80
BEGIN
PROMPT 1 12 ""
FLAGS "D"
END
STRING F_RPROTIVA 10
BEGIN
PROMPT 1 13 ""
FLAGS "D"
END
STRING F_RDESCR 50
BEGIN
PROMPT 1 14 ""
FLAGS "D"
END
STRING F_RDESCRERR 92
BEGIN
PROMPT 1 15 ""
FLAGS "D"
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_USER 2 2
BEGIN
PROMPT 1 1 "Collega"
PICTURE TOOL_LINK
END
BUTTON DLG_NULL 2 2
BEGIN
PROMPT -1 0 ""
PICTURE 0
END
BUTTON DLG_QUIT 2 2
BEGIN
PROMPT 3 1 "Fine"
MESSAGE EXIT,K_QUIT
PICTURE TOOL_QUIT
END
ENPAGE
ENDMASK