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
#489406 - 09/07/2019 14:49:30

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


 Anexos estao visíveis somente para usuários registrados

Pessoal
Desenvolvi uma ferramenta que permite a impressão de Notas Fiscais Eletrônica, Frete, Cupom Fiscal Eletrônico, Notas Fiscais de serviço tudo a partir do XML.
Basta informar o Xml e a impressora de destino
Ficou bem show.... Permite adicionar logomarca, cores, escolher fontes, imprimir em impressora, pdf, exibir na tela, enviar por email
O programador consegue usar o recurso com 4 a 10 linhas de código no máximo

se alguém quiser conhecer...
55 55984111350 é meu whats



#489407 - 09/07/2019 15:00:57

LUIS2014
CURITIBA
Cadast. em:Agosto/2014


Citação:
  - Oferecer produtos e serviços pessoais dentro do site de maneira a obter ganhos financeiros utilizando-se do site como veículo para tal.


pode isso Arnaldo?



#489408 - 09/07/2019 15:40:41

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Qualquer um que esteja vendendo serviço de software e não é capaz de fazer algo assim, deveria mudar de ramo.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#489410 - 09/07/2019 17:01:31

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Primeiro....
Falei em cobrar algo ou vender?
Se alguém leu isso... me avise por favor....

tenho site específico pra isso....
e NUNCA nem divulguei o site aqui



#489411 - 09/07/2019 17:03:37

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Citação:
:
Primeiro....
Falei em cobrar algo ou vender?
Se alguém leu isso... me avise por favor....

tenho site específico pra isso....
e NUNCA nem divulguei o site aqui

Ótimo! Então você pode fazer o upload disso na seção de uploads do site!

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#489413 - 09/07/2019 17:49:47

LUIS2014
CURITIBA
Cadast. em:Agosto/2014


Citação:
  Ótimo! Então você pode fazer o upload disso na seção de uploads do site!  




#489414 - 09/07/2019 19:40:46

FUTURA
.
Cadast. em:Maio/2004


As minhas faço em Crystal pegando dados do banco. Vai bem, só a primeira impressão do dia que demora um pouco ( não sei o motivo).  Vc vai disponibilizar ou vender?. Parece interessante, gostaria de conhecer.  



#489417 - 10/07/2019 07:41:22

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


Última edição em 10/07/2019 07:42:09 por NILSONTRES

Citação:
só a primeira impressão do dia que demora um pouco ( não sei o motivo).  

Até hoje não encontrei uma solução para isso.




#489418 - 10/07/2019 08:21:31

FUTURA
.
Cadast. em:Maio/2004


Citação:
:
só a primeira impressão do dia que demora um pouco ( não sei o motivo).  
Até hoje não encontrei uma solução para isso.


Rsss, é meio chato né ?, parece que tem que carregar algo na memória, mas nas demais, já era..   vai de boa..



#489419 - 10/07/2019 08:34:11

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


 Anexos estao visíveis somente para usuários registrados

Pra quem quiser usar tá aqui o pacote dos arquivos
Basta descompactar e anexar ao projeto o arquivo plugdanfe.dll
Mas os outros dois tem que estar na mesma pasta
O aqruivo anexo está em TXT. Renomear o mesmo para RAR

    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")
        Dim CfDoc As New PlugDanfe.Danfe.ConfigDocto
        CfDoc.Canhoto = True
        CfDoc.ImgLogo = System.Drawing.Image.FromFile("C:\LixoPrn\SuaLogo.Jpg")
        CfDoc.MEsq = 5
        CfDoc.MSup = 8
        CfDoc.MDir = 8
        CfDoc.MInf = 8
        CfDoc.PosiLog = PlugDanfe.Danfe.PosiLogo.Otimizado
        CfDoc.WidthLine = 2
        CfDoc.XML = Xml
        Dim D As New PlugDanfe.Danfe
        D.Chave = "ABX9BAXK0X20ABX9BAXK0X20"
        D.ImprimirDanfe(CfDoc, True)
        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"
        CfDoc.FootRight = "Santa Maria " & Format(Today, "dd/MM/yyyy")
        CfDoc.WidthPic = 15
        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)
        D.Dispose()
    End Sub





#489420 - 10/07/2019 08:36:00

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Última edição em 10/07/2019 08:36:59 por PLUGSOFTSM

 Anexos estao visíveis somente para usuários registrados

Tem que baixar esse anexo tb e renomeá-lao para RAR e descompactar junto na mesma pasta





 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