AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-04-20 09:07:40 -07:00
parent 484f57f505
commit 61403c5d11
11 changed files with 9211 additions and 6193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
App_Code/ClsBancos.vb
View File

@@ -1192,15 +1192,52 @@ Public Class ClsBancos
Return Retorno Return Retorno
End Function End Function
Public Function BlockComplementodePAgo(CveIE As Integer, CveComplementoPago As Integer) As Boolean Public Function AddComplementoPagosSinc(cveUsuario As Int32, fechaInicio As String, cveEmpresa As Int32) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_AddComplementoPagosSinc", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
.Add("@fechaInicio", SqlDbType.VarChar).Value = fechaInicio
.Add("@cveEmpresa", SqlDbType.Int).Value = cveEmpresa
.Add("@cveComplementoPagoSinc", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
retorno = False
OnError("Ocurrió un error al cancelar estatus complemento de pago", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return retorno
End Function
Public Function UpComplementoPagosSinc(cveComplementoPagoSinc As Int32, fechaFin As String) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_UpComplementoPagosSinc", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@fechaFin", SqlDbType.VarChar).Value = fechaFin
.Add("@cveComplementoPagoSinc", SqlDbType.Int).Value = cveComplementoPagoSinc
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
retorno = False
OnError("Ocurrió un error al cancelar estatus complemento de pago", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return retorno
End Function
Public Function BlockComplementodePago(CveIE As Integer, BloqueadoUtilerias As Boolean, CveComplementoPagoSinc As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_ComplementoPagoBlock") DataAdapter("PA_Banc_ComplementoPagoBlock")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveIE", SqlDbType.Int).Value = CveIE .Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CveComplementoPago", SqlDbType.Int).Value = CveComplementoPago .Add("@CveComplementoPagoSinc", SqlDbType.Int).Value = CveComplementoPagoSinc
.Add("@BloqueadoUtilerias", SqlDbType.Bit).Value = BloqueadoUtilerias
End With End With
Try Try
Retorno = (SqlAdapter.SelectCommand.ExecuteNonQuery() > 0) SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception Catch ex As Exception
Retorno = False Retorno = False
OnError("Ocurrió un error al Guardar complemento de pago", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al Guardar complemento de pago", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
@@ -1208,15 +1245,16 @@ Public Class ClsBancos
Return Retorno Return Retorno
End Function End Function
Public Function DropComplementodePago(CveIE As Integer, CveComplementoPago As Integer) As Boolean Public Function DropComplementodePago(CveIE As Integer, CveComplementoPagoSinc As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_ComplementoPagoremove") DataAdapter("PA_Banc_ComplementoPagoremove")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveIE", SqlDbType.Int).Value = CveIE .Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CveComplementoPago", SqlDbType.Int).Value = CveComplementoPago .Add("@CveComplementoPagoSinc", SqlDbType.Int).Value = CveComplementoPagoSinc
End With End With
Try Try
Retorno = (SqlAdapter.SelectCommand.ExecuteNonQuery() > 0) SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception Catch ex As Exception
Retorno = False Retorno = False
OnError("Ocurrió un error al Guardar complemento de pago", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al Guardar complemento de pago", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

12
App_Code/ClsPaginas.vb
View File

@@ -5171,12 +5171,12 @@ Public Class ClsPaginas
param.Values = {rpds.Values(0)} param.Values = {rpds.Values(0)}
params.Add(param) params.Add(param)
Next Next
Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
Dim ruta = wsreport.StreamPDF(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) 'Dim ruta = wsreport.StreamPDF(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
If File.Exists(ruta) Then 'If File.Exists(ruta) Then
Bytes = File.ReadAllBytes(ruta) ' Bytes = File.ReadAllBytes(ruta)
File.Delete(ruta) ' File.Delete(ruta)
End If 'End If
'Dim setup As AppDomainSetup = New AppDomainSetup 'Dim setup As AppDomainSetup = New AppDomainSetup
'With setup 'With setup
' .ApplicationBase = Environment.CurrentDirectory ' .ApplicationBase = Environment.CurrentDirectory

20
App_Code/ClsSisUsuarios.vb
View File

@@ -174,11 +174,26 @@ Public Class ClsSisUsuarios
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function GetModulosUsuariosPlataforma(CveUsuario As Integer, CvePlataforma As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("SELECT M.* FROM [dbo].[UsuariosModulos] UM INNER JOIN Modulos M ON M.CveModulo=UM.CveModulo WHERE M.CvePlataforma =@CvePlataforma AND @CveUsuario = UM .CveUsuario AND UM.Permitir =1", CommandType.Text)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As SqlException
OnError("Ocurrio un error al obtener el menu.", ex)
Retorno = False
End Try
Return Retorno
End Function
Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1) As Usuario Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1) As Usuario
Dim Retorno As Usuario = Nothing Dim Retorno As Usuario = Nothing
DataAdapter("PA_Sis_UsuariosGet") DataAdapter("PA_Sis_UsuariosGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveUsuario", SqlDbType.Int).Value = -1 .Add("@CveUsuario", SqlDbType.Int).Value = -1
.Add("@CveRol", SqlDbType.Int).Value = -1 .Add("@CveRol", SqlDbType.Int).Value = -1
@@ -186,7 +201,6 @@ Public Class ClsSisUsuarios
.Add("@Contraseña", SqlDbType.VarChar).Value = Password .Add("@Contraseña", SqlDbType.VarChar).Value = Password
.Add("@EsLogIn", SqlDbType.Bit).Value = 1 .Add("@EsLogIn", SqlDbType.Bit).Value = 1
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

57
App_Code/WS/WSSIGVentas.vb
View File

@@ -57,31 +57,38 @@ Namespace SIG
Using Banco As New ClsBancos() Using Banco As New ClsBancos()
If Banco.GetComplementoPagosRep(CveCliente, FechaI, FechaF, CveIE, CveVenta, opcion, CveEmpresa, Estatus:=status) Then If Banco.GetComplementoPagosRep(CveCliente, FechaI, FechaF, CveIE, CveVenta, opcion, CveEmpresa, Estatus:=status) Then
respuesta = Banco.DtResultados respuesta = Banco.DtResultados.FiltraParametros("BloqueadoUtilerias = 0")
End If End If
Dim Serie As String = "Pag" Dim Serie As String = "Pag"
Dim CveComplementoPagoTimbre As Integer = -1 Dim CveComplementoPagoTimbre As Integer = -1
Dim Folio As Integer = -1 Dim Folio As Integer = -1
respuesta.Columns.Add("CveComplementoPagoTimbre", GetType(Int32)) respuesta.Columns.Add("CveComplementoPagoTimbre", GetType(Int32))
respuesta.Columns.Add("CveComplementoPagoSinc", GetType(Int32))
respuesta.Columns.Add("FolioTimbre", GetType(String)) respuesta.Columns.Add("FolioTimbre", GetType(String))
respuesta.AcceptChanges() respuesta.AcceptChanges()
Dim thencommit As Boolean = True Dim thencommit As Boolean = True
Banco.IniciaTransacSQL() Banco.IniciaTransacSQL()
For Each dr As System.Data.DataRow In respuesta.Select("CveVenta Is NULL") If Banco.AddComplementoPagosSinc(CveUsuario, DateTime.Now.ToString("yyyy/MM/dd"), CveEmpresa) Then
CveComplementoPagoTimbre = Banco.AddComplementoPago(dr("CveIE").ToString().ToEntero(), -1, Serie, Folio, Me.CveUsuario, CveEmpresa, CvePrePoliza:=-1, Estatus:=1) Dim CveComplementoPagoSinc As Integer = Banco.DtResultados.Rows(0)("CveComplementoPagoSinc").ToString().ToEntero()
Folio = Banco.FActual For Each dr As System.Data.DataRow In respuesta.Select("CveVenta Is NULL")
dr("CveComplementoPagoTimbre") = CveComplementoPagoTimbre 'CveComplementoPagoTimbre = Banco.AddComplementoPago(dr("CveIE").ToString().ToEntero(), -1, Serie, Folio, Me.CveUsuario, CveEmpresa, CvePrePoliza:=-1, Estatus:=1)
dr("FolioTimbre") = Folio Folio = 1 'Banco.FActual
If Banco.BlockComplementodePAgo(dr("CveIE").ToString().ToEntero(), CveComplementoPagoTimbre) Then 'dr("CveComplementoPagoTimbre") = CveComplementoPagoTimbre
thencommit = False dr("FolioTimbre") = Folio
Exit For dr("CveComplementoPagoSinc") = CveComplementoPagoSinc
End If If Not Banco.BlockComplementodePago(dr("CveIE").ToString().ToEntero(), 1, CveComplementoPagoSinc) Then
Next thencommit = False
Exit For
End If
Next
Else
thencommit = False
End If
respuesta.AcceptChanges() respuesta.AcceptChanges()
If thencommit Then If thencommit Then
Banco.Commit() Banco.Commit()
Else Else
respuesta = New System.Data.DataTable respuesta = New System.Data.DataTable()
Banco.RollBack() Banco.RollBack()
End If End If
End Using End Using
@@ -94,6 +101,7 @@ Namespace SIG
<HttpPost> <HttpPost>
Public Function SincronizarComplementoPago(<FromBody()> params As WsBody) As Object Public Function SincronizarComplementoPago(<FromBody()> params As WsBody) As Object
Dim dt As System.Data.DataTable = Newtonsoft.Json.JsonConvert.DeserializeObject(Of System.Data.DataTable)(Decripta(params.Datos)) Dim dt As System.Data.DataTable = Newtonsoft.Json.JsonConvert.DeserializeObject(Of System.Data.DataTable)(Decripta(params.Datos))
Dim dterror As Data.DataTable = dt.Copy()
Dim CveEmpresa As Integer = 119 Dim CveEmpresa As Integer = 119
Dim rutaxml As String = String.Format("{0}xml", RutaEmpresa) Dim rutaxml As String = String.Format("{0}xml", RutaEmpresa)
If Not System.IO.Directory.Exists(rutaxml) Then If Not System.IO.Directory.Exists(rutaxml) Then
@@ -101,12 +109,13 @@ Namespace SIG
End If End If
Using objbancos As New ClsBancos() Using objbancos As New ClsBancos()
objbancos.IniciaTransacSQL()
dt.AcceptChanges() dt.AcceptChanges()
Dim continuar As Boolean = True
For Each dr As System.Data.DataRow In dt.Rows For Each dr As System.Data.DataRow In dt.Rows
If dr("Sincronizado").ToString() <> "1" Then If continuar AndAlso dr("Sincronizado").ToString() <> "1" Then
If dr("SeTimbro").ToString() = 1 Then If dr("SeTimbro").ToString() = 1 Then
Dim CveComplementoPagoTimbre As Integer
Dim continuar As Boolean = True
Try Try
Using ArchivoW As New IO.StreamWriter(String.Format("{0}\{1}.xml", rutaxml, dr("FolioFiscalTimbre").ToString()), True, System.Text.Encoding.UTF8) Using ArchivoW As New IO.StreamWriter(String.Format("{0}\{1}.xml", rutaxml, dr("FolioFiscalTimbre").ToString()), True, System.Text.Encoding.UTF8)
Try Try
@@ -118,19 +127,33 @@ Namespace SIG
Catch Catch
continuar = False continuar = False
End Try End Try
If continuar AndAlso objbancos.UpdateComplementoPago(dr("CveComplementoPagoTimbre").ToString().ToEntero(), dr("FolioFiscalTimbre").ToString(), dr("CvePAC").ToString().ToEntero(), CveEmpresa) Then If continuar Then
CveComplementoPagoTimbre = objbancos.AddComplementoPago(dr("CveIE").ToString().ToEntero(), -1, "Pag", dr("FolioTimbre"), Me.CveUsuario, CveEmpresa, CvePrePoliza:=-1, Estatus:=1)
continuar = CveComplementoPagoTimbre > 0
End If
If continuar Then continuar = objbancos.UpdateComplementoPago(CveComplementoPagoTimbre, dr("FolioFiscalTimbre").ToString(), dr("CvePAC").ToString().ToEntero(), CveEmpresa)
If continuar Then
dr("Sincronizado") = 1 dr("Sincronizado") = 1
End If End If
Else Else
If objbancos.DropComplementodePago(dr("CveComplementoPagoTimbre").ToString().ToEntero(), dr("CveIE").ToString().ToEntero()) Then If objbancos.DropComplementodePago(dr("CveIE").ToString().ToEntero(), 0) Then 'dr("CveComplementoPagoSinc").ToString().ToEntero()) Then
dr("Sincronizado") = 1 dr("Sincronizado") = 1
Else
continuar = False
End If End If
End If End If
End If End If
Next Next
If continuar Then
objbancos.Commit()
Else
dt = dterror
objbancos.RollBack()
End If
End Using End Using
dt.AcceptChanges() dt.AcceptChanges()
Return JSutil.strresponse(dt, (Not IsNothing(dt)), "") Return JSutil.strresponse(dt, (Not IsNothing(dt)), "")
End Function End Function

3
App_Code/WS/WSUSer.vb
View File

@@ -50,6 +50,8 @@ Namespace SIG
Dim OjEmpresa As Empresa = Nothing Dim OjEmpresa As Empresa = Nothing
If user IsNot Nothing Then If user IsNot Nothing Then
objuser.GetModulosUsuariosPlataforma(user.CveUsuario, 8)
Dim dtmodulos As System.Data.DataTable = objuser.DtResultados
If CveEmpresastr.ToEntero() > 0 Then If CveEmpresastr.ToEntero() > 0 Then
user.CveEmpresa = CveEmpresastr.ToEntero() user.CveEmpresa = CveEmpresastr.ToEntero()
End If End If
@@ -82,6 +84,7 @@ Namespace SIG
Retorno = New List(Of String) Retorno = New List(Of String)
Retorno.Add(Extensiones.ModExtensiones.Encripta(Newtonsoft.Json.JsonConvert.SerializeObject(Retornouser))) Retorno.Add(Extensiones.ModExtensiones.Encripta(Newtonsoft.Json.JsonConvert.SerializeObject(Retornouser)))
Retorno.Add(Extensiones.ModExtensiones.Encripta(Newtonsoft.Json.JsonConvert.SerializeObject(OjEmpresa))) Retorno.Add(Extensiones.ModExtensiones.Encripta(Newtonsoft.Json.JsonConvert.SerializeObject(OjEmpresa)))
Retorno.Add(Extensiones.ModExtensiones.Encripta(Newtonsoft.Json.JsonConvert.SerializeObject(dtmodulos)))
End If End If
End Using End Using

55
App_WebReferences/WSRDLC/WebService.wsdl
View File

@@ -56,6 +56,33 @@
</s:sequence> </s:sequence>
</s:complexType> </s:complexType>
</s:element> </s:element>
<s:element name="StreamPDFBytes">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="RutaReporte" type="s:string" />
<s:element minOccurs="0" maxOccurs="1" name="source">
<s:complexType>
<s:sequence>
<s:element ref="s:schema" />
<s:any />
</s:sequence>
</s:complexType>
</s:element>
<s:element minOccurs="0" maxOccurs="1" name="Parametros" type="tns:ArrayOfReportParameter" />
<s:element minOccurs="0" maxOccurs="1" name="NombreArchivo" type="s:string" />
<s:element minOccurs="0" maxOccurs="1" name="Formato" type="s:string" />
<s:element minOccurs="1" maxOccurs="1" name="CveEmpresa" type="s:int" />
<s:element minOccurs="1" maxOccurs="1" name="CveUsuario" type="s:int" />
</s:sequence>
</s:complexType>
</s:element>
<s:element name="StreamPDFBytesResponse">
<s:complexType>
<s:sequence>
<s:element minOccurs="0" maxOccurs="1" name="StreamPDFBytesResult" type="s:base64Binary" />
</s:sequence>
</s:complexType>
</s:element>
</s:schema> </s:schema>
</wsdl:types> </wsdl:types>
<wsdl:message name="HelloWorldSoapIn"> <wsdl:message name="HelloWorldSoapIn">
@@ -70,6 +97,12 @@
<wsdl:message name="StreamPDFSoapOut"> <wsdl:message name="StreamPDFSoapOut">
<wsdl:part name="parameters" element="tns:StreamPDFResponse" /> <wsdl:part name="parameters" element="tns:StreamPDFResponse" />
</wsdl:message> </wsdl:message>
<wsdl:message name="StreamPDFBytesSoapIn">
<wsdl:part name="parameters" element="tns:StreamPDFBytes" />
</wsdl:message>
<wsdl:message name="StreamPDFBytesSoapOut">
<wsdl:part name="parameters" element="tns:StreamPDFBytesResponse" />
</wsdl:message>
<wsdl:portType name="WebServiceSoap"> <wsdl:portType name="WebServiceSoap">
<wsdl:operation name="HelloWorld"> <wsdl:operation name="HelloWorld">
<wsdl:input message="tns:HelloWorldSoapIn" /> <wsdl:input message="tns:HelloWorldSoapIn" />
@@ -79,6 +112,10 @@
<wsdl:input message="tns:StreamPDFSoapIn" /> <wsdl:input message="tns:StreamPDFSoapIn" />
<wsdl:output message="tns:StreamPDFSoapOut" /> <wsdl:output message="tns:StreamPDFSoapOut" />
</wsdl:operation> </wsdl:operation>
<wsdl:operation name="StreamPDFBytes">
<wsdl:input message="tns:StreamPDFBytesSoapIn" />
<wsdl:output message="tns:StreamPDFBytesSoapOut" />
</wsdl:operation>
</wsdl:portType> </wsdl:portType>
<wsdl:binding name="WebServiceSoap" type="tns:WebServiceSoap"> <wsdl:binding name="WebServiceSoap" type="tns:WebServiceSoap">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" /> <soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
@@ -100,6 +137,15 @@
<soap:body use="literal" /> <soap:body use="literal" />
</wsdl:output> </wsdl:output>
</wsdl:operation> </wsdl:operation>
<wsdl:operation name="StreamPDFBytes">
<soap:operation soapAction="http://tempuri.org/StreamPDFBytes" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding> </wsdl:binding>
<wsdl:binding name="WebServiceSoap12" type="tns:WebServiceSoap"> <wsdl:binding name="WebServiceSoap12" type="tns:WebServiceSoap">
<soap12:binding transport="http://schemas.xmlsoap.org/soap/http" /> <soap12:binding transport="http://schemas.xmlsoap.org/soap/http" />
@@ -121,6 +167,15 @@
<soap12:body use="literal" /> <soap12:body use="literal" />
</wsdl:output> </wsdl:output>
</wsdl:operation> </wsdl:operation>
<wsdl:operation name="StreamPDFBytes">
<soap12:operation soapAction="http://tempuri.org/StreamPDFBytes" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding> </wsdl:binding>
<wsdl:service name="WebService"> <wsdl:service name="WebService">
<wsdl:port name="WebServiceSoap" binding="tns:WebServiceSoap"> <wsdl:port name="WebServiceSoap" binding="tns:WebServiceSoap">

17
Bancos/RepComplementoPago.aspx.vb
View File

@@ -104,16 +104,19 @@ Partial Class Bancos_RepComplementoPago
Mensaje = "El Pago contiene facturas que no tienen folio fiscal" Mensaje = "El Pago contiene facturas que no tienen folio fiscal"
End If End If
End If End If
If e.Row.DBCampo("BloqueadoUtilerias") = "1" Then
Mensaje = "Bloqueado Timbrando por aplicacion"
End If
e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("PagoAbreviaturaSAT") e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("PagoAbreviaturaSAT")
If Not Mensaje.Length = 0 Then If Not Mensaje.Length = 0 Then
e.Row.ForeColor = Drawing.Color.Red e.Row.ForeColor = Drawing.Color.Red
e.Row.FCCheckBox("Chk").Enabled = False e.Row.FCCheckBox("Chk").Enabled = False
e.Row.FCCheckBox("Chk").ToolTip = Mensaje e.Row.FCCheckBox("Chk").ToolTip = Mensaje
End If End If
Else Else
e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioPago").ToString.Replace("&", "%26%"), e.Row.DBCampo("CveIE").ToString))) e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioPago").ToString.Replace("&", "%26%"), e.Row.DBCampo("CveIE").ToString)))
e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioPago").ToString.Replace("&", "%26%"), e.Row.DBCampo("CveIE").ToString))) e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioPago").ToString.Replace("&", "%26%"), e.Row.DBCampo("CveIE").ToString)))
e.Row.FCLinkButton("LnkSendMail").Visible = True e.Row.FCLinkButton("LnkSendMail").Visible = True

BIN
Bin/APP_Code_CSharp.dll
View File

Binary file not shown.

BIN
Bin/APP_Code_CSharp.pdb
View File

Binary file not shown.

BIN
Bin/Newtonsoft.Json.dll
View File

Binary file not shown.

15190
Bin/Newtonsoft.Json.xml
View File

File diff suppressed because it is too large Load Diff