MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    INteração com UniNFE

    Jungli
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

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

    INteração com UniNFE  Empty INteração com UniNFE

    Mensagem  Jungli 15/9/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
    avatar
    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

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

    INteração com UniNFE  Empty Re: INteração com UniNFE

    Mensagem  NADIRONUNES 15/9/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: 28/2/2021, 06:44