FONTE NFE VB.NET

DANIELCPAETE 10/09/2013 14:10:37
#428655
Olá Flavio abaixo trecho de código para tentar corrigir este problema:


    [ô]GERA CABEÇALHO E GUIA DO CLIENTE
    Private Sub InserirCabecalho(ByVal Gra_Saida As System.Drawing.Printing.PrintPageEventArgs)

        Dim pen As New Pen(Brushes.Black, 0.5)

        [ô]CALCULA TOTAL DE FOLHAS
        Dim Resto As Integer
        If V_PRODUTOS_Retrato.Count > 3 Then
            Resto = (V_PRODUTOS_Retrato.Count - 3) Mod 7
            If Resto > 0 Then
                TotalFolha = 2 + ((V_PRODUTOS_Retrato.Count - 3) - Resto) / 8
            Else
                TotalFolha = 1 + ((V_PRODUTOS_Retrato.Count - 3) - Resto) / 8
            End If
        End If

        Dim LimitePagina As Integer
        Dim AlturaLinha As Integer

        LimitePagina = 700
        AlturaLinha = 525

        Dim Conte As Integer = 1
        Dim ContaProd As Integer = 0
        ContaProdutos1 = 0
        For Each PDanfe As ProdutoDanfe_Retrato In V_PRODUTOS_Retrato
            ContaProd += 1
            If ContaProdutos1 < Conte Then
                AlturaLinha += 10
                Dim ContaPreen As Integer = 0
                Dim SLinhaLote As String = [Ô][Ô]
                If PDanfe.DDescricao.Length > 40 Then
                    AlturaLinha += 10
                    LimitePagina = LimitePagina - 4
                End If
                For Each LinhaAdi In PDanfe.LinhaProd
                    ContaPreen += 1
                    SLinhaLote &= [Ô] [Ô] & LinhaAdi.ToString
                    If ContaPreen = 3 Then
                        ContaPreen = 0
                        SLinhaLote = [Ô][Ô]
                        AlturaLinha += 10
                        LimitePagina = LimitePagina - 4
                    End If
                Next
                If SLinhaLote <> [Ô][Ô] Then
                    If SLinhaLote.Length > 40 Then
                        AlturaLinha += 10
                        LimitePagina = LimitePagina - 4
                    Else

                    End If
                    AlturaLinha += 10
                End If

                If AlturaLinha > LimitePagina And ContaProd < V_PRODUTOS_Retrato.Count Then
                    Conte = Conte + 1
                    AlturaLinha = 260
                    LimitePagina = 940
                End If
            End If
        Next

e no imprimir produtos

            If PDanfe.DDescricao.Length > 40 Then
                    Alinhamento.Alignment = StringAlignment.Near
                    Gra_Saida.Graphics.DrawString(PDanfe.DDescricao, Font6, Brushes.Black, New RectangleF(121, AlturaLinha, 150, 20), Alinhamento)
                    AlturaLinha += 10
                    Y2Line = Y2Line - 4
                Else
                    Gra_Saida.Graphics.DrawString(PDanfe.DDescricao, Font6, Brushes.Black, 121, AlturaLinha, New StringFormat)
                End If

                AlturaLinha += 10
                Dim ContaPreen As Integer = 0
                Dim SLinhaLote As String = [Ô][Ô]
                For Each LinhaAdi In PDanfe.LinhaProd
                    ContaPreen += 1
                    SLinhaLote &= [Ô] [Ô] & LinhaAdi.ToString
                    If ContaPreen = 3 Then
                        If SLinhaLote.Length > 40 Then
                            Alinhamento.Alignment = StringAlignment.Near
                            Gra_Saida.Graphics.DrawString(SLinhaLote, Font5, Brushes.Black, New RectangleF(121, AlturaLinha, 150, 20), Alinhamento)
                            AlturaLinha += 10
                            Y2Line = Y2Line - 4
                        Else
                            Gra_Saida.Graphics.DrawString(SLinhaLote, Font5, Brushes.Black, 121, AlturaLinha, New StringFormat)
                        End If
                        ContaPreen = 0
                        SLinhaLote = [Ô][Ô]
                        AlturaLinha += 10
                    End If
                Next
                If SLinhaLote <> [Ô][Ô] Then
                    If SLinhaLote.Length > 40 Then
                        Alinhamento.Alignment = StringAlignment.Near
                        Gra_Saida.Graphics.DrawString(SLinhaLote, Font5, Brushes.Black, New RectangleF(121, AlturaLinha, 150, 20), Alinhamento)
                        AlturaLinha += 10
                        Y2Line = Y2Line - 4
                    Else
                        Gra_Saida.Graphics.DrawString(SLinhaLote, Font5, Brushes.Black, 121, AlturaLinha, New StringFormat)
                    End If
                    AlturaLinha += 10
                End If
AUGUSTTO 17/09/2013 22:22:58
#428988
Onde encontro o projeto da NF-e atualizado?????

Att
KILLER 18/09/2013 09:57:59
#429000
Gostaria de saber se alguém conseguiu fazer o registro de saída via web service, se sim poderia disponibilizar o xml, obrigado.
INTEGRATIOS 30/09/2013 11:41:28
#429407
Meu salve a todos!

Venho acompanhando esse tópico há um tempo e chegou o momento de implementar esse módulo em um sistema.

Parabenizo DANIELCPAETE pela iniciativa e ao pessoal que move esse tópico tanto com perguntas como com respostas.

Trabalho com vb.net e vb6 há algum tempo, não tenho tantos conhecimentos, mas se eu puder ajudar de alguma forma.

Contem comigo.
INTEGRATIOS 30/09/2013 12:16:06
#429408
Citação:

:
Onde encontro o projeto da NF-e atualizado?????

Att



Está na página 134 AUGUSTTO.
MFLAVIO 30/09/2013 13:20:52
#429411
Alguém já esta trabalhando na nova NT?, estou meio perdido para atualizar meu sistema para essa nova Norma Tecnica
MFLAVIO 30/09/2013 16:58:31
#429421
Pessoal alguém conseguiu referenciar nota neste projeto?

estou tentando usar a 
   Vnfe.infNFE.Ide.NFRef.Add
mais não da certo, da erro de valor incompatível com String
como eu faço para referenciar a chave da nota se não for com uma string?
DANIELCPAETE 01/10/2013 10:03:43
#429441 
        Dim NFrefS As NFref
        NFrefS = New NFref
        NFrefS.refNFe = string da chave nfe
        NotaEletronica.infNFE.Ide.NFRef.Add(NFrefS)
MFLAVIO 01/10/2013 15:02:04
#429454
Citação:

:

        Dim NFrefS As NFref
        NFrefS = New NFref
        NFrefS.refNFe = string da chave nfe
        NotaEletronica.infNFE.Ide.NFRef.Add(NFrefS)



Perfeito Muito obrigado Daniel
SERGIOPNS 07/11/2013 21:58:28
#430874
Pessoal gostaria de acrescentar tambem ao projeto um modulo emissor de Conhecimento eletronico de transporte, semana que vem estarei começando um trabalho em uma transportadora onde será necessario o CTe
Página 164 de 228 [2276 registro(s)]
Faça seu login para responder
Voltar