Nuvem Fiscal: Ajustar chamada no Softshop para normalização do LED de importação de notas
Software: SOFTSHOP | Grupo: SOFTSHOP
Solução
Objetivo: Garantir que o LED de importação de notas na Nuvem Fiscal do Softshop apresente o status correto, ajustando a chamada responsável pela sua atualização, válido apenas para versões inferiores à 9.20.0.0 do Softshop.
Versão Nuvem Fiscal compatível: 1.8.7 ou superior
-----
Passo a passo:
Importar módulos do origem(https://prnt.sc/dPYruGpX4lVk)
Na ação do botão confirmar do formulário XML_ImportNFe (https://prnt.sc/DVy1TmSof2si), adicionar os dois trechos marcados (https://prnt.sc/Q7fS5Dfq4eBT)
No formulário Cadastro das Entradas na ação do botão excluir (https://prnt.sc/wWJ1rpQXpI_B), adicionar trecho de código marcado (https://prnt.sc/Ul8xOjIaO3ea)
Funções adicionadas aos módulos:
- NuvemFiscal:
Public Function NuvemFiscal_SetImportada(ByVal chaveNFe As String, ByVal cnpjLoja As String)
On Error GoTo ex
InstanceObjAPI
ObjApi.HasImported chaveNFe, cnpjLoja, True
finalizar:
Exit Function
ex:
MsgBox "Erro no método NuvemFiscal_SetImportada: " & Err.Description, vbCritical, "Aviso"
Resume finalizar
End Function
Public Function NuvemFiscal_SetNaoImportada(ByVal chaveNFe As String, ByVal cnpjLoja As String)
On Error GoTo ex
InstanceObjAPI
ObjApi.HasImported chaveNFe, cnpjLoja, False
finalizar:
Exit Function
ex:
MsgBox "Erro no método NuvemFiscal_SetNaoImportada: " & Err.Description, vbCritical, "Aviso"
Resume finalizar
End Function
- NuvemFiscal_Implement:
Public Sub HasImported(ByVal chaveNFe As String, ByVal CNPJ As String, ByVal Imported As Boolean)
ObjApi.HasImported chaveNFe, CNPJ, Imported
End Sub
- Util_Aplicacao:
Public Function Util_VersaoNuvemFiscalCompativel(ByVal versaoMinima As String) As Boolean
Dim versaoInstalada As String
versaoInstalada = Util_FormatVersaoWS(Util_GetProgramasInstalados("NuvemFiscal"), True)
If versaoInstalada >= Util_FormatVersaoWS(versaoMinima, True) Then
Util_VersaoNuvemFiscalCompativel = True
End If
End Function
Tags: nuvemfiscal, notafiscal, nfe, compras, entradas