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/Bin/ADSNetLibrary.dll b/Bin/ADSNetLibrary.dll
index 562d17536..bffa74fee 100644
Binary files a/Bin/ADSNetLibrary.dll and b/Bin/ADSNetLibrary.dll differ
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 551f056ad..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");
@@ -635,11 +630,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
}
- //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)
{
@@ -688,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();
@@ -707,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();
}
@@ -745,7 +727,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
}
}
}
-
UpModalEditarentrega.Update();
}
@@ -780,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;
@@ -804,7 +781,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{
string Remolque = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero()}'");
-
if (Remolque == "1")
{
RequiereRemolque = true;
@@ -831,9 +807,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
MostrarRemolques = false;
}
-
-
-
if (RequiereRemolque | MostrarRemolques)
DvRemolque1.Visible = true;
@@ -842,7 +815,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
else
DvConfiguracionVeiculo.Visible = true;
-
UpModalEditarentrega.Update();
}
@@ -859,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;
@@ -886,7 +856,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
if (RequiereRemolque & DdlRemolque1.SelectedValue.ToEntero() > 0)
Respuesta = true;
-
return Respuesta;
}
@@ -901,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;
}
@@ -989,7 +957,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
CargaDirClienteColonia();
CargaDirClienteLocalidad();
}
-
protected void DdlDirClienteEstado_SelectedIndexChanged(object sender, EventArgs e)
{
CargaDirClienteMunicipio();
@@ -1003,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();
@@ -1112,10 +1077,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
CargaDatos();
}
-
ModalActualizaDirecciones(CveTimbre);
-
}
private void LnkAgregarDireccion_Click(object sender, EventArgs e)
@@ -1128,8 +1091,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
CargaCombosDirecionesClientesSAT();
TxtFechaLlegada.Text = "";
-
-
UpModalDVDireccionEnvio.Update();
RegistraScript("$('#divAddDireccionEnvio').modal('show');");
}
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 22a9e4681..849ed271b 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -4463,6 +4463,7 @@
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index e14c96fc1..806318317 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -7649,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
@@ -7825,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();")
@@ -7854,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
@@ -7865,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')")
@@ -8214,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"))
@@ -8447,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()