Gestione del fax

git-svn-id: svn://10.65.10.50/trunk@3092 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-06-27 07:17:08 +00:00
parent 853ee0f2df
commit d497355a7a
5 changed files with 1782 additions and 0 deletions

1261
ba/bafax.cpp Executable file

File diff suppressed because it is too large Load Diff

4
ba/bafax.h Executable file
View File

@ -0,0 +1,4 @@
#define F_PENDING 101
#define F_SENDING 102
#define F_COMPLETE 103
#define F_FAILED 104

6
ba/bafax.url Executable file
View File

@ -0,0 +1,6 @@
#include <default.url>
MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File"
ITEM MENU_ITEM(1) "~Stato"

235
ba/bafax01.uml Executable file
View File

@ -0,0 +1,235 @@
PAGE "Invio fax" -1 -1 68 15
GROUPBOX DLG_NULL -1 8
BEGIN
PROMPT 1 0 "@BDestinazione"
END
LIST 100 20
BEGIN
PROMPT 2 1 "Tipo anagrafica "
ITEM "Clienti|Clienti"
MESSAGE HIDE,1@|SHOW,101
ITEM "Fornitori|Fornitori"
MESSAGE HIDE,1@|SHOW,102
ITEM "Fisiche|Persone fisiche"
MESSAGE HIDE,1@|SHOW,103
ITEM "Giuridiche|Persone giuridiche"
MESSAGE HIDE,1@|SHOW,104
ITEM "Ditte|Ditte"
MESSAGE HIDE,1@|SHOW,105
FIELD TIPO
END
NUMBER 101 5
BEGIN
PROMPT 2 2 "Codice anagrafica "
GROUP 1
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF 101
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT 101 CODCF
ADD RUN cg0 -1 C
CHECKTYPE NORMAL
FIELD CLIENTI
END
NUMBER 102 5
BEGIN
PROMPT 2 2 "Codice "
GROUP 1
USE LF_CLIFO
INPUT TIPOCF "F"
INPUT CODCF 102
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT 102 CODCF
ADD RUN cg0 -1 F
CHECKTYPE NORMAL
FIELD FORNITORI
END
NUMBER 103 5
BEGIN
PROMPT 2 2 "Codice "
GROUP 1
USE LF_ANAG
INPUT TIPOA "F"
INPUT CODANAGR 103
DISPLAY "Codice" CODANAGR
DISPLAY "Cognome@30" RAGSOC[1,30]
DISPLAY "Nome@20" RAGSOC[30,-1]
OUTPUT 103 CODANAGR
ADD RUN ba4 -1 F
CHECKTYPE NORMAL
FIELD FISICHE
END
NUMBER 104 5
BEGIN
PROMPT 2 2 "Codice "
GROUP 1
USE LF_ANAG
INPUT TIPOA "G"
INPUT CODANAGR 104
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT 104 CODANAGR
ADD RUN ba4 -1 G
CHECKTYPE NORMAL
FIELD GIURIDICHE
END
NUMBER 105 5
BEGIN
PROMPT 2 2 "Codice "
GROUP 1
USE LF_NDITTE
INPUT CODDITTA 105
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT 105 CODDITTA
ADD RUN ba4 -2
CHECKTYPE NORMAL
FIELD DITTE
END
STRING 201 20
BEGIN
PROMPT 2 4 "Numero fax "
CHECKTYPE REQUIRED
WARNING "E' necessario specificare il numero del fax"
FIELD DESTFAX
END
STRING 202 50
BEGIN
PROMPT 2 5 "Ditta "
FIELD DESTFIRM
END
STRING 203 50
BEGIN
PROMPT 2 6 "Nome "
FIELD DESTNAME
END
GROUPBOX DLG_NULL -1 5
BEGIN
PROMPT 1 8 "@BInviato da"
END
STRING 301 20
BEGIN
PROMPT 2 9 "Numero fax "
FIELD FROMFAX
END
STRING 302 50
BEGIN
PROMPT 2 10 "Ditta "
FIELD FROMFIRM
END
STRING 303 50
BEGIN
PROMPT 2 11 "Nome "
FIELD FROMNAME
END
STRING 500 50
BEGIN
PROMPT 1 13 "Files "
FLAGS "D"
FIELD FILELIST
END
BUTTON DLG_FAX 10 2
BEGIN
PROMPT -12 -1 "~Fax"
PICTURE BMP_FAX
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
BUTTON 401 3 1
BEGIN
PROMPT 48 1 "1"
GROUP 2
END
BUTTON 402 3 1
BEGIN
PROMPT 53 1 "2"
GROUP 2
END
BUTTON 403 3 1
BEGIN
PROMPT 58 1 "3"
GROUP 2
END
BUTTON 404 3 1
BEGIN
PROMPT 48 2 "4"
GROUP 2
END
BUTTON 405 3 1
BEGIN
PROMPT 53 2 "5"
GROUP 2
END
BUTTON 406 3 1
BEGIN
PROMPT 58 2 "6"
GROUP 2
END
BUTTON 407 3 1
BEGIN
PROMPT 48 3 "7"
GROUP 2
END
BUTTON 408 3 1
BEGIN
PROMPT 53 3 "8"
GROUP 2
END
BUTTON 409 3 1
BEGIN
PROMPT 58 3 "9"
GROUP 2
END
BUTTON 410 3 1
BEGIN
PROMPT 48 4 ","
GROUP 2
END
BUTTON 400 3 1
BEGIN
PROMPT 53 4 "0"
GROUP 2
END
BUTTON 411 3 1
BEGIN
PROMPT 58 4 "#"
GROUP 2
END
ENDPAGE
ENDMASK

