IMPRESSO DE DOCUMENTOS FISCAIS

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

IMPRESSO 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 no mexi nele AINDA
Mas entre reescrever o que est funcionando s pra deixar mais Profissional o cdigo e desenvolver algo novo, preferirei sempre a segunda opo
At por que aqui na minha empresa 100% do que usamos desenvolvido aqui

Outro motivo que me levou a fracionar a parte da funcionalidade grfica que assim ficou mais fcil fazer os ajustes quando necessitava mudar aparncia ou posio de elementos na impresso...
Ficou muito mais fcil []me achar[]

Em seguida estarei publicando o cdigo fonte para impresso da carta  de correo, conforme mostrada no anexo




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

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Citação:
:
:
Parabns, PLUGSOFTSM!

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

Tudo de bom, para todos ns!
Nos poupe n, o fato de colocar :
  se algum quiser conhecer...
55 55984111350 meu whats  
porque ele queria convidar para tomar um caf e dar o cdigo fonte num pendrive edio de colecionador dos vingadores.

lgico que agora inverteu a situao postando o fonte, te dou o parabns PLUGSOFTSM por disponibilizar o material, sei que ser til para os estudos de muita gente aqui, mas faa upload no site para ficar disponvel de forma correta aqui e ainda ganha estrelinhas por isso.


Na boa....
No tenho nenhum problema em compartilhar cdigos com ningum.... o que no me parece ser o teu caso
Observe que muitas vezes postei respostas para dvidas de COLEGAS onde publicava trechos de cdigo
Minha intenso foi apenas ajudar a quem estava tendo necessidade em obter ou desenvolver algo que mais chato que difcil de fazer
Mas quem no se interessar, basta ignorar o tpico e continuar a vida de boa.....
Tenho hoje uma carteira de clientes que, graas a Deus, me permitem viver confortavelmente sem precisar buscar receita extra como a venda de cdigo fonte....
Basta ver que o colega NilsonTres, no privado, como ele mesmo publicou aqui, se ofereceu para comprar os cdigos e eu disponibilizei gratuitamente...
O mal de muitas pessoas pensarem que ningum mais capaz de ajudar e colaborar sem tentar tirar proveito da situao....



#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 pacincia, eu estou a quase 10 anos enrolando para desenvolver a impresso do danfe e principalmente o pdf.
Utilizo o unidanfe gratuito, mas no permite a gerao 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, so 3 botes, que vc postou de cdigo, 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


No... Na verdade mostrei os 3 modos que as funoes 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 contedo 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 destinatrio assinar... se false no 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 funo define a melhor posio para a logo
        CfDoc.WidthLine = 2    []Espessura da linha (mm)
        CfDoc.XML = Xml  []Varivel contendo o XML
        Dim D As New PlugDanfe.Danfe
        D.Chave = []ABX9BAXK0X20ABX9BAXK0X20[]
        D.ImprimirDanfe(CfDoc, True)  []aqui a varivel True indica que a nota dever ser pr-visualizada na tela. Se false, pode-se adicionar uma impressora, da feito uma impresso direta.
        []a o cdigo 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 Informtica - (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 possvel selecionar um arquivo e gerar o documento direto, tanto para PDf quanto para impresso comum
        D.Dispose()
    End Sub


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

Ah... se algum 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 ?, No os fontes das dlls.
Nesse caso no possvel fazer manuteno ou alterao do sistema.



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

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Vc no 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 no 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 impresso da Danfe
Caso fosse clicado no boto Cancelar ta tela de seleo de impressora, a impresso no era cancelada
Para quem est usando o cdigo fonte, basta substituir a funo 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 funo 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 impresso da Danfe
Caso fosse clicado no boto Cancelar ta tela de seleo de impressora, a impresso no era cancelada
Para quem est usando o cdigo fonte, basta substituir a funo l existente por essa de mesmo nome

E era to simples e no achei, Muito obrigado meu chara, valeu pela ateno.




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


Tópico encerrado, respostas não sao permitidas
Encerrado por PLUGSOFTSM em 19/12/2019 20:01:14