IMPRESSÃO DE DOCUMENTOS FISCAIS

 Tópico anterior Próximo tópico Novo tópico

IMPRESSÃO DE DOCUMENTOS FISCAIS

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#489462 - 11/07/2019 12:52:25

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


 Anexos estao visíveis somente para usuários registrados

Cara ... Falei que isso foi um projeto que foi sendo "emendado" de acordo com a necessidade
Tá funcionando legal....
Por isso não mexi nele AINDA
Mas entre reescrever o que está funcionando só pra deixar mais Profissional o código e desenvolver algo novo, preferirei sempre a segunda opção
Até por que aqui na minha empresa 100% do que usamos é desenvolvido aqui

Outro motivo que me levou a fracionar a parte da funcionalidade gráfica é que assim ficou mais fácil fazer os ajustes quando necessitava mudar aparência ou posição de elementos na impressão...
Ficou muito mais fácil "me achar"

Em seguida estarei publicando o código fonte para impressão da carta  de correção, conforme mostrada no anexo




#489463 - 11/07/2019 13:04:01

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Citação:
:
:
Parabéns, PLUGSOFTSM!

E, realmente, nada há no teu texto original que sugira uso do VBMania para vender qualquer coisa.

Tudo de bom, para todos nós!
Nos poupe né, o fato de colocar :
  se alguém quiser conhecer...
55 55984111350 é meu whats  
é porque ele queria convidar para tomar um café e dar o código fonte num pendrive edição de colecionador dos vingadores.

lógico que agora inverteu a situação postando o fonte, te dou o parabéns PLUGSOFTSM por disponibilizar o material, sei que será útil para os estudos de muita gente aqui, mas faça upload no site para ficar disponível de forma correta aqui e ainda ganha estrelinhas por isso.


Na boa....
Não tenho nenhum problema em compartilhar códigos com ninguém.... o que não me parece ser o teu caso
Observe que muitas vezes postei respostas para dúvidas de COLEGAS onde publicava trechos de código
Minha intensão foi apenas ajudar a quem estava tendo necessidade em obter ou desenvolver algo que é mais chato que difícil de fazer
Mas quem não se interessar, basta ignorar o tópico e continuar a vida de boa.....
Tenho hoje uma carteira de clientes que, graças a Deus, me permitem viver confortavelmente sem precisar buscar receita extra como a venda de código fonte....
Basta ver que o colega NilsonTres, no privado, como ele mesmo publicou aqui, se ofereceu para comprar os códigos e eu disponibilizei gratuitamente...
O mal de muitas pessoas é pensarem que ninguém mais é capaz de ajudar e colaborar sem tentar tirar proveito da situação....



#489465 - 11/07/2019 16:23:34

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


PLUGSOFTSM,
Olhei por cima mas já vi que resolve meu problema, por falta de tempo e, falar a verdade paciência, eu estou a quase 10 anos enrolando para desenvolver a impressão do danfe e principalmente o pdf.
Utilizo o unidanfe gratuito, mas não permite a geração do pdf, só pagando, nesse caso o sistema tem que gerar via cutepdf.
Muito obrigado mesmo, conte comigo para o que precisar e estiver ao meu alcance.




#489466 - 11/07/2019 17:03:28

FUTURA
.
Cadast. em:Maio/2004


Duvida boba, são 3 botões, que vc postou de código, todos usados de forma individual ?, identifiquei q um exporta para pdf, outro imprime e outro configura margens, seria isso ?



