root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzzioni di piergiorgio

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3637 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-09-19 16:36:13 +00:00
parent fccc31b3b3
commit 55a4ce0fe7
14 changed files with 2285 additions and 2468 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ve/bastcaa.uml
View File

@ -1,12 +1,11 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Categorie Acquisti Articoli" -1 -1 50 8
PAGE "Stampa Categorie Acquisti Articoli" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da cod. articolo "
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE CAA
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. acquisto articolo" CODTAB
@ -17,10 +16,9 @@ END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A cod. articolo "
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1

8
ve/bastcra.uml
View File

@ -1,12 +1,11 @@
#include "../ba/ba3200.h"
PAGE "Stampa Tabella Categorie Ricavi Articoli" -1 -1 50 8
PAGE "Stampa Categorie Ricavi Articoli" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da cod. articolo "
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE CRA
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. ricavo articolo" CODTAB
@ -17,10 +16,9 @@ END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A cod. articolo "
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1

6
ve/bastrfa.uml
View File

@ -3,10 +3,9 @@
PAGE "Stampa Tabella Raggruppamento Fiscale Articoli " -1 -1 50 8
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "Da codice art. "
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE RFA
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -17,10 +16,9 @@ END
STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A codice art. "
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1

12
ve/batbcaa.rpt
View File

@ -1,17 +1,17 @@
[Relations]
19,GRUPPO=S1|CONTO=S2|SOTTOCONTO=S3
LF_PCON;GRUPPO==I0|CONTO==I1|SOTTOCONTO==I2
[Headers]
132
Tabella Categorie Acquisti Articoli
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
1|@68g%s|Codice Conto
1|@68g%s|Conto acquisti
[Rows]
1|CODTAB|@2g@3s
1|S0|@16g@50,ls
1|S1|@68g@3,ls
1|S2|@73g@3,ls
1|S3|@78g@6,ls
1|19->DESCR|@86g@50,ls
1|I0|@68g@3n
1|I1|@73g@3n
1|I2|@78g@6n
1|LF_PCON->DESCR|@86g@45,ls

62
ve/batbcaa.uml
View File

@ -1,8 +1,7 @@
#include "BATBCAA.H"
#define LF_PCON 19 //PIANO DEI CONTI
#include "batbcaa.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
#include <toolbar.h>
ENDPAGE
PAGE "Tabella categoria acquisti articoli " 11 60 14
@ -19,17 +18,13 @@ BEGIN
FIELD CODTAB
KEY 1
USE CAA
FLAG "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
@ -39,29 +34,25 @@ BEGIN
KEY 2
USE CAA KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_CODCON 3
NUMBER F_CODCON 3
BEGIN
PROMPT 2 8 "Codice conto "
FIELD S1
FLAG "R"
PROMPT 2 8 "Conto acquisti "
FIELD I0
CHECKTYPE NORMAL
END
STRING F_CODCON1 3
NUMBER F_CODCON1 3
BEGIN
PROMPT 25 8 ""
FIELD S2
USE LF_PCON SELECT INDBIL=3
FLAG "R"
PROMPT 22 8 ""
FIELD I1
USE LF_PCON SELECT INDBIL=="3"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
DISPLAY "Gruppo " GRUPPO
@ -69,18 +60,19 @@ BEGIN
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_DESCR1 DESCR
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un costo"
END
STRING F_CODCON2 6
NUMBER F_CODCON2 6
BEGIN
PROMPT 34 8 ""
FIELD S3
USE LF_PCON SELECT INDBIL=3
FLAG "R"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
PROMPT 30 8 ""
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_CODCON SELECT
INPUT CONTO F_CODCON1 SELECT
INPUT SOTTOCONTO F_CODCON2
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
@ -90,16 +82,28 @@ BEGIN
OUTPUT F_CODCON1 CONTO
OUTPUT F_CODCON2 SOTTOCONTO
OUTPUT F_DESCR1 DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCR1 50
BEGIN
PROMPT 17 10 ""
FLAG "D"
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_DESCR1
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_CODCON2
CHECKTYPE NORMAL
WARNING "Il conto deve essere un costo"
ADD RUN CG0 -0
END
ENDPAGE
ENDMASK

