From f42c0e9878eac224c3a51d30efa035d3c1260ebe Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 29 Jun 2020 20:53:48 -0700 Subject: [PATCH 01/13] --otros ingresos --- Ventas/ClientesAbonar.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index cc9f9197d..22c97dceb 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -2581,9 +2581,9 @@ Partial Class Ventas_ClientesAbonar Dim CveCuenta As Integer = 0 Dim PorcentajePago As Decimal = gr.DataKey("Saldo").ToDecimal / gr.DataKey("Original").ToDecimal Dim Saldo As Decimal = gr.DataKey("Saldo").ToDecimal - Dim SubTotal As Decimal = PorcentajePago * gr.DataKey("SubTotal").ToDecimal - Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal - Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal + Dim SubTotal As Decimal = PorcentajePago * gr.DataKey("SubTotal").ToDecimal.RoundSQL + Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal.RoundSQL + Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal.RoundSQL Dim TCVenta As Decimal = gr.DataKey("TipoCambio").ToDecimal Dim FechaVenta As Date = gr.DataKey("Fecha").ToDate Dim tCveMoneda As Integer = gr.DataKey("CveMoneda").ToEntero From 898d28f56d52cac62b64cf5a46d21d2fd8f3059a Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 29 Jun 2020 20:54:07 -0700 Subject: [PATCH 02/13] - iva no deducible --- Compras/ReembolsosComprobaciones.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 001743e8f..592f5814e 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -745,7 +745,7 @@ Partial Class Compras_ReembolsosComprobaciones Dim ImporteNOIVA As Decimal = gvr.DataKey("IVANoDeducible").ToDecimal * PorcentajePago - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteNOIVA), ImporteMX:=(ImporteNOIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then MsgError = "Detalle" End If End If From d52da1dee74592c23abb2136d6d2f2c44a326e6e Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 30 Jun 2020 20:48:22 -0700 Subject: [PATCH 03/13] popup- cambio a global -- sigweb, que ponga existencia --- Ashx/SIGWeb.ashx | 2 +- OC/PopUpBuscarReq.aspx.vb | 15 +++++++++------ 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 17e401ead..0f7b199d5 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -585,7 +585,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState 'verifica existencias - If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141) Then + If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152) Then UsaGlobal = False Dim objInv As New ClsInventarios diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb index 118f8aa6a..f4d2d40c4 100644 --- a/OC/PopUpBuscarReq.aspx.vb +++ b/OC/PopUpBuscarReq.aspx.vb @@ -126,12 +126,15 @@ Partial Class OC_PopUpBuscarReq ViewState("CveProveedor") = Request("P") UPFiltros.Visible = False - Dim ObjPro As New ClsCompProveedores - ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) - If ObjPro.DtResultados.Rows.Count > 0 Then - LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString) - End If - ObjPro.Dispose() + Dim NombreProv As String = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, ViewState("CveProveedor").ToString.ToEntero).FiltroPrimeroValor("RazonSocial") + LbTitulo.Text = String.Format("Órdenes de Compra - {0}", NombreProv) + + 'Dim ObjPro As New ClsCompProveedores + 'ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) + 'If ObjPro.DtResultados.Rows.Count > 0 Then + ' LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString) + 'End If + 'ObjPro.Dispose() 'Cargar Datos Dim ObjOC As New ClsOC From f2d48fbc646739fa3a555d3344cb4ea4dba3d113 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 30 Jun 2020 20:48:47 -0700 Subject: [PATCH 04/13] cambio de objeto AC, al usar AC --- Inventarios/RecepcionAlmacen.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index b93c5b5f8..9cf5cae5f 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -2459,9 +2459,9 @@ Partial Class Inventarios_RecepcionAlmacen Dim TotalPorDevengar = 0.0 TotalPorDevengar += GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Math.Round(Gvr.DataKey("PU").ToString.ToDouble, 4) * Math.Round(Gvr.DataKey("CantidadF").ToString.ToDouble, 4)) TotalPorDevengar = Math.Round(TotalPorDevengar, 4) - If ObjContaContPAQ Is Nothing Then - ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) - ObjContaContPAQ.IniciaTransacSQL() + If ObjContaAC Is Nothing Then + ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) + ObjContaAC.IniciaTransacSQL() End If IDPoliza = ObjContaAC.AddPoliza(4, "Devengado", TotalPorDevengar * 2, TotalPorDevengar * 2, UsuarioActual.CveUsuario, FechaMovto) From 2e9b686e56732b6c959c06cbdf6424784770d873 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 30 Jun 2020 20:49:31 -0700 Subject: [PATCH 05/13] -- cambios Estados. --- App_Code/ClsClientes.vb | 32 ++++++++--------- App_Code/ClsVentas.vb | 4 +-- Compras/Compras.aspx.vb | 8 +++-- Ventas/Clientes.aspx.vb | 19 ++--------- Ventas/Ventas.aspx | 50 ++++++++++++++------------- Ventas/Ventas.aspx.vb | 76 +++++++++++++++++++++++------------------ 6 files changed, 95 insertions(+), 94 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 3373f9526..7a14674f8 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1022,22 +1022,22 @@ Public Class ClsClientes End Function - Public Function GetEstados(Optional ClaveSATPais As String = "-1") As Boolean - Dim Retorno As Boolean = False + 'Public Function GetEstados(Optional ClaveSATPais As String = "-1") As Boolean + ' Dim Retorno As Boolean = False - DataAdapter("PA_ClientesEstadosGet") + ' DataAdapter("PA_ClientesEstadosGet") - SqlAdapter.SelectCommand.Parameters.Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais + ' SqlAdapter.SelectCommand.Parameters.Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el los estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener el los estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try - Return Retorno - End Function + ' Return Retorno + 'End Function @@ -1596,8 +1596,8 @@ Public Class ClsClientes Return Retorno End Function - Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, - Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, + Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer, + RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesNoFrecuenteAdd") @@ -1610,8 +1610,8 @@ Public Class ClsClientes .Add("@Colonia", SqlDbType.VarChar).Value = Colonia .Add("@Localidad", SqlDbType.VarChar).Value = Localidad .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad - .Add("@Estado", SqlDbType.VarChar).Value = Estado - .Add("@Pais", SqlDbType.VarChar).Value = Pais + .Add("@CveEstado", SqlDbType.Int).Value = CveEstado + ' .Add("@Pais", SqlDbType.VarChar).Value = Pais .Add("@RFC", SqlDbType.VarChar).Value = RFC .Add("@CP", SqlDbType.VarChar).Value = CP .Add("@Telefono", SqlDbType.VarChar).Value = Telefono diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index daee7399b..59d5678ba 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4468,11 +4468,11 @@ Public Class ClsVentas Return retorno End Function - Public Function GetOCRelacionadas(CveVentasDetalles As String) As Boolean + Public Function GetOCRelacionadas(CveVenta As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Vta_OrdenCompraRelacionada", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters - .Add("@CveVentasDetalles", SqlDbType.NVarChar).Value = CveVentasDetalles + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta End With Try SqlAdapter.Fill(Data) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index ce6ccabce..9092932ce 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1227,7 +1227,6 @@ Partial Class Compras_Compras ClavesBorradas = New ArrayList() TxtFecha.Text = Now.ToShortDateString TxtFechaEjecucion.Text = Now.ToShortDateString - ViewState("CveCompra") = "0" ViewState("CveFactura") = "0" ViewState("IdPoliza") = "0" ViewState("CveCompra") = -1 @@ -10761,7 +10760,7 @@ Partial Class Compras_Compras e.Row.FCLinkButton("ImgD").Visible = False End If - If e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("IEPSPSPorcentaje").ToDouble > 0 Then + If CveCompra <= 0 AndAlso e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("IEPSPSPorcentaje").ToDouble > 0 Then If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=e.Row.DBCampo("CvePS").ToEntero).Rows.Count > 0 Then Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=e.Row.DBCampo("CvePS").ToEntero).Rows(0) If DrPS IsNot Nothing Then @@ -10773,6 +10772,11 @@ Partial Class Compras_Compras End If End If + If e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("NoDeducible") = "True" Then + e.Row.FCLabel("LblIVAPorcentaje").ToolTip = "IVA NO Deducible" + e.Row.FCLabel("LblIVAPorcentaje").ForeColor = Drawing.Color.Red + End If + 'CargaPresupuestosEgresos If UsuarioActual.Empresa.UsaAC Then e.Row.Cells(13).Visible = True diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index a6d91ab98..d9da7cfae 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -937,27 +937,12 @@ Partial Class Clientes Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX") DdlEstadoSAT.Items.Clear() - - Dim ObjCliente As New ClsClientes - - - - If ObjCliente.GetEstados(ClaveSATPais) Then - DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy - End If - - - - - ObjCliente.Dispose() + DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais) DdlEstadoSAT.DataBind() - DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) - 'DdlEstadoSAT.SelectedValue = "-1" - + DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) UpDatos.Update() - End Sub Private Sub CargaResponsables() diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index cb0957bcf..f4435a3a5 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1297,6 +1297,14 @@ +
@@ -3293,20 +3301,7 @@ - - - Ordenes de Compra Relacionadas:  - - - - - - - - - - + Tipo de Entrega:  @@ -3691,7 +3686,7 @@
- +
+
- - - + + + + + + + + +
- - - + + + + +
@@ -7667,8 +7671,8 @@ $('#<%= TxtTelefonoCliente.ClientID %>').val(''); $('#<%= TxtCiudadCliente.ClientID %>').val(''); $('#<%= TxtLocalidadCliente.ClientID %>').val(''); - $('#<%= TxtEstadoCliente.ClientID %>').val(''); - $('#<%= TxtPaisCliente.ClientID %>').val(''); + $('#<%= DdlSATPais.ClientID %>').val(''); + $('#<%= DdlEstadoSAT.ClientID %>').val(''); $('#<%= TxtCorreoCliente.ClientID %>').val(''); $('#divAgregarCliente').modal(); diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 65b1df597..1583f4af3 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2049,7 +2049,7 @@ Partial Class Ventas DdlSubProyectoDatos.Enabled = False BtnEmitirImprimir.Visible = False BtnCrearApartirDe.Visible = True - BtnEditar.Visible = True + If UsuarioActual.TienePermisoProceso(302) Then BtnEditar.Visible = True 'DdlEstatus.Enabled = True DivFechaAnticipoCliente.Visible = True @@ -2107,8 +2107,7 @@ Partial Class Ventas DivDevAlm.Visible = True End If - 'CARGA GV DE OC RELACIONADAS - CargarOCRelacionadas() + End If Else If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then @@ -3564,6 +3563,19 @@ Partial Class Ventas End If End Sub + Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX") + + DdlEstadoSAT.Items.Clear() + DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais) + + DdlEstadoSAT.DataBind() + DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) + + End Sub + Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaEstados(DdlSATPais.SelectedValue) + End Sub + Private Function CargaVenta() As Boolean Dim Retorno As Boolean = False @@ -4477,12 +4489,22 @@ Partial Class Ventas DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString()) - CargaPS(-1, DdlPS) + CargaPS(-1, DdlPS) - UpPS.Update() - UpContado.Update() - UpEstatus.Update() - Retorno = True + 'CARGA GV DE OC RELACIONADAS + If CveVenta > 0 AndAlso ObjVentas.GetOCRelacionadas(CveVenta) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + DivOCRelacionadas.Visible = True + GvOCRelacionadas.DataSource = ObjVentas.DtResultados + + End If + End If + GvOCRelacionadas.DataBind() + + UpPS.Update() + UpContado.Update() + UpEstatus.Update() + Retorno = True Else ViewState("CveVenta") = -1 @@ -18456,6 +18478,7 @@ Partial Class Ventas DivBotonesAgregarCliente.Visible = False DivFormaCliente.Visible = False UpAgregarCliente.Update() + CargaEstados() RegistraScript("showDivEC();") End Sub @@ -18478,8 +18501,8 @@ Partial Class Ventas RFVColoniaC.Visible = False RFVCiudadC.Visible = False RFVLocalidadC.Visible = False - RFVEstadoC.Visible = False - RFVPaisC.Visible = False + RfvDdlEstadoSAT.Visible = False + RFVSATPais.Visible = False DdlMetodoCliente.SelectedValueExist(1) DdlFormaCliente.SelectedValueExist(1) @@ -18511,8 +18534,8 @@ Partial Class Ventas RFVColoniaC.Visible = True RFVCiudadC.Visible = True RFVLocalidadC.Visible = True - RFVEstadoC.Visible = True - RFVPaisC.Visible = True + RfvDdlEstadoSAT.Visible = True + RFVSATPais.Visible = True DdlMetodoCliente.SelectedValueExist(-1) DdlFormaCliente.SelectedValueExist(-1) @@ -18535,8 +18558,8 @@ Partial Class Ventas Dim ObjCliente As New ClsClientes If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, - TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, - TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, + TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero, + TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, CvePrecioLista:=CvePrecioLista) Then If ObjCliente.DtResultados.Rows.Count > 0 Then RegistraScript("hideDivEC();") @@ -21273,6 +21296,11 @@ Partial Class Ventas Dim TempCliente As Integer = If(CveVenta <= 0, CveCliente, -1) Dim TipoDocumento As Integer = If(CveVenta <= 0, 14, -1) + If CveVenta <= 0 AndAlso TempCliente <= 0 Then + Dim a As String = "carga de docuemntacion del cleinte, masivo, corregir" + a.GuardaLog() + End If + If objRH.DocumentacionElectronicaGet(-1, TempCliente, -1, UsuarioActual.CveEmpresa, TipoDocumento, CveVenta) Then DtDocumentacionCliente = objRH.DtResultados.FiltraParametros("CveDocumentacionElectronica > 0") DtDocumentacionCliente.Columns.Add("Accion", Type.GetType("System.String")) @@ -25952,26 +25980,6 @@ Partial Class Ventas 'MailCls = Nothing End Sub - Private Sub CargarOCRelacionadas() - Dim GridViewPSAux As GridView = GvPS - Dim CveVentasDetalle As New StringBuilder() - For Each vd As GridViewRow In GridViewPSAux.Rows - Dim CveVentaDetalle As String = vd.DataKey("CveVentaDetalle") - CveVentasDetalle.AppendFormat("{0},", CveVentaDetalle) - Next - Dim ObjVentas As New ClsVentas() - If ObjVentas.GetOCRelacionadas(CveVentasDetalle.ToString) Then - Dim OC As DataTable = ObjVentas.DtResultados - If OC.Rows.Count > 0 Then - trOCRelacionadasLabel.Visible = True - trOCRelacionadas.Visible = True - GvOCRelacionadas.DataSource = OC - GvOCRelacionadas.DataBind() - End If - End If - ObjVentas.Dispose() - End Sub - Protected Sub BtnEditar_Click() Handles BtnEditar.Click Dim Opcion As String = BtnEditar.Text If Opcion = "Editar" Then From 6eed6a02c5474e9d545136e456fc9cc2c825975a Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 1 Jul 2020 08:47:20 -0700 Subject: [PATCH 06/13] - --- Sistemas/Empresa.aspx | 63 +++++++++++++++++++++++++++++--- Sistemas/Empresa.aspx.vb | 79 +++++++++++++++++++++++++++++++++++----- 2 files changed, 126 insertions(+), 16 deletions(-) diff --git a/Sistemas/Empresa.aspx b/Sistemas/Empresa.aspx index 505dbd406..d2d0a61c7 100644 --- a/Sistemas/Empresa.aspx +++ b/Sistemas/Empresa.aspx @@ -326,12 +326,21 @@ - Cargar Archivo Key + + Cargar Archivo Key - - Descargar Archivo Key + + + Descargar Archivo Key + + <%----%> + + + + + @@ -340,7 +349,8 @@ - Cargar Archivo CER + + Cargar Archivo CER @@ -354,7 +364,8 @@ - Cargar Archivo PFX + + Cargar Archivo PFX @@ -372,7 +383,7 @@ - + Registrar en ProFact @@ -497,6 +508,7 @@ <%-- --%> + Área Geográfica: @@ -505,6 +517,7 @@ <%-- --%> +
@@ -1408,6 +1421,7 @@ + Tipo Centro de Costos: @@ -1758,6 +1772,43 @@
+