f15489af39
git-svn-id: svn://10.65.10.50/branches/R_10_00@23171 c028cbd2-c16b-5b4b-a496-9718f37d4682
157 lines
2.7 KiB
Plaintext
157 lines
2.7 KiB
Plaintext
#include "eftbman.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Mandati" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 1 "@bCliente"
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA@12" PAIV
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
OUTPUT F_COFI COFI
|
|
OUTPUT F_PIVA PAIV
|
|
CHEKCTYPE REQUIRED
|
|
HELP "Inserire il codice del cliente"
|
|
FIELD I0
|
|
ADD RUN cg0 -1 C
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 22 2 ""
|
|
USE LF_CLIFO KEY 2
|
|
JOIN LF_CFVEN INTO CODCF=CODCF TIPOCF="C"
|
|
JOIN LF_COMUNI INTO STATO=STATOCF COM=COMCF
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Partita IVA@12" PAIV
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
COPY OUTPUT F_CODCF
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_PIVA 12
|
|
BEGIN
|
|
PROMPT 2 3 "Partita IVA "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_COFI 16
|
|
BEGIN
|
|
PROMPT 2 4 "Codice Fiscale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 6 "@bMandato"
|
|
END
|
|
|
|
STRING F_MANDATO 35
|
|
BEGIN
|
|
PROMPT 2 7 "Codice "
|
|
USE &EFMAN SELECT STR((#F_CODCF=0)||(#F_CODCF=I0))
|
|
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=I0
|
|
INPUT CODTAB F_MANDATO
|
|
DISPLAY "Codice@35" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Cliente" I0
|
|
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
|
OUTPUT F_MANDATO CODTAB
|
|
OUTPUT F_DESCR S0
|
|
OUTPUT F_CODCF I0
|
|
CHECKTYPE REQUIRED
|
|
FIELD CODTAB
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 8 "Descrizione "
|
|
USE &EFMAN KEY 2 SELECT STR((#F_CODCF=0)||(#F_CODCF=I0))
|
|
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=I0
|
|
INPUT CODTAB F_MANDATO
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@35" CODTAB
|
|
DISPLAY "Cliente" I0
|
|
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
|
COPY OUTPUT F_MANDATO
|
|
CHECKTYPE REQUIRED
|
|
FIELD S0
|
|
KEY 2
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 2 9 "Data "
|
|
FIELD D0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
LISTBOX F_SEQUENZA 4 20
|
|
BEGIN
|
|
PROMPT 34 9 "Sequenza "
|
|
ITEM "RCUR|RCUR - Ricorrente"
|
|
ITEM "FRST|FRST - Primo "
|
|
ITEM "LAST|LAST - Ultimo"
|
|
ITEM "OOFF|OOFF - Singolo"
|
|
FIELD S6
|
|
END
|
|
|
|
NUMBER F_ABI 5
|
|
BEGIN
|
|
PROMPT 2 10 "Banca d'appoggio "
|
|
FLAGS "Z"
|
|
FIELD S4[1,5]
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 28 10 ""
|
|
FLAGS "Z"
|
|
USE LF_CFBAN
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODCF SELECT
|
|
INPUT TIPOBAN "V"
|
|
DISPLAY "ABI@5" ABI
|
|
DISPLAY "CAB@5" CAB
|
|
DISPLAY "IBAN@50" IBAN
|
|
OUTPUT F_ABI ABI
|
|
OUTPUT F_CAB CAB
|
|
OUTPUT F_IBAN IBAN
|
|
CHECKTYPE SEARCH
|
|
FIELD S4[6,10]
|
|
END
|
|
|
|
STRING F_IBAN 34
|
|
BEGIN
|
|
PROMPT 38 10 "IBAN "
|
|
FLAGS "D"
|
|
FIELD S1
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|