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

Aggiunti form per la stampa sconti.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3887 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-11-12 09:30:40 +00:00
parent 9bd9484a2c
commit e730387da9
3 changed files with 260 additions and 0 deletions

97
ve/scontid.frm Executable file

@ -0,0 +1,97 @@
// Form per la stampa degli sconti di documento
USE 35
END
DESCRIPTION
BEGIN
35->* "Archivio Sconti"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
END
SECTION HEADER ODD 6
STRINGA 1 40
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
END
DATA 2 10
BEGIN
KEY "Data"
PROMPT 55 1 "Data "
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 72 1 "Pagina "
END
STRINGA 4 80
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "--------------------------------------------------------------------------------"
END
STRINGA 5 10
BEGIN
KEY "Intestazione (Categoria vendite)"
PROMPT 1 4 "Categoria"
END
STRINGA 6 12
BEGIN
KEY "Intestazione (Descrizione)"
PROMPT 14 4 "Descrizione"
END
STRINGA 7 7
BEGIN
KEY "Intestazione (Sconto)"
PROMPT 66 4 "Sconto"
END
STRINGA 8 80
BEGIN
KEY "Separatore (finale)"
PROMPT 1 5 "--------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 2
STRINGA 1 2
BEGIN
KEY "Categoria di vendita"
PROMPT 1 1 ""
FIELD 35->CODCAT
END
STRINGA 2 50
BEGIN
KEY "Descrizione"
PROMPT 14 1 ""
FIELD 35->DESCR
END
STRINGA 7 25
BEGIN
KEY "Sconto"
PROMPT 66 1 ""
FIELD 35->SCONTO
END
END
END

160
ve/scontii.frm Executable file

@ -0,0 +1,160 @@
// Form per la stampa degli sconti incondizionati.
USE 35
JOIN CVE TO 35 ALIAS 201 INTO CODTAB==CODCAT
JOIN %ZON TO 35 ALIAS 202 INTO CODTAB==CODART[3,4]
JOIN %CPG TO 35 ALIAS 203 INTO CODTAB==CODART[5,8]
JOIN 35 TO 35 ALIAS 204 INTO TIPO=="D" CODCAT==CODART[1,2]
END
DESCRIPTION
BEGIN
35->* "Archivio Sconti"
201@->* "Tabella categorie di vendita"
202@->* "Tabella zone"
203@->* "Tabella codizioni di pagamento"
204@->* "Archivio sconti(documento)"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
END
SECTION HEADER ODD 6
STRINGA 1 40
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
END
DATA 2 10
BEGIN
KEY "Data"
PROMPT 55 1 "Data "
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 72 1 "Pagina "
END
STRINGA 4 80
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "--------------------------------------------------------------------------------"
END
STRINGA 5 10
BEGIN
KEY "Intestazione (Categoria vendite)"
PROMPT 1 4 "Categoria"
END
STRINGA 6 12
BEGIN
KEY "Intestazione (Sconto cliente)"
PROMPT 14 4 "Sc. cliente"
END
STRINGA 7 5
BEGIN
KEY "Intestazione (Zona)"
PROMPT 28 4 "Zona"
END
STRINGA 8 11
BEGIN
KEY "Intestazione (Cond. pag.)"
PROMPT 35 4 "Cond. pag."
END
STRINGA 9 7
BEGIN
KEY "Intestazione (Sconto)"
PROMPT 46 4 "Sconto"
END
STRINGA 10 80
BEGIN
KEY "Separatore (finale)"
PROMPT 1 5 "--------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 6
STRINGA 1 50
BEGIN
KEY "Descrizione categoria"
PROMPT 1 1 "Categoria vendite: "
FIELD 201@->S0
END
STRINGA 2 50
BEGIN
KEY "Descrizione sconto cliente"
PROMPT 1 2 "Sconto cliente: "
FIELD 204@->DESCR
END
STRINGA 3 50
BEGIN
KEY "Descrizione zona"
PROMPT 1 3 "Zona: "
FIELD 202@->S0
END
STRINGA 4 50
BEGIN
KEY "Descrizione condizione di pagamento"
PROMPT 1 4 "Cond. di pag.: "
FIELD 203@->S0
END
STRINGA 5 2
BEGIN
KEY "Categoria di vendita"
PROMPT 1 5 ""
FIELD 35->CODCAT
END
STRINGA 6 2
BEGIN
KEY "Sconto cliente"
PROMPT 14 5 ""
FIELD 35->CODART[1,2]
END
STRINGA 7 2
BEGIN
KEY "Zona"
PROMPT 28 5 ""
FIELD 35->CODART[3,4]
END
STRINGA 8 25
BEGIN
KEY "Condizione di pagamento"
PROMPT 35 5 ""
FIELD 35->CODART[5,8]
END
STRINGA 9 25
BEGIN
KEY "Sconto"
PROMPT 46 5 ""
FIELD 35->SCONTO
END
END
END

3
ve/scontir.frm

@ -131,4 +131,7 @@ BEGIN
FIELD 35->SCONTO
END
END
END