142 lines
2.4 KiB
Plaintext
142 lines
2.4 KiB
Plaintext
#include "../sc/sc0200b.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <stdbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Partite" 0 0 0 0
|
|
|
|
LIST F_TIPO 1 10
|
|
BEGIN
|
|
PROMPT 1 0 "Tipo conto "
|
|
ITEM "C|Cliente"
|
|
MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
|
|
ITEM "F|Fornitore"
|
|
MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
|
|
ITEM "|Conto"
|
|
MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
|
|
FLAGS "DG"
|
|
END
|
|
|
|
NUMBER F_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 27 0 "Gruppo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CONTO 3
|
|
BEGIN
|
|
PROMPT 41 0 "Conto "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 54 0 "Sottoconto "
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPO
|
|
INPUT CONTO F_CONTO
|
|
INPUT SOTTOCONTO F_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
OUTPUT F_CONTO CONTO
|
|
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_DESCR DESCR
|
|
GROUP 1
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 54 0 "Cliente "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CLIENTE
|
|
DISPLAY "Cliente" CODCF
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
OUTPUT F_CLIENTE CODCF
|
|
OUTPUT F_DESCRCLI RAGSOC
|
|
ADD RUN cg0 -1 C
|
|
GROUP 2
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_FORNITORE 6
|
|
BEGIN
|
|
PROMPT 54 0 "Fornitore "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_FORNITORE
|
|
DISPLAY "Fornitore" CODCF
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
OUTPUT F_FORNITORE CODCF
|
|
OUTPUT F_DESCRFOR RAGSOC
|
|
ADD RUN cg0 -1 F
|
|
GROUP 3
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESCR 50 58
|
|
BEGIN
|
|
PROMPT 1 1 "Descrizione "
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESCRCLI 50 58
|
|
BEGIN
|
|
PROMPT 1 1 "Descrizione "
|
|
GROUP 2
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESCRFOR 50 58
|
|
BEGIN
|
|
PROMPT 1 1 "Descrizione "
|
|
GROUP 3
|
|
FLAGS "D"
|
|
END
|
|
|
|
RADIOBUTTON F_TUTTE 1 38
|
|
BEGIN
|
|
PROMPT 1 2 "Mostra partite"
|
|
ITEM "1|Aperte"
|
|
ITEM "2|Chiuse"
|
|
ITEM "3|Tutte"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
STRING F_CODVAL 4
|
|
BEGIN
|
|
PROMPT 60 3 "Valuta "
|
|
USE %VAL
|
|
INPUT CODTAB F_CODVAL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODVAL CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
TLIST F_PARTITE -3 -1
|
|
BEGIN
|
|
PROMPT 0 5 ""
|
|
DISPLAY "Partita@35" DESCR
|
|
DISPLAY "Docum.@8" NUMDOC
|
|
DISPLAY "Data@10R" DATADOC
|
|
DISPLAY "Dare@15R" DARE
|
|
DISPLAY "Avere@15R" AVERE
|
|
DISPLAY "Abbuoni@15R" ABBUONI
|
|
DISPLAY "Diff. Cambio@15R" DIFFCAM
|
|
DISPLAY "Ritenute fiscali@15R" RITENUTE
|
|
DISPLAY "Ritenute sociali@15R" RITSOC
|
|
DISPLAY "P.N.@7R" NREG
|
|
END
|
|
|
|
ENDMASK
|