Softshop > NFe: Erro ao Validar NFe Volumes Transportados
Software: SOFTSHOP | Grupo: SOFTSHOP > ANALISE > NFe
Solução
Requisitos:
SetupSoftcomDLLs versão mais recente| Download SetupSoftcomDLLs (Clique aqui)
Observações:
Este procedimento corrige o erro ao validar NFe Volumes Transportados no Softshop versões antigas < 9.0.0
Correção do Erro
1. Acessar a função VinculoFiscalNFe_setTotalizadores e realizar as seguintes alterações:
1.1. Trocar esse trecho:
With Form_NotaFiscal_Cabecalho
.Volumes_Quantidade = QuantidadeTotal
.Volumes_PesoBruto = pesoBrutoTotal
.Volumes_PesoLiquido = pesoLiquidoTotal
If .AllowEdits Then
Util_SalvarRegistro
End If
End With
1.2. Por esse trecho:
With Form_NotaFiscal_Cabecalho
If Nz(.Volumes_Quantidade, 0) = 0 Then
.Volumes_Quantidade = QuantidadeTotal
End If
If Nz(.Volumes_PesoBruto, 0) = 0 Then
.Volumes_PesoBruto = pesoBrutoTotal
End If
If Nz(.Volumes_PesoLiquido, 0) = 0 Then
.Volumes_PesoLiquido = pesoLiquidoTotal
End If
If .AllowEdits Then
Util_SalvarRegistro
End If
End With
Exemplo:
**
**

2. Trocar esse trecho:
rsNotaFiscal.Edit
rsNotaFiscal.Fields("Volumes_Quantidade") = QuantidadeTotal
rsNotaFiscal.Fields("Volumes_PesoBruto") = pesoBrutoTotal
rsNotaFiscal.Fields("Volumes_PesoLiquido") = pesoLiquidoTotal
rsNotaFiscal.Update
2.1. Por esse trecho:
rsNotaFiscal.Edit
If Nz(rsNotaFiscal!Volumes_Quantidade, 0) = 0 Then
rsNotaFiscal!Volumes_Quantidade = QuantidadeTotal
End If
If Nz(rsNotaFiscal!Volumes_PesoBruto, 0) = 0 Then
rsNotaFiscal!Volumes_PesoBruto = pesoBrutoTotal
End If
If Nz(rsNotaFiscal!Volumes_PesoLiquido, 0) = 0 Then
rsNotaFiscal!Volumes_PesoLiquido = pesoLiquidoTotal
End If
rsNotaFiscal.Update
Exemplo:
**
**


Como Solicitar a Revisão ou Criação de FAQs?
Acesse o fluxo de aprovação FAQ 6729 - Softcom > FAQ: Como se dará o fluxo (Diagrama) de renovação da base de conhecimento? (Clique aqui)
Tags: softshop, nfe, erro, validar, volumes transportados, vinculofiscalnfe_settotalizadores