12
ve/batbcra.rpt
View File

@ -1,17 +1,17 @@
[Relations]
19,GRUPPO=S1|CONTO=S2|SOTTOCONTO=S3
LF_PCON;GRUPPO==I0|CONTO==I1|SOTTOCONTO==I2
[Headers]
132
Tabella Categorie Ricavi Articoli
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
1|@68g%s|Codice Conto
1|@68g%s|Conto vendite
[Rows]
1|CODTAB|@2g@3s
1|S0|@16g@50,ls
1|S1|@68g@3,ls
1|S2|@73g@3,ls
1|S3|@78g@6,ls
1|19->DESCR|@86g@50,ls
1|I0|@68g@3n
1|I1|@73g@3n
1|I2|@78g@6n
1|LF_PCON->DESCR|@86g@45,ls

63
ve/batbcra.uml
View File

@ -1,9 +1,7 @@
#include "BATBCRA.H"
#define LF_PCON 19 //PIANO DEI CONTI
#include "batbcra.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
#include <toolbar.h>
ENDPAGE
PAGE "Tabella categoria ricavi articoli " 11 60 14
@ -20,13 +18,10 @@ BEGIN
FIELD CODTAB
KEY 1
USE CRA
FLAG "U"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
@ -39,29 +34,25 @@ BEGIN
KEY 2
USE CRA KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50 " S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_CODCON 3
NUMBER F_CODCON 3
BEGIN
PROMPT 2 8 "Codice conto "
FIELD S1
FLAG "R"
PROMPT 2 8 "Conto vendita "
FIELD I0
CHECKTYPE NORMAL
END
STRING F_CODCON1 3
NUMBER F_CODCON1 3
BEGIN
PROMPT 25 8 ""
FIELD S2
USE LF_PCON SELECT INDBIL="4"
FLAG "R"
PROMPT 22 8 ""
FIELD I1
USE LF_PCON SELECT INDBIL=="4"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
DISPLAY "Gruppo " GRUPPO
@ -69,18 +60,19 @@ BEGIN
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODCON GRUPPO
OUTPUT F_CODCON1 CONTO
OUTPUT F_DESCR1 DESCR
CHECKTYPE NORMAL
ADD RUN CG0 -0
WARNING "Il conto deve essere un ricavo"
END
STRING F_CODCON2 6
NUMBER F_CODCON2 6
BEGIN
PROMPT 34 8 ""
FIELD S3
USE LF_PCON SELECT INDBIL="4"
FLAG "R"
INPUT GRUPPO F_CODCON
INPUT CONTO F_CODCON1
PROMPT 30 8 ""
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_CODCON SELECT
INPUT CONTO F_CODCON1 SELECT
INPUT SOTTOCONTO F_CODCON2
DISPLAY "Gruppo " GRUPPO
DISPLAY "Conto " CONTO
@ -90,17 +82,28 @@ BEGIN
OUTPUT F_CODCON1 CONTO
OUTPUT F_CODCON2 SOTTOCONTO
OUTPUT F_DESCR1 DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCR1 50
BEGIN
PROMPT 17 10 ""
FLAG "D"
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_DESCR1
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_CODCON2
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
ENDPAGE
ENDMASK

58
ve/batbrfa.rpt
View File

