cbb608d183
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 1.5 fino alla patch 811 git-svn-id: svn://10.65.10.50/trunk@8985 c028cbd2-c16b-5b4b-a496-9718f37d4682
173 lines
3.1 KiB
Plaintext
Executable File
173 lines
3.1 KiB
Plaintext
Executable File
#include "cg6804a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Conferma"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 10
|
|
|
|
LIST F_TIPOCF 1 12
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo conto "
|
|
ITEM " |Conto"
|
|
MESSAGE SHOW,1@|RESET,1@|HIDE,2@|HIDE,3@
|
|
ITEM "C|Cliente"
|
|
MESSAGE HIDE,1@|SHOW,2@|RESET,2@|HIDE,3@
|
|
ITEM "F|Fornitore"
|
|
MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|RESET,3@
|
|
END
|
|
|
|
NUMBER F_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 28 1 "Gruppo "
|
|
USE LF_PCON SELECT CONTO==""
|
|
INPUT GRUPPO F_GRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER F_CONTO 3
|
|
BEGIN
|
|
PROMPT 41 1 "Conto "
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
|
INPUT GRUPPO F_GRUPPO
|
|
INPUT CONTO F_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TMCF
|
|
OUTPUT F_TIPOCF TMCF
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
OUTPUT F_CONTO CONTO
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 54 1 "Sottoconto "
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
COPY INPUT 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
|
|
ADD RUN cg0 -0
|
|
GROUP 1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 54 1 "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 NORMAL
|
|
MESSAGE COPY,F_SOTTOCONTO
|
|
END
|
|
|
|
NUMBER F_FORNITORE 6
|
|
BEGIN
|
|
PROMPT 54 1 "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 NORMAL
|
|
MESSAGE COPY,F_SOTTOCONTO
|
|
END
|
|
|
|
STRING F_DESCR 50 58
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCR
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCONTO
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
STRING F_DESCRCLI 50 58
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_DESCRCLI
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
COPY OUTPUT F_CLIENTE
|
|
CHECKTYPE NORMAL
|
|
GROUP 2
|
|
ADD RUN cg0 -1
|
|
END
|
|
|
|
STRING F_DESCRFOR 50 58
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_DESCRFOR
|
|
COPY DISPLAY F_DESCRCLI
|
|
COPY OUTPUT F_FORNITORE
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
ADD RUN cg0 -1
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 4 "Anno riferimento partita "
|
|
END
|
|
|
|
STRING F_NUMPART 7
|
|
BEGIN
|
|
PROMPT 1 5 "Numero riferimento partita "
|
|
FLAGS "_U"
|
|
END
|
|
|
|
NUMBER F_NRIGA 4
|
|
BEGIN
|
|
PROMPT 1 6 "Numero riga riferimento partita "
|
|
END
|
|
|
|
ENDPAGE
|
|
|