Patch level :10.0
Files correlati : Ricompilazione Demo : [ ] Commento :eliminate maschere di tabella mai chiamate dal menu, non presenti in install.ini e senza modifiche nella storia git-svn-id: svn://10.65.10.50/trunk@18520 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
64f91d7775
commit
0d415c959b
170
ve/vetbacr.uml
170
ve/vetbacr.uml
@ -1,170 +0,0 @@
|
||||
#include "vetbacr.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 "Cod. cat. 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
|
||||
INPUT CODART F_CODART
|
||||
|
||||
DISPLAY "Codice articolo" CODART
|
||||
DISPLAY "Descrizione@30" DESCR
|
||||
OUTPUT F_CODART CODART
|
||||
OUTPUT F_DESART DESCR
|
||||
|
||||
END
|
||||
|
||||
STRING F_DESART 50
|
||||
BEGIN
|
||||
PROMPT 23 9 ""
|
||||
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 23 13 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
574
ve/vetbdip.uml
574
ve/vetbdip.uml
@ -1,574 +0,0 @@
|
||||
#include "vetbdip.h"
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella dipendenti" 11 60 14
|
||||
|
||||
GROUPBOX DLG_NULL 75 5
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_CODICE 16
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FIELD CODTAB
|
||||
KEY 1
|
||||
USE DIP
|
||||
FLAGS "U"
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice@16" CODTAB
|
||||
DISPLAY "Cognome@40" S0[1,40]
|
||||
DISPLAY "Nome@30" S0[41,70]
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_COGNOME S0[1,40]
|
||||
OUTPUT F_NOME S0[41,70]
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,11@
|
||||
END
|
||||
|
||||
STRING F_COGNOME 40
|
||||
BEGIN
|
||||
PROMPT 2 2 "Cognome "
|
||||
FIELD S0[1,40]
|
||||
KEY 2
|
||||
USE DIP KEY 2
|
||||
INPUT S0[1,40] F_COGNOME
|
||||
DISPLAY "Cognome@40" S0[1,40]
|
||||
DISPLAY "Nome@30" S0[41,70]
|
||||
DISPLAY "Codice@16" CODTAB
|
||||
COPY OUTPUT F_CODICE
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,12@
|
||||
END
|
||||
|
||||
STRING F_NOME 30
|
||||
BEGIN
|
||||
PROMPT 2 3 "Nome "
|
||||
FIELD S0[41,70]
|
||||
KEY 2
|
||||
USE DIP KEY 2
|
||||
INPUT S0[41,70] F_NOME
|
||||
DISPLAY "Nome@30" S0[41,70]
|
||||
DISPLAY "Cognome@40" S0[1,40]
|
||||
DISPLAY "Codice@16" CODTAB
|
||||
COPY OUTPUT F_CODICE
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,13@
|
||||
END
|
||||
|
||||
BOOLEAN F_COLLAB
|
||||
BEGIN
|
||||
PROMPT 2 5 "Collaboratore"
|
||||
FIELD B0
|
||||
MESSAGE FALSE CLEAR,F_CODFORN|ENABLE,10@
|
||||
MESSAGE TRUE ENABLE,F_CODFORN|CLEAR,10@
|
||||
END
|
||||
|
||||
NUMBER F_CODFORN 6
|
||||
BEGIN
|
||||
PROMPT 2 6 "Codice fornitore "
|
||||
FIELD I6
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_CODFORN
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CODFORN CODCF
|
||||
OUTPUT F_ADDRESS INDCF
|
||||
OUTPUT F_CIVICO CIVCF
|
||||
OUTPUT F_STATO STATOCF
|
||||
OUTPUT F_COMUNE COMCF
|
||||
OUTPUT F_LOCALITA LOCALITACF
|
||||
OUTPUT F_CAP CAPCF
|
||||
OUTPUT F_CODFIS COFI
|
||||
OUTPUT F_CODIVA PAIVA
|
||||
END
|
||||
|
||||
STRING F_CODFIS 16
|
||||
BEGIN
|
||||
PROMPT 2 7 "Codice fiscale "
|
||||
FIELD S3[5,21]
|
||||
FLAGS "U"
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 1 8 "@bRecapito"
|
||||
END
|
||||
|
||||
STRING F_ADDRESS 35
|
||||
BEGIN
|
||||
PROMPT 2 9 "Indirizzo "
|
||||
FIELD S1[1,35]
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRING F_CIVICO 5
|
||||
BEGIN
|
||||
PROMPT 65 9 "N. "
|
||||
FIELD S3[26,35]
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
NUMBER F_STATO 3
|
||||
BEGIN
|
||||
PROMPT 2 10 "Comune: Stato "
|
||||
FIELD I7
|
||||
FLAGS "Z"
|
||||
USE %STA
|
||||
INPUT CODTAB F_STATO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Stato@50" S0
|
||||
OUTPUT F_STATO CODTAB
|
||||
OUTPUT F_DESTATO S0
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRING F_DESTATO 50
|
||||
BEGIN
|
||||
PROMPT 23 10 ""
|
||||
USE %STA KEY 2
|
||||
INPUT S0 F_DESTATO
|
||||
DISPLAY "Stato@60" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_STATO
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRING F_COMUNE 4
|
||||
BEGIN
|
||||
PROMPT 8 11 ":Codice "
|
||||
FIELD S3[22,25]
|
||||
FLAGS "U"
|
||||
USE LF_COMUNI
|
||||
INPUT STATO F_STATO SELECT
|
||||
INPUT COM F_COMUNE
|
||||
DISPLAY "Stato" STATO
|
||||
DISPLAY "Codice" COM
|
||||
DISPLAY "Comune@50" DENCOM
|
||||
OUTPUT F_STATO STATO
|
||||
OUTPUT F_COMUNE COM
|
||||
OUTPUT F_CAP CAPCOM
|
||||
OUTPUT F_DENCOM DENCOM
|
||||
OUTPUT F_PROV PROVCOM
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ba4 -0
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRING F_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 23 11 ""
|
||||
USE LF_COMUNI KEY 2
|
||||
INPUT DENCOM F_DENCOM
|
||||
DISPLAY "Comune@50" DENCOM
|
||||
DISPLAY "Stato" STATO
|
||||
DISPLAY "Codice" COM
|
||||
COPY OUTPUT F_COMUNE
|
||||
ADD RUN ba4 -0
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRING F_LOCALITA 35
|
||||
BEGIN
|
||||
PROMPT 2 12 "Localita' "
|
||||
FIELD S1[36,70]
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRING F_CAP 5
|
||||
BEGIN
|
||||
PROMPT 53 12 "CAP "
|
||||
FIELD I8
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRING F_PROV 5
|
||||
BEGIN
|
||||
PROMPT 64 12 "Prov"
|
||||
FLAGS "D"
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
BOOLEAN F_MRP_ATTIVO
|
||||
BEGIN
|
||||
PROMPT 1 14 "@bCollegamento M.R.P.:"
|
||||
MESSAGE FALSE CLEAR,9@
|
||||
MESSAGE TRUE ENABLE,9@
|
||||
// FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_IMPIANTO 5
|
||||
BEGIN
|
||||
PROMPT 23 14 "Impianto "
|
||||
FIELD S8
|
||||
USE IMP
|
||||
INPUT CODTAB F_IMPIANTO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_IMPIANTO CODTAB
|
||||
GROUP 9
|
||||
END
|
||||
|
||||
STRING F_LINEA 5
|
||||
BEGIN
|
||||
PROMPT 45 14 "Linea "
|
||||
FIELD S9
|
||||
USE LNP
|
||||
INPUT CODTAB F_LINEA
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_LINEA CODTAB
|
||||
GROUP 9
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Pagina 2" 11 60 14
|
||||
|
||||
GROUPBOX DLG_NULL 75 5
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING DLG_NULL 16
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FLAGS "UD"
|
||||
GROUP 11
|
||||
END
|
||||
|
||||
STRING DLG_NULL 40
|
||||
BEGIN
|
||||
PROMPT 2 2 "Cognome "
|
||||
FLAGS "D"
|
||||
GROUP 12
|
||||
END
|
||||
|
||||
STRING DLG_NULL 30
|
||||
BEGIN
|
||||
PROMPT 2 3 "Nome "
|
||||
FLAGS "D"
|
||||
GROUP 13
|
||||
END
|
||||
|
||||
STRING F_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 2 7 "Codice IVA "
|
||||
FIELD S3[1,4]
|
||||
FLAGS "U"
|
||||
USE %IVA
|
||||
INPUT CODTAB F_CODIVA
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODIVA CODTAB
|
||||
OUTPUT F_DESIVA S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
|
||||
STRING F_DESIVA 50
|
||||
BEGIN
|
||||
PROMPT 25 7 ""
|
||||
USE %IVA KEY 2
|
||||
INPUT S0 F_DESIVA
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice " CODTAB
|
||||
COPY OUTPUT F_CODIVA
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CODVAL 4
|
||||
BEGIN
|
||||
PROMPT 2 8 "Codice valuta "
|
||||
FIELD S4
|
||||
FLAGS "U"
|
||||
USE %VAL
|
||||
INPUT CODTAB F_CODVAL
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODVAL CODTAB
|
||||
OUTPUT F_DESVAL S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESVAL 50
|
||||
BEGIN
|
||||
PROMPT 25 8 ""
|
||||
USE %VAL KEY 2
|
||||
INPUT S0 F_DESVAL
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODVAL
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
LISTBOX F_CAMPI 15
|
||||
BEGIN
|
||||
PROMPT 2 9 "Campo default "
|
||||
FIELD S6
|
||||
ITEM "Q|Qta prezzo "
|
||||
MESSAGE SHOW,1@|ENABLE,2@
|
||||
FLAGS "D"
|
||||
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_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 S2[21,23]
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CONTOPCIA 3
|
||||
BEGIN
|
||||
PROMPT 22 15 ""
|
||||
FLAGS "Z"
|
||||
FIELD S2[24,26]
|
||||
END
|
||||
|
||||
STRING F_SOTTOPCIA 6
|
||||
BEGIN
|
||||
PROMPT 30 15 ""
|
||||
FLAGS "Z"
|
||||
FIELD S2[27,32]
|
||||
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
|
||||
780
ve/vetbfid.uml
780
ve/vetbfid.uml
@ -1,780 +0,0 @@
|
||||
#include "vetbfid.h"
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella controllo fido clienti " 11 60 14
|
||||
|
||||
|
||||
TEXT F_TESTO1
|
||||
BEGIN
|
||||
PROMPT 1 0 "Tipo documento da considerare nel calcolo fido :"
|
||||
END
|
||||
|
||||
TEXT F_TESTO2
|
||||
BEGIN
|
||||
PROMPT 1 2 "Codice descr. documento"
|
||||
END
|
||||
|
||||
TEXT F_TESTO3
|
||||
BEGIN
|
||||
PROMPT 50 2 "Valido fino allo stato"
|
||||
END
|
||||
|
||||
STRING F_COD 2
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice tabella "
|
||||
FIELD FID->CODTAB
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
|
||||
STRING F_DESC1 2
|
||||
BEGIN
|
||||
PROMPT 1 3 " 1) "
|
||||
FIELD FID->S0[1,2]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC1 CODTAB
|
||||
OUTPUT F_TIPO1 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO1 50
|
||||
BEGIN
|
||||
PROMPT 13 3 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID1 1
|
||||
BEGIN
|
||||
PROMPT 66 3 ""
|
||||
FIELD FID->S4[1]
|
||||
END
|
||||
|
||||
STRING F_DESC2 2
|
||||
BEGIN
|
||||
PROMPT 1 4 " 2) "
|
||||
FIELD FID->S0[3,4]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC2
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC2 CODTAB
|
||||
OUTPUT F_TIPO2 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO2 50
|
||||
BEGIN
|
||||
PROMPT 13 4 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_VALID2 1
|
||||
BEGIN
|
||||
PROMPT 66 4 ""
|
||||
FIELD FID->S4[2]
|
||||
END
|
||||
|
||||
STRING F_DESC3 2
|
||||
BEGIN
|
||||
PROMPT 1 5 " 3) "
|
||||
FIELD FID->S0[5,6]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC3
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC3 CODTAB
|
||||
OUTPUT F_TIPO3 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO3 50
|
||||
BEGIN
|
||||
PROMPT 13 5 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID3 1
|
||||
BEGIN
|
||||
PROMPT 66 5 ""
|
||||
FIELD FID->S4[3]
|
||||
END
|
||||
|
||||
STRING F_DESC4 2
|
||||
BEGIN
|
||||
PROMPT 1 6 " 4) "
|
||||
FIELD FID->S0[7,8]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC4
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC4 CODTAB
|
||||
OUTPUT F_TIPO4 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO4 50
|
||||
BEGIN
|
||||
PROMPT 13 6 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID4 1
|
||||
BEGIN
|
||||
PROMPT 66 6 ""
|
||||
FIELD FID->S4[4]
|
||||
END
|
||||
|
||||
STRING F_DESC5 2
|
||||
BEGIN
|
||||
PROMPT 1 7 " 5) "
|
||||
FIELD FID->S0[9,10]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC5
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC5 CODTAB
|
||||
OUTPUT F_TIPO5 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO5 50
|
||||
BEGIN
|
||||
PROMPT 13 7 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID5 1
|
||||
BEGIN
|
||||
PROMPT 66 7 ""
|
||||
FIELD FID->S4[5]
|
||||
END
|
||||
|
||||
STRING F_DESC6 2
|
||||
BEGIN
|
||||
PROMPT 1 8 " 6) "
|
||||
FIELD FID->S0[11,12]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC6
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC6 CODTAB
|
||||
OUTPUT F_TIPO6 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO6 50
|
||||
BEGIN
|
||||
PROMPT 13 8 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID6 1
|
||||
BEGIN
|
||||
PROMPT 66 8 ""
|
||||
FIELD FID->S4[6]
|
||||
END
|
||||
|
||||
STRING F_DESC7 2
|
||||
BEGIN
|
||||
PROMPT 1 9 " 7) "
|
||||
FIELD FID->S0[13,14]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC7
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC7 CODTAB
|
||||
OUTPUT F_TIPO7 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO7 50
|
||||
BEGIN
|
||||
PROMPT 13 9 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_VALID7 1
|
||||
BEGIN
|
||||
PROMPT 66 9 ""
|
||||
FIELD FID->S4[7]
|
||||
END
|
||||
|
||||
STRING F_DESC8 2
|
||||
BEGIN
|
||||
PROMPT 1 10 " 8) "
|
||||
FIELD FID->S0[15,16]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC8
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC8 CODTAB
|
||||
OUTPUT F_TIPO8 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO8 50
|
||||
BEGIN
|
||||
PROMPT 13 10 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID8 1
|
||||
BEGIN
|
||||
PROMPT 66 10 ""
|
||||
FIELD FID->S4[8]
|
||||
END
|
||||
|
||||
STRING F_DESC9 2
|
||||
BEGIN
|
||||
PROMPT 1 11 " 9) "
|
||||
FIELD FID->S0[17,18]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC9
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC9 CODTAB
|
||||
OUTPUT F_TIPO9 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO9 50
|
||||
BEGIN
|
||||
PROMPT 13 11 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID9 1
|
||||
BEGIN
|
||||
PROMPT 66 11 ""
|
||||
FIELD FID->S4[9]
|
||||
END
|
||||
|
||||
STRING F_DESC10 2
|
||||
BEGIN
|
||||
PROMPT 1 12 "10) "
|
||||
FIELD FID->S0[19,20]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC10
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC10 CODTAB
|
||||
OUTPUT F_TIPO10 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO10 50
|
||||
BEGIN
|
||||
PROMPT 13 12 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID10 1
|
||||
BEGIN
|
||||
PROMPT 66 12 ""
|
||||
FIELD FID->S4[10]
|
||||
END
|
||||
|
||||
STRING F_DESC11 2
|
||||
BEGIN
|
||||
PROMPT 1 13 "11) "
|
||||
FIELD FID->S0[21,22]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC11
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC11 CODTAB
|
||||
OUTPUT F_TIPO11 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO11 50
|
||||
BEGIN
|
||||
PROMPT 13 13 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID11 1
|
||||
BEGIN
|
||||
PROMPT 66 13 ""
|
||||
FIELD FID->S4[11]
|
||||
END
|
||||
|
||||
STRING F_DESC12 2
|
||||
BEGIN
|
||||
PROMPT 1 14 "12) "
|
||||
FIELD FID->S0[23,24]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC12
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC12 CODTAB
|
||||
OUTPUT F_TIPO12 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO12 50
|
||||
BEGIN
|
||||
PROMPT 13 14 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID12 1
|
||||
BEGIN
|
||||
PROMPT 66 14 ""
|
||||
FIELD FID->S4[12]
|
||||
END
|
||||
|
||||
STRING F_DESC13 2
|
||||
BEGIN
|
||||
PROMPT 1 15 "13) "
|
||||
FIELD FID->S0[25,26]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC13
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC13 CODTAB
|
||||
OUTPUT F_TIPO13 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO13 50
|
||||
BEGIN
|
||||
PROMPT 13 15 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID13 1
|
||||
BEGIN
|
||||
PROMPT 66 15 ""
|
||||
FIELD FID->S4[13]
|
||||
END
|
||||
|
||||
STRING F_DESC14 2
|
||||
BEGIN
|
||||
PROMPT 1 16 "14) "
|
||||
FIELD FID->S0[27,28]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC14
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC14 CODTAB
|
||||
OUTPUT F_TIPO14 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO14 50
|
||||
BEGIN
|
||||
PROMPT 13 16 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID14 1
|
||||
BEGIN
|
||||
PROMPT 66 16 ""
|
||||
FIELD FID->S4[14]
|
||||
END
|
||||
|
||||
STRING F_DESC15 2
|
||||
BEGIN
|
||||
PROMPT 1 17 "15) "
|
||||
FIELD FID->S0[29,30]
|
||||
USE %TPD
|
||||
INPUT CODTAB F_DESC15
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESC15 CODTAB
|
||||
OUTPUT F_TIPO15 S0
|
||||
END
|
||||
|
||||
STRING F_TIPO15 50
|
||||
BEGIN
|
||||
PROMPT 13 17 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_VALID15 1
|
||||
BEGIN
|
||||
PROMPT 66 17 ""
|
||||
FIELD FID->S4[15]
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella controllo fido clienti " 11 60 14
|
||||
|
||||
TEXT F_TESTO4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Gruppo conto cli/for del piano dei conti"
|
||||
END
|
||||
|
||||
STRING F_GRUPPO1 2
|
||||
BEGIN
|
||||
PROMPT 3 3 ""
|
||||
FIELD FID->S2[1,2]
|
||||
USE 19 //PIANO DEI CONTI
|
||||
INPUT GRUPPO F_GRUPPO1
|
||||
INPUT CONTO F_CONTO1
|
||||
INPUT SOTTOCONTO F_SOTTO1
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO1 GRUPPO
|
||||
OUTPUT F_CONTO1 CONTO
|
||||
OUTPUT F_SOTTO1 SOTTOCONTO
|
||||
OUTPUT F_CLIFOR1 DESCR
|
||||
END
|
||||
|
||||
STRING F_CONTO1 2
|
||||
BEGIN
|
||||
PROMPT 9 3 ""
|
||||
FIELD FID->S3[1,2]
|
||||
END
|
||||
|
||||
STRING F_SOTTO1 6
|
||||
BEGIN
|
||||
PROMPT 13 3 ""
|
||||
FIELD FID->S1[1,6]
|
||||
END
|
||||
|
||||
STRING F_CLIFOR1 50
|
||||
BEGIN
|
||||
PROMPT 24 3 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_GRUPPO2 2
|
||||
BEGIN
|
||||
PROMPT 3 4 ""
|
||||
FIELD FID->S2[3,4]
|
||||
USE 19 //PIANO DEI CONTI
|
||||
INPUT GRUPPO F_GRUPPO2
|
||||
INPUT CONTO F_CONTO2
|
||||
INPUT SOTTOCONTO F_SOTTO2
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO2 GRUPPO
|
||||
OUTPUT F_CONTO2 CONTO
|
||||
OUTPUT F_SOTTO2 SOTTOCONTO
|
||||
OUTPUT F_CLIFOR2 DESCR
|
||||
END
|
||||
|
||||
STRING F_CONTO2 2
|
||||
BEGIN
|
||||
PROMPT 9 4 ""
|
||||
FIELD FID->S3[3,4]
|
||||
END
|
||||
|
||||
STRING F_SOTTO2 6
|
||||
BEGIN
|
||||
PROMPT 13 4 ""
|
||||
FIELD FID->S1[7,12]
|
||||
END
|
||||
|
||||
STRING F_CLIFOR2 50
|
||||
BEGIN
|
||||
PROMPT 24 4 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_GRUPPO3 2
|
||||
BEGIN
|
||||
PROMPT 3 5 ""
|
||||
FIELD FID->S2[5,6]
|
||||
USE 19 //PIANO DEI CONTI
|
||||
INPUT GRUPPO F_GRUPPO3
|
||||
INPUT CONTO F_CONTO3
|
||||
INPUT SOTTOCONTO F_SOTTO3
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO3 GRUPPO
|
||||
OUTPUT F_CONTO3 CONTO
|
||||
OUTPUT F_SOTTO3 SOTTOCONTO
|
||||
OUTPUT F_CLIFOR3 DESCR
|
||||
END
|
||||
|
||||
STRING F_CONTO3 2
|
||||
BEGIN
|
||||
PROMPT 9 5 ""
|
||||
FIELD FID->S3[5,6]
|
||||
END
|
||||
|
||||
STRING F_SOTTO3 6
|
||||
BEGIN
|
||||
PROMPT 13 5 ""
|
||||
FIELD FID->S1[13,18]
|
||||
END
|
||||
|
||||
STRING F_CLIFOR3 50
|
||||
BEGIN
|
||||
PROMPT 24 5 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_GRUPPO4 2
|
||||
BEGIN
|
||||
PROMPT 3 6 ""
|
||||
FIELD FID->S2[7,8]
|
||||
USE 19 //PIANO DEI CONTI
|
||||
INPUT GRUPPO F_GRUPPO4
|
||||
INPUT CONTO F_CONTO4
|
||||
INPUT SOTTOCONTO F_SOTTO4
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO4 GRUPPO
|
||||
OUTPUT F_CONTO4 CONTO
|
||||
OUTPUT F_SOTTO4 SOTTOCONTO
|
||||
OUTPUT F_CLIFOR4 DESCR
|
||||
END
|
||||
|
||||
STRING F_CONTO4 2
|
||||
BEGIN
|
||||
PROMPT 9 6 ""
|
||||
FIELD FID->S3[7,8]
|
||||
END
|
||||
|
||||
STRING F_SOTTO4 6
|
||||
BEGIN
|
||||
PROMPT 13 6 ""
|
||||
FIELD FID->S1[19,24]
|
||||
END
|
||||
|
||||
STRING F_CLIFOR4 50
|
||||
BEGIN
|
||||
PROMPT 24 6 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_GRUPPO5 2
|
||||
BEGIN
|
||||
PROMPT 3 7 ""
|
||||
FIELD FID->S2[9,10]
|
||||
USE 19 //PIANO DEI CONTI
|
||||
INPUT GRUPPO F_GRUPPO5
|
||||
INPUT CONTO F_CONTO5
|
||||
INPUT SOTTOCONTO F_SOTTO5
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO5 GRUPPO
|
||||
OUTPUT F_CONTO5 CONTO
|
||||
OUTPUT F_SOTTO5 SOTTOCONTO
|
||||
OUTPUT F_CLIFOR5 DESCR
|
||||
END
|
||||
|
||||
STRING F_CONTO5 2
|
||||
BEGIN
|
||||
PROMPT 9 7 ""
|
||||
FIELD FID->S3[9,10]
|
||||
END
|
||||
|
||||
STRING F_SOTTO5 6
|
||||
BEGIN
|
||||
PROMPT 13 7 ""
|
||||
FIELD FID->S1[25,30]
|
||||
END
|
||||
|
||||
STRING F_CLIFOR5 50
|
||||
BEGIN
|
||||
PROMPT 24 7 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_GRUPPO6 2
|
||||
BEGIN
|
||||
PROMPT 3 8 ""
|
||||
FIELD FID->S2[11,12]
|
||||
USE 19 //PIANO DEI CONTI
|
||||
INPUT GRUPPO F_GRUPPO6
|
||||
INPUT CONTO F_CONTO6
|
||||
INPUT SOTTOCONTO F_SOTTO6
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO6 GRUPPO
|
||||
OUTPUT F_CONTO6 CONTO
|
||||
OUTPUT F_SOTTO6 SOTTOCONTO
|
||||
OUTPUT F_CLIFOR6 DESCR
|
||||
END
|
||||
|
||||
STRING F_CONTO6 2
|
||||
BEGIN
|
||||
PROMPT 9 8 ""
|
||||
FIELD FID->S3[11,12]
|
||||
END
|
||||
|
||||
STRING F_SOTTO6 6
|
||||
BEGIN
|
||||
PROMPT 13 8 ""
|
||||
FIELD FID->S1[31,36]
|
||||
END
|
||||
|
||||
STRING F_CLIFOR6 50
|
||||
BEGIN
|
||||
PROMPT 24 8 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_GRUPPO7 2
|
||||
BEGIN
|
||||
PROMPT 3 9 ""
|
||||
FIELD FID->S2[13,14]
|
||||
USE 19 //PIANO DEI CONTI
|
||||
INPUT GRUPPO F_GRUPPO7
|
||||
INPUT CONTO F_CONTO7
|
||||
INPUT SOTTOCONTO F_SOTTO7
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO7 GRUPPO
|
||||
OUTPUT F_CONTO7 CONTO
|
||||
OUTPUT F_SOTTO7 SOTTOCONTO
|
||||
OUTPUT F_CLIFOR7 DESCR
|
||||
END
|
||||
|
||||
|
||||
STRING F_CONTO7 2
|
||||
BEGIN
|
||||
PROMPT 9 9 ""
|
||||
FIELD FID->S3[13,14]
|
||||
END
|
||||
|
||||
|
||||
STRING F_SOTTO7 6
|
||||
BEGIN
|
||||
PROMPT 13 9 ""
|
||||
FIELD FID->S1[37,42]
|
||||
END
|
||||
|
||||
STRING F_CLIFOR7 50
|
||||
BEGIN
|
||||
PROMPT 24 9 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_GRUPPO8 2
|
||||
BEGIN
|
||||
PROMPT 3 10 ""
|
||||
FIELD FID->S2[15,16]
|
||||
USE 19 //PIANO DEI CONTI
|
||||
INPUT GRUPPO F_GRUPPO8
|
||||
INPUT CONTO F_CONTO8
|
||||
INPUT SOTTOCONTO F_SOTTO8
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO8 GRUPPO
|
||||
OUTPUT F_CONTO8 CONTO
|
||||
OUTPUT F_SOTTO8 SOTTOCONTO
|
||||
OUTPUT F_CLIFOR8 DESCR
|
||||
END
|
||||
|
||||
STRING F_CONTO8 2
|
||||
BEGIN
|
||||
PROMPT 9 10 ""
|
||||
FIELD FID->S3[15,16]
|
||||
END
|
||||
|
||||
STRING F_SOTTO8 6
|
||||
BEGIN
|
||||
PROMPT 13 10 ""
|
||||
FIELD FID->S1[43,48]
|
||||
END
|
||||
|
||||
STRING F_CLIFOR8 50
|
||||
BEGIN
|
||||
PROMPT 24 10 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_GRUPPO9 2
|
||||
BEGIN
|
||||
PROMPT 3 11 ""
|
||||
FIELD FID->S2[17,18]
|
||||
USE 19 //PIANO DEI CONTI
|
||||
INPUT GRUPPO F_GRUPPO9
|
||||
INPUT CONTO F_CONTO9
|
||||
INPUT SOTTOCONTO F_SOTTO9
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO9 GRUPPO
|
||||
OUTPUT F_CONTO9 CONTO
|
||||
OUTPUT F_SOTTO9 SOTTOCONTO
|
||||
OUTPUT F_CLIFOR9 DESCR
|
||||
END
|
||||
|
||||
|
||||
STRING F_CONTO9 2
|
||||
BEGIN
|
||||
PROMPT 9 11 ""
|
||||
FIELD FID->S3[17,18]
|
||||
END
|
||||
|
||||
|
||||
STRING F_SOTTO9 6
|
||||
BEGIN
|
||||
PROMPT 13 11 ""
|
||||
FIELD FID->S1[49,54]
|
||||
END
|
||||
|
||||
STRING F_CLIFOR9 50
|
||||
BEGIN
|
||||
PROMPT 24 11 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_GRUPPO10 2
|
||||
BEGIN
|
||||
PROMPT 3 12 ""
|
||||
FIELD FID->S2[19,20]
|
||||
USE 19 //PIANO DEI CONTI
|
||||
INPUT GRUPPO F_GRUPPO10
|
||||
INPUT CONTO F_CONTO10
|
||||
INPUT SOTTOCONTO F_SOTTO10
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO10 GRUPPO
|
||||
OUTPUT F_CONTO10 CONTO
|
||||
OUTPUT F_SOTTO10 SOTTOCONTO
|
||||
OUTPUT F_CLIFOR10 DESCR
|
||||
END
|
||||
|
||||
STRING F_CONTO10 2
|
||||
BEGIN
|
||||
PROMPT 9 12 ""
|
||||
FIELD FID->S3[19,20]
|
||||
END
|
||||
|
||||
STRING F_SOTTO10 6
|
||||
BEGIN
|
||||
PROMPT 13 12 ""
|
||||
FIELD FID->S1[55,60]
|
||||
END
|
||||
|
||||
STRING F_CLIFOR10 50
|
||||
BEGIN
|
||||
PROMPT 24 12 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
LISTBOX F_TIPOAFF 33
|
||||
BEGIN
|
||||
PROMPT 1 14 "Tipo affidabilità "
|
||||
ITEM "1|Controllo completo con blocco "
|
||||
ITEM "2|Controllo completo con forzatura "
|
||||
ITEM "3|Solo mastrino con forzatura "
|
||||
FIELD FID->S5[1]
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
108
ve/vetbpro.uml
108
ve/vetbpro.uml
@ -1,108 +0,0 @@
|
||||
#include "vetbpro.h"
|
||||
#define LF_CLIFOR 20
|
||||
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Archivio provvigioni " 11 60 14
|
||||
|
||||
|
||||
LISTBOX F_TIPOCF 1
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
ITEM "C|"
|
||||
FLAG "H"
|
||||
END
|
||||
|
||||
|
||||
STRING F_CODCLI 6
|
||||
BEGIN
|
||||
PROMPT 3 3 "Codice cliente "
|
||||
FIELD PRO->CODTAB
|
||||
KEY 1
|
||||
USE LF_CLIFOR
|
||||
FLAG "U"
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCLI
|
||||
DISPLAY "Cod. cliente " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCLI CODCF
|
||||
OUTPUT F_CODCLI1 RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_CODCLI1 50
|
||||
BEGIN
|
||||
PROMPT 3 4 "Ragione sociale "
|
||||
KEY 2
|
||||
USE LF_CLIFOR KEY 2
|
||||
FLAG "U"
|
||||
INPUT RAGSOC F_CODCLI1
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
|
||||
DISPLAY "Cod. cliente " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCLI CODCF
|
||||
OUTPUT F_CODCLI1 RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_CODAGENTE 6
|
||||
BEGIN
|
||||
PROMPT 3 6 "Codice agente "
|
||||
FIELD PRO->S0
|
||||
KEY 1
|
||||
USE AGE
|
||||
FLAG "U"
|
||||
INPUT CODTAB F_CODAGENTE
|
||||
DISPLAY "Cod. agente " CODTAB
|
||||
DISPLAY "Descrizione@30" S0
|
||||
|
||||
OUTPUT F_CODAGENTE CODTAB
|
||||
OUTPUT F_CODAGENTE2 S0
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
|
||||
STRING F_CODAGENTE2 30
|
||||
BEGIN
|
||||
PROMPT 3 7 "Descrizione "
|
||||
KEY 2
|
||||
USE AGE KEY 2
|
||||
INPUT S0 F_CODAGENTE2
|
||||
DISPLAY "Cod. agente " CODTAB
|
||||
DISPLAY "Descrizione@30" S0
|
||||
|
||||
OUTPUT F_CODAGENTE CODTAB
|
||||
OUTPUT F_CODAGENTE2 S0
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
NUMBER F_IMPORTO 9 2
|
||||
BEGIN
|
||||
PROMPT 3 9 "Importo provvigione "
|
||||
FIELD PRO->R0
|
||||
END
|
||||
|
||||
NUMBER F_PERCENTUALE 5 2
|
||||
BEGIN
|
||||
PROMPT 3 11 "Percentuale provvigione "
|
||||
FIELD PRO->R1
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 75 14
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
ENDMASK
|
||||
@ -1,89 +0,0 @@
|
||||
#include "vetbspt.h"
|
||||
|
||||
TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Archivio specifiche tecniche" 11 60 14
|
||||
|
||||
STRING F_CODICE 15
|
||||
BEGIN
|
||||
PROMPT 1 3 "Codice articolo "
|
||||
FIELD SPT->CODTAB
|
||||
KEY 1
|
||||
|
||||
USE LF_ANAMAG
|
||||
FLAG "R"
|
||||
FLAG "U"
|
||||
INPUT CODART F_CODICE
|
||||
DISPLAY "Codice " CODART
|
||||
DISPLAY "Tipo " TIPO
|
||||
DISPLAY "Descrizione@50 " DESCR
|
||||
OUTPUT F_CODICE CODART
|
||||
OUTPUT F_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCR 30
|
||||
BEGIN
|
||||
PROMPT 38 3 ""
|
||||
KEY 2
|
||||
|
||||
USE LF_ANAMAG KEY 2
|
||||
FLAG "R"
|
||||
INPUT DESCR F_DESCR
|
||||
DISPLAY "Codice " CODART
|
||||
DISPLAY "Tipo " TIPO
|
||||
DISPLAY "Descrizione@50 " DESCR
|
||||
OUTPUT F_CODICE CODART
|
||||
OUTPUT F_DESCR DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
|
||||
TEXT F_DESCR7
|
||||
BEGIN
|
||||
PROMPT 1 5 "Specifiche "
|
||||
END
|
||||
|
||||
STRING F_DESCR1 70
|
||||
BEGIN
|
||||
PROMPT 3 7 ""
|
||||
FIELD SPT->S0
|
||||
END
|
||||
|
||||
STRING F_DESCR2 70
|
||||
BEGIN
|
||||
PROMPT 3 8 ""
|
||||
FIELD SPT->S1
|
||||
END
|
||||
|
||||
STRING F_DESCR3 50
|
||||
BEGIN
|
||||
PROMPT 3 9 ""
|
||||
FIELD SPT->S2
|
||||
END
|
||||
|
||||
STRING F_DESCR4 20
|
||||
BEGIN
|
||||
PROMPT 3 10 ""
|
||||
FIELD SPT->S3
|
||||
END
|
||||
|
||||
STRING F_DESCR5 20
|
||||
BEGIN
|
||||
PROMPT 3 11 ""
|
||||
FIELD SPT->S4
|
||||
END
|
||||
|
||||
STRING F_DESCR6 20
|
||||
BEGIN
|
||||
PROMPT 3 12 ""
|
||||
FIELD SPT->S5
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user