toninho.roque

Pessoal, bom dia. alguém pode me auxiliar? Faz tempo que não programava em VB6 Mas fiz um pequeno projeto para fazer uma apuração de horas trabalhadas pelos colaboradores Tenho uma Base ORACLE XE versao 10 Crystal reports XI Windows 10 O meu projeto VB já finalizei e está funcional. O oracle configurado O crystal já desenvolvi o relatorio com os agrupamentos necessarios e funcionando, ( quando executado direto pelo crystal e conectado a base oracle) Porem já estudei varios artigos, videos, e não consegui fazer a chamado do relatorio do crystal pelo meu projeto VB. não consigo instalar o componente crviewer e não sei qual outro componente poderia me ajudar na chamada. Já esgotei minhas tentativas. Precisaria entregar esse projeto amanha. Me auxiliem por favor. Até pago um almoço. Pra voces que tem largo conhecimento, não deve ser complicado. Se puderem conectar no meu micro pelo anydesk, agradeceria muito. Conto com voces. Obrigado se precisarem, meu email é toninho.roque@gmail.com

Bom dia amigos. Trabalho com um ERP Mega que utiliza o crystal para exibir os relatorios. Estou com um probleminha que não consigo resolver. Deu tela azul Tenho uma tabela com pedidos de venda, e outra com itens do pedido de venda Exibo uma linha com o cabeçalho do pedido, com numero, cliente, dt emissao, cfop, endereco cliente, etc.... Porem não tenho o total deste pedido no cabeçaho. então criei um subreports exibindo os itens, quantidade e o valor total deste item. No final deste sub report , exibo um TOTAL DO ITEM EM REAIS. Ai vem o problema: consigo armazenar o total desta sumatoria dos itens numa variavel, e depois usar esse valor lá na linha inicial para alguns calculos. Mas se o pedido possuir muitos itens, a diretoria, me pediu que inibisse o subreport, exibindo somente a primeira linha com os valores. Porem, quando eu SUPRIMO OU OCULTO esse subreport, a variavel fica ZERO. Se eu exibo normalmente os itens, ai a variavel fica correta e consigo fazer os calculos normalmente Resumindo, preciso pegar o total do subreport , sem imprimir. Como posso fazer ? obrigado Meio urgente amigos

Bom dia. Enviei pro seu email. Grato Toninho

Obrigado você não tem um email particular onde eu possa mandar a tela de erro e o formulario pra voce? Toninho

strSQL = "select * from tbvenda where dtvenda = '" & Format(txtdatainicial.Text, "yyyy-mm-dd") & "'" nesta linha (onde monto a instrução) Qual seria a sintaxe correta para solicitar <= "datainicial" and <="datafinal" ? Existe alguma outra funcao, alem do format, no sql, que possa fazer busca de datas na tabela? Abraco

Grato Kuroi por ter respondido. Realmente tava comendo bola naquela linha. Mas corrigi, e deu a mesma mensagem strSQL = "select * from tbvenda where dtvenda = '" & Format(txtdatainicial.Text, "yyyy-mm-dd") & "'" 'Executa o comando SQL Set rsvenda = objConexao.Execute(strSQL) Text1.Text = rsvenda.RecordCount Text11.Text = " & flgempresagrupo &"

Oi amigos. Sou iniciante em VB. Preciso de uma dica: Estou fazendo uma busca por data no meu banco (SQL), e não estou conseguindo criar a sintaxe correta. Dá erro. Tenho um componente no formulário do tipo maskedbox (txtdatainicial) Estou usando esta linha: strSQL = "select * from tbvenda where dtvenda=" & "'" & Format(txtdatainicial.Text, "yyyy/mm/dd/") & "'" Tá aparecendo a seguinte mensagem de erro: RUN-TIME ERROR 6 – OVERFLOW alguém poderia me dar uma dica? Grato Toninho