276
ba/bafax02.uml Executable file
View File

@ -0,0 +1,276 @@
#include "bafax.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -11 -11 ""
END
ENDPAGE
PAGE "Stato Fax" -1 -1 68 9
TEXT DLG_NULL
BEGIN
PROMPT 1 0 "@BIn attesa"
END
SPREADSHEET F_PENDING 0 4
BEGIN
PROMPT 1 1 ""
ITEM "Codice"
ITEM "Fax@12"
ITEM "Destinatario@30"
ITEM "Data@10"
ITEM "Ora@8"
ITEM "Files@50"
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 5 "@BIn spedizione"
END
SPREADSHEET F_SENDING 0 3
BEGIN
PROMPT 1 6 ""
ITEM "Codice"
ITEM "Fax@12"
ITEM "Destinatario@30"
ITEM "Data@10"
ITEM "Ora@8"
ITEM "Files@50"
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 9 "@BCompletati"
END
SPREADSHEET F_COMPLETE 0 4
BEGIN
PROMPT 1 10 ""
ITEM "Codice"
ITEM "Fax@12"
ITEM "Destinatario@30"
ITEM "Data@10"
ITEM "Ora@8"
ITEM "Files@50"
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 14 "@BFalliti"
END
SPREADSHEET F_FAILED 0 -1
BEGIN
PROMPT 1 15 ""
ITEM "Codice"
ITEM "Fax@12"
ITEM "Destinatario@30"
ITEM "Data@10"
ITEM "Ora@8"
ITEM "Files@50"
FLAGS "D"
END
ENDPAGE
ENDMASK
PAGE "Pending" -1 -1 68 10
NUMBER 101 8
BEGIN
PROMPT 1 1 "Codice "
END
STRING 102 16
BEGIN
PROMPT 1 2 "Fax "
END
STRING 103 128
BEGIN
PROMPT 1 3 "Destin."
END
DATE 104
BEGIN
PROMPT 1 4 "Data "
END
STRING 105 8
BEGIN
PROMPT 1 5 "Ora "
END
STRING 106 50
BEGIN
PROMPT 1 6 "Files "
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Sending" -1 -1 68 10
NUMBER 101 8
BEGIN
PROMPT 1 1 "Codice "
END
STRING 102 16
BEGIN
PROMPT 1 2 "Fax "
END
STRING 103 128
BEGIN
PROMPT 1 3 "Destin."
END
DATE 104
BEGIN
PROMPT 1 4 "Data "
END
STRING 105 8
BEGIN
PROMPT 1 5 "Ora "
END
STRING 106 50
BEGIN
PROMPT 1 6 "Files "
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Failed" -1 -1 68 10
NUMBER 101 8
BEGIN
PROMPT 1 1 "Codice "
END
STRING 102 16
BEGIN
PROMPT 1 2 "Fax "
END
STRING 103 128
BEGIN
PROMPT 1 3 "Destin."
END
DATE 104
BEGIN
PROMPT 1 4 "Data "
END
STRING 105 8
BEGIN
PROMPT 1 5 "Ora "
END
STRING 106 50
BEGIN
PROMPT 1 6 "Files "
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Complete" -1 -1 68 10
NUMBER 101 8
BEGIN
PROMPT 1 1 "Codice "
END
STRING 102 16
BEGIN
PROMPT 1 2 "Fax "
END
STRING 103 128
BEGIN
PROMPT 1 3 "Destin."
END
DATE 104
BEGIN
PROMPT 1 4 "Data "
END
STRING 105 8
BEGIN
PROMPT 1 5 "Ora "
END
STRING 106 256 50
BEGIN
PROMPT 1 6 "Files "
FIELD FILELIST
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON 100 10 2
BEGIN
PROMPT -33 -1 ""
PICTURE BMP_FAX
END
ENDPAGE
ENDMASK