f565fc1dc8
Files correlati : Quelli delle patch 1.7 Ricompilazione Demo : [ ] Commento : Riportata la versione 1.7 A.G.A. e Partners alla patch 530 git-svn-id: svn://10.65.10.50/trunk@11331 c028cbd2-c16b-5b4b-a496-9718f37d4682
397 lines
7.3 KiB
Plaintext
Executable File
397 lines
7.3 KiB
Plaintext
Executable File
#include "batbprs.h"
|
|
|
|
TOOLBAR "" 0 20 60 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Tabella prestazioni" 11 60 14
|
|
|
|
GROUPBOX DLG_NULL 75 7
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_CODICE 8
|
|
BEGIN
|
|
PROMPT 2 2 "Cod. tabella "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE PRS
|
|
FLAGS "U"
|
|
INPUT CODTAB F_CODICE
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_CODICE CODTAB
|
|
OUTPUT F_DESCR S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 4 "Descrizione "
|
|
FIELD S0
|
|
KEY 2
|
|
USE PRS KEY 2
|
|
INPUT S0 F_DESCR
|
|
DISPLAY "Descrizione@50 " S0
|
|
DISPLAY "Codice " CODTAB
|
|
COPY OUTPUT F_CODICE
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
|
|
STRING F_CODASSFIS 4
|
|
BEGIN
|
|
PROMPT 2 7 "Codice IVA "
|
|
FIELD S3
|
|
FLAGS "U"
|
|
USE %IVA
|
|
INPUT CODTAB F_CODASSFIS
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODASSFIS CODTAB
|
|
OUTPUT F_CODASSFIS1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODASSFIS1 50
|
|
BEGIN
|
|
PROMPT 25 7 ""
|
|
USE %IVA KEY 2
|
|
INPUT S0 F_CODASSFIS1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT F_CODASSFIS CODTAB
|
|
OUTPUT F_CODASSFIS1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODDIV 4
|
|
BEGIN
|
|
PROMPT 2 8 "Codice valuta "
|
|
FIELD S4
|
|
FLAGS "U"
|
|
USE %VAL
|
|
INPUT CODTAB F_CODDIV
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODDIV CODTAB
|
|
OUTPUT F_CODDIV1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODDIV1 50
|
|
BEGIN
|
|
PROMPT 25 8 ""
|
|
USE %VAL KEY 2
|
|
INPUT S0 F_CODDIV1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT F_CODDIV CODTAB
|
|
OUTPUT F_CODDIV1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LISTBOX F_CAMPI 15
|
|
BEGIN
|
|
PROMPT 2 9 "Campo default "
|
|
FIELD S6
|
|
ITEM "Q|Qta prezzo "
|
|
MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@
|
|
ITEM "V|Valore "
|
|
MESSAGE SHOW,1@|"1",2@|DISABLE,2@|HIDE,3@|RESET,3@
|
|
ITEM "P|Percentuale "
|
|
MESSAGE SHOW,3@|HIDE,1@|RESET,1@
|
|
END
|
|
|
|
CURRENCY F_PREZZO 15
|
|
BEGIN
|
|
PROMPT 2 10 "Prezzo "
|
|
FIELD R0
|
|
FLAGS "U"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_QTA 13 5
|
|
BEGIN
|
|
PROMPT 35 10 "Quantita' "
|
|
FIELD R1
|
|
GROUP 1 2
|
|
END
|
|
|
|
STRING F_UM 2
|
|
BEGIN
|
|
PROMPT 63 10 "U.M. "
|
|
FIELD S7
|
|
FLAGS "U"
|
|
USE %UMS
|
|
INPUT CODTAB F_UM
|
|
DISPLAY "U.M." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_UM CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_PERCENTUALE 5 2
|
|
BEGIN
|
|
PROMPT 49 9 "Percentuale "
|
|
FIELD R2
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_NCAMPOCAL 10
|
|
BEGIN
|
|
PROMPT 2 10 "Formula Doc. "
|
|
FIELD S5
|
|
FLAG "U"
|
|
USE %FRD
|
|
INPUT CODTAB F_NCAMPOCAL
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_NCAMPOCAL CODTAB
|
|
OUTPUT F_NCAMPOCAL1 S0
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_NCAMPOCAL1 50
|
|
BEGIN
|
|
PROMPT 17 10 ""
|
|
USE %FRD KEY 2
|
|
INPUT S0 F_NCAMPOCAL1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT F_NCAMPOCAL CODTAB
|
|
OUTPUT F_NCAMPOCAL1 S0
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
END
|
|
|
|
NUMBER F_GRUPPOV 3
|
|
BEGIN
|
|
PROMPT 2 11 "Conto vendita "
|
|
FIELD I0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTOV 3
|
|
BEGIN
|
|
PROMPT 22 11 ""
|
|
FIELD I1
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
|
|
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_SOTTOV 6
|
|
BEGIN
|
|
PROMPT 30 11 ""
|
|
FIELD I2
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT GRUPPO F_GRUPPOV
|
|
INPUT CONTO F_CONTOV
|
|
INPUT SOTTOCONTO F_SOTTOV
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOV GRUPPO
|
|
OUTPUT F_CONTOV CONTO
|
|
OUTPUT F_SOTTOV SOTTOCONTO
|
|
OUTPUT F_DESCRCONTOV DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto errato"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING F_DESCRCONTOV 50
|
|
BEGIN
|
|
PROMPT 17 12 ""
|
|
FLAG "U"
|
|
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT DESCR F_DESCRCONTOV
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOV
|
|
CHECKTYPE NORMAL
|
|
WARNING "Il conto deve essere un ricavo"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
NUMBER F_GRUPPOA 3
|
|
BEGIN
|
|
PROMPT 2 13 "Conto acquisti "
|
|
FIELD I3
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTOA 3
|
|
BEGIN
|
|
PROMPT 22 13 ""
|
|
FIELD I4
|
|
COPY USE F_CONTOV
|
|
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_SOTTOA 6
|
|
BEGIN
|
|
PROMPT 30 13 ""
|
|
FIELD I5
|
|
COPY USE F_SOTTOV
|
|
INPUT GRUPPO F_GRUPPOA
|
|
INPUT CONTO F_CONTOA
|
|
INPUT SOTTOCONTO F_SOTTOA
|
|
COPY DISPLAY F_SOTTOV
|
|
OUTPUT F_GRUPPOA GRUPPO
|
|
OUTPUT F_CONTOA CONTO
|
|
OUTPUT F_SOTTOA SOTTOCONTO
|
|
OUTPUT F_DESCRCONTOA DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto errato"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING F_DESCRCONTOA 50
|
|
BEGIN
|
|
PROMPT 17 14 ""
|
|
FLAG "U"
|
|
COPY USE F_DESCRCONTOV
|
|
INPUT DESCR F_DESCRCONTOA
|
|
COPY DISPLAY F_DESCRCONTOV
|
|
COPY OUTPUT F_SOTTOA
|
|
CHECKTYPE NORMAL
|
|
WARNING "Il conto deve essere un ricavo"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING F_GRUPPOPCIA 3
|
|
BEGIN
|
|
PROMPT 2 15 "Conto industr. "
|
|
FLAGS "Z"
|
|
FIELD S1[1,3]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CONTOPCIA 3
|
|
BEGIN
|
|
PROMPT 22 15 ""
|
|
FLAGS "Z"
|
|
FIELD S1[4,6]
|
|
END
|
|
|
|
STRING F_SOTTOPCIA 6
|
|
BEGIN
|
|
PROMPT 30 15 ""
|
|
FLAGS "Z"
|
|
FIELD S1[7,12]
|
|
USE PCI SELECT CODTAB[7,12]!=""
|
|
INPUT CODTAB[1,3] F_GRUPPOPCIA
|
|
INPUT CODTAB[4,6] F_CONTOPCIA
|
|
INPUT CODTAB[7,12] F_SOTTOPCIA
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
|
DISPLAY "Conto" CODTAB[4,6]
|
|
DISPLAY "Sottoconto" CODTAB[7,12]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_GRUPPOPCIA CODTAB[1,3]
|
|
OUTPUT F_CONTOPCIA CODTAB[4,6]
|
|
OUTPUT F_SOTTOPCIA CODTAB[7,12]
|
|
OUTPUT F_DESCRCONTOPCIA S0
|
|
CHECKTYPE NORMAL
|
|
ADD RUN BA3 -0 PCI
|
|
END
|
|
|
|
STRING F_DESCRCONTOPCIA 50
|
|
BEGIN
|
|
PROMPT 2 16 "acquisti "
|
|
FLAG "U"
|
|
USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
|
|
INPUT S0 F_DESCRCONTOPCIA
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
|
DISPLAY "Conto" CODTAB[4,6]
|
|
DISPLAY "Sottoconto" CODTAB[7,12]
|
|
COPY OUTPUT F_SOTTOPCIA
|
|
CHECKTYPE NORMAL
|
|
ADD RUN BA0 -3 PCI
|
|
END
|
|
|
|
STRING F_GRUPPOPCIV 3
|
|
BEGIN
|
|
PROMPT 2 17 "Conto industr. "
|
|
FLAGS "Z"
|
|
FIELD S2[1,3]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CONTOPCIV 3
|
|
BEGIN
|
|
PROMPT 22 17 ""
|
|
FLAGS "Z"
|
|
FIELD S2[4,6]
|
|
END
|
|
|
|
STRING F_SOTTOPCIV 6
|
|
BEGIN
|
|
PROMPT 30 17 ""
|
|
FLAGS "Z"
|
|
FIELD S2[7,12]
|
|
USE PCI SELECT CODTAB[7,12]!=""
|
|
INPUT CODTAB[1,3] F_GRUPPOPCIV
|
|
INPUT CODTAB[4,6] F_CONTOPCIV
|
|
INPUT CODTAB[7,12] F_SOTTOPCIV
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
|
DISPLAY "Conto" CODTAB[4,6]
|
|
DISPLAY "Sottoconto" CODTAB[7,12]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_GRUPPOPCIV CODTAB[1,3]
|
|
OUTPUT F_CONTOPCIV CODTAB[4,6]
|
|
OUTPUT F_SOTTOPCIV CODTAB[7,12]
|
|
OUTPUT F_DESCRCONTOPCIV S0
|
|
CHECKTYPE NORMAL
|
|
ADD RUN BA3 -0 PCI
|
|
END
|
|
|
|
STRING F_DESCRCONTOPCIV 50
|
|
BEGIN
|
|
PROMPT 2 18 "vendita "
|
|
FLAG "U"
|
|
USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
|
|
INPUT S0 F_DESCRCONTOPCIV
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
|
DISPLAY "Conto" CODTAB[4,6]
|
|
DISPLAY "Sottoconto" CODTAB[7,12]
|
|
COPY OUTPUT F_SOTTOPCIV
|
|
CHECKTYPE NORMAL
|
|
ADD RUN BA0 -3 PCI
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|