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)
399 lines
4.6 KiB
Plaintext
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 |