Início
Algum dos colegas já desenvolveu algo para interação com UniNFE da Unimake?
2 participantes
INteração com UniNFE
Jungli- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 713
Registrado : 07/05/2010
.................................................................................
"Somos o que repetidamente fazemos.
A excelência, portanto, não é um feito,
mas um hábito."
Aristóteles
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 571
Registrado : 30/08/2010
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
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, "
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
|
|
|