MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    INteração com UniNFE

    Compartilhe
    avatar
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 637
    Registrado : 07/05/2010

    INteração com UniNFE

    Mensagem  Jungli em Qui 15 Set 2016, 01:54

    Algum dos colegas já desenvolveu algo para interação com UniNFE da Unimake?


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 414
    Registrado : 30/08/2010

    Re: INteração com UniNFE

    Mensagem  NADIRONUNES em Qui 15 Set 2016, 14:00

    eu uso esse codigo pra pegar a nota fiscal gerada em txt pra que o unimake transmite a nota


    Private Sub NFeViar()
    Dim Resp
    Resp = MsgBox("Iniciar o processo e transmissão da NFe?" & vbCr & "O processo não poderá ser interrompido.Continuar?", vbExclamation + vbYesNo)

    If Resp = 7 Then
    DoCmd.CancelEvent
    Exit Sub
    End If
    Call verfdanef
    Parametros_de_Empresa "SysEmpresa.par"
    Dim fso
    Dim file As String, sfol As String, dfol As String, textoXml As String, textoLinha As String
    file = Me.chvs & "-nfe.txt"
    sfol = CurrentProject.path & "\XmlDanef\NFE\"
    dfol = "C:\Unimake\UniNFe\" & Xcnpj & "\envio\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(sfol & file) Then
    MsgBox sfol & file & " não existet!", vbExclamation, "Erro"
    ElseIf Not fso.FileExists(dfol & file) Then
    fso.CopyFile (sfol & file), dfol
    DoCmd.OpenForm "Splash"
    Forms!Splash!Info01.Caption = "Transmitindo NFe nº " & Mid(Me!chvs, 26, 9)
    Forms!Splash!Info02.Caption = ""
    DoEvents
    DoEvents
    TimerInterval = 100
    Pause 1.3
    If Len(Dir("C:\Unimake\UniNFe\" & Xcnpj & "\Enviado\Autorizados\" & "20" & Mid(Me.chvs, 3, 4) & "\" & Me!chvs & "-procNFe" & ".xml")) > 0 Then
    Open lcd For Input As #1
    Do Until EOF(1)
    Line Input #1, textoLinha
    textoXml = textoXml & textoLinha
    Loop
    Close #1

    Forms!Splash!Info01.Caption = "Transmitindo NFe nº " & Mid(Me!chvs, 26, 9)
    Forms!Splash!Info02.Caption = "Transmitindo NFe nº " & Mid(Me!chvs, 26, 9) & " Transmitida Com Sucesso "
    Forms!Splash!Info03.Caption = "Status: " & separaEntreDuasStringsXML(textoXml, "", "") & "-" & separaEntreDuasStringsXML(textoXml, "", "")
    Forms!Splash!Info04.Caption = "NProtocolo: " & separaEntreDuasStringsXML(textoXml, "", "")
    Forms!Splash!Info05.Caption = "Data Protocolo: " & separaEntreDuasStringsXML(textoXml, "", "")
    cprocnfe = lcd
    Shell ("C:\unimake\uninfe\UniDANFE.exe a=" & cprocnfe & " c=RETRATO")
    TimerInterval = 0
    Else
    End If
    Else
    'MsgBox dfol & file & " existente!", vbExclamation, "Sucesso"
    End If
    End Sub

      Data/hora atual: Sab 21 Out 2017, 09:40