Correzioni per il modulo vendite

git-svn-id: svn://10.65.10.50/trunk@1751 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1995-08-29 14:17:29 +00:00
parent 3d9ba10ce5
commit d051e53b04
16 changed files with 520 additions and 0 deletions

42
ve/bastcaa.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Tabella Categorie Acquisti Articoli" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da cod. articolo "
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
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A cod. articolo "
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
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/bastcra.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Tabella Categorie Ricavi Articoli" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da cod. articolo "
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
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A cod. articolo "
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
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

66
ve/bastgmc.uml Executable file
View File

@ -0,0 +1,66 @@
#include "ba3200.h"
PAGE "Stampa Tabella Gruppi Merceologici" -1 -1 58 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice (Gruppo) "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,3]
USE GMC
INPUT CODTAB[1,3] F_INIZIO1
INPUT CODTAB[4,5] F_INIZIO2
DISPLAY "Codice Gruppo" CODTAB[1,3]
DISPLAY "Codice Sottogruppo" CODTAB[4,5]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,3]
OUTPUT F_INIZIO2 CODTAB[4,5]
GROUP 1
END
STRING F_INIZIO2 2
BEGIN
PROMPT 28 1 "Da codice (Sottogruppo) "
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[4,5]
COPY ALL F_INIZIO1
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice (Gruppo) "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,3]
COPY USE F_INIZIO1
INPUT CODTAB[1,3] F_FINE1
INPUT CODTAB[4,5] F_FINE2
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,3]
OUTPUT F_FINE2 CODTAB[4,5]
GROUP 2
END
STRING F_FINE2 2
BEGIN
PROMPT 28 3 "A codice (Sottogruppo) "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[4,5]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/bastimb.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Tabella Imballaggi" -1 -1 50 8
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "Da cod. imballaggio "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE IMB
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. imballaggio" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A cod. imballaggio "
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
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/bastrfa.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Tabella Raggruppamento Fiscale Articoli " -1 -1 50 8
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "Da codice art. "
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
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A codice art. "
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
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/basttag.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Tabella Taglie" -1 -1 50 8
STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da cod. taglia "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE TAG
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. Taglia" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 2
BEGIN
PROMPT 2 3 "A cod. taglia "
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
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/bastubi.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Tabella Ubicazioni" -1 -1 50 8
STRING F_INIZIO1 10
BEGIN
PROMPT 2 1 "Da cod. ubicazione "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE UBI
INPUT CODTAB F_INIZIO1
DISPLAY "Cod. ubicazione" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 10
BEGIN
PROMPT 2 3 "A cod. ubicazione "
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
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ve/bastums.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Tabella Unita' di Misura" -1 -1 50 8
STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da Unita' di misura "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %UMS
INPUT CODTAB F_INIZIO1
DISPLAY "Unita' di misura" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 2
BEGIN
PROMPT 2 3 "A Unita' di misura "
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
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

17
ve/batbcaa.rpt Executable file
View File

@ -0,0 +1,17 @@
[Relations]
19,GRUPPO=S1|CONTO=S2|SOTTOCONTO=S3
[Headers]
132
Tabella Categorie Acquisti Articoli
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
1|@68g%s|Codice Conto
[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

17
ve/batbcra.rpt Executable file
View File

@ -0,0 +1,17 @@
[Relations]
19,GRUPPO=S1|CONTO=S2|SOTTOCONTO=S3
[Headers]
132
Tabella Categorie Ricavi Articoli
1|@2g%s|Cod. Tabella
1|@16g%s|Descrizione
1|@68g%s|Codice Conto
[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

17
ve/batbgmc.rpt Executable file
View File

@ -0,0 +1,17 @@
[Headers]
132
Tabella Gruppi Merceologici
1|@2g%s|Codice Gruppo
1|@17g%s|Codice Sottogruppo
1|@50g%s|Descrizione Gruppo/Sottogruppo
2|@17g%s|Codice Aggiornamento Documenti
2|@50g%s|Codice Aggiornamento Omaggi
2|@85g%s|Codice Aggiornamento Sconti
[Rows]
1|CODTAB[1,3]|@2g@3s
1|CODTAB[4,5]|@17g@2s
1|S0|@50g@50,ls
2|S4|@17g@2,ls
2|S5|@50g@2,ls
2|S6|@85g@2,ls

20
ve/batbimb.rpt Executable file
View File

@ -0,0 +1,20 @@
[Headers]
132
Tabella Imballaggi
1|@2g%s|Cod. Imballaggio
1|@22g%s|Descrizione
1|@74g%s|Lunghezza
1|@85g%s|Altezza
1|@94g%s|Spessore
1|@104g%s|Peso
[Rows]
1|CODTAB|@2g@5s
1|S0|@22g@50,ls
1|R0|@74g@6,rpn|####,@@
1|R1|@85g@6,rpn|####,@@
1|R2|@94g@6,rpn|####,@@
1|R3|@104g@6,rpn|####,@@

30
ve/batbrfa.rpt Executable file
View File

@ -0,0 +1,30 @@
[Relations]
ASF,CODTAB=S8,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
[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

24
ve/batbtag.rpt Executable file
View File

@ -0,0 +1,24 @@
[Headers]
132
Tabella Taglie
1|@2g%s|Cod. Tabella
1|@16g%s|Taglie
[Rows]
1|CODTAB|@2g@2s
1|S0[1,3]|@16g@3,ls
1|S0[5,7]|@21g@3,ls
1|S0[9,11]|@26g@3,ls
1|S0[13,15]|@31g@3,ls
1|S0[17,19]|@36g@3,ls
1|S0[21,23]|@41g@3,ls
1|S0[25,27]|@46g@3,ls
1|S0[29,31]|@51g@3,ls
1|S0[33,35]|@56g@3,ls
1|S0[37,39]|@61g@3,ls
1|S0[41,43]|@66g@3,ls
1|S0[45,47]|@71g@3,ls
1|S0[49,51]|@76g@3,ls
1|S0[53,55]|@81g@3,ls
1|S0[57,59]|@86g@3,ls
1|S0[5,7]|@21g@3,ls

22
ve/batbubi.rpt Executable file
View File

@ -0,0 +1,22 @@
[Headers]
132
Tabella Ubicazioni
1|@2g%s|Cod. Ubicazione
1|@19g%s|Descrizione
1|@71g%s|Piano
1|@78g%s|Corridoio
1|@89g%s|Fila
1|@95g%s|Scaffale
1|@105g%s|Piano Scaffale
[Rows]
1|CODTAB|@2g@10s
1|S0|@19g@50,ls
1|S6|@71g@4,ls
1|S7|@78g@4,ls
1|S8|@89g@4,ls
1|S9|@95g@4,ls
1|S5|@105g@4,ls

13
ve/batbums.rpt Executable file
View File

@ -0,0 +1,13 @@
[Headers]
132
Tabella Unita' di Misura
1|@2g%s|Unita' di Misura
1|@20g%s|Descrizione
1|@72g%s|Unita' di Riferimento
1|@95g%s|Fattore conv. al rif.
[Rows]
1|CODTAB|@2g@3s
1|S0|@20g@50,ls
1|S7|@72g@2,ls
1|R10|@95g@15,rpn|##########,@@@@@