#489468 - 11/07/2019 17:40:11

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Não... Na verdade mostrei os 3 modos que as funçoes podem ser chamadas

   Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim Xml As New XmlDocument
        Xml.Load("D:\PsGestor\Arquivos\ArquivoNFE.XML")  'Leio o conteúdo de um arquivo e coloco numa variavel xmldocument
        Dim CfDoc As New PlugDanfe.Danfe.ConfigDocto
        CfDoc.Canhoto = True  'Se true, imprime aquele canhoto superior pro destinatário assinar... se false não imprime
        CfDoc.ImgLogo = System.Drawing.Image.FromFile("C:\LixoPrn\SuaLogo.Jpg")   'Leio a imagem da logo
        CfDoc.MEsq = 5
        CfDoc.MSup = 8
        CfDoc.MDir = 8
        CfDoc.MInf = 8
        CfDoc.PosiLog = PlugDanfe.Danfe.PosiLogo.Otimizado   'O função define a melhor posição para a logo
        CfDoc.WidthLine = 2    'Espessura da linha (mm)
        CfDoc.XML = Xml  'Variável contendo o XML
        Dim D As New PlugDanfe.Danfe
        D.Chave = "ABX9BAXK0X20ABX9BAXK0X20"
        D.ImprimirDanfe(CfDoc, True)  'aqui a variável True indica que a nota deverá ser pré-visualizada na tela. Se false, pode-se adicionar uma impressora, daí é feito uma impressão direta.
        'aí o código ficaria assim D.ImprimirDanfe(CfDoc, False, [Nome da impressora])
        D.Dispose()
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim CfDoc As New PlugDanfe.Danfe.ConfigDocto
        CfDoc.Canhoto = True
        CfDoc.FileLogo = "C:\LixoPrn\SuaLogo.Jpg"
        Dim D As New PlugDanfe.Danfe
        D.Chave = "ABX9BAXK0X20ABX9BAXK0X20"
        D.ArqXml = "C:\LixoXML\NotaIPI.XML"
        D.ImprimirDanfePDF(CfDoc, "C:\Lixo\Danfe.Pdf", True)
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Dim CfDoc As New PlugDanfe.Danfe.ConfigDocto
        CfDoc.Canhoto = True
        CfDoc.FootLeft = "PlugSoft Informática - (55)3027-2822"  'Mensagem no rodapé da Nota
        CfDoc.FootRight = "Santa Maria " & Format(Today, "dd/MM/yyyy")  'Outra mensagem no rodapé da nota
        CfDoc.WidthPic = 15   ´Largura da logo
        CfDoc.FileLogo = "C:\LixoPrn\SuaLogo.Png"
        Dim D As New PlugDanfe.Danfe
        D.ConfigDoc = CfDoc
        D.Chave = "ABX9BAXK0X20442BZK2AYD09"
        D.Chave = CriptografaPS("0502017100010488379771003955")
        D.SelecionarArquivoXML(PlugDanfe.Danfe.ImpressaoDanfe.DanfePDF)   'Aqui é possível selecionar um arquivo e gerar o documento direto, tanto para PDf quanto para impressão comum
        D.Dispose()
    End Sub


Tentei resumir aqui a função de cada valor
A melhor forma de fazer isso é executando esses exemplos e alterando os valores de cada propriedade ou função e observar visualmente o efeito

Ah... se alguém usa vb6, pode-se compilar essa dll pra usar no vb6
Ou solicite que posto a dll compilada pra ser usada no vb6



#489484 - 15/07/2019 10:24:26

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Foram disponibilizados os fontes utilizados para chamar as dlls né ?, Não os fontes das dlls.
Nesse caso não é possível fazer manutenção ou alteração do sistema.



#489485 - 15/07/2019 12:37:27

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Vc não olhou direito... eu disponibilizei as dll e num post posterior, disponibilizei os fontes da DLL




#489487 - 15/07/2019 15:16:59

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Citação:
  Vc não olhou direito

Desculpe, verdade.




#489883 - 08/08/2019 23:43:41

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Pessoal....
Havia um erro que realmente havia me passado desapercebido na impressão da Danfe
Caso fosse clicado no botão Cancelar ta tela de seleção de impressora, a impressão não era cancelada
Para quem está usando o código fonte, basta substituir a função lá existente por essa de mesmo nome

    Private Sub InicializaRelatorio(ByVal sender As Object, ByVal Relatorio As System.Drawing.Printing.PrintEventArgs)
        If PrnDef = "" Then
            If PrnDoc.PrintController.IsPreview = False Then
                Try
                    Dim Impressora As New PrintDialog
                    If Impressora.ShowDialog() = DialogResult.Cancel Then
                        Relatorio.Cancel = True
                    End If
                    Try
                        PrnDoc.PrinterSettings = Impressora.PrinterSettings
                    Catch ex As Exception
                        MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End Try
                Catch ex As Exception
                    MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
            End If
        End If
    End Sub

Localizem a função acima na dll e substituam a mesma por essa publicada aqui que irá funcionar




#489888 - 09/08/2019 09:36:17

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Última edição em 09/08/2019 09:39:23 por NILSONTRES

Citação:
  Pessoal....
Havia um erro que realmente havia me passado desapercebido na impressão da Danfe
Caso fosse clicado no botão Cancelar ta tela de seleção de impressora, a impressão não era cancelada
Para quem está usando o código fonte, basta substituir a função lá existente por essa de mesmo nome

E era tão simples e não achei, Muito obrigado meu chara, valeu pela atenção.




 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário