133 lines
2.3 KiB
Plaintext
133 lines
2.3 KiB
Plaintext
#include "ve1800a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <aprintbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Lista documenti" -1 -1 60 21
|
|
|
|
GROUPBOX DLG_NULL 74 5
|
|
BEGIN
|
|
PROMPT 1 2 "@bCliente"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_CODFR 6
|
|
BEGIN
|
|
PROMPT 2 3 "Da codice "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODFR
|
|
DISPLAY "Codice@6R" CODCF
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT F_CODFR CODCF
|
|
OUTPUT F_RAGSOCFR RAGSOC
|
|
CHECKTYPE SEARCH
|
|
FLAGS "GR"
|
|
END
|
|
|
|
STRING F_RAGSOCFR 50
|
|
BEGIN
|
|
PROMPT 22 3 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOCFR
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT F_CODFR
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
|
|
NUMBER F_CODTO 6
|
|
BEGIN
|
|
PROMPT 2 5 "A codice "
|
|
COPY USE F_CODFR
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODTO
|
|
DISPLAY "Codice@6R" CODCF
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT F_CODTO CODCF
|
|
OUTPUT F_RAGSOCTO RAGSOC
|
|
CHECKTYPE SEARCH
|
|
NUM_GE_IF_SET(F_CODFR)
|
|
WARNING "Il codice cliente dev'essere maggiore del precedente"
|
|
FLAGS "GR"
|
|
END
|
|
|
|
STRING F_RAGSOCTO 50
|
|
BEGIN
|
|
PROMPT 22 5 ""
|
|
COPY USE F_RAGSOCFR
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOCTO
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT F_CODTO
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 74 5
|
|
BEGIN
|
|
PROMPT 1 7 "@bData Operazione"
|
|
GROUP 2
|
|
END
|
|
|
|
DATE F_DADATA
|
|
BEGIN
|
|
PROMPT 2 8 "Da data limite operazione "
|
|
FLAGS "H"
|
|
END
|
|
|
|
DATE F_ADATA
|
|
BEGIN
|
|
PROMPT 2 9 "A data limite operazione "
|
|
MESSAGE COPY,F_DATASCAD
|
|
END
|
|
|
|
DATE F_DATASCAD
|
|
BEGIN
|
|
PROMPT 2 10 "Data limite scaduto "
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 74 3
|
|
BEGIN
|
|
PROMPT 1 12 "@bParametri Configurazione"
|
|
GROUP 3
|
|
END
|
|
|
|
BOOLEAN F_CONFIDO
|
|
BEGIN
|
|
PROMPT 44 13 "Includi clienti con fido 0 "
|
|
END
|
|
|
|
NUMBER F_GIORNIRISK 3
|
|
BEGIN
|
|
PROMPT 2 13 "Giorni calcolo rischio"
|
|
END
|
|
|
|
STRING F_REPORT 50
|
|
BEGIN
|
|
PROMPT 2 -3 "Report "
|
|
RSELECT "ve1800"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|