18f4c6985c
Files correlati : fp Commento : - Aggiunto programma fp1 con stampa elenco bolli in fattura - Data una ripulita al menu fp
172 lines
2.3 KiB
Plaintext
172 lines
2.3 KiB
Plaintext
#include "fp1100a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_RECALC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Carica"
|
|
PICTURE TOOL_CONVERT
|
|
END
|
|
|
|
BUTTON DLG_EXPORT 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Excel"
|
|
PICTURE TOOL_EXCEL
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Filtri" 0 2 0 0
|
|
|
|
DATE F_DADATA
|
|
BEGIN
|
|
PROMPT 1 1 "Data iniziale"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_ADATA
|
|
BEGIN
|
|
PROMPT 50 1 "Data finale "
|
|
VALIDATE DATE_CMP_FUNC >= F_DADATA
|
|
WARNING "La data finale non può essere minore della data iniziale"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DACODNUM 4
|
|
BEGIN
|
|
PROMPT 1 2 "Da numerazione "
|
|
HELP "Da codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_DACODNUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_DACODNUM CODTAB
|
|
FLAG "UPA"
|
|
CHECKTYPE FORCED
|
|
WARNING "Numerazione assente"
|
|
KEY 1 2
|
|
END
|
|
|
|
STRING F_ACODNUM 4
|
|
BEGIN
|
|
PROMPT 50 2 "A numerazione "
|
|
HELP "Da codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_ACODNUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_ACODNUM CODTAB
|
|
FLAG "UPA"
|
|
CHECKTYPE FORCED
|
|
WARNING "Numerazione assente"
|
|
KEY 1 2
|
|
END
|
|
|
|
SPREADSHEET F_DOCS
|
|
BEGIN
|
|
PROMPT 0 5 ""
|
|
ITEM "Anno"
|
|
ITEM "Cod.\nNum.@4"
|
|
ITEM "Tipo\nDoc@4"
|
|
ITEM "Tipo SDI@4"
|
|
ITEM "Num.\nDoc.@7"
|
|
ITEM "Data\nDoc.@10"
|
|
ITEM "Totale\nDoc.@10"
|
|
ITEM "Imposta\nDoc.@10"
|
|
ITEM "Cliente"
|
|
ITEM "Ragione Sociale@50"
|
|
ITEM "Bollo"
|
|
ITEM "Addebito"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
PAGE "Documento" -1 -1 80 6
|
|
|
|
NUMBER S_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 1 "Anno "
|
|
END
|
|
|
|
STRING S_CODNUM 4
|
|
BEGIN
|
|
PROMPT 25 1 "Numerazione "
|
|
END
|
|
|
|
STRING S_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 46 1 "Tipo Documento "
|
|
END
|
|
|
|
STRING S_CODSDI 4
|
|
BEGIN
|
|
PROMPT 1 2 "Tipo Doc SDI"
|
|
END
|
|
|
|
NUMBER S_NDOC 7
|
|
BEGIN
|
|
PROMPT 25 2 "Numero "
|
|
END
|
|
|
|
DATE S_DATADOC
|
|
BEGIN
|
|
PROMPT 46 2 "Data "
|
|
END
|
|
|
|
NUMBER S_TOTDOC 15 2
|
|
BEGIN
|
|
PROMPT 1 3 "Totale Doc. "
|
|
END
|
|
|
|
NUMBER S_IMPOSTADOC 15 2
|
|
BEGIN
|
|
PROMPT 46 3 "Imposta "
|
|
END
|
|
|
|
NUMBER S_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 1 4 "Cliente "
|
|
END
|
|
|
|
STRING S_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 25 4 ""
|
|
END
|
|
|
|
NUMBER S_BOLLO 4 2
|
|
BEGIN
|
|
PROMPT 1 5 "Importo bollo"
|
|
END
|
|
|
|
BOOLEAN S_ADDEBITO
|
|
BEGIN
|
|
PROMPT 20 5 "Addebito cliente"
|
|
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 |