ab2f478921
Files correlati : ve0.exe ve6.exe Ricompilazione Demo : [ ] Commento : Trsformate le tabelle MRE e CMT in tabelle di modulo (ve) git-svn-id: svn://10.65.10.50/trunk@18451 c028cbd2-c16b-5b4b-a496-9718f37d4682
161 lines
3.1 KiB
Plaintext
Executable File
161 lines
3.1 KiB
Plaintext
Executable File
#include "vetbmre.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
#include <relapbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Corrispondenza per fatture da emettere/ricevere" 0 0 0 0
|
|
|
|
GROUPBOX DLG_NULL 75 7
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 2 3 "Conto origine "
|
|
FIELD CODTAB[1,3]
|
|
USE &MRE
|
|
JOIN LF_PCON INTO GRUPPO==CODTAB[1,3] CONTO==CODTAB[4,6] SOTTOCONTO==CODTAB[7,12]
|
|
INPUT CODTAB[1,3] F_GRUPPO
|
|
INPUT CODTAB[4,6] F_CONTO
|
|
INPUT CODTAB[7,12] F_SOTTO
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
|
DISPLAY "Conto" CODTAB[4,6]
|
|
DISPLAY "Sottoconto" CODTAB[7,12]
|
|
DISPLAY "Descrizione@50" LF_PCON->DESCR
|
|
OUTPUT F_GRUPPO CODTAB[1,3]
|
|
OUTPUT F_CONTO CODTAB[4,6]
|
|
OUTPUT F_SOTTO CODTAB[7,12]
|
|
OUTPUT F_DESCRCONTO LF_PCON->DESCR
|
|
FLAGS "R_"
|
|
CHECKTYPE REQUIRED
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_CONTO 3
|
|
BEGIN
|
|
PROMPT 25 3 ""
|
|
FIELD CODTAB[4,6]
|
|
USE LF_PCON
|
|
INPUT GRUPPO F_GRUPPO
|
|
INPUT CONTO F_CONTO
|
|
INPUT SOTTOCONTO F_SOTTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
OUTPUT F_CONTO CONTO
|
|
OUTPUT F_SOTTO SOTTOCONTO
|
|
OUTPUT F_DESCRCONTO DESCR
|
|
KEY 1
|
|
CHECKTYPE SEARCH
|
|
FLAGS "R_"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING F_SOTTO 6
|
|
BEGIN
|
|
PROMPT 35 3 ""
|
|
FIELD CODTAB[7,12]
|
|
COPY ALL F_CONTO
|
|
KEY 1
|
|
CHECKTYPE SEARCH
|
|
FLAGS "R_"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING F_DESCRCONTO 50
|
|
BEGIN
|
|
PROMPT 17 5 ""
|
|
FLAG "U"
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCRCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_CONTO
|
|
WARNING "Conto assente"
|
|
KEY 1
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
LIST F_TIPOC 1 13
|
|
BEGIN
|
|
PROMPT 1 9 "Tipo conto "
|
|
FIELD S6
|
|
GROUP 1 3
|
|
HELP "Tipo dei sottoconti (Normale o clienti/fornitori)"
|
|
ITEM " |Normali" MESSAGE ENABLE,F_SOTTOC
|
|
ITEM "C|Clienti" MESSAGE CLEAR,F_SOTTOC
|
|
ITEM "F|Fornitori" MESSAGE CLEAR,F_SOTTOC
|
|
END
|
|
|
|
NUMBER F_GRUPPOC 3
|
|
BEGIN
|
|
PROMPT 2 11 "Conto destinaz."
|
|
FIELD I0
|
|
USE LF_PCON SELECT (CONTO=="") && (SOTTOCONTO=="")
|
|
INPUT GRUPPO F_GRUPPOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOC GRUPPO
|
|
CHECKTYPE SEARCH
|
|
WARNING "Gruppo assente"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
NUMBER F_CONTOC 3
|
|
BEGIN
|
|
PROMPT 25 11 ""
|
|
FIELD I1
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
|
|
COPY INPUT F_GRUPPOC
|
|
INPUT CONTO F_CONTOC
|
|
COPY DISPLAY F_CONTO
|
|
COPY OUTPUT F_GRUPPOC
|
|
OUTPUT F_CONTOC CONTO
|
|
OUTPUT F_TIPOC TMCF
|
|
OUTPUT F_DESCRCONTOC DESCR
|
|
CHECKTYPE SEARCH
|
|
WARNING "Conto assente"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
NUMBER F_SOTTOC 6
|
|
BEGIN
|
|
PROMPT 35 11 ""
|
|
FIELD I2
|
|
USE LF_PCON
|
|
COPY INPUT F_CONTOC
|
|
INPUT SOTTOCONTO F_SOTTOC
|
|
COPY DISPLAY F_CONTOC
|
|
COPY OUTPUT F_GRUPPOC
|
|
OUTPUT F_CONTOC CONTO
|
|
OUTPUT F_SOTTOC SOTTOCONTO
|
|
OUTPUT F_DESCRCONTOC DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto assente"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING F_DESCRCONTOC 50
|
|
BEGIN
|
|
PROMPT 17 13 ""
|
|
FLAG "U"
|
|
USE LF_PCON KEY 2
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT DESCR F_DESCRCONTOC
|
|
COPY DISPLAY F_DESCRCONTO
|
|
COPY OUTPUT F_SOTTOC
|
|
WARNING "Conto assente"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
ENDMASK
|