@ -1,30 +1,46 @@
[Relations]
ASF;CODTAB=S8,1,0,200
LF_PCON;GRUPPO==I0|CONTO==I1|SOTTOCONTO==I2;1;0;300
LF_PCON;GRUPPO==I3|CONTO==I4|SOTTOCONTO==I5;1;0;200
[Headers]
132
Tabella Raggruppamenti Fiscali Articoli
1|@2g%s|Codice
1|@15g%s|Descrizione
1|@71g%s|Unita' di Misura
1|@89g%s|Classe Fiscale
1|@105g%s|Descrizione
2|@15g%s|Perc. ricarico medio
2|@43g%s|Costo minimo
2|@57g%s|Massimo
2|@71g%s|Tipo costo
1|@2g%s|Cod.
1|@10g%s|Descrizione
1|@66g%s|U.M.
1|@72g%s|IVA
1|@78g%s|Classe Fisc.
1|@92g%s|% ricarico
1|@104g%s|Costo minimo
1|@118g%s|Costo Massimo
2|@10g%s|Tipo costo
2|@42g%s|Conto vendite
2|@85g%s|Conto acquisti
[Rows]
1|CODTAB|@2g@5s
1|S0|@15g@50,ls
1|S7|@71g@2,ls
1|S8|@89g@1,ls
1|-200->S0|@105g@50,ls
2|R0|@15g@6,rpn|####,@@
2|R1|@43g@12,rpn|############,@@
2|R2|@57g@12,rpn|############,@@
2|I0|@71g@30,ls
1|S0|@10g@50,ls
1|S7|@66g@2,ls
1|S9|@72g@4,ls
1|S8|@78g@2,ls
1|R0|@92g@6,rpn|###,@@
1|R1|@104g@12,rpn|#########,@@
1|R2|@118g@12,rpn|#########,@@
2|S6|@10g@30t
2|I3|@42g@3n
2|I4|@47g@3n
2|I5|@52g@6n
2|-200->DESCR|@60g@25,ls
2|I0|@87g@3n
2|I1|@92g@3n
2|I2|@97g@6n
2|-300->DESCR|@105g@25,ls
[Translations]
LF_TAB|S6|1|Costo medio annuale
LF_TAB|S6|2|Costo ultimi 3 mesi
LF_TAB|S6|3|Costo ultimo
LF_TAB|S6|4|Costo standard
LF_TAB|S6|5|Maggiore ultimi due costi
LF_TAB|S6|6|Costo massimo d'acquisto
LF_TAB|S6|7|Costo minimo d'acquisto

178
ve/batbrfa.uml
View File

