campo-sirio/src/fp/fp1200a.uml
Simone Palacino 2eb52aa328 Patch level : 12.0 no-patch
Files correlati     : build
Commento            : Spostato programma Monitor Mancata Consegna in fp1
2019-03-25 11:20:21 +01:00

266 lines
3.5 KiB
Plaintext

#include "fp1200a.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 "Invia Mail"
PICTURE TOOL_EMAIL
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ò essere minore della data iniziale"
CHECKTYPE REQUIRED
END
RADIOBUTTON F_FATTSEL 3 80
BEGIN
PROMPT 1 2 "Fatture da visualizzare"
ITEM "|Non inviate"
ITEM "S|Già spedite"
ITEM "A|Tutte"
FLAGS "Z"
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
MEMO F_BODYMAIL 78 10
BEGIN
PROMPT 1 12 "Messaggio del corpo della EMail (senza firma)"
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 "Num.\nDoc.@7"
ITEM "Data\nDoc.@10"
ITEM "Cliente"
ITEM "Ragione Sociale@50"
ITEM "Codice Fiscale@16"
ITEM "EMail@50"
ITEM "Consenso\ninvio@7"
ITEM "SENT@4"
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
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_COFI 20
BEGIN
PROMPT 1 6 ""
FLAGS "D"
END
STRING S_DOCMAIL 50
BEGIN
PROMPT 1 7 "email"
FLAGS "D"
END
BOOLEAN S_BYMAIL
BEGIN
PROMPT 1 8 "Consenso invio email"
FLAGS "D"
END
BOOLEAN S_SENT
BEGIN
PROMPT 1 9 "Sent"
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