588b3f3199
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la verione 98.01.04 sul main trunk git-svn-id: svn://10.65.10.50/trunk@6985 c028cbd2-c16b-5b4b-a496-9718f37d4682
140 lines
2.2 KiB
Plaintext
Executable File
140 lines
2.2 KiB
Plaintext
Executable File
#include "cgp2100a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Ordini di bonifico" 0 -1 0 19
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
FLAGS "H"
|
|
PROMPT 4 2 "Esercizio contabile"
|
|
USE ESC
|
|
INPUT CODTAB[1,4] F_ANNOES
|
|
DISPLAY "Esercizio" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
OUTPUT F_ANNOES CODTAB[1,4]
|
|
END
|
|
|
|
DATE F_DATAPAG
|
|
BEGIN
|
|
FLAGS "H"
|
|
PROMPT 4 4 "Data del pagamento "
|
|
MESSAGE COPY,F_FROMDATA|COPY,F_TODATA
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATADOC
|
|
BEGIN
|
|
FLAGS "A"
|
|
PROMPT 4 4 "Data dell'ordine di bonifico "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 7
|
|
BEGIN
|
|
PROMPT 3 6 " Selezione movimenti contabili"
|
|
END
|
|
|
|
STRING F_CAUS 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 4 7 "Causale contabile "
|
|
USE LF_CAUSALI
|
|
INPUT CODCAUS F_CAUS
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_CAUS CODCAUS
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
|
|
NUMBER F_FROMREG 7
|
|
BEGIN
|
|
PROMPT 4 9 "Dalla registrazione "
|
|
USE LF_MOV SELECT CODCAUS==#F_CAUS
|
|
INPUT NUMREG F_FROMREG
|
|
DISPLAY "Numero reg." NUMREG
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_FROMREG NUMREG
|
|
END
|
|
|
|
NUMBER F_TOREG 7
|
|
BEGIN
|
|
PROMPT 4 11 "Alla registrazione "
|
|
COPY USE F_FROMREG
|
|
INPUT NUMREG F_TOREG
|
|
COPY DISPLAY F_FROMREG
|
|
OUTPUT F_TOREG NUMREG
|
|
END
|
|
|
|
DATE F_FROMDATA
|
|
BEGIN
|
|
PROMPT 40 9 "Dalla data di competenza "
|
|
END
|
|
|
|
DATE F_TODATA
|
|
BEGIN
|
|
PROMPT 40 11 "Alla data di competenza "
|
|
END
|
|
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 3 13 " Banca di presentazione "
|
|
END
|
|
|
|
NUMBER F_ABIPRES 5
|
|
BEGIN
|
|
FLAGS "Z"
|
|
PROMPT 4 14 "ABI "
|
|
USE %BAN SELECT CODTAB[6,10]==""
|
|
INPUT CODTAB[1,5] F_ABIPRES
|
|
DISPLAY "Codice@10" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_ABIPRES CODTAB[1,5]
|
|
OUTPUT F_BANCA S0
|
|
MESSAGE EMPTY "",F_CABPRES
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CABPRES 5
|
|
BEGIN
|
|
FLAGS "Z"
|
|
PROMPT 20 14 "CAB "
|
|
USE %BAN SELECT CODTAB[6,10]!=""
|
|
INPUT CODTAB[1,5] F_ABIPRES
|
|
INPUT CODTAB[6,10] F_CABPRES
|
|
COPY DISPLAY F_ABIPRES
|
|
OUTPUT F_ABIPRES CODTAB[1,5]
|
|
OUTPUT F_CABPRES CODTAB[6,10]
|
|
OUTPUT F_FILIALE S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_BANCA 50
|
|
BEGIN
|
|
PROMPT 4 15 "Banca "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_FILIALE 50
|
|
BEGIN
|
|
PROMPT 4 16 " "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|