@ -43,7 +43,7 @@ STRING FLD_TABRFA_S0 50
STRING FLD_TABRFA_S7 2
BEGIN
PROMPT 2 8 "Unita' di misura "
PROMPT 2 8 "Unita' di misura"
FIELD S7
FLAG "U"
USE %UMS
@ -54,14 +54,14 @@ STRING FLD_TABRFA_S7 2
WARNING "Unita' di misura errata"
END
STRING FLD_TABRFA_S8 1
STRING FLD_TABRFA_S8 2
BEGIN
PROMPT 2 9 "Classe fiscale "
PROMPT 2 9 "Classe fiscale "
FIELD S8
USE %ASF
USE ASF
INPUT CODTAB FLD_TABRFA_S8
DISPLAY "Cl. Fisc." CODTAB
DISPLAY "Descrizione@30" S0
DISPLAY "Descrizione@50" S0
OUTPUT FLD_TABRFA_S8 CODTAB
OUTPUT FLD_DESCFA S0
CHECKTYPE NORMAL
@ -69,8 +69,8 @@ STRING FLD_TABRFA_S8 1
STRING FLD_DESCFA 50
BEGIN
PROMPT 30 9 ""
USE %ASF KEY 2
PROMPT 28 9 ""
USE ASF KEY 2
INPUT S0 FLD_DESCFA
DISPLAY "Descrizione@50" S0
DISPLAY "Cl. Fisc." CODTAB
@ -81,13 +81,12 @@ STRING FLD_DESCFA 50
STRING FLD_TABRFA_S9 4
BEGIN
PROMPT 2 10 "Cod.IVA riferimento "
PROMPT 2 10 "Cod.IVA "
FIELD S9
USE %IVA
INPUT CODTAB FLD_TABRFA_S9
DISPLAY "Codice IVA" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Aliquota" R0
OUTPUT FLD_TABRFA_S9 CODTAB
OUTPUT FLD_DESIVA S0
CHECKTYPE NORMAL
@ -95,19 +94,25 @@ STRING FLD_TABRFA_S9 4
STRING FLD_DESIVA 50
BEGIN
PROMPT 30 10 ""
FLAG "D"
PROMPT 28 10 ""
USE %IVA KEY 2
INPUT S0 FLD_DESIVA
DISPLAY "Descrizione@50" S0
DISPLAY "Codice IVA" CODTAB
OUTPUT FLD_TABRFA_S9 CODTAB
OUTPUT FLD_DESIVA S0
CHECKTYPE NORMAL
END
NUMBER FLD_TABRFA_R0 6 2
BEGIN
PROMPT 2 11 "% di ricarico medio "
PROMPT 2 11 "% ricarico medio"
FIELD R0
END
NUMBER FLD_TABRFA_R1 12 2
BEGIN
PROMPT 2 12 "Costo minimo "
PROMPT 2 12 "Costo minimo "
FIELD R1
END
@ -119,8 +124,8 @@ NUMBER FLD_TABRFA_R2 12 2
LIST FLD_TABRFA_I0 1 30
BEGIN
PROMPT 2 13 "Tipo costo "
FIELD I0
PROMPT 2 13 "Tipo costo "
FIELD S6
HELP "Inserire il tipo di costo"
ITEM "1|Costo medio annuale"
ITEM "2|Costo ultimi 3 mesi"
@ -131,69 +136,38 @@ LIST FLD_TABRFA_I0 1 30
ITEM "7|Costo minimo d'acquisto"
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 14 "Conto d'acquisto "
FIELD I0
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 27 14 ""
FIELD I1
END
NUMBER F_SOTTOCA 6
BEGIN
PROMPT 32 14 ""
FIELD I2
USE LF_PCON
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
END
STRING F_DESCRA 50
BEGIN
PROMPT 22 15 ""
FLAG "U"
USE LF_PCON KEY 2
INPUT DESCR F_DESCRA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCA
END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 16 "Conto di vendita "
PROMPT 2 14 "Conto di vendita"
FIELD I3
CHECKTYPE NORMAL
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 27 16 ""
FIELD I4
PROMPT 23 14 ""
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 32 16 ""
PROMPT 31 14 ""
FIELD I5
USE LF_PCON
INPUT GRUPPO F_GRUPPOV
INPUT CONTO F_CONTOV
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOV SELECT
INPUT CONTO F_CONTOV SELECT
INPUT SOTTOCONTO F_SOTTOCV
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
@ -204,19 +178,87 @@ BEGIN
OUTPUT F_SOTTOCV SOTTOCONTO
OUTPUT F_DESCRV DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING F_DESCRV 50
BEGIN
PROMPT 22 17 ""
PROMPT 18 15 ""
FLAG "U"
USE LF_PCON KEY 2
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
COPY OUTPUT F_SOTTOCV
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 16 "Conto d'acquisto"
FIELD I0
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 23 16 ""
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 31 16 ""
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
INPUT GRUPPO F_GRUPPOA SELECT
INPUT CONTO F_CONTOA SELECT
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 18 17 ""
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
COPY OUTPUT F_SOTTOCA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
ENDPAGE

1
ve/batbtri.rpt
View File

@ -13,4 +13,5 @@ LF_TABCOM|S7|M|Merce
LF_TABCOM|S7|S|Spese
LF_TABCOM|S7|C|Sconti
LF_TABCOM|S7|D|Descrizioni
LF_TABCOM|S7|O|Omaggi"
LF_TABCOM|S7|P|Prestazioni

25
ve/bollac.src
View File

