Ir ao conteúdo
  • Cadastre-se

laercionb

Membro Pleno
  • Posts

    69
  • Cadastrado em

  • Última visita

Reputação

14
  1. Olá Galera bom dia, Preciso de um help, estou tentando imprimir um relatorio .rdlc direto sem ter que usar o reportview, a ideia é que pegue o ID em um datagridview e manda imprimir, achei bastante exemplos na net, fiz conforme mostravam mas nao tive sucesso. nao me aparece um erro especifico apenas fala que houve um erro no processamento do relatorio local. codigo esta em txt em anexo. Por favor quem puder ajudar ficarei extremamente agradecido. ImprimirDiretoReport.txt
  2. Pessoa preciso de ajuda, Bom este codigo funcionava perfeitamente mas depois tive que renomear a classe DTO e ai nao funcionou mais diz q objeto nao definido este é o Cod: Preencho o DTO e envio para camada negocios: private void btnLançar_Click(object sender, EventArgs e) { ProdutoBruto pbproducao = new ProdutoBruto(); PBProducaoNegocios pbnegocios = new PBProducaoNegocios(); pbproducao.Peso = Convert.ToDecimal(txtBags.Text); pbproducao.Data = Convert.ToDateTime(txtData.Text); pbproducao.Hora = Convert.ToDateTime(txtHora.Text); pbproducao.lote = new Lote(); pbproducao.lote.lote = Convert.ToString( txtNumeroLote.Text); pbproducao.turno = new Turno(); pbproducao.turno.IDTurno = Convert.ToInt32(CmbTurno.Text); } esse é a classe negocios: public class PBProducaoNegocios { AcessoDadosSqlServer acessodados = new AcessoDadosSqlServer(); public string InserirPicador(ProdutoBruto pbPicador) { acessodados.LimparParementros(); acessodados.AdicionarParamentro("@Action", "InserirPicador"); acessodados.AdicionarParamentro("@Lote", pbPicador.lote.lote); acessodados.AdicionarParamentro("@Data", pbPicador.Data); acessodados.AdicionarParamentro("@Hora", pbPicador.Hora); acessodados.AdicionarParamentro("@Peso", pbPicador.Peso ); acessodados.AdicionarParamentro("@IDTurno", pbPicador.turno.IDTurno); string Retorno = acessodados.ExecutarManipular(CommandType.StoredProcedure, "uspPBProducaoManutencao").ToString(); return Retorno; } eu coloco todas as referencias e ainda aparece o erro ja tentei mas nao consegui se alguem me ajudar fico muito agradecido
  3. Ola pessoa preciso de ajuda. Gostaria de fazer uma porcentagem de horas para medir eficiencia 300:00:00 Disponivel 150:00:00 finalizada então eu teria um textbox com 50% pode ser em vb.net o C# obrigado.
  4. Vou pesquisar e obrigado pela informação e se conseguir volto para finalizar o tópico.
  5. E ai pessoal, Bom vim garimpando na net e não encontrei nada. então vim pedir ajuda aqui. eu gostaria de declarar uma variavel e criar uma tabela com essa variavel. exemplo: create procedure uspCriarTabela@NomeTabela varchar(10),as begincreate table @NomeTabela (ID int IDENTITY(1,1) NOT NULL,Exemplo varchar(50) NOT NULL)end gostaria de fazer no banco para nao ter q fazer na aplicação. grato.
  6. Da uma olhada neste video explica bem como você fazer...ok
  7. Opa para alterar a coluna basta mudar a numerção da coluna o numero 1 sgnifica coluna A, If UCase(Right(Target.Value, 1)) = "X" Then ai se quiser alterar é so colocar a numeração certo ex: coluna b ficaria assim : If UCase(Right(Target.Value, 2)) = "X" Then coluna c: If UCase(Right(Target.Value, 3)) = "X" Then e assim por diante... espero ter ajudado...
  8. Cara Perfeito você não tem ideia do tanto que você me ajudou pois esse é apenas um dos muitos formularios que tenho mas muito obrigado mesmo em valeu amigo...
  9. ola Marcio segue o link da planilha www.sendspace.com/file/v5qtz3 espero sua posição ok grato.
  10. Vou tentar aqui.... ou zinhovba cara tentei aqui mas nao alterou ela some o texto que esta digitado dentro do textbox mas não envia a alteração para a planilha..... a rotina ficou assim pos só tenho q alterar esses dois campos With Worksheets("NOTA").Columns(7) i = .Find(what:=cdProcurar.Value, after:=.Cells(7), LookIn:=xlValues, LookAt:=xlWhole).Row j = i j = Cells.FindNext(after:=ActiveCell).Row NOTADESERVIÇO.cdEstatus.Value = .Cells(j, 9).Value NOTADESERVIÇO.cdObservação.Value = .Cells(j, 10).Value End With errei em algo que não podia alterar ? ah e o texto procurado esta na coluna 7 ah e essa planilha que me serve como banco de dados ela ta no servidor nao na mesma planilha que esta o formulario mas na hora que efeutuo a busca ela abre a planilha de destino
  11. E ai galera amante do excel.... Seguinto to com um probleminha espero que vocês podem me ajudar bom tenho um formulario onde eu alimento uma planilha que é o meu banco de dados esta é a macro que uso: Set PastaDest = ActiveWorkbook UltimaLinha = Sheets("NOTA").Cells(Sheets("NOTA").Cells.Rows.Count,"a").End(xlUp).Row + 1 If UltimaLinha - 1 = "CDOS" Then Cells(UltimaLinha, 1) = Format(1, "00000") cdos = Format(1, "00000") Else Cells(UltimaLinha, 1) = Format(Cells(UltimaLinha - 1, 1) + 1, "000000") OS = Format(Cells(UltimaLinha - 1, 1) + 1, "000000") End If Sheets("NOTA").Cells(UltimaLinha, 2) = CDate(cddata) Sheets("NOTA").Cells(UltimaLinha, 3) = UCase(cdSetor) Sheets("NOTA").Cells(UltimaLinha, 4) = UCase(cdNumero) Sheets("NOTA").Cells(UltimaLinha, 5) = UCase(CdEquipamento) Sheets("NOTA").Cells(UltimaLinha, 6) = UCase(cdtag) Sheets("NOTA").Cells(UltimaLinha, 7) = UCase(cdsolicitante) Sheets("NOTA").Cells(UltimaLinha, 8) = UCase(cdDescrição) Sheets("NOTA").Cells(UltimaLinha, 9) = UCase(cdEstatus) Sheets("NOTA").Cells(UltimaLinha, 10) = UCase(cdObservação) PastaDest.Close savechanges:=True MsgBox "Nota Lançada com Sucesso", vbInformation, "PB BRASIL" e tenho um macro que pesquisa esses valores para mim: Set Busca = Sheets("NOTA").Cells.Find(what:=TermoPesquisado, after:=Sheets("NOTA").Range("D1"), LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) 'Caso tenha encontrado alguma ocorrência... If Not Busca Is Nothing Then Primeira_Ocorrencia = Busca.Address Resultados = Busca.Row 'Lista o primeiro resultado na variavel 'Neste loop, pesquisa todas as próximas ocorrências para 'o termo pesquisado Do Set Busca = Sheets("NOTA").Cells.FindNext(after:=Busca) 'Condicional para não listar o primeiro resultado 'pois já foi listado acima If Not Busca.Address Like Primeira_Ocorrencia Then Resultados = Resultados & ";" & Busca.Row End If Loop Until Busca.Address Like Primeira_Ocorrencia MatrizResultados = Split(Resultados, ";") 'Atualiza dados iniciais no formulário SpinButton12.Max = UBound(MatrizResultados) 'Valor maximo do seletor de registros 'habilita o seletor de registro SpinButton12.Enabled = True 'indicador do seletor de registros Contador.Caption = "1 de " & UBound(MatrizResultados) + 1 'Box com o conteudo encontrado cddata.Text = Sheets("NOTA").Cells(MatrizResultados(0), 2).Value cdSetor.Text = Sheets("NOTA").Cells(MatrizResultados(0), 3).Value cdNumero.Text = Sheets("NOTA").Cells(MatrizResultados(0), 4).Value cdtag.Text = Sheets("NOTA").Cells(MatrizResultados(0), 5).Value CdEquipamento.Text = Sheets("NOTA").Cells(MatrizResultados(0), 6).Value cdsolicitante.Text = Sheets("NOTA").Cells(MatrizResultados(0), 7).Value cdDescrição.Text = Sheets("NOTA").Cells(MatrizResultados(0), 8).Value cdEstatus.Text = Sheets("NOTA").Cells(MatrizResultados(0), 9).Value cdObservação.Text=Sheets("NOTA").Cells(MatrizResultados(0),10).Value O problema é o seguinte nao to conseguindo editar esses valores pesquisado o maximo que consegui foi foi editar o valor mas ele editava a celula abaixo alguem pode me ajudar... desde ja agradeço... valeu....

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...