Lameira

BELEZERA!!!! Ao invés do Picture eu coloquei um ListBox e usei o código conforme abaixo: Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 '----------------------------------------------------------------------------------> INICIA CUPOM FISCAL a = 1 Total = 0 List1.Font = "Courier New" List1.Width = 6195 List1.Height = 3570 List1.AddItem Date & " " & Time & " CCF:000000 COO:000000" List1.AddItem " CUPOM FISCAL" List1.AddItem " ITEM CÓDIGO DESCRIÇÃO" List1.AddItem " QNT. VL.UNIT( R$) ST VL.ITEM( R$)" List1.AddItem "---------------------------------------------------" List1.ListIndex = List1.ListCount - 1 frmpro.Enabled = True Toolbar1.Buttons(1).Enabled = False Case 2 '------------------------------------------------------------------------------------------> INSERE ITEM List1.AddItem " " & Format(a, "#000") & " " & Format(codpro.Text, "#0000") & " " & despro.Text List1.AddItem " " & Format(qntpro.Text, "#000") & " Un x " & Format(valpro.Text, "#,##0.00;(#,##0.00)") _ & " = " & Format(SubTotal, "#,##0.00;(#,##0.00)") & Format(Total, "#,##0.00;(#,##0.00)") SubTotal = Total + (valpro.Text * qntpro.Text) Total = Total + SubTotal codpro.Text = "" despro.Text = "" valpro.Text = "" qntpro.Text = "1" a = a + 1 Toolbar1.Buttons(2).Enabled = False Toolbar1.Buttons(3).Enabled = True Case 3 '-------------------------------------------------------------------------------> IMPRIME O CUPOM FISCAL ' em construção Toolbar1.Buttons(1).Enabled = True Case 4 Unload Me End Select End Sub funcionou maravilha, o subtotal da venda fica numa label do lado de fora do ListBox, vou continuar trabalhando no projetinho para melhorar o lay-out. Décio e Kuroi Obrigado pela força

então há alguma coisa de errado, porque foi feito conforme você orientou, um picture e uma barra de rolagem dentro de uma frame, conforme as informações são inseridas o picture vai subindo, até aqui normal, porem conforme o picture sobe as informações que são encobertas vão se perdendo porque quando a barra de rolagem é acionada e o picture volta ao topo as informações desaparecem. Kuroi, se você quiser dar uma olhada no projeto eu posso te enviar, ele é pequeno, porem eu não sei como... Existe outro meio de fazer um cupom fiscal na tela do monitor, simulando o cupom impresso??? Tem que ser num picture??? ainda preciso da tua força e desde já agradeço Lameira

blzera, kuroi, fiz conforme está no outro tópico, mas não fiquei satisfeito com o resultado porque conforme ia acrescentando itens no picture, eles ficavam na parte de baixo do componente e era necessário acionar o botão do scroller para visualizar o que estava sendo adicionado, ai eu coloquei o seguinte código no botão INCLUIR: Private Sub Incluir_Click() 'Inclui Produto F.Print Tab(2); codpro.Text; Tab(11); Mid(despro.Text, 1, 25) 'Limita a 25 letras On Error Resume Next F.Print Tab(5); qntpro.Text; Tab(13); Format(valpro.Text, "Currency"); Tab(28); Format(valpro.Text * qntpro.Text, "Currency") Total = Total + (valpro.Text * qntpro.Text) codpro.Text = "" despro.Text = "" valpro.Text = "" qntpro.Text = "1" F.Top = F.Top - 480 '--------------------------------> código incluído para dar a impressão de que a linha está subindo Incluir.Enabled = False End Sub e o componente picture vai subindo gradativamente a medida que se inclui um item. Porem vefiriquei que o que estava sendo acrescentado no picture, a medida que ele ia subindo, as informações que estavam ali eram apagadas..., existe alguma forma de fazer com que as informações fiquem fixadas e não se percam??? +1x grato

... beleza kuroi, mas não sei como fazer isso no picturebox, e a medida que os itens vão sendo acrescentados como acionar essa barra de rolagem. obrigado pela paciência

Pretendo fazer um projetinho dum Caixa de uma loja, minha ideia é que cada produto vai aparecendo numa listbox ou em outro componente, minha proposta é que o cliente vá vendo os produdos que foram comprados no monitor (= aos do mercadinho...) não importanto a quantidade de itens que serão acrescentados. Estou com dificuldade em centralizar e posicionar, já vi um projeto na net que usa um componente PictureBox, mas não achei legal porque limita a quantidade de produtos (a tela deve rolar mas não rola e quando você coloca mais de 4 produtos eles não são mais visualizados ficando só os primeiros que já haviam sido introduzidos). +1x valeu Lameira