@ -10,7 +10,8 @@ TYPE=Bolla di vendita
MSKFILE=BOLLAC
FRMFILE=BOLLAC.FRM
// modifica
PROGPIEDE=IMPN|SCODOC|IMPS|IMPOSTA|SPESE|TOTALE|PROVVDOC
CAMPICALC=IMPN|SCODOC|IMPS|IMPOSTA|SPESE|TOTALE|PROVVDOC
CALCOLI=
// modifica
// Procedure utente da chiamare per il documento ( preprocessarle? )
NUOVO=
@ -168,15 +169,7 @@ IMPNETTI = S_NORMALE //2200
RAGGR = S_NORMALE //2300
RAGGREFF = S_NASCOSTO //2300
SPESEINC = S_NORMALE //2400
GRADD = S_NORMALE //2500
ADDBRB = S_NORMALE //2500
ADDBTR = S_NORMALE //2500
ADDBDE = S_NORMALE //2500
GRCODIVA = S_NORMALE //2600
CODIVABRB = S_NORMALE //2600
CODIVABTR = S_NORMALE //2600
CODIVABTRE = S_NORMALE //2600
CODIVABDE = S_NORMALE //2600
ADDBOLLI = S_NORMALE //2400
UMTARA = S_NORMALE //2710
TARA = S_NORMALE //2710
DESUMTARA = S_NASCOSTO //2710
@ -209,13 +202,16 @@ NCOLS=10
10=FR_CODIVA
[RIGHE]
NTIPIRIGA=6
NTIPIRIGA=9
1=01
2=02
3=03
4=04
5=05
6=06
7=07
8=08
9=09
[HANDLERS]
NHANDLER=0
@ -251,8 +247,6 @@ NHANDLER=0
2200 = S_NORMALE
2300 = S_NORMALE
2400 = S_NORMALE
2500 = S_NORMALE
2600 = S_NORMALE
2700 = S_NORMALE
2710 = S_NORMALE
2800 = S_NORMALE
@ -260,7 +254,7 @@ NHANDLER=0
4000 = S_NORMALE
[ORDINEGRUPPI]
NGROUPS=30
NGROUPS=28
1=100
2=200
3=300
@ -289,6 +283,5 @@ NGROUPS=30
26=2710
27=1700
28=2400
29=2500
30=2600


88
ve/fatturac.src
View File

