FONTE NFE VB.NET

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

FONTE NFE VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#482998 - 13/07/2018 12:15:28

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Pessoal alguém esta conseguindo adicionar Fatura na NFe 4.0?
não consigo de forma alguma

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#483023 - 13/07/2018 17:27:17

LEANTRONIC
SAMPA
Cadast. em:Março/2012


Pessoal a Solução para o meu problema foi atualizar o Windows 7 todo, demorou demais... porém no final deu certo, infelizmente por enquanto vou arriscando atualizar uma por uma até achar qual é a atualização que evita o erro. Obrigado a todos



#483026 - 13/07/2018 19:32:30

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


Citação:
  Pessoal alguém esta conseguindo adicionar Fatura na NFe 4.0?
não consigo de forma alguma  

Esta usando oop ? vê se te resolve.
Function _2016_GeraNfe_cobr(ByVal nPed As Integer) As String
        Try
            If GRID_DPL.Rows.Count < 1 Then Return "OK"
            Nota.infNFe.cobr = New NFeInfNFeCobr
            Nota.infNFe.cobr.fat = New NFeInfNFeCobrFat
            Nota.infNFe.cobr.fat.nFat = Nota.infNFe.ide.nNF
            Nota.infNFe.cobr.fat.vOrig = LBL_SOMA_DPL.Text
            Nota.infNFe.cobr.fat.vDesc = "0,00"
            Nota.infNFe.cobr.fat.vLiq = LBL_SOMA_DPL.Text
            Dim i As Integer
            Dim _ListDup As New List(Of NFeInfNFeCobrDup) 'para tratar itens das duplicatas
            For i = 0 To GRID_DPL.Rows.Count - 1

                Dim nDup As String = String.Format("{0:000}", Int32.Parse(i + 1)) 'numero da duplicata
                'Dim nDup As String = Nota.infNFe.ide.nNF & "." & _ListClientes.Item(0).Codigo & "." & i + 1 'numero da duplicata
                If SQL_NAG.UPDATE("Update nfe_dpls set Numero='" & nDup & "' where AT_VENDA=" & nPed & " and ITEN=" & i + 1 & "", "") = False Then
                    MsgBox("Erro ao editar numero de duplicata/boleto", MsgBoxStyle.Critical, "AVISO")
                    Return "ERRO"
                End If
                '_ListDup.Add(New NFeInfNFeCobrDup() With {.nDup = GRID_DPL.Rows(i).Cells(GDPL_NUM.Name).Value, .dVenc = GRID_DPL.Rows(i).Cells(GDPL_VENC.Name).Value, .vDup = GRID_DPL.Rows(i).Cells(GDPL_VALOR.Name).Value})
                _ListDup.Add(New NFeInfNFeCobrDup() With {.nDup = nDup, .dVenc = GRID_DPL.Rows(i).Cells(GDPL_VENC.Name).Value, .vDup = GRID_DPL.Rows(i).Cells(GDPL_VALOR.Name).Value})
            Next
            Nota.infNFe.cobr.dup = _ListDup.ToArray
            Return "OK"
        Catch
            MsgBox(Err.Description & vbCrLf & Err.GetException.StackTrace, MsgBoxStyle.Critical, "ERRO _2016_GeraNfe_cobr")
            Return Err.Description
        End Try
    End Function

Uma droga, antes utiliza o nDup para gravar o Boleto a ser gerado no banco pelo cliente, nele gravava a numeronfe o codigo do cliente e o numero da parcela, agora não pode mais, tem que ser numeração 0001,002 etc.
Pessoal não esqueçam de renovar os schemas.



#483043 - 15/07/2018 19:57:14

MITSUEDA
SAO JOSE DOS CAMPOS
Cadast. em:Agosto/2010


 Anexos estao visíveis somente para usuários registrados

Boa noite!!!

Estou tentando desenvolver uma pequena solução para baixar xml's utilizando o ambiente nacional.

Todo o código utilizado vem do projeto desse post do projeto incial a adaptações que surgiram das versões.

Eu li a nota tecnica e estudei o código, parece que temos primeiro que dar ciencia da operação antes de baixar o xml.

