🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #745

Re: Consiglio

#745
From: herbert
Date: Fri, 22 Apr 2005 13:26
60 lines
3032 bytes
Io utilizzerei un tipo strutturato come questo:

public type fat
	id_articolo as string
	aliquota as integer
end type

Poi dichiarerei una array di tipo fat

public pippo() as fat

In questo modo ad ogni inserimneto dell'utente popoli l'array inserendo

	pippo(i).id_articolo = "articolo1"
	pippo(i).aliquota = 20
	
Alla fine scorrendo l'array hai tutte le informazioni di cui necessiti.
Dichiarando l'array pippo in modo dinamico (senza precisare la 
dimensione dell'array al momento della dichiarazione) devi usare i 
comandi e redim preserve in questo modo

	redim pippo(ubound(pippo)+1) as fat

In questo modo aggiungi una posizione nell'array ma elimini il contenuto 
precedente. Mentre se vuoi mantenere i dati precedenti

	redim preserve pippo(ubound(pippo)+1) as fat

Spero di essere stato d'aiuto
ciao
Mauro


Davide wrote:

> Ciao ragazzi, sto sviluppando un applicativo gestionale di magazzino e
> fatturazione in vb6 enterprise. Il motore che utilizzo � DAO, associato a
> dei file .mdb. Mi sto occupando della realizzazione della fase di emissione
> fattura immediata. La schermata
> si presenta all'utente con 3 linguette navigabili (vedi controllo sstab). Le
> aliquote che prevedo che l'utente possa utilizzare sono 3, 20%,10%,4%. ora
> il problema � questo, l'utente lavora nel corpo documento e inserisce gli
> articoli che vuole con una di queste aliquote, come posso fare in fase a
> distinguerle in fase di totale ? esempio
> 
> 
> articolo 1 aliquota 20%
> articolo 2 aliquota 10%
> articolo 3 aliquota 20%
> articolo 4 aliquota 4%
> 
> come posso fare a separare i vari imponibili e ad attribuirli all'aliquota
> corrispondente ??
> 
> immagino con un istruzione sql si possa fare....se qualcuno ha qualche
> suggerimento...lo accetto volentieri...
> 
> ciao ciao
> 
> 
Technical Details
Message-ID: <EY6ae.2891$ms1.2077@tornado.fastwebnet.it>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news2.google.com!proxad.net!news.wiretrip.org!border2.nntp.ams.giganews.com!nntp.giganews.com!tiscali!newsfeed1.ip.tiscali.net!tornado.fastwebnet.it!53ab2750!not-for-mail
References: <D22td.468857$35.20222723@news4.tin.it>

Show Full Headers
Complete Article Headers
X-Google-Thread: f94ee,926a03bd830584c9
X-Google-Attributes: gidf94ee,public
X-Google-Language: ITALIAN,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news2.google.com!proxad.net!news.wiretrip.org!border2.nntp.ams.giganews.com!nntp.giganews.com!tiscali!newsfeed1.ip.tiscali.net!tornado.fastwebnet.it!53ab2750!not-for-mail
From: herbert <herbert_eye@yahoo.it>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.1) Gecko/20040707
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: free.it.visual-basic
Subject: Re: Consiglio 
References: <D22td.468857$35.20222723@news4.tin.it>
In-Reply-To: <D22td.468857$35.20222723@news4.tin.it>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
X-Antivirus: avast! (VPS 0516-6, 20/04/2005), Outbound message
X-Antivirus-Status: Clean
Lines: 60
Message-ID: <EY6ae.2891$ms1.2077@tornado.fastwebnet.it>
Date: Fri, 22 Apr 2005 15:26:26 +0200
NNTP-Posting-Host: 41.244.165.23
X-Complaints-To: newsmaster@fastweb.it
X-Trace: tornado.fastwebnet.it 1114176420 41.244.165.23 (Fri, 22 Apr 2005 15:27:00 CEST)
NNTP-Posting-Date: Fri, 22 Apr 2005 15:27:00 CEST