b7537b29c6
Files correlati : Ricompilazione Demo : [ ] Commento :sistemati filtri sulla maschera in modo da accettare intervalli di tipo da conto a conto (senza sottoconto) git-svn-id: svn://10.65.10.50/trunk@19767 c028cbd2-c16b-5b4b-a496-9718f37d4682
362 lines
6.6 KiB
Plaintext
Executable File
362 lines
6.6 KiB
Plaintext
Executable File
#include "ca1800a.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 "Conti per CDC/Commessa" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 79 3
|
|
BEGIN
|
|
PROMPT 1 0 "@bDitta"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FLAGS "DF"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 17 1 "Rag. Soc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 79 4
|
|
BEGIN
|
|
PROMPT 1 3 "@bPeriodo"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 4 "Codice esercizio "
|
|
HELP "Codice esercizio per cui si vuole la lista"
|
|
USE ESC
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio" D1
|
|
OUTPUT F_ANNO CODTAB
|
|
OUTPUT F_DATAINI D0
|
|
OUTPUT F_DATAFIN D1
|
|
FLAGS "RZ"
|
|
ADD RUN cg0 -5 esc
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice esercizio assente"
|
|
FIELD #ANNO
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 2 5 "Dalla data "
|
|
FIELD #DATAINI
|
|
END
|
|
|
|
DATE F_DATAFIN
|
|
BEGIN
|
|
PROMPT 50 5 "alla data "
|
|
VALIDATE DATE_CMP_FUNC >= F_DATAINI
|
|
WARNING "La data finale deve essere succeviva a quella iniziale"
|
|
FIELD #DATAFIN
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 79 4
|
|
BEGIN
|
|
PROMPT 1 7 "@bSelezione commesse"
|
|
END
|
|
|
|
STRING F_DACODCMS 20
|
|
BEGIN
|
|
PROMPT 2 8 "Da "
|
|
FLAGS "UZ"
|
|
USE COMMESSE
|
|
INPUT CODCMS F_DACODCMS
|
|
DISPLAY "Codice@20" CODCMS
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
OUTPUT F_DACODCMS CODCMS
|
|
OUTPUT F_DADESCMS DESCRIZ
|
|
CHECKTYPE SEARCH
|
|
FIELD #DACODCMS
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_DADESCMS 50 48
|
|
BEGIN
|
|
PROMPT 29 8 ""
|
|
USE COMMESSE KEY 2
|
|
INPUT DESCRIZ F_DADESCMS
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
DISPLAY "Codice@20" CODCMS
|
|
COPY OUTPUT F_DACODCMS
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_ACODCMS 20
|
|
BEGIN
|
|
PROMPT 2 9 "A "
|
|
FLAGS "UZ"
|
|
COPY USE F_DACODCMS
|
|
INPUT CODCMS F_ACODCMS
|
|
COPY DISPLAY F_DACODCMS
|
|
OUTPUT F_ACODCMS CODCMS
|
|
OUTPUT F_ADESCMS DESCRIZ
|
|
CHECKTYPE SEARCH
|
|
FIELD #ACODCMS
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_ADESCMS 50 48
|
|
BEGIN
|
|
PROMPT 29 9 ""
|
|
COPY USE F_DADESCMS
|
|
INPUT DESCRIZ F_ADESCMS
|
|
COPY DISPLAY F_DADESCMS
|
|
COPY OUTPUT F_ACODCMS
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
//campo solo per CA
|
|
STRING F_CODCMS 20
|
|
BEGIN
|
|
PROMPT 2 8 ""
|
|
FLAGS "UZ"
|
|
USE COMMESSE
|
|
INPUT CODCMS F_CODCMS
|
|
DISPLAY "Codice@20" CODCMS
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
OUTPUT F_CODCMS CODCMS
|
|
OUTPUT F_DESCMS DESCRIZ
|
|
CHECKTYPE SEARCH
|
|
FIELD #CODCMS
|
|
GROUP 2
|
|
END
|
|
|
|
//campo solo per CA
|
|
STRING F_DESCMS 50 48
|
|
BEGIN
|
|
PROMPT 29 8 ""
|
|
USE COMMESSE KEY 2
|
|
INPUT DESCRIZ F_DESCMS
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
DISPLAY "Codice@20" CODCMS
|
|
COPY OUTPUT F_CODCMS
|
|
CHECKTYPE NORMAL
|
|
GROUP 2
|
|
END
|
|
|
|
//campo solo per CA
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 9 "Non selezionare alcuna commessa per stamparle tutte"
|
|
GROUP 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 79 4
|
|
BEGIN
|
|
PROMPT 1 11 "@bSelezione fasi"
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_DACODFASE 10
|
|
BEGIN
|
|
PROMPT 2 12 "Da "
|
|
FLAGS "UZ"
|
|
USE FASI
|
|
INPUT CODFASE F_DACODFASE
|
|
DISPLAY "Codice@20" CODFASE
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
OUTPUT F_DACODFASE CODFASE
|
|
OUTPUT F_DADESFASE DESCRIZ
|
|
CHECKTYPE SEARCH
|
|
FIELD #DACODFASE
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_DADESFASE 50
|
|
BEGIN
|
|
PROMPT 19 12 ""
|
|
USE FASI KEY 2
|
|
INPUT DESCRIZ F_DADESFASE
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
DISPLAY "Codice@20" CODFASE
|
|
COPY OUTPUT F_DACODFASE
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_ACODFASE 10
|
|
BEGIN
|
|
PROMPT 2 13 "A "
|
|
FLAGS "UZ"
|
|
COPY USE F_DACODFASE
|
|
INPUT CODFASE F_ACODFASE
|
|
COPY DISPLAY F_DACODFASE
|
|
OUTPUT F_ACODFASE CODFASE
|
|
OUTPUT F_ADESFASE DESCRIZ
|
|
CHECKTYPE SEARCH
|
|
FIELD #ACODFASE
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_ADESFASE 50
|
|
BEGIN
|
|
PROMPT 19 13 ""
|
|
COPY USE F_DADESFASE
|
|
INPUT DESCRIZ F_ADESFASE
|
|
COPY DISPLAY F_DADESFASE
|
|
COPY OUTPUT F_ACODFASE
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 79 6
|
|
BEGIN
|
|
PROMPT 1 15 "@bSelezione conti (solo conti di costo/ricavo)"
|
|
END
|
|
|
|
NUMBER F_GRUPPOINI 3
|
|
BEGIN
|
|
PROMPT 2 16 "Da Gruppo - Conto - Sottoconto "
|
|
END
|
|
|
|
NUMBER F_CONTOINI 3
|
|
BEGIN
|
|
PROMPT 39 16 ""
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TMCF
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI CONTO
|
|
OUTPUT F_DESCRINI DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Conto inesistente o mancante"
|
|
VALIDATE REQIF_FUNC 1 F_SOTTOCINI
|
|
END
|
|
|
|
NUMBER F_SOTTOCINI 6
|
|
BEGIN
|
|
PROMPT 46 16 ""
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI
|
|
INPUT SOTTOCONTO F_SOTTOCINI
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI CONTO
|
|
OUTPUT F_SOTTOCINI SOTTOCONTO
|
|
OUTPUT F_DESCRINI DESCR
|
|
CHECKTYPE SEARCH
|
|
//ADD RUN cg0 -0
|
|
END
|
|
|
|
STRING F_DESCRINI 50
|
|
BEGIN
|
|
PROMPT 2 17 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCRINI
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCINI
|
|
CHECKTYPE NORMAL
|
|
//ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER F_GRUPPOFIN 3
|
|
BEGIN
|
|
PROMPT 2 18 "A Gruppo - Conto - Sottoconto "
|
|
END
|
|
|
|
NUMBER F_CONTOFIN 3
|
|
BEGIN
|
|
PROMPT 39 18 ""
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
|
INPUT GRUPPO F_GRUPPOFIN
|
|
INPUT CONTO F_CONTOFIN
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TMCF
|
|
OUTPUT F_GRUPPOFIN GRUPPO
|
|
OUTPUT F_CONTOFIN CONTO
|
|
OUTPUT F_DESCRFIN DESCR
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 F_SOTTOCFIN
|
|
WARNING "Conto inesistente o mancante"
|
|
END
|
|
|
|
NUMBER F_SOTTOCFIN 6
|
|
BEGIN
|
|
PROMPT 46 18 ""
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPOFIN
|
|
INPUT CONTO F_CONTOFIN
|
|
INPUT SOTTOCONTO F_SOTTOCFIN
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOFIN GRUPPO
|
|
OUTPUT F_CONTOFIN CONTO
|
|
OUTPUT F_SOTTOCFIN SOTTOCONTO
|
|
OUTPUT F_DESCRFIN DESCR
|
|
CHECKTYPE SEARCH
|
|
WARNING "Sottoconto inesistente o mancante"
|
|
//ADD RUN cg0 -0
|
|
END
|
|
|
|
STRING F_DESCRFIN 50
|
|
BEGIN
|
|
PROMPT 2 19 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT DESCR F_DESCRFIN
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCFIN
|
|
//ADD RUN cg0 -0
|
|
END
|
|
|
|
BOOLEAN F_HIDESOTT
|
|
BEGIN
|
|
PROMPT 1 21 "Nascondi sottoconti"
|
|
END
|
|
|
|
STRING F_REPORT 50
|
|
BEGIN
|
|
PROMPT 1 22 "Report personalizzato "
|
|
RSELECT ""
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|