bb86ce1e74
Files correlati : Ricompilazione Demo : [ ] Commento : Aggiunta lista movimenti per importo git-svn-id: svn://10.65.10.50/branches/R_10_00@22478 c028cbd2-c16b-5b4b-a496-9718f37d4682
177 lines
3.1 KiB
Plaintext
177 lines
3.1 KiB
Plaintext
#include "cg7100.h"
|
|
|
|
PAGE "Lista movimenti per importo" -1 -1 78 14
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FLAGS "FRD"
|
|
USE LF_NDITTE KEY 1
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 15 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATASTAMPA
|
|
BEGIN
|
|
PROMPT 1 2 "Data stampa "
|
|
HELP "Data in cui viene effettuata la stampa"
|
|
FLAGS "A"
|
|
FIELD #DATASTAMPA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 3 "@bData registrazione"
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 2 4 "Dal "
|
|
HELP "Data da cui iniziare la ricerca"
|
|
FIELD #DATAINI
|
|
END
|
|
|
|
DATE F_DATAFIN
|
|
BEGIN
|
|
PROMPT 28 4 "Al "
|
|
HELP "Data fino a cui eseguire la ricerca"
|
|
FIELD #DATAFIN
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 1 6 "@bConto/Cliente/Fornitore"
|
|
END
|
|
|
|
LIST F_I_TIPOCF 1 11
|
|
BEGIN
|
|
PROMPT 2 7 "Tipo "
|
|
FLAGS "PG"
|
|
ITEM "C|Cliente"
|
|
MESSAGE SHOW,1@|HIDE,2@
|
|
ITEM "F|Fornitore"
|
|
MESSAGE SHOW,1@|HIDE,2@
|
|
ITEM "|Conto"
|
|
MESSAGE SHOW,2@|HIDE,1@
|
|
END
|
|
|
|
NUMBER F_R_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 26 7 ""
|
|
USE LF_PCON SELECT TMCF=#F_I_TIPOCF
|
|
INPUT GRUPPO F_R_GRUPPO
|
|
INPUT CONTO F_R_CONTO
|
|
INPUT SOTTOCONTO F_R_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_R_GRUPPO GRUPPO
|
|
OUTPUT F_R_CONTO CONTO
|
|
OUTPUT F_R_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_R_DESCR DESCR
|
|
CHECKTYPE NORMAL
|
|
FIELD #GRUPPO
|
|
END
|
|
|
|
NUMBER F_R_CONTO 3
|
|
BEGIN
|
|
PROMPT 33 7 ""
|
|
COPY ALL F_R_GRUPPO
|
|
FIELD #CONTO
|
|
END
|
|
|
|
NUMBER F_R_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 40 7 ""
|
|
COPY ALL F_R_GRUPPO
|
|
FIELD #SOTTOCONTO
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_R_DESCR 50
|
|
BEGIN
|
|
PROMPT 20 8 ""
|
|
USE LF_PCON KEY 2 SELECT TMCF=#F_I_TIPOCF
|
|
INPUT DESCR F_R_DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
COPY OUTPUT F_R_SOTTOCONTO
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER F_I_CODCF 6
|
|
BEGIN
|
|
PROMPT 40 7 ""
|
|
FLAGS "G"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_I_TIPOCF SELECT
|
|
INPUT CODCF F_I_CODCF
|
|
DISPLAY "Codice@6R" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT F_I_CODCF CODCF
|
|
OUTPUT F_I_RAGSOC RAGSOC
|
|
HELP "Codice relativo al cliente o fornitore"
|
|
CHECKTYPE NORMAL
|
|
FIELD #SOTTOCONTO
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_I_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 20 8 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_I_TIPOCF SELECT
|
|
INPUT RAGSOC F_I_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Codice@6R" CODCF
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT F_I_CODCF
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 10 "@bImporti"
|
|
END
|
|
|
|
CURRENCY F_I_DAIMPORTO
|
|
BEGIN
|
|
PROMPT 2 11 "Da "
|
|
FIELD #DAIMPORTO
|
|
END
|
|
|
|
CURRENCY F_I_AIMPORTO
|
|
BEGIN
|
|
PROMPT 26 11 "A "
|
|
FIELD #AIMPORTO
|
|
NUM_EXPR #THIS_FIELD>=#F_I_DAIMPORTO
|
|
WARNING "Il secondo importo non puo' essere inferiore al primo"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <printbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |