EMISSAO DE DANFE AJUDA

RODRIGOFERRO 23/02/2010 01:10:35
#335098
queria saber do povo que ja fez o DANFE se poderiam me ajudar a escolher o que me dará menor dor de cabeça na hora de gerar o DANFE, meu projeto e o seguinte VB.NET + BARCODE + Crystal
estou usando dataset para armazenar os dados, mas como tenho de usar um dataset separado para uma tabela onde carrego o codigo de barra do HD, ao adicionar esses dois dataset no Crystal, o mesno nao Gera Codigo de barra, entao so adicionei a tabela dela e vi de boa, agora estou parseando a XML e passando todos os dados via parametro, tem alguma forma que fique melhor ? alguem tem algum conselho ?

Abraços e segue Trechos do Codigo Abaixo

        [ô]Preenchedo dados de Structures
        subLerPastas()

        [ô]Declarando as Variaveis
        Dim strCaminhoXSD As String = PastasIniciais.Pasta_principal & [Ô]Schemas
fe_v1.10.xsd[Ô]
        Dim strCaminhoXML As String
        Dim strPathImagem As String = PastasIniciais.Pasta_principal & [Ô]teste.jpg[Ô]
        Dim myXmlDataDocument As New XmlDataDocument()

        [ô]Definindo Variaveis
        [ô]Criando nova Instancia do Dataser
        Dim dtsNewXML As New dstXML
        Dim dr As dstXML.ImageRow = dtsNewXML.Image.NewImageRow

        [ô]Pegando o Parametro do Executavel
        If (Command() <> [Ô][Ô]) Then
            strCaminhoXML = (Command())
        Else
            strCaminhoXML = PastasIniciais.Pasta_principal & [Ô]xml_teste\32100106030812000166550000000002050198681748_Autorizada.xml[Ô]
        End If

        [ô]Gerando Codigo de Barras e Salvando na Pasta
        Dim Barcode As New BarcodeLib.Barcode([Ô]32091004632835000115550000000000152848786600[Ô], BarcodeLib.TYPE.CODE128C)
        picPictureBox1.Image = Barcode.Encode(BarcodeLib.TYPE.CODE128, [Ô]32091004632835000115550000000000152848786600[Ô], 300, 75)
        Barcode.SaveImage(strPathImagem, SaveTypes.JPG)

        Try

            [ô]Definindo Arquivo XML e carregando
            myXmlDataDocument.DataSet.DataSetName = [Ô]NFe[Ô]
            myXmlDataDocument.DataSet.ReadXmlSchema(strCaminhoXSD)
            myXmlDataDocument.Load(strCaminhoXML)

            [ô]Carregando Relatorio
            rdD.Load(PastasIniciais.Pasta_relatorios & [Ô]Relatorios\danfe.rpt[Ô])

            [ô]Carregando Imagem e inserindo no Datatable
            dr.strPath = [Ô]eeeeeeeeee[Ô]
            dr.img_Barra = carregaImagem(strPathImagem)
            dtsNewXML.Image.Rows.Add(dr)

            [ô]Definindo o DataSource do relatorio e configurando
            rdD.SetDataSource(dtsNewXML)
            relat_Danfe.crv.ReportSource = rdD
            relat_Danfe.crv.Zoom(130)

            [ô]Lançando Dados no Relatório
            fctInsere_Parametros(myXmlDataDocument.DataSet, [Ô]infNFe[Ô], [Ô]Id[Ô], rdD, [Ô]strChave[Ô])
            fctInsereFormataParametros(myXmlDataDocument.DataSet, [Ô]emit[Ô], [Ô]cnpj[Ô], rdD, [Ô]emi_CNPJ[Ô], True, FORMATA_CNPJ)

            [ô]Exportando PDF
            ExportPDF(rdD, PastasIniciais.Pasta_principal, [Ô]testando_exportacao[Ô])
            Process.Start(PastasIniciais.Pasta_principal & [Ô]testando_exportacao.pdf[Ô], AppWinStyle.MaximizedFocus)

            End

        Catch ex As Exception

            [ô]Se ocorrer algum erro grava o Log do Erro 
            Dim Log As New clsDanfe
            Log.Gravar(ex)
            [ô]Depois informa o Usuario 
            Throw New Exception([Ô]Ocorreu um erro na Exportação[Ô], ex)

        End Try


Esse é o Load do Form, como podem ver nesse trexo eu so passo dois Parametro

Abraços e Aguardo COmentarios
RODRIGOFERRO 25/02/2010 22:24:41
#335411
Pessoal sei que muita gente aqui ja gerou o Danfe, queria apenas alguns conselhos, nada mais.
seria so para compartilhar o caminho das pedras...

Aguardo a resposta de voces
DUHHH 26/02/2010 09:30:59
#335427 Resposta escolhida
Bom dia, Utilize o ActiveReports, Ele já tem a propriedade Barcode eu utilizo e achei bem simples.

Outra duvida você já conseguiu consumir o webservice 2.0?

Estou me matando pra conseguir!
RODRIGOFERRO 26/02/2010 11:29:03
#335451
Obrigado Pela resposta... 2.0 ? me matando aqui tb...

Abraco
DUHHH 26/02/2010 15:01:02
#335472
Então cara é assim eu já consegui me conectar no webservice mais não to conseguindo conectar no webservice do cabeçalho, porque agora ele trabalha com dois webservice.

Se você me passar seu email eu te ajudo e você me ajuda, eu já tenho um sistema feito que tá funcionando a mais de 1 ano só que esse webservice 2.0 tá me deixando careca!
Tópico encerrado , respostas não são mais permitidas
Voltar