Modifiche alle tabelle
git-svn-id: svn://10.65.10.50/trunk@1721 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
f545b1a3d8
commit
1bcfd5b941
345
ve/batbacr.uml
345
ve/batbacr.uml
@ -1,172 +1,173 @@
|
||||
#include "BATBACR.H"
|
||||
#define LF_ANAMAG 47 //ANAGRAFICA DI MAGAZZINO
|
||||
#define LF_PCON 19 //PIANO DEI CONTI
|
||||
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Archivio costi e ricavi " -1 -1 78 8
|
||||
|
||||
|
||||
LISTBOX F_TIPO 8
|
||||
BEGIN
|
||||
PROMPT 3 3 "Tipo lavoro "
|
||||
FIELD %ACR->S0
|
||||
ITEM "1|Ricavi "
|
||||
MESSAGE SHOW, F_CODGRUPPOR
|
||||
MESSAGE HIDE, F_CODGRUPPOC
|
||||
MESSAGE SHOW, F_CODCONTOR
|
||||
MESSAGE HIDE, F_CODCONTOC
|
||||
MESSAGE SHOW, F_CODSTCONTOR
|
||||
MESSAGE HIDE, F_CODSTCONTOC
|
||||
ITEM "2|Costi "
|
||||
MESSAGE SHOW, F_CODGRUPPOC
|
||||
MESSAGE HIDE, F_CODGRUPPOR
|
||||
MESSAGE SHOW, F_CODCONTOC
|
||||
MESSAGE HIDE, F_CODCONTOR
|
||||
MESSAGE SHOW, F_CODSTCONTOC
|
||||
MESSAGE HIDE, F_CODSTCONTOR
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_CODCATCON 3
|
||||
BEGIN
|
||||
PROMPT 3 5 "Codice categoria contabile "
|
||||
FIELD %ACR->CODTAB
|
||||
KEY 1
|
||||
FLAG "U"
|
||||
USE %CCO // CATEGORIE CONTABILI C/F
|
||||
|
||||
INPUT CODTAB F_CODCATCON
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_CODCATCON CODTAB
|
||||
OUTPUT F_CODCATCON S0
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
|
||||
STRING F_CODART 20
|
||||
BEGIN
|
||||
PROMPT 3 7 "Codice articolo "
|
||||
FIELD %ACR->S1
|
||||
USE LF_ANAMAG KEY 1
|
||||
FLAG "R"
|
||||
INPUT CODART F_CODART
|
||||
|
||||
DISPLAY "Codice articolo" CODART
|
||||
DISPLAY "Descrizione@30" DESCR
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_DESART DESCR
|
||||
|
||||
END
|
||||
|
||||
STRING F_DESART 30
|
||||
BEGIN
|
||||
PROMPT 19 9 ""
|
||||
FIELD %ACR->S2
|
||||
FLAG "U"
|
||||
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR F_DESART
|
||||
DISPLAY "Codice articolo" CODART
|
||||
DISPLAY "Descrizione@30" DESCR
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_DESART DESCR
|
||||
|
||||
END
|
||||
|
||||
NUMBER F_CODGRUPPOR 3
|
||||
BEGIN
|
||||
PROMPT 3 11 "Codice conto ricavo "
|
||||
FIELD %ACR->S3
|
||||
END
|
||||
|
||||
NUMBER F_CODCONTOR 3
|
||||
BEGIN
|
||||
PROMPT 30 11 ""
|
||||
FIELD %ACR->S4
|
||||
USE LF_PCON SELECT INDBIL="4"
|
||||
INPUT GRUPPO F_CODGRUPPOR
|
||||
INPUT CONTO F_CODCONTOR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOR GRUPPO
|
||||
OUTPUT F_CODCONTOR CONTO
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CODSTCONTOR 6
|
||||
BEGIN
|
||||
PROMPT 39 11 ""
|
||||
FIELD %ACR->S5
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO F_CODGRUPPOR
|
||||
INPUT CONTO F_CODCONTOR
|
||||
INPUT SOTTOCONTO F_CODSTCONTOR
|
||||
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOR GRUPPO
|
||||
OUTPUT F_CODCONTOR CONTO
|
||||
OUTPUT F_CODSTCONTOR SOTTOCONTO
|
||||
OUTPUT F_DESSTCONTO DESCR
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CODGRUPPOC 3
|
||||
BEGIN
|
||||
PROMPT 3 11 "Codice conto costo "
|
||||
FIELD %ACR->S3
|
||||
END
|
||||
|
||||
NUMBER F_CODCONTOC 3
|
||||
BEGIN
|
||||
PROMPT 30 11 ""
|
||||
FIELD %ACR->S4
|
||||
USE LF_PCON SELECT INDBIL="3"
|
||||
INPUT GRUPPO F_CODGRUPPOC
|
||||
INPUT CONTO F_CODCONTOC
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOC GRUPPO
|
||||
OUTPUT F_CODCONTOC CONTO
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CODSTCONTOC 6
|
||||
BEGIN
|
||||
PROMPT 39 11 ""
|
||||
FIELD %ACR->S5
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO F_CODGRUPPOC
|
||||
INPUT CONTO F_CODCONTOC
|
||||
INPUT SOTTOCONTO F_CODSTCONTOC
|
||||
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOC GRUPPO
|
||||
OUTPUT F_CODCONTOC CONTO
|
||||
OUTPUT F_CODSTCONTOC SOTTOCONTO
|
||||
OUTPUT F_DESSTCONTO DESCR
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
STRING F_DESSTCONTO 50
|
||||
BEGIN
|
||||
PROMPT 24 13 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
ENDMASK
|
||||
#include "BATBACR.H"
|
||||
#define LF_ANAMAG 47 //ANAGRAFICA DI MAGAZZINO
|
||||
#define LF_PCON 19 //PIANO DEI CONTI
|
||||
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Archivio costi e ricavi " -1 -1 78 8
|
||||
|
||||
|
||||
LISTBOX F_TIPO 8
|
||||
BEGIN
|
||||
PROMPT 3 3 "Tipo lavoro "
|
||||
FIELD %ACR->S0
|
||||
ITEM "1|Ricavi "
|
||||
MESSAGE SHOW, F_CODGRUPPOR
|
||||
MESSAGE HIDE, F_CODGRUPPOC
|
||||
MESSAGE SHOW, F_CODCONTOR
|
||||
MESSAGE HIDE, F_CODCONTOC
|
||||
MESSAGE SHOW, F_CODSTCONTOR
|
||||
MESSAGE HIDE, F_CODSTCONTOC
|
||||
ITEM "2|Costi "
|
||||
MESSAGE SHOW, F_CODGRUPPOC
|
||||
MESSAGE HIDE, F_CODGRUPPOR
|
||||
MESSAGE SHOW, F_CODCONTOC
|
||||
MESSAGE HIDE, F_CODCONTOR
|
||||
MESSAGE SHOW, F_CODSTCONTOC
|
||||
MESSAGE HIDE, F_CODSTCONTOR
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_CODCATCON 3
|
||||
BEGIN
|
||||
PROMPT 3 5 "Codice categoria contabile "
|
||||
FIELD %ACR->CODTAB[1,3]
|
||||
KEY 1
|
||||
FLAG "U"
|
||||
USE %CCO // CATEGORIE CONTABILI C/F
|
||||
|
||||
INPUT CODTAB F_CODCATCON
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_CODCATCON CODTAB
|
||||
OUTPUT F_CODCATCON S0
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
|
||||
STRING F_CODART 20
|
||||
BEGIN
|
||||
PROMPT 3 7 "Codice articolo "
|
||||
FIELD %ACR->CODTAB[4,24]
|
||||
KEY 1
|
||||
USE LF_ANAMAG KEY 1
|
||||
FLAG "R"
|
||||
INPUT CODART F_CODART
|
||||
|
||||
DISPLAY "Codice articolo" CODART
|
||||
DISPLAY "Descrizione@30" DESCR
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_DESART DESCR
|
||||
|
||||
END
|
||||
|
||||
STRING F_DESART 30
|
||||
BEGIN
|
||||
PROMPT 19 9 ""
|
||||
FIELD %ACR->S2
|
||||
FLAG "U"
|
||||
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR F_DESART
|
||||
DISPLAY "Codice articolo" CODART
|
||||
DISPLAY "Descrizione@30" DESCR
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_DESART DESCR
|
||||
|
||||
END
|
||||
|
||||
NUMBER F_CODGRUPPOR 3
|
||||
BEGIN
|
||||
PROMPT 3 11 "Codice conto ricavo "
|
||||
FIELD %ACR->S3
|
||||
END
|
||||
|
||||
NUMBER F_CODCONTOR 3
|
||||
BEGIN
|
||||
PROMPT 30 11 ""
|
||||
FIELD %ACR->S4
|
||||
USE LF_PCON SELECT INDBIL="4"
|
||||
INPUT GRUPPO F_CODGRUPPOR
|
||||
INPUT CONTO F_CODCONTOR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOR GRUPPO
|
||||
OUTPUT F_CODCONTOR CONTO
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CODSTCONTOR 6
|
||||
BEGIN
|
||||
PROMPT 39 11 ""
|
||||
FIELD %ACR->S5
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO F_CODGRUPPOR
|
||||
INPUT CONTO F_CODCONTOR
|
||||
INPUT SOTTOCONTO F_CODSTCONTOR
|
||||
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOR GRUPPO
|
||||
OUTPUT F_CODCONTOR CONTO
|
||||
OUTPUT F_CODSTCONTOR SOTTOCONTO
|
||||
OUTPUT F_DESSTCONTO DESCR
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CODGRUPPOC 3
|
||||
BEGIN
|
||||
PROMPT 3 11 "Codice conto costo "
|
||||
FIELD %ACR->S3
|
||||
END
|
||||
|
||||
NUMBER F_CODCONTOC 3
|
||||
BEGIN
|
||||
PROMPT 30 11 ""
|
||||
FIELD %ACR->S4
|
||||
USE LF_PCON SELECT INDBIL="3"
|
||||
INPUT GRUPPO F_CODGRUPPOC
|
||||
INPUT CONTO F_CODCONTOC
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOC GRUPPO
|
||||
OUTPUT F_CODCONTOC CONTO
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CODSTCONTOC 6
|
||||
BEGIN
|
||||
PROMPT 39 11 ""
|
||||
FIELD %ACR->S5
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO F_CODGRUPPOC
|
||||
INPUT CONTO F_CODCONTOC
|
||||
INPUT SOTTOCONTO F_CODSTCONTOC
|
||||
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODGRUPPOC GRUPPO
|
||||
OUTPUT F_CODCONTOC CONTO
|
||||
OUTPUT F_CODSTCONTOC SOTTOCONTO
|
||||
OUTPUT F_DESSTCONTO DESCR
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
STRING F_DESSTCONTO 50
|
||||
BEGIN
|
||||
PROMPT 24 13 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
ENDMASK
|
||||
|
104
ve/batbcaa.uml
104
ve/batbcaa.uml
@ -7,96 +7,92 @@ ENDPAGE
|
||||
|
||||
PAGE "Tabella categoria acquisti articoli " 11 60 14
|
||||
|
||||
STRING F_CODICE 3
|
||||
STRING F_CODICE 3
|
||||
BEGIN
|
||||
PROMPT 3 3 "Codice tabella "
|
||||
FIELD CAA->CODTAB
|
||||
FIELD CAA->CODTAB
|
||||
KEY 1
|
||||
USE CAA
|
||||
|
||||
USE CAA
|
||||
|
||||
FLAG "U"
|
||||
INPUT CODTAB F_CODICE
|
||||
|
||||
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40 " S0
|
||||
|
||||
OUTPUT F_CODICE CODTAB
|
||||
DISPLAY "Descrizione@30 " S0
|
||||
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
STRING F_DESCR 40
|
||||
|
||||
STRING F_DESCR 30
|
||||
BEGIN
|
||||
PROMPT 3 5 "Descrizione "
|
||||
PROMPT 3 5 "Descrizione "
|
||||
FIELD CAA->S0
|
||||
KEY 2
|
||||
USE CAA KEY 2
|
||||
USE CAA KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
|
||||
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40 " S0
|
||||
|
||||
OUTPUT F_CODICE CODTAB
|
||||
DISPLAY "Descrizione@30 " S0
|
||||
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
STRING F_CODCON 2
|
||||
STRING F_CODCON 3
|
||||
BEGIN
|
||||
PROMPT 3 7 "Codice conto "
|
||||
PROMPT 3 7 "Codice conto "
|
||||
FIELD CAA->S1
|
||||
USE LF_PCON
|
||||
// CHECKTYPE REQUIRED
|
||||
FLAG "R"
|
||||
|
||||
END
|
||||
|
||||
STRING F_CODCON1 3
|
||||
BEGIN
|
||||
PROMPT 25 7 ""
|
||||
FIELD CAA->S2
|
||||
USE LF_PCON SELECT INDBIL=3
|
||||
FLAG "R"
|
||||
INPUT GRUPPO F_CODCON
|
||||
INPUT CONTO F_CODCON1
|
||||
INPUT SOTTOCONTO F_CODCON2
|
||||
|
||||
DISPLAY "Gruppo " GRUPPO
|
||||
DISPLAY "Conto " CONTO
|
||||
DISPLAY "Sottoconto " SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
|
||||
OUTPUT F_CODCON GRUPPO
|
||||
OUTPUT F_CODCON1 CONTO
|
||||
OUTPUT F_CODCON2 SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODCON GRUPPO
|
||||
OUTPUT F_CODCON1 CONTO
|
||||
OUTPUT F_DESCR1 DESCR
|
||||
// KEY 1
|
||||
END
|
||||
|
||||
|
||||
|
||||
STRING F_CODCON1 2
|
||||
BEGIN
|
||||
PROMPT 23 7 ""
|
||||
FIELD CAA->S2
|
||||
// CHECKTYPE REQUIRED
|
||||
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
STRING F_CODCON2 6
|
||||
BEGIN
|
||||
PROMPT 28 7 ""
|
||||
PROMPT 34 7 ""
|
||||
FIELD CAA->S3
|
||||
// CHECKTYPE REQUIRED
|
||||
|
||||
USE LF_PCON SELECT INDBIL=3
|
||||
FLAG "R"
|
||||
INPUT GRUPPO F_CODCON
|
||||
INPUT CONTO F_CODCON1
|
||||
INPUT SOTTOCONTO F_CODCON2
|
||||
DISPLAY "Gruppo " GRUPPO
|
||||
DISPLAY "Conto " CONTO
|
||||
DISPLAY "Sottoconto " SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODCON GRUPPO
|
||||
OUTPUT F_CODCON1 CONTO
|
||||
OUTPUT F_CODCON2 SOTTOCONTO
|
||||
OUTPUT F_DESCR1 DESCR
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
STRING F_DESCR1 50
|
||||
BEGIN
|
||||
PROMPT 10 9 ""
|
||||
PROMPT 18 9 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 65 11
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
|
101
ve/batbcra.uml
101
ve/batbcra.uml
@ -8,93 +8,92 @@ ENDPAGE
|
||||
|
||||
PAGE "Tabella categoria ricavi articoli " 11 60 14
|
||||
|
||||
STRING F_CODICE 3
|
||||
STRING F_CODICE 3
|
||||
BEGIN
|
||||
PROMPT 3 3 "Codice tabella "
|
||||
FIELD CRA->CODTAB
|
||||
FIELD CRA->CODTAB
|
||||
KEY 1
|
||||
USE CRA
|
||||
|
||||
USE CRA
|
||||
|
||||
FLAG "U"
|
||||
INPUT CODTAB F_CODICE
|
||||
|
||||
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40 " S0
|
||||
|
||||
OUTPUT F_CODICE CODTAB
|
||||
DISPLAY "Descrizione@30 " S0
|
||||
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR 40
|
||||
|
||||
STRING F_DESCR 30
|
||||
BEGIN
|
||||
PROMPT 3 5 "Descrizione "
|
||||
PROMPT 3 5 "Descrizione "
|
||||
FIELD CRA->S0
|
||||
KEY 2
|
||||
USE CRA KEY 2
|
||||
USE CRA KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
|
||||
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40 " S0
|
||||
|
||||
OUTPUT F_CODICE CODTAB
|
||||
DISPLAY "Descrizione@30 " S0
|
||||
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
STRING F_CODCON 2
|
||||
STRING F_CODCON 3
|
||||
BEGIN
|
||||
PROMPT 3 7 "Codice conto "
|
||||
PROMPT 3 7 "Codice conto "
|
||||
FIELD CRA->S1
|
||||
USE LF_PCON
|
||||
// CHECKTYPE REQUIRED
|
||||
FLAG "R"
|
||||
|
||||
END
|
||||
|
||||
STRING F_CODCON1 3
|
||||
BEGIN
|
||||
PROMPT 25 7 ""
|
||||
FIELD CRA->S2
|
||||
USE LF_PCON SELECT INDBIL="4"
|
||||
FLAG "R"
|
||||
INPUT GRUPPO F_CODCON
|
||||
INPUT CONTO F_CODCON1
|
||||
INPUT SOTTOCONTO F_CODCON2
|
||||
|
||||
DISPLAY "Gruppo " GRUPPO
|
||||
DISPLAY "Conto " CONTO
|
||||
DISPLAY "Sottoconto " SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
|
||||
OUTPUT F_CODCON GRUPPO
|
||||
OUTPUT F_CODCON1 CONTO
|
||||
OUTPUT F_CODCON2 SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODCON GRUPPO
|
||||
OUTPUT F_CODCON1 CONTO
|
||||
OUTPUT F_DESCR1 DESCR
|
||||
// KEY 1
|
||||
END
|
||||
|
||||
STRING F_CODCON1 2
|
||||
BEGIN
|
||||
PROMPT 23 7 ""
|
||||
FIELD CRA->S2
|
||||
// CHECKTYPE REQUIRED
|
||||
|
||||
ADD RUN CG0 -0
|
||||
END
|
||||
|
||||
STRING F_CODCON2 6
|
||||
BEGIN
|
||||
PROMPT 28 7 ""
|
||||
PROMPT 34 7 ""
|
||||
FIELD CRA->S3
|
||||
// CHECKTYPE REQUIRED
|
||||
|
||||
USE LF_PCON SELECT INDBIL="4"
|
||||
FLAG "R"
|
||||
INPUT GRUPPO F_CODCON
|
||||
INPUT CONTO F_CODCON1
|
||||
INPUT SOTTOCONTO F_CODCON2
|
||||
DISPLAY "Gruppo " GRUPPO
|
||||
DISPLAY "Conto " CONTO
|
||||
DISPLAY "Sottoconto " SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CODCON GRUPPO
|
||||
OUTPUT F_CODCON1 CONTO
|
||||
OUTPUT F_CODCON2 SOTTOCONTO
|
||||
OUTPUT F_DESCR1 DESCR
|
||||
ADD RUN CG0 -0
|
||||
|
||||
END
|
||||
|
||||
STRING F_DESCR1 50
|
||||
BEGIN
|
||||
PROMPT 10 9 ""
|
||||
PROMPT 18 9 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 68 11
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
|
14
ve/batbmag.h
14
ve/batbmag.h
@ -1,9 +1,13 @@
|
||||
#define F_CODICE 101
|
||||
#define F_DESCR 102
|
||||
#define F_CODDEP 123
|
||||
#define F_DESDEP 124
|
||||
#define F_IND 103
|
||||
#define F_LOC 104
|
||||
#define F_CAP 105
|
||||
#define F_PROV 106
|
||||
#define F_CIV 127
|
||||
#define F_COM 128
|
||||
#define F_NATMAG 107
|
||||
#define F_CODMAGSTA 108
|
||||
#define F_CODLGIOR 109
|
||||
@ -20,3 +24,13 @@
|
||||
#define F_STARIS 120
|
||||
#define F_LUNGMOD 121
|
||||
#define F_INTDITTA 122
|
||||
#define H_CODICE 125
|
||||
#define H_DESCR 126
|
||||
#define F_DITTA 127
|
||||
#define F_UNLOC 128
|
||||
#define H_IND 129
|
||||
#define H_CIV 130
|
||||
#define H_CAP 131
|
||||
#define H_COM 132
|
||||
#define H_LOC 133
|
||||
#define H_PROV 134
|
||||
|
341
ve/batbmag.uml
341
ve/batbmag.uml
@ -1,5 +1,6 @@
|
||||
#include "BATBMAG.h"
|
||||
#define LF_COMUNI 13
|
||||
#include <comdcod.h>
|
||||
#include <comdden.h>
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
@ -7,101 +8,220 @@ ENDPAGE
|
||||
|
||||
PAGE "Gestione magazzini" 11 60 14
|
||||
|
||||
STRING F_CODICE 6
|
||||
NUMBER F_DITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice del magazzino "
|
||||
FIELD MAG->CODTAB
|
||||
KEY 1
|
||||
USE MAG
|
||||
|
||||
FLAG "U"
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@50 " S0
|
||||
DISPLAY "Indirizzo@25 " S1
|
||||
DISPLAY "Località@25 " S2
|
||||
DISPLAY "Prov." S7
|
||||
DISPLAY "C.A.P." S6
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
OUTPUT F_IND S1
|
||||
OUTPUT F_LOC S2
|
||||
OUTPUT F_CAP S6
|
||||
OUTPUT F_PROV S7
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "FGH"
|
||||
END
|
||||
|
||||
STRING F_CODICE 3
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice magazzino "
|
||||
FIELD CODTAB[1,3]
|
||||
KEY 1
|
||||
USE MAG SELECT CODTAB ?= "???"
|
||||
FLAG "U"
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice " CODTAB[1,3]
|
||||
DISPLAY "Denominazione mag.@50 " S0
|
||||
OUTPUT F_CODICE CODTAB[1,3]
|
||||
OUTPUT H_DESCR S0
|
||||
MESSAGE COPY,H_CODICE
|
||||
END
|
||||
|
||||
STRING F_CODDEP 2
|
||||
BEGIN
|
||||
PROMPT 28 1 "Codice deposito "
|
||||
FIELD CODTAB[4,5]
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE MAG
|
||||
INPUT CODTAB[1,3] F_CODICE
|
||||
INPUT CODTAB[4,5] F_CODDEP
|
||||
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
||||
DISPLAY "Cod. deposito" CODTAB[4,5]
|
||||
DISPLAY "Denominazione dep.@50" S0
|
||||
OUTPUT F_CODICE CODTAB[1,3]
|
||||
OUTPUT F_CODDEP CODTAB[4,5]
|
||||
OUTPUT F_DESDEP S0
|
||||
MESSAGE SHOW,F_DESCR|HIDE,H_DESCR|SHOW,F_DESDEP
|
||||
MESSAGE EMPTY HIDE,F_DESCR|SHOW,H_DESCR|HIDE,F_DESDEP
|
||||
VALIDATE AUTOEXIT_FUNC 2 F_CODICE F_CODDEP
|
||||
GROUP GR_SEARCH
|
||||
END
|
||||
|
||||
STRING H_CODICE 3
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
COPY USE F_CODICE
|
||||
INPUT CODTAB F_CODICE
|
||||
COPY DISPLAY F_CODICE
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 2 4 "Descrizione "
|
||||
FIELD MAG->S0
|
||||
PROMPT 2 3 "Denominazione mag. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_DESDEP 50
|
||||
BEGIN
|
||||
PROMPT 2 4 "Denominazione dep. "
|
||||
FIELD S0
|
||||
USE MAG KEY 2
|
||||
KEY 2
|
||||
INPUT S0 F_DESDEP
|
||||
DISPLAY "Denominazione dep.@50" S0
|
||||
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
||||
DISPLAY "Cod. deposito" CODTAB[4,5]
|
||||
COPY OUTPUT F_CODDEP
|
||||
MESSAGE K_TAB,F_CODDEP
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Manca la denominazione"
|
||||
END
|
||||
|
||||
STRING H_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Denominazione mag. "
|
||||
FIELD S0
|
||||
KEY 2
|
||||
USE MAG KEY 2
|
||||
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@50 " S0
|
||||
DISPLAY "Indirizzo@25 " S1
|
||||
DISPLAY "Località@25 " S2
|
||||
DISPLAY "Prov." S7
|
||||
DISPLAY "C.A.P." S6
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
OUTPUT F_IND S1
|
||||
OUTPUT F_LOC S2
|
||||
OUTPUT F_CAP S6
|
||||
OUTPUT F_PROV S7
|
||||
INPUT S0 H_DESCR
|
||||
DISPLAY "Denominazione mag.@50" S0
|
||||
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
||||
DISPLAY "Cod. deposito" CODTAB[4,5]
|
||||
COPY OUTPUT F_CODDEP
|
||||
OUTPUT H_DESCR S0
|
||||
MESSAGE K_TAB,F_CODDEP
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
STRING F_IND 40
|
||||
BEGIN
|
||||
PROMPT 2 6 "Indirizzo "
|
||||
FIELD MAG->S1
|
||||
WARNING "Manca la denominazione dell'istituto"
|
||||
END
|
||||
|
||||
STRING F_LOC 25
|
||||
GROUPBOX DLG_NULL 72 5
|
||||
BEGIN
|
||||
PROMPT 2 8 "Località "
|
||||
FIELD MAG->S2
|
||||
PROMPT 4 6 "Unita' locale"
|
||||
END
|
||||
|
||||
NUMBER F_UNLOC 3
|
||||
BEGIN
|
||||
PROMPT 6 7 "Codice "
|
||||
FIELD I1
|
||||
USE LF_UNLOC KEY 1
|
||||
JOIN LF_COMUNI INTO COM=COMULC STATO==""
|
||||
INPUT CODDITTA F_DITTA SELECT
|
||||
INPUT CODULC F_UNLOC
|
||||
DISPLAY "Unita' Locale" CODULC
|
||||
DISPLAY "Indirizzo@35" INDULC
|
||||
DISPLAY "N." CIVULC
|
||||
DISPLAY "C.A.P." CAPULC
|
||||
DISPLAY "Comune@50" LF_COMUNI->DENCOM
|
||||
DISPLAY "Provincia" LF_COMUNI->PROVCOM
|
||||
OUTPUT H_COM COMULC
|
||||
OUTPUT F_UNLOC CODULC
|
||||
OUTPUT H_IND INDULC
|
||||
OUTPUT H_CIV CIVULC
|
||||
OUTPUT H_CAP CAPULC
|
||||
OUTPUT H_LOC LF_COMUNI->DENCOM
|
||||
OUTPUT H_PROV LF_COMUNI->PROVCOM
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING H_COM 4
|
||||
BEGIN
|
||||
PROMPT 30 7 "Comune "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING H_CAP 5
|
||||
BEGIN
|
||||
PROMPT 44 7 "C.A.P. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING H_PROV 2
|
||||
BEGIN
|
||||
PROMPT 60 7 "Provincia "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING H_IND 35
|
||||
BEGIN
|
||||
PROMPT 6 8 "Indirizzo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING H_CIV 10
|
||||
BEGIN
|
||||
PROMPT 60 8 "N. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING H_LOC 50
|
||||
BEGIN
|
||||
PROMPT 6 9 "Comune "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 72 6
|
||||
BEGIN
|
||||
PROMPT 4 11 "Sede magazzino/deposito"
|
||||
END
|
||||
|
||||
STRING F_IND 35
|
||||
BEGIN
|
||||
PROMPT 6 12 "Indirizzo "
|
||||
FIELD S2
|
||||
END
|
||||
|
||||
STRING F_CIV 10
|
||||
BEGIN
|
||||
PROMPT 60 12 "N. "
|
||||
FIELD S7
|
||||
END
|
||||
|
||||
STRING F_COM 4
|
||||
BEGIN
|
||||
PROMPT 6 13 "Codice comune "
|
||||
FLAGS "U"
|
||||
FIELD S5
|
||||
USE LF_COMUNI
|
||||
INPUT CAPCOM F_CAP
|
||||
INPUT DENCOM F_LOC
|
||||
DISPLAY "Comune@50" DENCOM
|
||||
DISPLAY "C.A.P." CAPCOM
|
||||
DISPLAY "Provincia" PROVCOM
|
||||
OUTPUT F_LOC DENCOM
|
||||
OUTPUT F_CAP CAPCOM
|
||||
OUTPUT F_PROV PROVCOM
|
||||
INPUT STATO ""
|
||||
INPUT COM F_COM
|
||||
OUTPUT F_COM COM
|
||||
OUTPUT F_LOC DENCOM
|
||||
OUTPUT F_PROV PROVCOM
|
||||
OUTPUT F_CAP CAPCOM
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
ADD RUN ba4 -0
|
||||
END
|
||||
|
||||
STRING F_LOC 50
|
||||
BEGIN
|
||||
PROMPT 6 14 "Comune "
|
||||
USE LF_COMUNI KEY 2
|
||||
INPUT DENCOM F_LOC
|
||||
COPY OUTPUT F_COM
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_PROV 2
|
||||
BEGIN
|
||||
PROMPT 6 15 "Provincia "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CAP 5
|
||||
BEGIN
|
||||
PROMPT 41 8 "C.A.P. "
|
||||
FIELD MAG->S6
|
||||
USE LF_COMUNI KEY 3
|
||||
INPUT CAPCOM F_CAP
|
||||
DISPLAY "Comune@50" DENCOM
|
||||
DISPLAY "C.A.P." CAPCOM
|
||||
DISPLAY "Provincia" PROVCOM
|
||||
OUTPUT F_LOC DENCOM
|
||||
OUTPUT F_CAP CAPCOM
|
||||
OUTPUT F_PROV PROVCOM
|
||||
END
|
||||
|
||||
STRING F_PROV 5
|
||||
BEGIN
|
||||
PROMPT 58 8 "Prov. "
|
||||
FIELD MAG->S7
|
||||
PROMPT 60 15 "C.A.P. "
|
||||
FIELD S3
|
||||
END
|
||||
|
||||
LISTBOX F_NATMAG 51
|
||||
BEGIN
|
||||
PROMPT 2 11 "Natura del magazzino "
|
||||
PROMPT 2 17 "Natura del magazzino "
|
||||
FIELD MAG->I1
|
||||
ITEM "1|Proprietà dell'azienda "
|
||||
ITEM "2|Materiale nostro in lavorazione presso terzi"
|
||||
@ -110,33 +230,52 @@ ITEM "4|Materiale di terzi, in lavorazione presso l'azienda "
|
||||
ITEM "5|Materiale di terzi, in deposito presso l'azienda "
|
||||
END
|
||||
|
||||
STRING F_CODMAGSTA 6
|
||||
BEGIN
|
||||
PROMPT 2 13 "Codice magazzino sul quale stampare i movimenti "
|
||||
FIELD MAG->I1
|
||||
END
|
||||
|
||||
STRING F_CODLGIOR 6
|
||||
BEGIN
|
||||
PROMPT 2 15 "Codice libro giornale "
|
||||
FIELD MAG->I2
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 75 11
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Gestione magazzini" 11 60 14
|
||||
|
||||
STRING F_CODLUNICO 6
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice libro unico di studio "
|
||||
FIELD MAG->I3
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "AH"
|
||||
END
|
||||
|
||||
STRING F_CODMAGSTA 3
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice magazzino sul quale stampare i movimenti "
|
||||
FIELD S6
|
||||
USE MAG SELECT CODTAB ?= "???"
|
||||
INPUT CODTAB[1,3] F_CODMAGSTA
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Denominazione mag.@50 " S0
|
||||
OUTPUT F_CODMAGSTA CODTAB[1,3]
|
||||
END
|
||||
|
||||
STRING F_CODLGIOR 3
|
||||
BEGIN
|
||||
PROMPT 2 3 "Codice libro giornale "
|
||||
FIELD S8
|
||||
USE REG
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODLGIOR
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Giornale" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODLGIOR CODTAB[5,7]
|
||||
END
|
||||
|
||||
STRING F_CODLUNICO 3
|
||||
BEGIN
|
||||
PROMPT 40 3 "Codice libro unico di studio "
|
||||
FIELD S9
|
||||
USE %LBU
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODLUNICO
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Libro" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODLUNICO CODTAB[5,7]
|
||||
END
|
||||
|
||||
BOOLEAN F_GESTGIA
|
||||
@ -144,13 +283,13 @@ BEGIN
|
||||
PROMPT 2 4 "Gestione giacenze in più depositi "
|
||||
FIELD MAG->B0
|
||||
END
|
||||
|
||||
|
||||
BOOLEAN F_STALDIS
|
||||
BEGIN
|
||||
PROMPT 2 6 "Stampa libri distinti per classe fiscale articoli "
|
||||
FIELD MAG->B1
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_FREQSTA 2
|
||||
BEGIN
|
||||
PROMPT 2 7 "Frequenza stampa movimenti "
|
||||
@ -176,7 +315,7 @@ BEGIN
|
||||
END
|
||||
|
||||
DATE F_ULTCORR
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 58 11 ""
|
||||
FIELD MAG->D0
|
||||
END
|
||||
@ -188,12 +327,12 @@ BEGIN
|
||||
END
|
||||
|
||||
DATE F_ULTPREC
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 58 12 ""
|
||||
FIELD MAG->D1
|
||||
END
|
||||
|
||||
TEXT 140
|
||||
TEXT 140
|
||||
BEGIN
|
||||
PROMPT 2 14 "Parametri di stampa :"
|
||||
END
|
||||
@ -215,7 +354,7 @@ BEGIN
|
||||
PROMPT 2 17 "Lunghezza modulo "
|
||||
FIELD MAG->I7
|
||||
END
|
||||
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
@ -20,7 +20,7 @@ PAGE "Numerazione documenti" -1 -1 60 14
|
||||
// FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_CODTAB 2
|
||||
STRING F_CODTAB 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice numerazione "
|
||||
FIELD CODTAB
|
||||
@ -112,15 +112,15 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
PROMPT 2 2 "Tipi di documento validi per la numerazione"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC1 2
|
||||
STRING F_TIPODOC1 4
|
||||
BEGIN
|
||||
PROMPT 2 4 ""
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPODOC1 TIP->CODTAB
|
||||
OUTPUT F_DESDOC1 TIP->S0
|
||||
OUTPUT F_TIPODOC1 CODTAB
|
||||
OUTPUT F_DESDOC1 S0
|
||||
HELP "Tipo di documento 1"
|
||||
FIELD S2[1,4]
|
||||
CHECKTYPE NORMAL
|
||||
@ -128,19 +128,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
STRING F_DESDOC1 40
|
||||
BEGIN
|
||||
PROMPT 10 4 ""
|
||||
PROMPT 12 4 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC2 2
|
||||
STRING F_TIPODOC2 4
|
||||
BEGIN
|
||||
PROMPT 2 5 ""
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC2
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPODOC2 TIP->CODTAB
|
||||
OUTPUT F_DESDOC2 TIP->S0
|
||||
OUTPUT F_TIPODOC2 CODTAB
|
||||
OUTPUT F_DESDOC2 S0
|
||||
HELP "Tipo di documento 2"
|
||||
FIELD S2[5,8]
|
||||
CHECKTYPE NORMAL
|
||||
@ -148,19 +148,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
STRING F_DESDOC2 40
|
||||
BEGIN
|
||||
PROMPT 10 5 ""
|
||||
PROMPT 12 5 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC3 2
|
||||
STRING F_TIPODOC3 4
|
||||
BEGIN
|
||||
PROMPT 2 6 ""
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC3
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPODOC3 TIP->CODTAB
|
||||
OUTPUT F_DESDOC3 TIP->S0
|
||||
OUTPUT F_TIPODOC3 CODTAB
|
||||
OUTPUT F_DESDOC3 S0
|
||||
HELP "Tipo di documento 3"
|
||||
FIELD S2[9,12]
|
||||
CHECKTYPE NORMAL
|
||||
@ -168,19 +168,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
STRING F_DESDOC3 40
|
||||
BEGIN
|
||||
PROMPT 10 6 ""
|
||||
PROMPT 12 6 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC4 2
|
||||
STRING F_TIPODOC4 4
|
||||
BEGIN
|
||||
PROMPT 2 7 ""
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC4
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPODOC4 TIP->CODTAB
|
||||
OUTPUT F_DESDOC4 TIP->S0
|
||||
OUTPUT F_TIPODOC4 CODTAB
|
||||
OUTPUT F_DESDOC4 S0
|
||||
HELP "Tipo di documento 4"
|
||||
FIELD S2[13,16]
|
||||
CHECKTYPE NORMAL
|
||||
@ -188,19 +188,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
STRING F_DESDOC4 40
|
||||
BEGIN
|
||||
PROMPT 10 7 ""
|
||||
PROMPT 12 7 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC5 2
|
||||
STRING F_TIPODOC5 4
|
||||
BEGIN
|
||||
PROMPT 2 8 ""
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC5
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPODOC5 TIP->CODTAB
|
||||
OUTPUT F_DESDOC5 TIP->S0
|
||||
OUTPUT F_TIPODOC5 CODTAB
|
||||
OUTPUT F_DESDOC5 S0
|
||||
HELP "Tipo di documento 5"
|
||||
FIELD S2[17,20]
|
||||
CHECKTYPE NORMAL
|
||||
@ -208,19 +208,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
STRING F_DESDOC5 40
|
||||
BEGIN
|
||||
PROMPT 10 8 ""
|
||||
PROMPT 12 8 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC6 2
|
||||
STRING F_TIPODOC6 4
|
||||
BEGIN
|
||||
PROMPT 2 9 ""
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC6
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPODOC6 TIP->CODTAB
|
||||
OUTPUT F_DESDOC6 TIP->S0
|
||||
OUTPUT F_TIPODOC6 CODTAB
|
||||
OUTPUT F_DESDOC6 S0
|
||||
HELP "Tipo di documento 6"
|
||||
FIELD S2[21,24]
|
||||
CHECKTYPE NORMAL
|
||||
@ -228,19 +228,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
STRING F_DESDOC6 40
|
||||
BEGIN
|
||||
PROMPT 10 9 ""
|
||||
PROMPT 12 9 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC7 2
|
||||
STRING F_TIPODOC7 4
|
||||
BEGIN
|
||||
PROMPT 2 10 ""
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC7
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPODOC7 TIP->CODTAB
|
||||
OUTPUT F_DESDOC7 TIP->S0
|
||||
OUTPUT F_TIPODOC7 CODTAB
|
||||
OUTPUT F_DESDOC7 S0
|
||||
HELP "Tipo di documento 7"
|
||||
FIELD S2[25,28]
|
||||
CHECKTYPE NORMAL
|
||||
@ -248,19 +248,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
STRING F_DESDOC7 40
|
||||
BEGIN
|
||||
PROMPT 10 10 ""
|
||||
PROMPT 12 10 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC8 2
|
||||
STRING F_TIPODOC8 4
|
||||
BEGIN
|
||||
PROMPT 2 11 ""
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC8
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPODOC8 TIP->CODTAB
|
||||
OUTPUT F_DESDOC8 TIP->S0
|
||||
OUTPUT F_TIPODOC8 CODTAB
|
||||
OUTPUT F_DESDOC8 S0
|
||||
HELP "Tipo di documento 8"
|
||||
FIELD S2[29,32]
|
||||
CHECKTYPE NORMAL
|
||||
@ -268,19 +268,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
STRING F_DESDOC8 40
|
||||
BEGIN
|
||||
PROMPT 10 11 ""
|
||||
PROMPT 12 11 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC9 2
|
||||
STRING F_TIPODOC9 4
|
||||
BEGIN
|
||||
PROMPT 2 12 ""
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC9
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPODOC9 TIP->CODTAB
|
||||
OUTPUT F_DESDOC9 TIP->S0
|
||||
OUTPUT F_TIPODOC9 CODTAB
|
||||
OUTPUT F_DESDOC9 S0
|
||||
HELP "Tipo di documento 9"
|
||||
FIELD S2[32,36]
|
||||
CHECKTYPE NORMAL
|
||||
@ -288,19 +288,19 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
STRING F_DESDOC9 40
|
||||
BEGIN
|
||||
PROMPT 10 12 ""
|
||||
PROMPT 12 12 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC10 2
|
||||
STRING F_TIPODOC10 4
|
||||
BEGIN
|
||||
PROMPT 2 13 ""
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC10
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_TIPODOC10 TIP->CODTAB
|
||||
OUTPUT F_DESDOC10 TIP->S0
|
||||
OUTPUT F_TIPODOC10 CODTAB
|
||||
OUTPUT F_DESDOC10 S0
|
||||
HELP "Tipo di documento 10"
|
||||
FIELD S2[37,40]
|
||||
CHECKTYPE NORMAL
|
||||
@ -308,7 +308,7 @@ PAGE "Numerazioni documenti pag.2" -1 -1 60 14
|
||||
|
||||
STRING F_DESDOC10 40
|
||||
BEGIN
|
||||
PROMPT 10 13 ""
|
||||
PROMPT 12 13 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
|
18
ve/batbrfa.h
18
ve/batbrfa.h
@ -1,8 +1,10 @@
|
||||
#define FLD_TABRFA_CODTAB 100
|
||||
#define FLD_TABRFA_S0 101
|
||||
#define FLD_TABRFA_I0 102
|
||||
#define FLD_TABRFA_S7 103
|
||||
#define FLD_TABRFA_S8 104
|
||||
#define FLD_TABRFA_R0 105
|
||||
#define FLD_TABRFA_R1 106
|
||||
#define FLD_TABRFA_R2 107
|
||||
#define FLD_TABRFA_CODTAB 100
|
||||
#define FLD_TABRFA_S0 101
|
||||
#define FLD_TABRFA_I0 102
|
||||
#define FLD_TABRFA_S7 103
|
||||
#define FLD_TABRFA_S8 104
|
||||
#define FLD_TABRFA_R0 105
|
||||
#define FLD_TABRFA_R1 106
|
||||
#define FLD_TABRFA_R2 107
|
||||
#define FLD_DESCFA 108
|
||||
|
162
ve/batbrfa.uml
162
ve/batbrfa.uml
@ -1,64 +1,98 @@
|
||||
#include "batbrfa.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Raggruppamento forniture magazzino" -1 -1 78 9
|
||||
|
||||
NUMBER FLD_TABRFA_CODTAB 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FIELD %FAL->CODTAB
|
||||
USE %RFA
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB FLD_TABRFA_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FLD_TABRFA_CODTAB CODTAB
|
||||
OUTPUT FLD_TABRFA_S0 S0
|
||||
KEY 1
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S0 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FIELD %RFA->S0
|
||||
USE %RFA KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Manca la descrizione"
|
||||
INPUT S0 FLD_TABRFA_S0
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT FLD_TABRFA_CODTAB
|
||||
KEY 2
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S7 2
|
||||
BEGIN
|
||||
PROMPT 2 5 "UM "
|
||||
FIELD %RFA->S7
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S8 1
|
||||
BEGIN
|
||||
PROMPT 2 5 "CLFIS "
|
||||
FIELD %RFA->S8
|
||||
END
|
||||
|
||||
NUMBER FLD_TABRFA_R0 9
|
||||
BEGIN
|
||||
PROMPT 2 7 "RIC "
|
||||
FIELD %RFA->R0
|
||||
END
|
||||
|
||||
NUMBER FLD_TABRFA_I0 1
|
||||
BEGIN
|
||||
PROMPT 2 9 "TC "
|
||||
FIELD %RFA->I0
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "batbrfa.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Raggruppamento fiscali articoli" -1 -1 78 9
|
||||
|
||||
STRING FLD_TABRFA_CODTAB 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FIELD CODTAB
|
||||
USE RFA
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB FLD_TABRFA_CODTAB
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FLD_TABRFA_CODTAB CODTAB
|
||||
OUTPUT FLD_TABRFA_S0 S0
|
||||
KEY 1
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S0 30
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FIELD S0
|
||||
USE RFA KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Manca la descrizione"
|
||||
INPUT S0 FLD_TABRFA_S0
|
||||
DISPLAY "Descrizione@30" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT FLD_TABRFA_CODTAB
|
||||
KEY 2
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S7 2
|
||||
BEGIN
|
||||
PROMPT 2 5 "Unita' di misura "
|
||||
FIELD S7
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S8 1
|
||||
BEGIN
|
||||
PROMPT 2 7 "Classe fiscale "
|
||||
FIELD S8
|
||||
USE ASF
|
||||
INPUT CODTAB FLD_TABRFA_S8
|
||||
DISPLAY "Cl. Fisc." CODTAB
|
||||
DISPLAY "Descrizione@30" S0
|
||||
OUTPUT FLD_TABRFA_S8 CODTAB
|
||||
OUTPUT FLD_DESCFA S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING FLD_DESCFA 30
|
||||
BEGIN
|
||||
PROMPT 25 7 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER FLD_TABRFA_R0 6 2
|
||||
BEGIN
|
||||
PROMPT 2 9 "Perc. ricarico medio "
|
||||
FIELD R0
|
||||
END
|
||||
|
||||
NUMBER FLD_TABRFA_R1 12 2
|
||||
BEGIN
|
||||
PROMPT 2 11 "Costo minimo "
|
||||
FIELD R1
|
||||
END
|
||||
|
||||
NUMBER FLD_TABRFA_R2 12 2
|
||||
BEGIN
|
||||
PROMPT 45 11 "massimo "
|
||||
FIELD R2
|
||||
END
|
||||
|
||||
LIST FLD_TABRFA_I0 1 30
|
||||
BEGIN
|
||||
PROMPT 2 13 "Tipo costo "
|
||||
FIELD I0
|
||||
HELP "Inserire il tipo di costo"
|
||||
ITEM "1|Costo medio annuale"
|
||||
ITEM "2|Costo ultimi 3 mesi"
|
||||
ITEM "3|Costo ultimo"
|
||||
ITEM "4|Costo standard"
|
||||
ITEM "5|Maggiore ultimi due costi"
|
||||
ITEM "6|Costo massimo d'acquisto"
|
||||
ITEM "7|Costo minimo d'acquisto"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
@ -11,7 +11,7 @@ BEGIN
|
||||
PROMPT 3 4 "Codice della tabella "
|
||||
USE TAG
|
||||
FIELD TAG->CODTAB
|
||||
|
||||
FLAGS "U"
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB F_CODICE
|
||||
|
||||
|
@ -14,7 +14,7 @@ PAGE "Tabella tipi di documento" -1 -1 60 14
|
||||
// FLAG "R"
|
||||
END
|
||||
|
||||
STRING F_CODTAB 2
|
||||
STRING F_CODTAB 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice tipo di documento "
|
||||
FIELD CODTAB
|
||||
|
@ -10,10 +10,11 @@ ENDPAGE
|
||||
|
||||
PAGE "Tipo di riga" -1 -1 60 14
|
||||
|
||||
STRING F_CODICE 2
|
||||
STRING F_CODICE 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
FIELD CODTAB
|
||||
FLAGS "U"
|
||||
USE %TRI
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice" CODTAB
|
||||
|
Loading…
x
Reference in New Issue
Block a user