Então utilizando o envento de cancelamento fiz uma adaptação, mas me retorna o erro 'https://www.w3.org/2000/09/xmldsig#:X509Certificate' não foi declarado.

Estou anexando o projeto se alguem conseguir me dar um help, estou apanhando na parte da ciencia da operação imagina quando chegar na hora de baixar o xml rs...

Abraço a todos.

Mitsueda Fábio


#483045 - 15/07/2018 21:15:21

WPIMENTEL
BARUERI
Cadast. em:Janeiro/2013


Ola NILSONTRES

No meu quando coloco Nota.infNFe.cobr.fat.vDesc = "0,00", no momento que vou validar o arquivo com o nfe_v4.00.xsd retorna que o vDesc não pode ser 0,00
Ai a solução provisória que encontrei foi somar 0,01 ficando:
Nota.infNFe.cobr.fat.vOrig = LBL_SOMA_DPL.Text + 0,01
Nota.infNFe.cobr.fat.vDesc = "0,01"
Nota.infNFe.cobr.fat.vLiq = LBL_SOMA_DPL.Text

Alguém sabe o porque disso ou se estou fazendo algo errado.

att: WPIMENTEL



#483047 - 16/07/2018 00:19:28

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


Citação:
  vDesc não pode ser 0,00

Você esta colocando 0,00 ou 0.00, no meu exemplo aparece 0,00, mas depois ele é convertido para 0.00.




#483048 - 16/07/2018 09:05:55

FUTURA
.
Cadast. em:Maio/2004


A situação do campo vdesc esta a seguinte, em homologação, vc precisa informar ele, mesmo que seja com zeros. Em produção, vc só informa se tiver valor, se não tiver, não pode nem criar a TAG, se informar zeros, vai rejeitar.  Ta uma porcaria isso, a sefaz burocratizando e atrapalhando nossos serviços. Depois nós é que temos que virar a noite atualizando clientes dentro do prazo..



#483049 - 16/07/2018 09:11:25

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


Citação:
A situação do campo vdesc esta a seguinte, em homologação, vc precisa informar ele, mesmo que seja com zeros. Em produção, vc só informa se tiver valor, se não tiver, não pode nem criar a TAG, se informar zeros, vai rejeitar  

Agora se superaram, a primeira vez que vejo isso.



#483050 - 16/07/2018 09:19:39

FUTURA
.
Cadast. em:Maio/2004


Pois é Nilson, ta complicado, la na página a contagem regressiva esta a todo vapor, e dia 23, tenho certeza que vem mais bomba, pois entra no ar a NT 1.60 que havia sido adiada devido a diversos erros de validação. Ficou muito bagunçado isso...



#483086 - 17/07/2018 12:15:20

S4NGU3
SAO PAULO
Cadast. em:Maio/2010






classe de fat ,, que aceita 0,00

Public Class fat
    'nfe4k
    Inherits Object
    Implements System.ComponentModel.INotifyPropertyChanged

    Private nFatField As String

    Private vOrigField As Double

    Private vDescField As String

    Private vLiqField As Double

    '''<remarks/>
    Public Property nFat() As String
        Get
            Return Me.nFatField
        End Get
        Set
            Me.nFatField = Value
            Me.RaisePropertyChanged("nFat")
        End Set
    End Property

    '''<remarks/>
    Public Property vOrig() As Double
        Get
            Return Me.vOrigField
        End Get
        Set
            Me.vOrigField = Value
            Me.RaisePropertyChanged("vOrig")
        End Set
    End Property

    '''<remarks/>
    Public Property vDesc() As String
        Get
            Return Me.vDescField
        End Get
        Set
            Me.vDescField = Value
            Me.RaisePropertyChanged("vDesc")
        End Set
    End Property

    '''<remarks/>
    Public Property vLiq() As Double
        Get
            Return Me.vLiqField
        End Get
        Set
            Me.vLiqField = Value
            Me.RaisePropertyChanged("vLiq")
        End Set
    End Property

    Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged

    Protected Sub RaisePropertyChanged(ByVal propertyName As String)
        Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
        If (Not (propertyChanged) Is Nothing) Then
            propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
        End If
    End Sub


End Class

S4ngu3 Baum

 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