c75d4c35f7
Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 855 git-svn-id: svn://10.65.10.50/trunk@15071 c028cbd2-c16b-5b4b-a496-9718f37d4682
133 lines
1.8 KiB
Plaintext
Executable File
133 lines
1.8 KiB
Plaintext
Executable File
#include "ba8600a.h"
|
|
|
|
TOOLBAR "Toolbar" 0 -2 0 2
|
|
|
|
BUTTON DLG_ELABORA 10 2
|
|
BEGIN
|
|
PROMPT -12 -11 "~Elabora"
|
|
PICTURE BMP_ELABORA
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Ricerca documenti" 0 0 0 -2
|
|
|
|
NUMBER F_DITTA 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FLAGS "F"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_DITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione Sociale@60" RAGSOC
|
|
OUTPUT F_DITTA CODDITTA
|
|
OUTPUT F_FIRMRAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_FIRMRAGSOC 50
|
|
BEGIN
|
|
PROMPT 24 1 ""
|
|
USE LF_NDITTE KEY 2
|
|
INPUT RAGSOC F_FIRMRAGSOC
|
|
DISPLAY "Ragione Sociale@60" RAGSOC
|
|
DISPLAY "Codice" CODDITTA
|
|
COPY OUTPUT F_DITTA
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 2 "Anno "
|
|
FLAGS "A"
|
|
END
|
|
|
|
STRING F_TIPODOC 10
|
|
BEGIN
|
|
PROMPT 41 2 "Tipo documento "
|
|
FLAGS "U"
|
|
END
|
|
|
|
LIST F_TIPOCF 1 9
|
|
BEGIN
|
|
PROMPT 1 3 ""
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
END
|
|
|
|
NUMBER F_CLIFO 6
|
|
BEGIN
|
|
PROMPT 14 3 ""
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CLIFO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_CLIFO CODCF
|
|
OUTPUT F_CLIRAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN CG0 -1 F_TIPOCF
|
|
END
|
|
|
|
STRING F_CLIRAGSOC 50
|
|
BEGIN
|
|
PROMPT 24 3 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_CLIRAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CLIFO
|
|
CHECKTYPE NORMAL
|
|
ADD RUN CG0 -1 F_TIPOCF
|
|
END
|
|
|
|
SPREADSHEET F_SHEET
|
|
BEGIN
|
|
PROMPT 0 5 ""
|
|
ITEM "Ditta"
|
|
ITEM "Anno"
|
|
ITEM "File@80"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "File" -1 -1 78 4
|
|
|
|
NUMBER 101 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
END
|
|
|
|
NUMBER 102 4
|
|
BEGIN
|
|
PROMPT 21 1 "Anno "
|
|
END
|
|
|
|
STRING 103 256 70
|
|
BEGIN
|
|
PROMPT 1 2 "File "
|
|
END
|
|
|
|
BUTTON 100 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Collega"
|
|
PICTURE BMP_LINK
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|