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/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"} 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 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 @@   - + + +
+   +
+ + - + - + 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..c227ba02c 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"); @@ -631,18 +626,19 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (e.Row.DataKey("Estatus").ToEntero() == 0) { LnkEditar.Visible = true; - LnkTimbrar.Visible = true; + LnkTimbrar.Visible = UsuarioActual.TienePermisoProceso(338); + } - //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) { - LnkCancelaTimbre.Visible = true; + LnkCancelaTimbre.Visible = UsuarioActual.TienePermisoProceso(338); if (bool.Parse(e.Row.DataKey("AplicaCP"))) { @@ -687,15 +683,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 +697,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 +727,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas } } } - UpModalEditarentrega.Update(); } @@ -779,15 +761,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 +781,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { string Remolque = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero()}'"); - if (Remolque == "1") { RequiereRemolque = true; @@ -830,9 +807,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas MostrarRemolques = false; } - - - if (RequiereRemolque | MostrarRemolques) DvRemolque1.Visible = true; @@ -841,7 +815,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas else DvConfiguracionVeiculo.Visible = true; - UpModalEditarentrega.Update(); } @@ -858,13 +831,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 +856,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas if (RequiereRemolque & DdlRemolque1.SelectedValue.ToEntero() > 0) Respuesta = true; - return Respuesta; } @@ -900,7 +870,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 +957,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDirClienteColonia(); CargaDirClienteLocalidad(); } - protected void DdlDirClienteEstado_SelectedIndexChanged(object sender, EventArgs e) { CargaDirClienteMunicipio(); @@ -1002,13 +970,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 +1077,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaDatos(); } - ModalActualizaDirecciones(CveTimbre); - } private void LnkAgregarDireccion_Click(object sender, EventArgs e) @@ -1127,8 +1091,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas CargaCombosDirecionesClientesSAT(); TxtFechaLlegada.Text = ""; - - UpModalDVDireccionEnvio.Update(); RegistraScript("$('#divAddDireccionEnvio').modal('show');"); } diff --git a/Inventarios/ResguardoMaterial.aspx b/Inventarios/ResguardoMaterial.aspx index 8230a66f5..de33bdc27 100644 --- a/Inventarios/ResguardoMaterial.aspx +++ b/Inventarios/ResguardoMaterial.aspx @@ -476,6 +476,7 @@ + <%-- --%> diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index f8c75cb27..f72af89ae 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -655,6 +655,9 @@ Partial Class Inventarios_ResguardoMaterial Alert("Tiene que seleccionar un cliente.", TipoMensaje.MsgAdvertencia) Exit Sub End If + Else + + GvMLiberacion.Columns(1).HeaderText = If(DdlTipo.SelectedValue.ToEntero = 1, "Personal", If(DdlTipo.SelectedValue.ToEntero = 2, "Cliente", "Proveedor")) End If @@ -667,14 +670,24 @@ Partial Class Inventarios_ResguardoMaterial DVInformacionMoviminetoLiberacion.Visible = False BtnGuardarLiberacion.Visible = False + + GvMLiberacion.Columns(1).Visible = True + + + Else DVInformacionMoviminetoLiberacion.Visible = True BtnGuardarLiberacion.Visible = True + GvMLiberacion.Columns(1).Visible = False + GvMLiberacion.Columns(1).HeaderText = "" End If - UpGenerales.Update() + + End If + UpGridLiberacion.Update() + UpGenerales.Update() End Sub diff --git a/SigAyuda.aspx b/SigAyuda.aspx index 0489be135..d54b7103e 100644 --- a/SigAyuda.aspx +++ b/SigAyuda.aspx @@ -12,7 +12,7 @@ .fa-file-word-o{ color: #337ab7; } - .fa-3 { + .fa-3 { font-size: 1.5em; } diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 1ad207e64..849ed271b 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -348,13 +348,27 @@
-
- - - - +
+
+
+ + + + +
+
+
+
+ + <%----%> + + +
+
+ +
@@ -4449,6 +4463,7 @@ + @@ -6974,9 +6989,12 @@ } } - function fncTxt(t) { + function fncTxt() { + + let strNombre = $('#TxtNombre').val(); + let strRegimenSociedad = $('#TxtRegimenSociedad').val(); - $get('TxtNombreComercial').value = t.value; + $get('TxtNombreComercial').value = strNombre + " " + strRegimenSociedad; } function cargaddls() { diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 901a8b01f..806318317 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1492,6 +1492,7 @@ Partial Class Clientes 'Campos para Modificación LtlCliente.Text = ObjClientes.Nombre TxtNombre.Text = ObjClientes.Nombre + TxtRegimenSociedad.Text = ObjClientes.RegimenSociedad TxtNombreComercial.Text = ObjClientes.NombreComercial TxtCodigo.Text = ObjClientes.Codigo CodigoCliente = ObjClientes.Codigo @@ -2650,7 +2651,7 @@ Partial Class Clientes CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(), ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()), - CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then + CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text) Then ViewState("CveCliente") = ObjClientes.CveCliente @@ -2747,7 +2748,7 @@ Partial Class Clientes ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()), - NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then + NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text) Then ObjClientes.LimpiaImpuestosLocales(CveCliente) @@ -7648,12 +7649,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 +7825,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 +7854,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 +7865,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 +8214,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 +8447,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()