Ir para conteúdo

ZecaLoteiro

Members
  • Total de itens

    317
  • Registro em

  • Última visita

Reputação

0 Comum

1 Seguidor

Sobre ZecaLoteiro

  • Classificação
    ZecaLoteiro
  • Data de Nascimento 05/25/1986

Informações Pessoais

  • Sexo
    Masculino
  • Localização
    São Bernardo do Campo - SP
  1. ZecaLoteiro

    [Resolvido] Interop: Excel to PDF

    Boa tarde, Falha minha. Depois de pesquisar várias outras ferramentas percebi que estav cometendo um erro básico. Ao invés de exportar o workbook eu estava tentando exportar a sheet, por isso o erro. Tudo foi solucionado quando corrigi a linha para: template.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, "C:\Temp\pdf.pdf") Solucionado.
  2. ZecaLoteiro

    [Resolvido] Interop: Excel to PDF

    Bom dia senhores. Estou com um problema. Estou abrindo uma planilha, editando, salvando-a, e exportando um PDF. Na última etapa, no comando ExportAsFixedFormat está dando um erro: System.ArgumentException: 'O valor não recai no intervalo esperado.' Segue o código: Private Sub GeraExcel() Dim template As xL.Workbook = New xL.Application().Workbooks.Open(ModeloPath) Dim sh As xL.Worksheet = template.Sheets("PDF") sh.Cells(1, 1).value = "PDF" If IO.File.Exists(Destino) Then Try IO.File.Delete(Destino) Catch ex As Exception End Try End If template.SaveAs(Destino) sh.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, "C:\Temp\pdf.pdf") template.Close(False) Process.Start("EXCEL.EXE", Destino) RaiseEvent ThreadCompleted() End Sub Este erro é muito genérico, não sei nem por onde começar a tentar analisar... Alguém já passou por isso? Obrigado.
  3. ZecaLoteiro

    [Resolvido] LINQ Distinct - IEquatable - Não funcionando

    Na vdd eu precisei criar uma classe separada implementando a interface IEqualityComparer e passá-la como parâmetro no método distinct: Public Class TesteEqualityComparer Implements IEqualityComparer(Of Teste) Public Function Equals2(x As Teste, y As Teste) As Boolean Implements IEqualityComparer(Of Teste).Equals Return x.Codigo = y.Codigo End Function Public Function GetHashCode1(obj As Teste) As Integer Implements IEqualityComparer(Of Teste).GetHashCode Return obj.Codigo.GetHashCode() End Function End Class MsgBox(l.Distinct(New TesteEqualityComparer()).Count()) Resolvido, obrigado pela força.
  4. ZecaLoteiro

    [Resolvido] LINQ Distinct - IEquatable - Não funcionando

    Boa tarde, Estou tentando usar o DISTINCT em uma consulta LINQ porém não está funcionando. Implementei tanto a interface IEquatable quando a interface IEqualityComparer mas mesmo assim não é possível distinguir as instâncias. Alguém já passou por isso? Poderia ajudar? Desde já obrigado. Public Class Teste Implements IEquatable(Of Teste), IEqualityComparer(Of Teste) Private _Codigo As Integer Public Property Codigo() As Integer Get Return _Codigo End Get Set(ByVal value As Integer) _Codigo = value End Set End Property Public Sub New(id As Integer) Me.Codigo = id End Sub Public Overrides Function Equals(obj As Object) As Boolean Return DirectCast(obj, Teste).Codigo = Me.Codigo End Function Public Function Equals1(other As Teste) As Boolean Implements IEquatable(Of Teste).Equals Return Me.Codigo = other.Codigo End Function Public Function Equals2(x As Teste, y As Teste) As Boolean Implements IEqualityComparer(Of Teste).Equals Return x.Codigo = y.Codigo End Function Public Function GetHashCode1(obj As Teste) As Integer Implements IEqualityComparer(Of Teste).GetHashCode Return DirectCast(obj, Teste).Codigo End Function End Class Testando: Dim p1 As New Teste(78) Dim p2 As New Teste(78) Dim l As New List(Of Teste) From {p1, p2} MsgBox(l.Distinct().Count()) MsgBox(l.Distinct().ToList().Count)
  5. ZecaLoteiro

    Gráfico: alinhamento e posicionamento

    Bom dia, preciso fazer o alinhamento de um grid com os eixos de um gráfico e estou tendo dificuldade em obter o posicionamento dos elementos do gráfico. Ex: A chartarea(0) mesmo quando definido como 100 não ocupa 100% da largura do chart. Ou seja é 100% do que? Coloquei umas bordas para facilitar a visualização. Alguém já passou por isso? Poderia dar um help? Saberia informar em relação a qual objeto é a largura do chartarea? grafico.ChartAreas(0).BorderColor = Color.Red grafico.ChartAreas(0).Position.Width = 100 grafico.ChartAreas(0).Position.Height = 100 grafico.ChartAreas(0).BorderDashStyle = ChartDashStyle.Solid grafico.ChartAreas(0).BorderWidth = 2 https://prnt.sc/jqo3bv
  6. ZecaLoteiro

    Aprendendo MVC - Conceitos

    Bom dia srs, Estou aprendendo MVC e para exercitar iniciei um projeto no seguinte contexto: Classe Cliente tem uma propriedade: IDadosCadastrais DadosCadastrais; As classes PF e PJ implementam a interface DadosCadastrais. Penso que: Todo cliente tem dado cadastral, porém só tem CNPJ se for pessoa jurídica, por isso criei classes separadas para PF e PJ. Porém na hora de preencher o formulário da view se eu utilizo um modelo Cliente, a informações dos dados cadastrais não são recebidas. Se alguém puder me ajudar no esclarecimento das seguintes questões: 1) O conceito que utilizei para separação dos dados está correto é a melhor prática? 2) Como posso obter uma instancia da classe Cliente direto da view para o controller? 3) Caso eu tenha que receber os dados e criar manualmente, como posso receber no controller um dado de um campo do formulário? Desde já obrigado.
  7. ZecaLoteiro

    [Resolvido] Tipo não definido (Erro "Somente compliação")

    Solucionado. O framework utilizado na DLL (4.2.2) estava diferente do framework utilizado na aplicação (4.0). Após deixar os 2 na mesma versão do .net framework, funcionou. ;)
  8. Bom dia, Estou dando uma organizada em um projeto. Criei uma DLL e a importei no projeto. Fiz os imports, tudo aparentemente OK, não é exibido nenhum erro. Porém na hora de compilar é exibida a mensagem dizendo que ocorreram falhas, mas não são exibidas. Ao alterar o modo de visualização de erros para "Somente compilação" os erros são exibidos. Qualquer outro modo de visualização de erros não exibe (prints). O pior é que os tipos estão devidamente importados, não exibe nenhum erro no IntelliSense. Se aperto F12 em cima do nome da Classe sou trasportado corretamente para a classe correspondente.... mas, não compila. Alguém sabe como resolver esse problema? Desde já obrigado. 1>E:\Rafael\Documentos\Visual Studio 2015\Projects\PCP\PCP\ModuleGeral.vb(4,18): error BC30002: O tipo 'Usuario' não está definido. 1>E:\Rafael\Documentos\Visual Studio 2015\Projects\PCP\PCP\Programação\frmOrdensAprovadas.vb(4,29): error BC30002: O tipo 'OrdemVenda' não está definido. 1>E:\Rafael\Documentos\Visual Studio 2015\Projects\PCP\PCP\Programação\frmProgramaItem.vb(3,16): error BC30002: O tipo 'OrdemVenda' não está definido. 1>E:\Rafael\Documentos\Visual Studio 2015\Projects\PCP\PCP\Programação\frmProgramaItem.vb(4,26): error BC30002: O tipo 'OrdemVenda.OrdemItem' não está definido. 1>E:\Rafael\Documentos\Visual Studio 2015\Projects\PCP\PCP\Programação\frmProgramaItem.vb(13,31): error BC30002: O tipo 'OrdemVenda' não está definido. 1>E:\Rafael\Documentos\Visual Studio 2015\Projects\PCP\PCP\Programação\frmProgramaItem.vb(53,116): error BC30002: O tipo 'OrdemVenda.OrdemItem' não está definido. 1>E:\Rafael\Documentos\Visual Studio 2015\Projects\PCP\PCP\Programação\frmProgramaItem.vb(53,142): error BC30002: O tipo 'OrdemVenda.OrdemItem' não está definido. 1>E:\Rafael\Documentos\Visual Studio 2015\Projects\PCP\PCP\Programação\frmProgramaItem.vb(56,33): error BC30002: O tipo 'OrdemVenda.OrdemItem' não está definido. 1>E:\Rafael\Documentos\Visual Studio 2015\Projects\PCP\PCP\Programação\frmProgramaItem.vb(63,38): error BC30002: O tipo 'OrdemVenda.OrdemItem' não está definido. ========== Compilar: 0 com êxito, 1 com falha, 1 atualizados, 0 ignorados ==========
  9. ZecaLoteiro

    VB.NET com MySQL

    Boa noite Srs, sempre utilizo MS-SQL em minhas programações, porém iniciei um projeto com MySQL. Preciso fazer algo simples, 2 inserts, onde o segundo insert depende do valor inserido do identity do primeiro. Sempre realizei isso normalmente com o MS-SQL, porém na primeira query do MySQL já travei.... A query é algo mais ou menos assim: INSERT INTO Cliente (tipoCliente, ativo, diaVencimento, login, senha) VALUES (@tipoCliente, 1, @diaVencimento, @login, @senha); SET @idCliente = LAST_INSERT_ID(); INSERT INTO ClientePF (idCliente, nome, CPF, sexo, dataNascimento) VALUES (@idCliente, @nome, @CPF, @sexo, @dataNascimento); Isso direto no MySQL funciona, porém via VB.NET começam os problemas. Primeiro, sou obrigado a incluir o "@idCliente" como parâmetro no comando? (Se eu não incluo recebo o erro: "Additional information: Fatal error encountered during command execution.") E se eu incluo o parâmetro: MySqlParameter("@idCliente",MySqlDbType.Int16) Passo a receber o erro: "Additional information: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'NULL = LAST_INSERT_ID()' at line 1" Ou seja, ele identifica o @idCliente como "NULL" e dá erro na hora que eu seto NULL = LAST_INSERT_ID() Alguém já passou por isso? Pode ajudar? Desde já obrigado. Valeu.
  10. ZecaLoteiro

    Movi o conteudo da Raiz :(

    Mesmo estando na pasta bin, onde tinha sido movido não enxergava nenhum arquivo e não consegui executar nenhum comando... Acredito que quando movi também perdi as permissões.... E como restabelecer as permissões se não tinha mais acesso ao chmod ?? huuhhu... Como era um linux embarcado em um NAS QNAP, consegui restaurar sem perder os dados do HD, ele iniciou com os comandos básicos restabelecidos aí consegui mover as pastas de volta para a raíz.. Obrigado pela força. Vlww
  11. ZecaLoteiro

    Movi o conteudo da Raiz :(

    Alguém pode me ajudar?? Fui mover alguns arquivos, mas acabei movendo todo o conteudo da raiz, agora nenhum comando funciona.... não consigo usar se que o comando ls. Moveu tudo... /bin e tudo mais... Eu sei para onde os arquivos foram, pois consigo visulalizá-los através de uma VPN com windows... porém no SSH quando chego na pasta bin não consigo executar o mv para voltar os arquivos.... nem consigo listar o conteúdo da pasta /bin alguém pode me ajudar???? Desde já obrigado.
  12. ZecaLoteiro

    Interop Excel OpenText

    Bom dia, Estou tentando importar um TXT para um novo arquivo Excel mas não estou tendo sucesso. Poderiam me ajudar? Estou utilizando o seguinte código: Private Sub importaDados() Dim xL As New Application xL.Application.Workbooks.OpenText( Filename:=caminhoDados.FullName, Origin:=XlPlatform.xlWindows, StartRow:=1, DataType:=XlTextParsingType.xlDelimited, TextQualifier:=XlTextQualifier.xlTextQualifierNone, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="#", Local:=True ) Dim arquivo As Workbook = xL.Workbooks(1) Dim planilha As Worksheet = arquivo.Worksheets(1) MsgBox(planilha.Range("A1").Value) arquivo.SaveAs(caminhoDestino) arquivo.Close() Process.Start("Excel", caminhoDestino) End Sub O programa executa corretamente, porém o excel não consegue abrir o arquivo gerado. Recebo a seguinte mensagem de erro: O Excel não pode abrir o arquivo 'Texte1.xlsx' porque o formato ou a extensão de arquivo não é válida. Verifique se o arquivo não está corrompido e se a extensão corresponde ao formato do arquivo. Estou anexando o projeto para ajudar na identificação do problema. https://drive.google.com/file/d/0B5Ky7jhytNroTzBfdVN2TDV4WjA/view?usp=sharing Desde já obrigado.
  13. ZecaLoteiro

    Jsoup charset - Caracteres non-ASCII

    Boa noite, Estou parseando um HTML para um XML, porém quando me deparo com um caractere de TAB, ou quebra de linha ele joga junto no XML (o que danifica o arquivo). Alguém já passou por isso? Sabe como solucionar? Desde já obrigado.
  14. ZecaLoteiro

    ProcessCmdKey - Alterando o foco de acordo com a tecla

    Bom dia, Tenho um formulário de pesquisa de itens formado basicamente por um textbox e um datagridview. Gostaria que quando o usuário apertasse a tecla UP ou DOWN navegasse no datagridview e quando digitasse qualquer outra coisa, fosse para o Textbox. Para isso sobrescrevi o ProcessCmdKey, mas não funciona bem. Pois quando o usuário aperta UP or DOWN ele SÓ TROCA O FOCO, não executa a ação UP/DOWN no grid. (Tenho a impressão que ele manda o comando UP/DOWN no textbox e só depois troca o foco para o grid). A mesma coisa acontece com as outras teclas quando o foco está no grid. Se aperto a tecla "A" e o foco está no Grid, apenas o foco é alterado para o textbox, porém não aparece o texto "A" , somente na proxima vez que eu apertar é que o texto vai para o textbox (pois o foco já está nele). Alguém já fez algo parecido? Sabe como solucionar?? Desde já obrigado. Segue meu código Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean If keyData = Keys.Enter AndAlso Not IsNothing(grid.CurrentRow) Then cancelado = False keyData = Nothing retorna(grid.CurrentRow.Index) Return True ElseIf keyData = Keys.Down Or keyData = Keys.Up Then grid.Focus() Return MyBase.ProcessCmdKey(msg, keyData) Else If Not txtFiltro.Focused Then txtFiltro.Focus() Return True End If End If Return MyBase.ProcessCmdKey(msg, keyData) End Funcion
  15. ZecaLoteiro

    Collapse All - Pivot Table Interop

    Desculpe minha ignorância no assunto, mas como faço isso?
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.