brigaduuu!!!

Exatamente! Valeu pessoal

Meu projeto tem uma grid e estou colocando nela valores de movimentação financeira, meu BD preve que o usuário não tenha muito cuidado e deixa pra trás alguns registros e isso quer dizer que o BD não vai ter muita sequencia de datas, eu preciso preencher meu flexgrid na sequencia de datas, mas tendo como segunda prioridade a sequencia do id, estou usando o seguinte comando: Set rs= base.OpenRecordset("Select *from rs order by data") é possível determinar uma primeira ordem e depois determinar uma segunda ordem, ou seja, primeiro eu ordeno pela data e depois pelo id (order by data and order by id). mais uma vez sou grato pela ajuda.

É possível carregar uma flexgrid, sendo que quando um valor ($) for negativo a respectiva célula ou as letras fiquem em cor distinta das outras??? Tenho um projeto de controle de fluxo de caixa e uma flexgrid vai receber toda a movimentação, se o saldo for negativo o valor deverá aparecer em cor direrenciada, tentei usar o comando... MSGrid.CellBackColor = &HFF& mas somente a primeira célula é quem assume a cor, tentei colocar o endereço da célula, ou seja, MSGrid.CellBackColor(i, 4) = &HFF&, mas deu erro (Compile error. Wrong number of arguments or invalid property assignment) Preciso de mais um help grato

opssss, me perdoe, eu não tinha prestado atenção. Usei o código: Anima.Visible = True Anima.Open App.Path & "\jon.avi" Anima.Play 10, 1, 250 funcionou belezera valeu kuroi.

legal Kuroi!!! Vou usar o código sugerido anime.Picture = LoadPicture(App.Path & "\imagem.gif") só mais uma dúvida, você sugeriu ao outro usuário que ele poderia usar um picturebox ou o objeto image (??? fiquei na dúvida), e mais uma dúvida, eu consigo usar todo tipo de animações, por exemplo, um arquivo ".avi" ??? mais uma vez, brigadão

Estou desenvolvendo um projeto e quero fazer uma animação na tela splash, tentei usar o código abaixo Private Sub Form_Load() PictureBox1.Open App.Path & "\anima.avi" End Sub mas está apresentando o seguinte erro: Compile error: Method or data member not found acredito também que será preciso dar um play na animação e não sei como fazer... desde já agradeço, :blush:

Tenho alguns projetos e tenho uma dúvida sobre eles rodarem em rede, existe alguma diferença no acesso ao BD??? mais uma vez agradeço e força Lameira

Valeu pela ajuda, estava faltando um componente baixado pela net (Message Sroller) que eu não havia instalado no windows, valeu mesmo!!!

Olá galera do bem!!! Estou tendo uma dificuldade no meu projeto, quando vou executar, apresenta o seguinte erro: Compile Error: Can't find project or library Valeu pela força

Testei o comando no DB2 e retornou o seguinte: SQL0206N "COMPRA.DATACOM" não é válido no contexto em que foi utilizado. SQLSTATE=42703 SQL0206N "COMPRA.DATACOM " não é válido no contexto em que foi utilizado. verifiquei os dados do banco e a coluna datacom da tabela compra está lá com todos os valores. Ainda estou precisando desse comando. Grato

Preciso entregar uma questão em SQL no curso Pós-Técnico, mas não consigo encontrar o melhor caminho; a questão é a seguinte: qual é o total faturado por mês no ano de 2009 por produto? Tenho 3 tabelas: Produto (codpro, despro, valpro, qntpro), Compra (codcom, codcli, datacom, valtotcom) e ItemCompra (coditemcom, codcom, codpro, valpro, qntprocom). Por favor me dê uma força, urgente!!! obs: o comando vai funcionar no DB2, mas se houver um outro exemplo semelhante que funcione em outra plataforma eu posso fazer as adaptações devidas, no momento eu preciso de um 'norte'

Preciso entregar uma questão em SQL no curso Pós-Técnico, mas não consigo encontrar o melhor caminho; a questão é a seguinte: Qual é o produto mais vendido no ano 2009? Tenho 3 tabelas: Produto, Venda e ItemVenda, já tentei o seguinte: select year(compra.datacom), itemcom.coditemcom, sum(itemcom.qntprocom), produto.despro from compra,itemcom,produto where compra.codcom = itemcom.coditemcom and compra.datacom between '2009-01-01' and '2009-12-31' and itemcom.coditemcom = produto.codpro group by compra.datacom,itemcom.coditemcom,produto.despro; não está dando certo, me retorna 3 linhas com valores indevidos. Por favor me dê uma força!!! obs: o comando deve funcionar no DB2, mas se houver um outro exemplo semelhante posso fazer as adaptações devidas, no momento eu preciso de um 'norte'

