07eb5f8967
Files correlati : Ricompilazione Demo : [ ] Commento : cambiato formato del ricarico (numerico) prima versione autoriempiente dello sheet multilistino (ma non autocalcolante) git-svn-id: svn://10.65.10.50/trunk@19382 c028cbd2-c16b-5b4b-a496-9718f37d4682
366 lines
6.9 KiB
Plaintext
Executable File
366 lines
6.9 KiB
Plaintext
Executable File
#include "vetbgmc.h"
|
||
|
||
TOOLBAR "Toolbar" 0 0 0 2
|
||
#include <relapbar.h>
|
||
ENDPAGE
|
||
|
||
PAGE "Gruppi merceologici " 0 2 0 0
|
||
|
||
GROUPBOX DLG_NULL 78 4
|
||
BEGIN
|
||
PROMPT 1 0 ""
|
||
FLAGS "R"
|
||
END
|
||
|
||
STRING F_CODGRU 3
|
||
BEGIN
|
||
PROMPT 2 1 "Gruppo "
|
||
FLAG "U"
|
||
FIELD CODTAB[1,3]
|
||
KEY 1
|
||
USE GMC SELECT CODTAB[4,5]==""
|
||
INPUT CODTAB F_CODGRU
|
||
DISPLAY "Gruppo" CODTAB[1,3]
|
||
DISPLAY "Descrizione gruppo@50" S0
|
||
OUTPUT F_CODGRU CODTAB[1,3]
|
||
OUTPUT H_CODGRU CODTAB[1,3]
|
||
OUTPUT H_DESGRU S0
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
STRING F_CODSGR 2
|
||
BEGIN
|
||
PROMPT 2 2 "Sottogruppo "
|
||
FIELD CODTAB[4,5]
|
||
FLAGS "U"
|
||
KEY 1
|
||
USE GMC
|
||
INPUT CODTAB[1,3] F_CODGRU
|
||
INPUT CODTAB[4,5] F_CODSGR
|
||
DISPLAY "Codice gruppo" CODTAB[1,3]
|
||
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
||
DISPLAY "Descrizione sottogruppo@50" S0
|
||
OUTPUT F_CODGRU CODTAB[1,3]
|
||
OUTPUT F_CODSGR CODTAB[4,5]
|
||
OUTPUT F_DESSGR S0
|
||
MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
|
||
MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
|
||
STR_EXPR (#H_CODGRU?="*")||(#F_CODSGR=="")
|
||
GROUP GR_SEARCH
|
||
WARNING "Gruppo merceologico non corretto"
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING H_CODGRU 3
|
||
BEGIN
|
||
PROMPT 2 1 "Gruppo "
|
||
FLAG "U"
|
||
FLAGS "H"
|
||
COPY USE F_CODGRU
|
||
INPUT CODTAB F_CODGRU
|
||
COPY DISPLAY F_CODGRU
|
||
OUTPUT F_DESGRU S0
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
STRING F_DESGRU 50
|
||
BEGIN
|
||
PROMPT 20 1 ""
|
||
FLAGS "D"
|
||
END
|
||
|
||
STRING F_DESSGR 50
|
||
BEGIN
|
||
PROMPT 20 2 ""
|
||
FIELD S0
|
||
USE GMC KEY 2
|
||
KEY 2
|
||
INPUT S0 F_DESSGR
|
||
DISPLAY "Descrizione sottogruppo@50" S0
|
||
DISPLAY "Codice gruppo" CODTAB[1,3]
|
||
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
||
COPY OUTPUT F_CODSGR
|
||
MESSAGE K_TAB,F_CODSGR
|
||
CHECKTYPE REQUIRED
|
||
WARNING "Manca la descrizione"
|
||
END
|
||
|
||
STRING H_DESGRU 50
|
||
BEGIN
|
||
PROMPT 20 1 ""
|
||
FIELD S0
|
||
KEY 2
|
||
USE GMC KEY 2
|
||
INPUT S0 H_DESGRU
|
||
DISPLAY "Descrizione gruppo@50" S0
|
||
DISPLAY "Codice gruppo" CODTAB[1,3]
|
||
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
||
COPY OUTPUT F_CODSGR
|
||
OUTPUT H_DESGRU S0
|
||
MESSAGE K_TAB,F_CODSGR
|
||
CHECKTYPE REQUIRED
|
||
WARNING "Manca la descrizione del gruppo"
|
||
END
|
||
|
||
STRING F_CODIVARIF 4
|
||
BEGIN
|
||
PROMPT 2 5 "Codice IVA "
|
||
FIELD S7
|
||
USE %IVA
|
||
INPUT CODTAB F_CODIVARIF
|
||
DISPLAY "Codice IVA" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT F_CODIVARIF CODTAB
|
||
OUTPUT F_CODIVARIF1 S0
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_CODIVARIF1 50
|
||
BEGIN
|
||
PROMPT 25 5 ""
|
||
USE %IVA KEY 2
|
||
INPUT S0 F_CODIVARIF1
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Codice " CODTAB
|
||
OUTPUT F_CODIVARIF CODTAB
|
||
OUTPUT F_CODIVARIF1 S0
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
NUMBER F_GRUPPOV 3
|
||
BEGIN
|
||
PROMPT 2 7 "Conto vendita "
|
||
FIELD I3
|
||
END
|
||
|
||
NUMBER F_CONTOV 3
|
||
BEGIN
|
||
PROMPT 22 7 ""
|
||
FIELD I4
|
||
USE LF_PCON SELECT INDBIL=="4"
|
||
INPUT GRUPPO F_GRUPPOV
|
||
INPUT CONTO F_CONTOV
|
||
DISPLAY "Gruppo" GRUPPO
|
||
DISPLAY "Conto" CONTO
|
||
DISPLAY "Descrizione@50" DESCR
|
||
OUTPUT F_GRUPPOV GRUPPO
|
||
OUTPUT F_CONTOV CONTO
|
||
CHECKTYPE NORMAL
|
||
ADD RUN CG0 -0
|
||
WARNING "Il conto deve essere un ricavo"
|
||
END
|
||
|
||
NUMBER F_SOTTOCV 6
|
||
BEGIN
|
||
PROMPT 30 7 ""
|
||
FIELD I5
|
||
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
|
||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||
INPUT GRUPPO F_GRUPPOV
|
||
INPUT CONTO F_CONTOV
|
||
INPUT SOTTOCONTO F_SOTTOCV
|
||
DISPLAY "Gruppo" GRUPPO
|
||
DISPLAY "Conto" CONTO
|
||
DISPLAY "Sottoconto" SOTTOCONTO
|
||
DISPLAY "Descrizione@50" DESCR
|
||
OUTPUT F_GRUPPOV GRUPPO
|
||
OUTPUT F_CONTOV CONTO
|
||
OUTPUT F_SOTTOCV SOTTOCONTO
|
||
OUTPUT F_DESCRV DESCR
|
||
CHECKTYPE NORMAL
|
||
WARNING "Sottoconto errato"
|
||
ADD RUN CG0 -0
|
||
END
|
||
|
||
STRING F_DESCRV 50
|
||
BEGIN
|
||
PROMPT 17 8 ""
|
||
FLAG "U"
|
||
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
|
||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||
INPUT DESCR F_DESCRV
|
||
DISPLAY "Descrizione@50" DESCR
|
||
DISPLAY "Gruppo" GRUPPO
|
||
DISPLAY "Conto" CONTO
|
||
DISPLAY "Sottoconto" SOTTOCONTO
|
||
OUTPUT F_DESCRV DESCR
|
||
OUTPUT F_SOTTOCV SOTTOCONTO
|
||
OUTPUT F_GRUPPOV GRUPPO
|
||
OUTPUT F_CONTOV CONTO
|
||
CHECKTYPE NORMAL
|
||
WARNING "Il conto deve essere un ricavo"
|
||
ADD RUN CG0 -0
|
||
END
|
||
|
||
NUMBER F_GRUPPOA 3
|
||
BEGIN
|
||
PROMPT 2 10 "Conto acquisti "
|
||
FIELD I0
|
||
END
|
||
|
||
NUMBER F_CONTOA 3
|
||
BEGIN
|
||
PROMPT 22 10 ""
|
||
FIELD I1
|
||
USE LF_PCON SELECT INDBIL=="3"
|
||
INPUT GRUPPO F_GRUPPOA
|
||
INPUT CONTO F_CONTOA
|
||
DISPLAY "Gruppo" GRUPPO
|
||
DISPLAY "Conto" CONTO
|
||
DISPLAY "Descrizione@50" DESCR
|
||
OUTPUT F_GRUPPOA GRUPPO
|
||
OUTPUT F_CONTOA CONTO
|
||
CHECKTYPE NORMAL
|
||
WARNING "Il conto deve essere un costo"
|
||
ADD RUN CG0 -0
|
||
END
|
||
|
||
NUMBER F_SOTTOCA 6
|
||
BEGIN
|
||
PROMPT 30 10 ""
|
||
FIELD I2
|
||
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
|
||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||
INPUT GRUPPO F_GRUPPOA
|
||
INPUT CONTO F_CONTOA
|
||
INPUT SOTTOCONTO F_SOTTOCA
|
||
DISPLAY "Gruppo" GRUPPO
|
||
DISPLAY "Conto" CONTO
|
||
DISPLAY "Sottoconto" SOTTOCONTO
|
||
DISPLAY "Descrizione@50" DESCR
|
||
OUTPUT F_GRUPPOA GRUPPO
|
||
OUTPUT F_CONTOA CONTO
|
||
OUTPUT F_SOTTOCA SOTTOCONTO
|
||
OUTPUT F_DESCRA DESCR
|
||
CHECKTYPE NORMAL
|
||
WARNING "Sottoconto errato"
|
||
ADD RUN CG0 -0
|
||
END
|
||
|
||
STRING F_DESCRA 50
|
||
BEGIN
|
||
PROMPT 17 11 ""
|
||
FLAG "U"
|
||
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
|
||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||
INPUT DESCR F_DESCRA
|
||
DISPLAY "Descrizione@50" DESCR
|
||
DISPLAY "Gruppo" GRUPPO
|
||
DISPLAY "Conto" CONTO
|
||
DISPLAY "Sottoconto" SOTTOCONTO
|
||
OUTPUT F_DESCRA DESCR
|
||
OUTPUT F_SOTTOCA SOTTOCONTO
|
||
OUTPUT F_GRUPPOA GRUPPO
|
||
OUTPUT F_CONTOA CONTO
|
||
CHECKTYPE NORMAL
|
||
WARNING "Il conto deve essere un ricavo"
|
||
ADD RUN CG0 -0
|
||
END
|
||
|
||
STRING F_SCONTO 25
|
||
BEGIN
|
||
PROMPT 2 13 "Sconto "
|
||
FIELD S4
|
||
END
|
||
|
||
STRING F_RICARICO 25
|
||
BEGIN
|
||
PROMPT 38 13 "Ricarico "
|
||
FIELD S5
|
||
END
|
||
|
||
TEXT -1
|
||
BEGIN
|
||
PROMPT 1 15 "@bRicarichi per listino"
|
||
END
|
||
|
||
SPREADSHEET F_RIGHE_LIS 78 7
|
||
BEGIN
|
||
PROMPT 1 16 ""
|
||
ITEM "Cat."
|
||
ITEM "Listino"
|
||
ITEM "Ricarico"
|
||
ITEM "Descrizione@50"
|
||
FLAGS "|"
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
ENDMASK
|
||
|
||
//maschera di riga dello sheet
|
||
PAGE "Riga ricarico listino" -1 -1 78 8
|
||
|
||
STRING S_CATVEN 2
|
||
BEGIN
|
||
PROMPT 1 1 "Cat. vendita "
|
||
USE CVE
|
||
INPUT CODTAB S_CATVEN
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT S_CATVEN CODTAB
|
||
OUTPUT S_DESCAT S0
|
||
CHECKTYPE REQUIRED
|
||
WARNING "La categoria di vendita <20> assente!"
|
||
FLAGS "UD"
|
||
END
|
||
|
||
STRING S_DESCAT 50
|
||
BEGIN
|
||
PROMPT 23 1 ""
|
||
FLAGS "D"
|
||
END
|
||
|
||
STRING S_CODLIS 3
|
||
BEGIN
|
||
PROMPT 1 2 "Codice listino "
|
||
USE LF_CONDV
|
||
INPUT TIPO "L"
|
||
INPUT CATVEN S_CATVEN SELECT
|
||
INPUT COD S_CODLIS
|
||
DISPLAY "Cat." CATVEN
|
||
DISPLAY "Codice" COD
|
||
DISPLAY "Descrizione@50" DESCR
|
||
OUTPUT S_CODLIS COD
|
||
OUTPUT S_DESLIS DESCR
|
||
CHECKTYPE REQUIRED
|
||
WARNING "Il codice listino <20> assente!"
|
||
FLAGS "UZ"
|
||
END
|
||
|
||
STRING S_DESLIS 50
|
||
BEGIN
|
||
PROMPT 23 2 ""
|
||
FLAGS "D"
|
||
END
|
||
|
||
NUMBER S_RICARICO 4
|
||
BEGIN
|
||
PROMPT 1 3 "Ricarico "
|
||
CHECKTYPE REQUIRED
|
||
WARNING "Il ricarico <20> nullo!"
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
TOOLBAR "topbar" 0 0 0 2
|
||
|
||
BUTTON DLG_OK 10 2
|
||
BEGIN
|
||
PROMPT -13 -1 ""
|
||
END
|
||
|
||
BUTTON DLG_DELREC 10 2
|
||
BEGIN
|
||
PROMPT -23 -1 ""
|
||
END
|
||
|
||
BUTTON DLG_CANCEL 10 2
|
||
BEGIN
|
||
PROMPT -33 -1 ""
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
ENDMASK
|