@ -9,7 +9,8 @@ TYPE=Fattura di vendita
MSKFILE=FATTURAC
FRMFILE=FATTURAC.FRM
// modifica
PROGPIEDE=TOTNETTI
CAMPICALC=IMPN|SCODOC|IMPS|IMPOSTA|SPESE|TOTALE|PROVVDOC
CALCOLI=
// modifica
// Procedure utente da chiamare per il documento ( preprocessarle? )
NUOVO=
@ -61,7 +62,7 @@ STATOFINALE=9
// 1|Prompt|Help|Warning
OCCASEDIT = S_NORMALE //100
OCFPI = S_NORMALE //100
OCFPI = S_NASCOSTO //100
COFI = S_NORMALE //100
STATOPAIV = S_NORMALE //100
PAIVA = S_NORMALE //100
@ -75,10 +76,13 @@ COMCF = S_DISABILITATO //100
DENCOM = S_DISABILITATO //100
STATOCF = S_DISABILITATO //100
DESSTATOCF = S_DISABILITATO //100
CODVAL = S_NORMALE //200
NOME_VAL = S_NORMALE //200
CODVAL1 = S_NORMALE //200
CODVAL2 = S_NORMALE //200
NOME_VAL1 = S_NORMALE //200
NOME_VAL2 = S_NORMALE //200
CAMBIO = S_NORMALE //200
DATA_CAMBIO = S_DISABILITATO //200
DATA_CAMBIO1 = S_NORMALE //200
DATA_CAMBIO2 = S_NORMALE //200
CODLIN = S_NORMALE //300
DESLIN = S_NORMALE //300
CODPAG = S_OBBLIGATORIO //400
@ -109,7 +113,9 @@ DESCAMP = S_DISABILITATO //820
SCONTOPERC = S_NORMALE //830
CODAG = S_NORMALE //1100
DESAG = S_NORMALE //1100
CODPORTO = S_OBBLIGATORIO //1210
CODZON = S_NORMALE //1100
DESZON = S_NORMALE //1100
CODPORTO = S_NORMALE //1210
DESPORTO = S_NORMALE //1210
CODVETT1 = S_NORMALE //1500
CODVETT2 = S_NASCOSTO //1500
@ -117,7 +123,7 @@ CODVETT3 = S_NASCOSTO //1500
NOMEVETT1 = S_NORMALE //1500
NOMEVETT2 = S_NASCOSTO //1500
NOMEVETT3 = S_NASCOSTO //1500
NCOPIE = S_OBBLIGATORIO //1600
NCOPIE = S_NASCOSTO //1600
IMPPAGATO = S_NORMALE //1800
ACCSALDO = S_NORMALE //1800
DOC1 = S_NASCOSTO //1900
@ -126,25 +132,8 @@ DOC3 = S_NASCOSTO //1900
IMPNETTI = S_NORMALE //2200
RAGGREFF = S_NORMALE //2300
SPESEINC = S_NORMALE //2400
GRADD = S_NORMALE //2500
ADDBRB = S_NORMALE //2500
ADDBTR = S_NORMALE //2500
ADDBDE = S_NORMALE //2500
GRCODIVA = S_NORMALE //2600
CODIVABRB = S_NORMALE //2600
CODIVABTR = S_NORMALE //2600
CODIVABTRE = S_NORMALE //2600
CODIVABDE = S_NORMALE //2600
SCONFIS = S_NORMALE //3000
RICFIS = S_NORMALE //3200
//NATTRASP = S_NASCOSTO //3300
//NATTRANS = S_NASCOSTO //3300
//REGIME = S_NASCOSTO //3300
GRSPESEADD = S_NORMALE //3400
SPESEADD1 = S_NORMALE //3400
SPESEADD2 = S_NORMALE //3400
SPESEADD3 = S_NORMALE //3400
SPESEADD4 = S_NORMALE //3400
ADDBOLLI = S_NORMALE //2500
BLANK = S_DISABILITATO //4000
[DEFAULT]
NDEFAULTS=0
@ -163,12 +152,19 @@ NCOLS=10
10=FR_CODIVA
[RIGHE]
NTIPIRIGA=1
NTIPIRIGA=9
1=01
2=02
3=03
4=04
5=05
6=06
7=07
8=08
9=09
[HANDLERS]
NHANDLER=0
1 = F_ORAPART|1
[PROFILOGRUPPO]
101 = S_NASCOSTO
@ -185,22 +181,17 @@ NHANDLER=0
830 = S_NORMALE
1100 = S_NORMALE
1210 = S_NORMALE
1500 = S_OBBLIGATORIO
1600 = S_NORMALE
1500 = S_NORMALE
1600 = S_NASCOSTO
1800 = S_NORMALE
1900 = S_NORMALE
2200 = S_NORMALE
2300 = S_NORMALE
2400 = S_NORMALE
2500 = S_NORMALE
2600 = S_NORMALE
3000 = S_NORMALE
3200 = S_NORMALE
//3300 = S_NASCOSTO
3400 = S_NORMALE
4000 = S_NORMALE
[ORDINEGRUPPI]
NGROUPS=25
NGROUPS=17
1=100
2=200
3=300
@ -211,19 +202,12 @@ NGROUPS=25
8=800
9=810
10=820
11=1100
12=1210
13=1500
14=830
15=1800
16=1900
17=2200
18=2300
19=2400
20=2500
21=2600
22=3000
23=3200
24=3400
25=1600
11=830
12=1100
13=1800
14=1900
15=2200
16=2300
17=2400


242
ve/ve0300a.src
View File