Galera, preciso de +uma força, preciso mostrar o total faturado por mês durante o ano; minhas tabelas são as seguintes: table compra (codcom smallint not null, codcli smallint not null, datacom date not null, valtotcom decimal(6,2) not null, constraint codcom primary key(codcom)); table itemcom (coditemcom smallint not null, codcom smallint not null, codpro smallint not null, valpro decimal(6,2) not null, qntprocom smallint not null, constraint coditemcom_it primary key (coditemcom,codcom), constraint codicom_it foreign key (codcom) references compra (codcom)); table produto (codpro smallint not null, despro varchar(30) not null, valpro decimal(6,2) not null, qntpro smallint not null, constraint codpro primary key(codpro)); tentei fazer assim: select year(compra.datacom), itemcom.coditemcom, sum(itemcom.qntprocom), produto.despro from compra,itemcom,produto where compra.codcom = itemcom.coditemcom and compra.datacom between '2009-01-01' and '2009-12-31' and itemcom.coditemcom = produto.codpro group by compra.datacom,itemcom.coditemcom,produto.despro; mas não deu certo porque não retorna a informação correta (3 linhas com valores diferentes) desde já agradeço. Lameira

Galera, saudações! Preciso de uma força, preciso de um comando SQL que me mostre o total faturado por mês no ano, por produto, este comando precisa funcionar no DB2; minhas tabelas são as seguintes: table compra (codcom smallint not null, codcli smallint not null, datacom date not null, valtotcom decimal(6,2) not null, constraint codcom primary key(codcom)); table itemcom (coditemcom smallint not null, codcom smallint not null, codpro smallint not null, valpro decimal(6,2) not null, qntprocom smallint not null, constraint coditemcom_it primary key (coditemcom,codcom), constraint codicom_it foreign key (codcom) references compra (codcom)); table produto (codpro smallint not null, despro varchar(30) not null, valpro decimal(6,2) not null, qntpro smallint not null, constraint codpro primary key(codpro)); desde já agradeço. Eliseu Lameira

Kuroi, acho que não entendi... quando eu clico na célula da msflexgrid, as informações da linha são lidas também nos campos correspondentes, ai eu faço a edição/correção e para salvar essas modificações eu uso update??? vamos lá... minha tabela de itens é iow e possui os campos são: numos, codite, codpro e qntpro; como é que ficaria??? Eu entro com "edit" e depois??? mais uma vez obrigado (e pela paciência também)

Olá Galera do Bem!!! Pessoal preciso de mais um help sobre Banco de Dados de itens de Nota Fiscal/Cupon Fiscal..., é o seguinte, eu tenho uma nota fiscal armazenada no meu banco de dados em Access (uma tabela armazenando os numeros das notas e outra os itens dessas nota), se o operador perceber que uma nota possui um item errado ele busca essa nota e os itens são inseridos numa grid do meu formulário; como é possível editar esse item e grava-lo no BD, mantendo o mesmo número do item? agradeço a cooperação

valeu galera, era só retirar as chaves do BD iow brigado pela ajuda Eliseu

Ai vai, lembrando que este código está no procedure "gravar": iow.AddNew ' banco de dados de itens da nota fiscal With iow !numos = Val(numos.Caption) ' n° da nota, é chave principal no BD !codite = fgcaixa.TextMatrix(ive, 0) ' n° item, é chave principal no BD !codpro = fgcaixa.TextMatrix(ive, 1) ' codigo do produto !valpro = fgcaixa.TextMatrix(ive, 3) ' valor do produto !qntproven = fgcaixa.TextMatrix(ive, 4) ' quantidade do produto !desven = fgcaixa.TextMatrix(ive, 5) ' desconto do produto !dtven = Date ' data da realização da venda End With iow.Update dataiow.Refresh ow.AddNew ' banco de dados da nota fiscal With ow !numos = numos.Caption ' n° da nota, é chave principal no BD !codcli = codcli.Text ' codigo do cliente End With ow.Update dataow.Refresh grato; :unsure:

Olá galera!!! Preciso da ajuda para armazenar no BD Notas Fiscais no Visual Basic; a primeira nota é fácil, porem na segunda tenho um problema a duplicação de itens (Nota Fiscal 01, Item 01, Nota Fiscal 02, Item 01. Estou usando o Access e uma tabela para Nota Fiscal (numero da Nota é a chave primária) e outra para Itens (número da Nota e Itens são chaves primarias) O programa está rodadando, consigo gravar os valores da primeira nota, quando vou gravar a segunda apresenta o erro 3022 (duplicação de valores) Já fiz isso funcionar mas agora não estou conseguindo. Grato :blush: Eliseu