Public Function HasarSegundaDameUltimoUsado(tipoComprobante As String, letra As String) As String
Dim TipoDocumentoHs As String
Dim nro As Long
Dim Cone As String
Dim puerto As Integer
Select Case DameTipoConex(CInt(mRec.ImpFisc))
Case "USB"
Cone = "127.0.0.1"
puerto = 6000
HASARNG.Conectar Cone, puerto, 15000, 15000
Case "COM"
Cone = "127.0.0.1"
puerto = 6000
HASARNG.Conectar Cone, puerto, 15000, 15000
Case "RED"
Cone = DameIPFiscal(CInt(mRec.ImpFisc))
HASARNG.Conectar Cone
End Select
Select Case tipoComprobante
Case "FC"
Select Case letra
Case "A"
TipoDocumentoHs = "1"
Case "B"
TipoDocumentoHs = "6"
Case "C"
TipoDocumentoHs = "11"
End Select
Case "NC"
Select Case letra
Case "A"
TipoDocumentoHs = "3"
Case "B"
TipoDocumentoHs = "8"
Case "C"
TipoDocumentoHs = "13"
End Select
Case "ND"
Select Case letra
Case "A"
TipoDocumentoHs = "2"
Case "B"
TipoDocumentoHs = "7"
Case "C"
TipoDocumentoHs = "12"
End Select
Case "RC"
Select Case letra
Case "A"
TipoDocumentoHs = "4"
Case "B"
TipoDocumentoHs = "9"
Case "C"
TipoDocumentoHs = "15"
End Select
End Select
Dim resp As HasarArgentina.RespuestaConsultarEstado
If TipoDocumentoHs <> "" Then
-------------------------------------------------------------------------------
resp = HASARNG.ConsultarEstado(TipoDocumentoHs)
---------------------------------------------------------------------------------
nro = resp.NumeroUltimoComprobante
HasarSegundaDameUltimoUsado = format(CLng(nro), "0000000#")
Else
HasarSegundaDameUltimoUsado = "00000000"
End If
End Function
SET CurrentDir="%~dp0"
ECHO The current file path this bat file is executing in is the following:
ECHO %CurrentDir%
copy %~dp0HasarArgentina.Ocx %SystemRoot%\sysWOW64\HasarArgentina.Ocx
copy %~dp0MSWINSCK.OCX %SystemRoot%\sysWOW64\MSWINSCK.OCX
copy %~dp0ASYCFILT.DLL %SystemRoot%\sysWOW64\ASYCFILT.DLL
copy %~dp0COMCAT.DLL %SystemRoot%\sysWOW64\COMCAT.DLL
copy %~dp0MSSTKPRP.DLL %SystemRoot%\sysWOW64\MSSTKPRP.DLL
copy %~dp0msvbvm60.dll %SystemRoot%\sysWOW64\msvbvm60.dll
copy %~dp0msxml6.dll %SystemRoot%\sysWOW64\msxml6.dll
copy %~dp0OLEAUT32.DLL %SystemRoot%\sysWOW64\OLEAUT32.DLL
copy %~dp0OLEPRO32.DLL %SystemRoot%\sysWOW64\OLEPRO32.DLL
copy %~dp0VB6STKIT.DLL %SystemRoot%\sysWOW64\VB6STKIT.DLL
Regsvr32.exe %SystemRoot%\sysWOW64\HasarArgentina.Ocx
Regsvr32.exe %SystemRoot%\sysWOW64\MSWINSCK.OCX
Regsvr32.exe %SystemRoot%\sysWOW64\ASYCFILT.DLL
Regsvr32.exe %SystemRoot%\sysWOW64\COMCAT.DLL
Regsvr32.exe %SystemRoot%\sysWOW64\MSSTKPRP.DLL
Regsvr32.exe %SystemRoot%\sysWOW64\msvbvm60.dll
Regsvr32.exe %SystemRoot%\sysWOW64\msxml6.dll
Regsvr32.exe %SystemRoot%\sysWOW64\OLEAUT32.DLL
Regsvr32.exe %SystemRoot%\sysWOW64\OLEPRO32.DLL
Regsvr32.exe %SystemRoot%\sysWOW64\VB6STKIT.DLL