@ -15,6 +15,7 @@
// T_LISTA
// T_MEMO
// T_CORNICE
// T_ZOOM (da implementare)
// SIZE = E' la dimesione del campo nella maschera. Per i tipi che richiedono due dimensioni,
// si fa dimensione1 * 100 + dimesione2
// PROMPT = E' il prompt di default per il campo ( pur essere cambiato nel .INI )
@ -1278,9 +1279,9 @@ X=2
Y=0
FIELDNAME=DOC1
MSKID=F_DOC1
TYPE=T_STRINGA
TYPE=T_MEMO
PROMPT="Documento 1 "
SIZE=12
SIZE=50
[DOC2]
GROUP=1900
@ -1288,9 +1289,9 @@ X=2
Y=1
FIELDNAME=DOC2
MSKID=F_DOC2
TYPE=T_STRINGA
TYPE=T_MEMO
PROMPT="Documento 2 "
SIZE=12
SIZE=50
[DOC3]
GROUP=1900
@ -1298,9 +1299,9 @@ X=2
Y=2
FIELDNAME=DOC3
MSKID=F_DOC3
TYPE=T_STRINGA
TYPE=T_MEMO
PROMPT="Documento 3 "
SIZE=12
SIZE=50
[DATACONS]
GROUP=2000
@ -1384,112 +1385,18 @@ X=2
Y=0
FIELDNAME=SPESEINC
MSKID=151
TYPE=T_CHECKBOX
TYPE=T_NUMERO
PROMPT="Spese all'incasso "
SIZE=602
[GRADD]
GROUP=2500
X=1
Y=0
MSKID=DLG_NULL
TYPE=T_CORNICE
PROMPT="Addebiti"
SIZE=7603
[ADDBRB]
GROUP=2500
X=2
Y=1
FIELDNAME=ADDBRB
MSKID=F_ADDBRB
TYPE=T_CHECKBOX
PROMPT="Bolli ricevute bancarie"
SPECIAL=ME 0 DISABLE,F_CODIVABRB~ME 1 ENABLE,F_CODIVABRB
[ADDBTR]
GROUP=2500
X=32
Y=1
FIELDNAME=ADDBTR
MSKID=F_ADDBTR
TYPE=T_CHECKBOX
PROMPT="Bolli tratte"
SPECIAL=ME 0 DISABLE,F_CODIVABTR|DISABLE,F_CODIVABTRE~ME 1 ENABLE,F_CODIVABTR|ENABLE,F_CODIVABTRE
[ADDBDE]
GROUP=2500
X=51
Y=1
FIELDNAME=ADDBDE
MSKID=F_ADDBDE
TYPE=T_CHECKBOX
PROMPT="Bolli documenti esenti"
SPECIAL=ME 0 DISABLE,F_CODIVABDE~ME 1 ENABLE,F_CODIVABDE
[GRCODIVA]
GROUP=2600
X=1
Y=0
MSKID=DLG_NULL
TYPE=T_CORNICE
PROMPT="Codici iva bolli"
SIZE=7604
[CODIVABRB]
GROUP=2600
X=2
Y=1
FIELDNAME=CODIVABRB
MSKID=F_CODIVABRB
TYPE=T_STRINGA
PROMPT="Ricevute bancarie "
USE=%IVA
INPUT=CODTAB F_CODIVABRB
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
OUTPUT=F_CODIVABRB CODTAB
SIZE=4
[CODIVABTR]
GROUP=2600
[ADDBOLLI]
GROUP=2400
X=40
Y=1
FIELDNAME=CODIVABTR
MSKID=F_CODIVABTR
TYPE=T_STRINGA
PROMPT="Tratte "
USE=%IVA
INPUT=CODTAB F_CODIVABTR
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
OUTPUT=F_CODIVABTR CODTAB
SIZE=4
[CODIVABTRE]
GROUP=2600
X=2
Y=2
FIELDNAME=CODIVABTRE
MSKID=F_CODIVABTRE
TYPE=T_STRINGA
PROMPT="Tratte estere "
USE=%IVA
INPUT=CODTAB F_CODIVABTRE
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
OUTPUT=F_CODIVABTRE CODTAB
SIZE=4
[CODIVABDE]
GROUP=2600
X=40
Y=2
FIELDNAME=CODIVABDE
MSKID=F_CODIVABDE
TYPE=T_STRINGA
PROMPT="Documenti esenti "
USE=%IVA
INPUT=CODTAB F_CODIVABDE
DISPLAY="Codice" CODTAB~"Descrizione@50" S0
OUTPUT=F_CODIVABDE CODTAB
SIZE=4
Y=0
FIELDNAME=ADDBOLLI
MSKID=F_ADDBOLLI
TYPE=T_CHECKBOX
PROMPT="Addebito bolli "
[UMPNETTO]
GROUP=2700
@ -1627,122 +1534,6 @@ PROMPT="Causale di magazzino 2 "
SIZE=50
FLAG=U
// ??? Campi aggiunti da Andrea
//[SCONFIS]
//GROUP=3000
//X=2
//Y=0
//FIELDNAME=???
//MSKID=F_SCONFIS
//TYPE=T_STRINGA
//PROMPT="Scontrino Fiscale "
//SIZE=30
//[RICFIS]
//GROUP=3200
//X=2
//Y=0
//FIELDNAME=???
//MSKID=F_RICFIS
//TYPE=T_CHECKBOX
//PROMPT="Ricevuta fiscale"
//[GRSPESEADD]
//GROUP=3400
//X=2
//Y=0
//MSKID=DLG_NULL
//TYPE=T_CORNICE
//PROMPT=Spese da addebitare
//SIZE=4004
//[SPESEADD1]
//GROUP=3400
//X=2
//Y=1
//FIELDNAME=???
//MSKID=F_SPESEADD1
//TYPE=T_STRINGA
//PROMPT="Spesa 1 "
//USE=%SAD
//INPUT=CODTAB F_SPESEADD1
//DISPLAY="Codice Spesa " CODTAB~"Descrizione@20" S0
//OUTPUT=F_SPESEADD1 CODTAB
//SIZE=3
//[SPESEADD2]
//GROUP=3400
//X=24
//Y=1
//FIELDNAME=???
//MSKID=F_SPESEADD2
//TYPE=T_STRINGA
//PROMPT="Spesa 2 "
//USE=@F_SPESEADD1
//INPUT=CODTAB F_SPESEADD2
//DISPLAY=@F_SPESEADD1
//OUTPUT=F_SPESEADD2 CODTAB
//SIZE=3
//[SPESEADD3]
//GROUP=3400
//X=2
//Y=2
//FIELDNAME=???
//MSKID=F_SPESEADD3
//TYPE=T_STRINGA
//PROMPT="Spesa 3 "
//USE=@F_SPESEADD1
//INPUT=CODTAB F_SPESEADD3
//DISPLAY=@F_SPESEADD1
//OUTPUT=F_SPESEADD3 CODTAB
//SIZE=3
//[SPESEADD4]
//GROUP=3400
//X=24
//Y=2
//FIELDNAME=???
//MSKID=F_SPESEADD4
//TYPE=T_STRINGA
//PROMPT="Spesa 4 "
//USE=@F_SPESEADD1
//INPUT=CODTAB F_SPESEADD4
//DISPLAY=@F_SPESEADD1
//OUTPUT=F_SPESEADD4 CODTAB
//SIZE=3
//[NATTRASP]
//GROUP=3300
//X=2
//Y=0
//FIELDNAME=???
//MSKID=F_NATTRASP
//TYPE=T_STRINGA
//PROMPT="Natura trasporto "
//SIZE=3
//[NATTRANS]
//GROUP=3300
//X=2
//Y=1
//FIELDNAME=???
//MSKID=F_NATRANS
//TYPE=T_STRINGA
//PROMPT="Natura transazione "
//SIZE=3
//[REGIME]
//GROUP=3300
//X=40
//Y=1
//FIELDNAME=???
//MSKID=F_REGIME
//TYPE=T_STRINGA
//PROMPT="Regime "
//SIZE=3
[BLANK]
GROUP=4000
X=100
@ -1752,3 +1543,4 @@ TYPE=T_STRINGA
PROMPT=""
SIZE=1


14
ve/veuml.h
View File

@ -53,13 +53,7 @@
#define F_IMPNETTI 149
#define F_RAGGREFF 150 // GESTITO DAL MOTORE
#define F_SPESEINC 151
#define F_ADDBRB 152
#define F_ADDBTR 153
#define F_ADDBDE 154
#define F_CODIVABRB 155
#define F_CODIVABTR 156
#define F_CODIVABTRE 157
#define F_CODIVABDE 158
#define F_ADDBOLLI 152
#define F_UMTARA 159
#define F_TARA 160
#define F_UMPNETTO 161
@ -82,12 +76,6 @@
#define F_ATTIVAANNO 179 // GESTITO DAL MOTORE
#define F_OCCASEDIT 180 // GESTITO DAL MOTORE
#define F_CATVEN 181
#define F_SCONFIS 182 // Andrea ?? verificare
#define F_RICFIS 183 // Andrea ?? verificare
#define F_SPESEADD1 184 // Andrea ?? verificare
#define F_SPESEADD2 185 // Andrea ?? verificare
#define F_SPESEADD3 186 // Andrea ?? verificare
#define F_SPESEADD4 187 // Andrea ?? verificare
#define F_CODVAL1 200
#define F_NOMEVAL1 201