From 9ce27592e9697b837701b11f24a29ed0e7893726 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 18 Mar 2022 17:59:58 -0700 Subject: [PATCH 1/6] -- mejoras recolecciones --- Inventarios/EntradasSalidas.aspx.vb | 47 ++++++++++++++------ Inventarios/EntregaAlmacenRuta.aspx.cs | 24 +++------- Inventarios/RepEntregaAlmacenRuta.aspx | 7 +-- Inventarios/RepEntregaAlmacenRuta.aspx.cs | 53 +++-------------------- 4 files changed, 51 insertions(+), 80 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 3325d6163..51be4121d 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -295,9 +295,6 @@ Partial Class Inventarios_EntradasSalidas If Not IsPostBack Then - - - If UsuarioActual.CveUsuario = 100 AndAlso IfNull(Request("Regenera"), "").ToString = "1" Then RegeneraRM(Request("CveMovimiento").ToString.ToEntero, 119) Exit Sub @@ -337,7 +334,6 @@ Partial Class Inventarios_EntradasSalidas divGuia.Visible = True End Select - If Request("CveMovimiento") IsNot Nothing AndAlso Request("CveMovimiento").ToString.ToEntero > 0 Then If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 140 Then LnkGenerarVirtual.Visible = True @@ -371,6 +367,11 @@ Partial Class Inventarios_EntradasSalidas ActivaConsumoInterno() End If + If Request("CveEntregaAlmacen") IsNot Nothing AndAlso Request("CveEntregaAlmacen").ToString.ToEntero > 0 Then + CargaDatosEntregaAlmacen(Request("CveEntregaAlmacen").ToString.ToEntero) + End If + + 'BLOQUEA PERMISOS BtnGuardar.Enabled = PermiteGuardar() BtnEliminar.Enabled = PermiteEliminar() @@ -549,16 +550,13 @@ Partial Class Inventarios_EntradasSalidas 'Llenar el dropdownlist de almacén - If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then + If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 AndAlso Not IfNull(Request("CveEntregaAlmacen"), -1).ToString.ToEntero > 0 Then DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) 'ElseIf UsuarioActual.CveUsuario.Contiene(1) Then ' DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11) or CveAlmacen = 651e") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) - End If - - DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") @@ -574,7 +572,7 @@ Partial Class Inventarios_EntradasSalidas DdlAlmacenInventarioFisico.DataBind() DdlAlmacenCambioVigencias.DataBind() - If IsNothing(Request("CveMovimiento")) Then + If IsNothing(Request("CveMovimiento")) And IsNothing(Request("CveEntregaAlmacen")) Then DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) DdlAlmacen_SelectedIndexChanged(DdlAlmacen, EventArgs.Empty) End If @@ -660,8 +658,6 @@ Partial Class Inventarios_EntradasSalidas GvM.Columns(8).Visible = False End If - - If Mov.GetMovimientos(tCveMovimiento, pCveConcepto, pFolio, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then CveMovimiento = Mov.CveMovimiento @@ -672,7 +668,6 @@ Partial Class Inventarios_EntradasSalidas Folio = Mov.Folio Dim drM As DataRow = DtMov.Rows(0) - If DtMov.Rows(0)("CveConcepto").ToString.ToEntero = 2 Then HplTraspaso.Visible = True HplTraspaso.NavigateUrl = $"/Inventarios/TraspasoAlmacen.aspx?CveEntrada={DtMov.Rows(0)("CveMovimiento").ToString}" @@ -1048,6 +1043,32 @@ Partial Class Inventarios_EntradasSalidas End Sub + + Private Sub CargaDatosEntregaAlmacen(CveEntregaAlmacen As Integer) + 'RECARGA ALMACENES SOLO DE recepcion de usados + DdlAlmacen.Items.Clear() + DdlAlmacen.DataBind() + Dim dttA As DataTable = Nothing + dttA = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,22,27)") + + DdlAlmacen.DataSource = dttA + DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlAlmacen.DataBind() + DdlAlmacen.SelectedIndex = 1 'toma el primer renglón + + Dim ObjGenerales As New ClsGenerales() + + If (ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen)) Then + + For Each dr As DataRow In ObjGenerales.DtResultados.Rows + AddNew(dr("CvePS").ToString.ToEntero, dr("CodigoPS").ToString, dr("CveUnidadMedida").ToString.ToEntero, dr("Abreviatura").ToString, dr("Cantidad").ToString.ToDecimal, + 0, "", "", "", "", "E", "", MinFecha, 0, "") + Next + End If + ObjGenerales.Dispose() + End Sub + + Private Sub BloqueaEdicionEncabezado() @@ -1923,7 +1944,7 @@ Partial Class Inventarios_EntradasSalidas If Not ErrorAC And Not ErrorMovInv Then Dim Msg As New StringBuilder - Msg.AppendFormat("
El Movimiento se registro con el Folio: {0}", ObjInventario.Folio) + Msg.AppendFormat("
El Movimiento se registro con el Folio: {0}", ObjInventario.Folio, ObjInventario.CveMovimiento) Msg.AppendFormat("

Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) If RetornoVirtual IsNot Nothing Then diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index 9a9c5cd0a..9fe1c890f 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -11,8 +11,7 @@ using System.Text; public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas { - - + DataTable DTGenerarDocumentos { get { @@ -837,15 +836,11 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } //} } - } else { - ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa); - - } - + } if (ProcesoOK) { @@ -877,10 +872,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas ObjGenerales.Dispose(); CargaDatosRecoleccion(); - } - #endregion protected void LnkModalGvModalPSRecoleccionEliminar_Click(object sender, EventArgs e) @@ -889,8 +882,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas GridViewRow GvRow = (GridViewRow)LnkEliminar.NamingContainer; if (CveEntregaAlmacen > 0) - { - + { int CveEntregaAlmacenDetalleEliminar = GvRow.DataKey("CveEntregaAlmacenDetalle").ToEntero(); ClsGenerales ObjGenerales = new ClsGenerales(); @@ -907,8 +899,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas DTRecoleccion.Rows[DTIndex].Delete(); DTRecoleccion.AcceptChanges(); - } - + } CargaDatosRecoleccionDetallePS(); } @@ -945,9 +936,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas LimpiarControlesPS(); CargaDatosRecoleccionDetallePS(); - } - - + } private void LimpiarControlesPS() { TxtModalRecoleccionCantidad.Text = ""; @@ -1026,8 +1015,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } } - - + protected void gvR_RowDataBound(object sender, GridViewRowEventArgs e) { if (e.Row.RowType == DataControlRowType.DataRow) diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx b/Inventarios/RepEntregaAlmacenRuta.aspx index 962eb485a..6b3f51c34 100644 --- a/Inventarios/RepEntregaAlmacenRuta.aspx +++ b/Inventarios/RepEntregaAlmacenRuta.aspx @@ -148,7 +148,8 @@ - + + @@ -156,8 +157,8 @@ - - + + diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx.cs b/Inventarios/RepEntregaAlmacenRuta.aspx.cs index 97a5503f1..815d3722d 100644 --- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs +++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs @@ -383,10 +383,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (GvRow.DataKey("CveCamionRemolque2").ToEntero() > 0) { DdlRemolque2.SelectedValueExist(GvRow.DataKey("CveCamionRemolque2")); - } - - - + } CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero(); CveDireccionDestino = GvRow.DataKey("CveDireccionDestino").ToEntero(); @@ -617,9 +614,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { if (e.Row.RowType == DataControlRowType.DataRow) { - e.Row.Cells[11].Text = ""; - LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar"); LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar"); LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre"); @@ -634,11 +629,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas LnkTimbrar.Visible = true; } - //if (e.Row.DataKey("TimbreTipoDocto") == "Man") - //{ - // e.Row.FCLinkButton("LnkEditarDirOrigen").Visible = true; - // e.Row.FCLinkButton("LnkEditarDirDestino").Visible = true; - //} + if (e.Row.DataKey("Tipo") == "R" && e.Row.DataKey("Estatus") == "1") + { + e.Row.FCHyperLink("HplR").Visible = true; + e.Row.FCHyperLink("HplR").NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveEntregaAlmacen=" + e.Row.DBCampo("CveEntregaAlmacen"); + } if (e.Row.DataKey("Estatus").ToEntero() == 1) { @@ -687,15 +682,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas default: e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-warning"; break; - } - } - } - - private void CargaPersonalChofer() { DdlModalChofer.Items.Clear(); @@ -706,18 +696,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { DdlModalChofer.DataSource = ObjAcar.DtResultados; } - - - - ObjAcar.Dispose(); - DdlModalChofer.DataBind(); - DdlModalChofer.Items.Insert(0, new ListItem("Seleccione Uno", "-1")); - - UpModalEditarentrega.Update(); } @@ -744,7 +726,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas } } } - UpModalEditarentrega.Update(); } @@ -779,15 +760,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas } } - - protected void DdlConfigAuto_SelectedIndexChanged(object sender, EventArgs e) { ValidaConfiguracionVeiculo(); } - - - private void ValidaConfiguracionVeiculo() + private void ValidaConfiguracionVeiculo() { DvRemolque1.Visible = false; DvRemolque2.Visible = false; @@ -803,7 +780,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { string Remolque = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero()}'"); - if (Remolque == "1") { RequiereRemolque = true; @@ -830,9 +806,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas MostrarRemolques = false; } - - - if (RequiereRemolque | MostrarRemolques) DvRemolque1.Visible = true; @@ -841,7 +814,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas else DvConfiguracionVeiculo.Visible = true; - UpModalEditarentrega.Update(); } @@ -858,13 +830,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2)) DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero()}"); } - try { DdlRemolque2.DataBind(); } catch { } - } else DvRemolque2.Visible = false; @@ -885,7 +855,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (RequiereRemolque & DdlRemolque1.SelectedValue.ToEntero() > 0) Respuesta = true; - return Respuesta; } @@ -900,7 +869,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1)) DdlModalCamion.DataSource = ObjInv.DtResultados; - if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2)) DdlRemolque1.DataSource = ObjInv.DtResultados; } @@ -988,7 +956,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDirClienteColonia(); CargaDirClienteLocalidad(); } - protected void DdlDirClienteEstado_SelectedIndexChanged(object sender, EventArgs e) { CargaDirClienteMunicipio(); @@ -1002,13 +969,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDirClienteLocalidad(); } - protected void BtnDirClienteValidar_Click(object sender, EventArgs e) { DirClientevalidaCodigoPostal(); } - protected void DdlDirClienteColonia_SelectedIndexChanged(object sender, EventArgs e) { DirClientevalidaCodigoPostal(); @@ -1111,10 +1076,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDatos(); } - ModalActualizaDirecciones(CveTimbre); - } private void LnkAgregarDireccion_Click(object sender, EventArgs e) @@ -1127,8 +1090,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaCombosDirecionesClientesSAT(); TxtFechaLlegada.Text = ""; - - UpModalDVDireccionEnvio.Update(); RegistraScript("$('#divAddDireccionEnvio').modal('show');"); } From 049e24faab943ba2a87a9695edb60f67b40f7bae Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 20 Mar 2022 07:22:25 -0700 Subject: [PATCH 2/6] -- mejora en peso neto y peso bruto --- App_Code/Timbres.vb | 18 ++++-------------- 1 file changed, 4 insertions(+), 14 deletions(-) diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index d087b4392..4f8d15dc4 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -124,6 +124,8 @@ Public Class Timbres Timbre.Receptor.RFC = drT("DestinatarioRFC").ToString Timbre.Receptor.Nombre = drT("DestinatarioNombre").ToString + Timbre.Receptor.DomicilioFiscalReceptor = drT("DirDesCP").ToString + Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero FechaSalida = drT("FechaEntrega").ToString.ToDateTime @@ -182,18 +184,6 @@ Public Class Timbres CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) End If - - If drT("ClaveTipoRemolque1").ToString <> "" Then - Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")} - CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1) - End If - - If drT("ClaveTipoRemolque2").ToString <> "" Then - Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")} - CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) - End If - - Dim DomOrigen As CFDICartaPorteDomicilio = Nothing DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString, .Colonia = drT("DirOriClaveSATColonia").ToString, @@ -283,7 +273,7 @@ Public Class Timbres .ClaveUnidad = drr("SATClaveUM").ToString, .Unidad = drr("UM").ToString, .Dimensiones = drr("Dimensiones").ToString, - .PesoenKg = drr("PesoKg").ToString.ToDecimal, + .PesoenKg = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""), .ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString, .Embalaje = drr("ClaveEmbalaje").ToString, @@ -294,7 +284,7 @@ Public Class Timbres .UUIDComercioExt = "" } - Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal} + Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal} conceptoCarta.DetalleMercancia = DetalleMercancia Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"} From ebf4aaa176ff449d4c7217b096b1bc31c9d7e276 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 20 Mar 2022 07:23:02 -0700 Subject: [PATCH 3/6] - columna de acumulados --- Ventas/Clientes.aspx | 1 + Ventas/Clientes.aspx.vb | 46 ++++++++++++++++++++--------------------- 2 files changed, 24 insertions(+), 23 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 1ad207e64..115f8ea8c 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4449,6 +4449,7 @@ + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 901a8b01f..ce1af5a0f 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -7648,12 +7648,12 @@ Partial Class Clientes RegistraScript("Download('" & baseUrl & "')") - End Sub - + End Sub + #End Region - + #Region "D O C U M E N T O S V E N T A S" - + Private Sub CargaDocumentosVenta(tCveCliente As Integer) Dim objInv As New ClsEdocumentacion @@ -7824,11 +7824,11 @@ Partial Class Clientes objRH.Dispose() - End Sub - - + End Sub + + #End Region - + #Region "PERSONA FISICA" Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs) RegistraScript("$('#DivModalPersonaFisica').modal();") @@ -7853,9 +7853,9 @@ Partial Class Clientes ObjCliente.Dispose() UpDatos.Update() - End Sub + End Sub #End Region - + #Region "USUARIOS PLATAFORMA CLIENTE - 6 " Protected Sub CargaUsuariosPortalCliente() Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios @@ -7864,19 +7864,19 @@ Partial Class Clientes GvUsuarios.DataBind() End If objUsuario.Dispose() - End Sub + End Sub #End Region - + #Region " DEVOLVER DINERO ANT/NC " Private Sub InicializaDevolverDinero() If UsuarioActual.TienePermisoProceso(247) Then GVAnticipos.Columns(6).Visible = True End If - End Sub + End Sub #End Region - + #Region "MODAL GRAFICA/PEDIDOS" - + Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs) If CargaDatatables() Then RegistraScript("$('#DivModalGrafica').modal('show')") @@ -8213,13 +8213,13 @@ Partial Class Clientes RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55") UPModalProd.Update() - End Sub - - + End Sub + + #End Region - + #Region "TAB - COMPORTAMIENTO DE VENTAS" - + Private Sub CargaGrupo() DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3")) DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4")) @@ -8446,10 +8446,10 @@ Partial Class Clientes CargaEventoBitacora() NombreDispositivo = "" RegistraScript("$('#DivMoverDispositivo').modal('hide');") - End Sub - + End Sub + #End Region - + #Region "CRM" Protected Sub CargaDatosCRM() Dim ObjCRM = New ClsCRM() From 22ff78db1fbd9a7ecbbc95c17e4271792cdd60f2 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 20 Mar 2022 07:42:39 -0700 Subject: [PATCH 4/6] =?UTF-8?q?--=20ligas=20a=20prep=C3=B3lizas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/FluctuacionCambiaria.aspx | 18 ++++++++++++------ Bancos/FluctuacionCambiaria.aspx.vb | 16 ++++++++++++++++ 2 files changed, 28 insertions(+), 6 deletions(-) diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx index c5b86d7a1..a32602080 100644 --- a/Bancos/FluctuacionCambiaria.aspx +++ b/Bancos/FluctuacionCambiaria.aspx @@ -240,7 +240,8 @@
-
+ +
- + +
- + + @@ -558,7 +561,8 @@
-
+ + @@ -610,7 +614,8 @@
- + +
@@ -659,7 +664,8 @@
- + +
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index df81c70c2..75982a281 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -126,6 +126,9 @@ Partial Class Bancos_FluctuacionCambiaria Dim Final As Double = GanaciaAux - PerdidaAux HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString + + HplProveedorLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) + HplProveedorLiga.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0 BtnProveedoresRemove.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0 BtnGeneraCompras.Visible = Not HdnProveedorCvePrePoliza.Value.ToEntero > 0 @@ -165,6 +168,8 @@ Partial Class Bancos_FluctuacionCambiaria HdnProveedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString BtnProveedoresAntRemove.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0 + HplProveedorAntLiga.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0 + HplProveedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) BtnGeneraComprasAnt.Visible = Not HdnProveedorAntCvePrePoliza.Value.ToEntero > 0 IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd") @@ -200,6 +205,9 @@ Partial Class Bancos_FluctuacionCambiaria Dim Final As Double = GanaciaAux - PerdidaAux HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString + + HplClientesLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) + HplClientesLiga.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0 BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0 BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0 @@ -235,6 +243,8 @@ Partial Class Bancos_FluctuacionCambiaria Dim Final As Double = GanaciaAux - PerdidaAux HdnClienteAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString + HplClientesAntLiga.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0 + HplClientesAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) BtnClientesAntRemove.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0 BtnClientesAnticipos.Visible = Not HdnClienteAntCvePrePoliza.Value.ToEntero > 0 @@ -266,6 +276,9 @@ Partial Class Bancos_FluctuacionCambiaria HdnAcreedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString BtnAcreedoresRemove.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0 BtnGeneraAcreedores.Visible = Not HdnAcreedorCvePrePoliza.Value.ToEntero > 0 + + HplAcreedorLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0 + HplAcreedorLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) GvAcreedores.DataSource = ObjBancos.DtResultados LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero Else @@ -283,6 +296,9 @@ Partial Class Bancos_FluctuacionCambiaria HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 BtnGeneraAcreedoresAnt.Visible = Not HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 + + HplAcreedorAntLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0 + HplAcreedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) GvAcreedoresAnt.DataSource = ObjBancos.DtResultados LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero Else From ee1fc1f8d9bd012ab5569196f6b0dea6263cd985 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 22 Mar 2022 10:42:20 -0700 Subject: [PATCH 5/6] Clientes RegimenSociedad, Carta porte documentos relacioandos --- App_Code/ClsClientes.vb | 11 +- Compras/PopUpVerFactura.aspx.vb | 62 ++- .../Grales/Formatos/CartaPorteTimbrado.rdlc | 458 +++++++++++++++++- Inicio.aspx | 78 +-- Inventarios/RepEntregaAlmacenRuta.aspx.cs | 5 +- Inventarios/ResguardoMaterial.aspx | 1 + Inventarios/ResguardoMaterial.aspx.vb | 15 +- SigAyuda.aspx | 2 +- Ventas/Clientes.aspx | 31 +- Ventas/Clientes.aspx.vb | 5 +- 10 files changed, 575 insertions(+), 93 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index d7c296145..2c54be51e 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -32,6 +32,7 @@ Public Class ClsClientes Public Property CveCliente As Integer Public Property Nombre As String + Public Property RegimenSociedad As String Public Property NombreComercial As String Public Property Direccion As String Public Property NoExt As String @@ -289,6 +290,7 @@ Public Class ClsClientes If Data.Rows.Count > 0 Then _CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero _Nombre = Data.Rows(0)("Nombre").ToString + _RegimenSociedad = Data.Rows(0)("RegimenSociedad").ToString _NombreComercial = Data.Rows(0)("NombreComercial").ToString _Codigo = Data.Rows(0)("Codigo").ToString _Direccion = Data.Rows(0)("Direccion").ToString @@ -576,7 +578,7 @@ Public Class ClsClientes Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, - Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0) As Boolean + Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1") As Boolean Dim Retorno As Boolean = False @@ -719,6 +721,9 @@ Public Class ClsClientes .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal + .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad + + End With Try SqlAdapter.Fill(Data) @@ -766,7 +771,7 @@ Public Class ClsClientes Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", - Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0) As Boolean + Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1") As Boolean Dim Retorno As Boolean = False @@ -925,6 +930,8 @@ Public Class ClsClientes .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal + .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad + End With Try SqlAdapter.Fill(Data) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 35c9b14ff..61ecb326a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1271,6 +1271,11 @@ Partial Class PopUpVerFactura DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String))) DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String))) + Dim DTRelacionados As New DataTable() + DTRelacionados.Columns.Add(New DataColumn("Relacion", GetType(String))) + DTRelacionados.Columns.Add(New DataColumn("UUID", GetType(String))) + + Dim XMLDoc As New XmlDocument Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", TipoDocto, String.Format("{0}", SerieFolio), "xml") Dim Archivo As New System.IO.FileInfo(Path) @@ -1449,10 +1454,59 @@ Partial Class PopUpVerFactura End If - DtUbicaciones.Rows.Add(Row) Next + + + Dim nodeRelacion = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) + + If nodeRelacion IsNot Nothing Then + Dim RelacionCodigo As String = ValorXML(nodeRelacion, "TipoRelacion") + Dim Relacion As String = "" + + Select Case RelacionCodigo + Case "01" + Relacion = "01 - Nota de crédito de los documentos relacionados" + Case "02" + Relacion = "02 - Nota de débito de los documentos relacionados" + Case "03" + Relacion = "03 - Devolución de mercancía sobre facturas o traslados previos" + Case "04" + Relacion = "04 - Sustitución de los CFDI previos" + Case "05" + Relacion = "05 - Traslados de mercancias facturados previamente" + Case "06" + Relacion = "06 - Factura generada por los traslados previos" + Case "07" + Relacion = "07 - CFDI por aplicación de anticipo" + Case "08" + Relacion = "08 - Factura generada por pagos en parcialidades" + Case "09" + Relacion = "09 - Factura generada por pagos diferidos" + + End Select + + Dim nodoDocumentosRealcionados = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) + For Each node As XmlNode In nodoDocumentosRealcionados + + Dim nRow As DataRow = DTRelacionados.NewRow + nRow("Relacion") = Relacion + + Try + Dim nodoUUID = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado") + nRow("UUID") = ValorXML(nodoUUID, "UUID", "") + Catch ex As Exception + nRow("UUID") = "" + End Try + + DTRelacionados.Rows.Add(nRow) + Next + End If + + + + Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces) If nodeTFD IsNot Nothing Then FolioFiscal = ValorXML(nodeTFD, "UUID", "") @@ -1567,6 +1621,12 @@ Partial Class PopUpVerFactura rds4.Value = DtOperadores lrds.Add(rds4) + + Dim rds5 As New ReportDataSource + rds5.Name = "DataSet5" + rds5.Value = DTRelacionados + lrds.Add(rds5) + ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, SerieFolio) End If End If diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index 0c8dc838c..51e0dbc2b 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -1739,7 +1739,7 @@ Textbox45 - 6.14767in + 6.89767in 0.41187cm 3.03416cm 15.44579cm @@ -1758,7 +1758,7 @@ External =Parameters!QR.Value FitProportional - 6.03582in + 6.78582in 6.18415in 1.2939in 1.53682in @@ -2255,16 +2255,16 @@ - 3.00921cm + 3.03118cm - 8.91467cm + 8.93664cm - 2.35479cm + 2.37676cm - 2.95015cm + 2.97212cm @@ -2618,7 +2618,7 @@ - 1.86551cm + 1.88748cm true @@ -2673,10 +2673,10 @@ true true DataSet1 - 11.84512cm + 13.75012cm 0.33883cm 1.12062cm - 19.09433cm + 19.20418cm 13 + + + + + + + + + + true + true + + + + + RELACIÓN + + + + + + + Textbox62 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UUID + + + + + + + Textbox69 + + + + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 0.90553cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + UM + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + + + + + + + + Textbox40 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + =Fields!Relacion.Value + + + + + =Fields!Relacion.Value + + + + 9.19562cm + + + true + true + + + + + =Fields!Relacion.Value + + + + + + + Relacion + + 2pt + + + + + + 1pt + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + =Fields!UUID.Value + + + + + =Fields!UUID.Value + + + + 8.99524cm + + + true + true + + + + + =Fields!UUID.Value + + + + + + + UUID + + 2pt + + + + + + 1pt + + + + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + true + true + DataSet5 + 0.50301cm + 0.08761cm + 1.12062cm + 19.0964cm + + + + + + true + true + + + + + FOLIOS RELACIONADOS + + + + + + + Textbox3 + 0.02618cm + 0.5cm + 7.52776in + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 11.30856cm + 0.31265cm + 1.71919cm + 19.23572cm + 24 + + =IIf(CountRows("DataSet5") = 0, True, False) + + + + + - 7.34222in + 8.09222in @@ -3653,10 +4038,10 @@ Textbox14 - 0.17636cm - 15.0542cm + 0.14461cm + 14.9272cm 0.54708cm - 4.8023cm + 4.70062cm 5 @@ -343,7 +356,7 @@ <%----%> - + -   +   - + + +   + + +   +
  +
- +   @@ -380,14 +400,20 @@   - + + +
+   +
+ + - + - +