Softshop > NFe: Ao exportar a NFe o txt é gerado sem informações
Software: SOFTSHOP | Grupo: MUDANÇAS
Solução
Causa:
Pode acontecer em versões mais antigas do softshop, versão 8.14.0.0 ja possui essa implementação (1).
Solução
1 - Abrir o módulo "ModuloValidacao", localizar a função ValidarErros_NFe()
Onde tem "ElseIf (cRetorno = 2) Then"
e "Else", colar o trecho de código abaixo(1) logo após onde tem "DoCmd.RunCommand acCmdSaveRecord", para os dois casos
(1)
Forms![NotaFiscal_Cabecalho]!RegistroNFe = Forms![NotaFiscal_Cabecalho]!Registro
Forms![NotaFiscal_Cabecalho].Form.Requery
DoCmd.GoToControl "Registro"
DoCmd.FindRecord [Forms]![NotaFiscal_Cabecalho]![RegistroNFe]
DoCmd.GoToControl ("Registro")
Veja modulo da versão 8.14.0.0, trecho que precisa ser colocado em versões mais antigas (2).
'VALIDACAO DA TELA DE NFe
Public Function ValidarErros_NFe() As Boolean
On Error GoTo ex
DoCmd.Close acForm, "ModuloValidacao_Resultados"
NFe_Liberar
Dim cRegistro As Long
cRegistro = Nz([Forms]![NotaFiscal_Cabecalho]![REGISTRO], 0)
If (cRegistro > 0) Then
'VERIFICAÇÃO DOS RATEIOS DE DESCONTO E FRETE
NFe_VerificarRateios cRegistro
'------------------------------------------ 'RETORNO DA FUNÇÃO ---------------------------
'0 - Não foi encontrado erros ou advertências
'1 - Foram encontrado erros e advertências
'2 - Foram encontrado apenas advertências
'----------------------------------------------------------------------------------------------------------
Dim cRetorno As Integer
cRetorno = Validacao_getValidar("NFe", "[Registro] = " & cRegistro)
If (cRetorno = 1) Then
MsgBox "Foram encontrados erros e/ou advertências.", vbCritical, "Aviso"
[Forms]![NotaFiscal_Cabecalho].Visible = True
DoCmd.OpenForm "ModuloValidacao_Resultados"
ValidarErros_NFe = True
NFe_ValidadaComSucesso = False
Else If (cRetorno = 2) Then
'CurrentDb.Execute "UPDATE [NotaFiscal_Cabecalho] SET [Validado] = -1 WHERE [Registro] = " & cRegistro, dbSeeChanges
[Forms]![NotaFiscal_Cabecalho]![Validado] = -1
DoCmd.RunCommand acCmdSaveRecord
Forms![NotaFiscal_Cabecalho]!RegistroNFe = Forms![NotaFiscal_Cabecalho]!REGISTRO
Forms![NotaFiscal_Cabecalho].Form.requery
DoCmd.GoToControl "Registro"
DoCmd.FindRecord [Forms]![NotaFiscal_Cabecalho]![RegistroNFe]
DoCmd.GoToControl ("Registro")
MsgBox "NFe validada, porém foram encontradas advertências.", vbExclamation, "Aviso"
[Forms]![NotaFiscal_Cabecalho].Visible = True
NFe_Bloquear
DoCmd.OpenForm "ModuloValidacao_Resultados"
NFe_ValidadaComSucesso = True
Else
'CurrentDb.Execute "UPDATE [NotaFiscal_Cabecalho] SET [Validado] = -1 WHERE [Registro] = " & cRegistro, dbSeeChanges
[Forms]![NotaFiscal_Cabecalho]![Validado] = -1
DoCmd.RunCommand acCmdSaveRecord
Forms![NotaFiscal_Cabecalho]!RegistroNFe = Forms![NotaFiscal_Cabecalho]!REGISTRO
Forms![NotaFiscal_Cabecalho].Form.requery
DoCmd.GoToControl "Registro"
DoCmd.FindRecord [Forms]![NotaFiscal_Cabecalho]![RegistroNFe]
DoCmd.GoToControl ("Registro")
If Not (EstáCarregado("Vendas3")) Then
MsgBox "NFe validada com sucesso.", vbInformation, "Aviso"
NFe_Bloquear
End If
NFe_ValidadaComSucesso = True
End If
End If
Exit Function
Tags: exportar, nfe, txt, zerado