Estou tendo este erro direto ao transmitir para o SEFAZ a NTCe-SAT, fecho o pedido e ao transmitir vem este erro
erro 2471 "a expressão que vc inseriu como parâmetro de consulta gerou este erro "[SAT_LocalArquivosSAT]"
Public Function GerarCFe()
If sErr = -1 Then
On Error GoTo GerarCFe_Erro
End If
Dim iRetorno As Integer
Dim strLocal As String
strLocal = DLookup("[SAT_LocalArquivosSAT]", "CFe_Parametros")
iRetorno = regAlterarValor_Daruma("SAT\LocalArquivosSAT", strLocal)
If strLocal = "" Then
DarumaFramework_Mostrar_Retorno_SAT_Value (iRetorno)
Forms!BarraProgresso.prog1.visible = True
Forms!BarraProgresso.prog2.visible = True
Forms!BarraProgresso.prog3.visible = True
Forms!BarraProgresso.prog4.visible = True
Forms!BarraProgresso.prog5.visible = True
Forms!BarraProgresso.Barra2.visible = True
Forms!BarraProgresso!Info02.caption = "Falha na transmissão!"
Beep
Forms!BarraProgresso!BotaoSair.visible = True
iRetorno = tCFeCancelar_SAT_Daruma()
DoEvents
DoCmd.CancelEvent
End
End If
Alguem saberia me ajudar
Dionisio
erro 2471 "a expressão que vc inseriu como parâmetro de consulta gerou este erro "[SAT_LocalArquivosSAT]"
Public Function GerarCFe()
If sErr = -1 Then
On Error GoTo GerarCFe_Erro
End If
Dim iRetorno As Integer
Dim strLocal As String
strLocal = DLookup("[SAT_LocalArquivosSAT]", "CFe_Parametros")
iRetorno = regAlterarValor_Daruma("SAT\LocalArquivosSAT", strLocal)
If strLocal = "" Then
DarumaFramework_Mostrar_Retorno_SAT_Value (iRetorno)
Forms!BarraProgresso.prog1.visible = True
Forms!BarraProgresso.prog2.visible = True
Forms!BarraProgresso.prog3.visible = True
Forms!BarraProgresso.prog4.visible = True
Forms!BarraProgresso.prog5.visible = True
Forms!BarraProgresso.Barra2.visible = True
Forms!BarraProgresso!Info02.caption = "Falha na transmissão!"
Beep
Forms!BarraProgresso!BotaoSair.visible = True
iRetorno = tCFeCancelar_SAT_Daruma()
DoEvents
DoCmd.CancelEvent
End
End If
Alguem saberia me ajudar
Dionisio