3070c2a72c
git-svn-id: svn://10.65.10.50/branches/R_10_00@22850 c028cbd2-c16b-5b4b-a496-9718f37d4682
155 lines
2.6 KiB
Plaintext
Executable File
155 lines
2.6 KiB
Plaintext
Executable File
#include "ct0100a.h"
|
|
|
|
TOOLBAR "Topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_PREVIEW 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Anteprima"
|
|
PICTURE TOOL_PREVIEW
|
|
END
|
|
|
|
#include <printbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Tracciabilità" 0 0 0 2
|
|
|
|
GROUPBOX DLG_NULL 78 7
|
|
BEGIN
|
|
PROMPT 0 1 "@bSelezione stampa"
|
|
END
|
|
|
|
RADIOBUTTON F_ARCHIVI 32
|
|
BEGIN
|
|
PROMPT 1 2 "Tipo di archivi "
|
|
ITEM "M|Movimenti contabili"
|
|
ITEM "D|Documenti"
|
|
ITEM "E|Effetti"
|
|
ITEM "R|Rilevazione ore"
|
|
END
|
|
|
|
RADIOBUTTON F_ORDINAMENTO 32
|
|
BEGIN
|
|
PROMPT 36 2 "Ordinamento per:"
|
|
ITEM "1|CUP - CIG"
|
|
ITEM "2|Cliente/Fornitore"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 8 "@bFiltri CUP-CIG"
|
|
END
|
|
|
|
STRING F_CUP 15
|
|
BEGIN
|
|
PROMPT 1 9 "CUP "
|
|
USE %CUP
|
|
INPUT CODTAB F_CUP
|
|
DISPLAY "Codice@15" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CUP CODTAB
|
|
OUTPUT F_CUP_DESCR S0
|
|
FIELD #CUP
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CUP_DESCR 50
|
|
BEGIN
|
|
PROMPT 25 9 ""
|
|
USE %CUP KEY 2
|
|
INPUT S0 F_CUP_DESCR
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@15" CODTAB
|
|
COPY OUTPUT F_CUP
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CIG 10
|
|
BEGIN
|
|
PROMPT 1 10 "CIG "
|
|
USE %CIG
|
|
INPUT CODTAB F_CIG
|
|
DISPLAY "Codice@10" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CIG CODTAB
|
|
OUTPUT F_CIG_DESCR S0
|
|
FIELD #CIG
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CIG_DESCR 50
|
|
BEGIN
|
|
PROMPT 25 10 ""
|
|
USE %CIG KEY 2
|
|
INPUT S0 F_CIG_DESCR
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT F_CIG
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 12 "@bFiltri Cliente/Fornitore"
|
|
END
|
|
|
|
LIST F_TIPOCF 1 11
|
|
BEGIN
|
|
PROMPT 1 13 ""
|
|
ITEM "C|Clienti"
|
|
ITEM "F|Fornitori"
|
|
FIELD #TIPOCF
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 20 13 "Codice "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Codice@6R" CODCF
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT F_TIPOCF TIPOCF
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
FLAGS "GR"
|
|
FIELD #CODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 14 "Cognome/Rag. Soc. "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT F_CODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATE F_DADATA
|
|
BEGIN
|
|
PROMPT 1 17 "Dalla data "
|
|
FIELD #DADATA
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_ADATA
|
|
BEGIN
|
|
PROMPT 25 17 "Alla data "
|
|
FIELD #ADATA
|
|
VALIDATE DATE_CMP_FUNC >= F_DADATA
|
|
WARNING "La data finale deve essere succeviva a quella iniziale"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |