diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 1aea48386..e46b7ac2a 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1288,20 +1288,20 @@ Public Class ClsVentas
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CvePS", SqlDbType.Int).Value = CvePS
- .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
+ .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad
.Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
- .Add("@PU", SqlDbType.Float).Value = PU
- .Add("@IVA", SqlDbType.Float).Value = IVA
- .Add("@IEPS", SqlDbType.Float).Value = IEPS
- .Add("@ImporteRetIVA", SqlDbType.Float).Value = ImporteRetIVA
- .Add("@ImporteRetISR", SqlDbType.Float).Value = ImporteRetISR
- .Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA
- .Add("@PorcentajeIEPS", SqlDbType.Float).Value = PorcentajeIEPS
- .Add("@PorcentajeRetIVA", SqlDbType.Float).Value = PorcentajeRetIVA
- .Add("@PorcentajeRetISR", SqlDbType.Float).Value = PorcentajeRetISR
- .Add("@Total", SqlDbType.Float).Value = Total
+ .Add("@PU", SqlDbType.Decimal).Value = PU
+ .Add("@IVA", SqlDbType.Decimal).Value = IVA
+ .Add("@IEPS", SqlDbType.Decimal).Value = IEPS
+ .Add("@Descuento", SqlDbType.Decimal).Value = Descuento
+ .Add("@ImporteRetIVA", SqlDbType.Decimal).Value = ImporteRetIVA
+ .Add("@ImporteRetISR", SqlDbType.Decimal).Value = ImporteRetISR
+ .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+ .Add("@PorcentajeIEPS", SqlDbType.Decimal).Value = PorcentajeIEPS
+ .Add("@PorcentajeRetIVA", SqlDbType.Decimal).Value = PorcentajeRetIVA
+ .Add("@PorcentajeRetISR", SqlDbType.Decimal).Value = PorcentajeRetISR
+ .Add("@Total", SqlDbType.Decimal).Value = Total
.Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
- .Add("@Descuento", SqlDbType.Float).Value = Descuento
.Add("@TipoDescuento", SqlDbType.Int).Value = TipoDescuento
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CvePresupuestoIngreso", SqlDbType.Int).Value = CvePresupuestoIngreso
diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll
index 6f700aebb..84f2dafe4 100644
Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 3e5d06397..35c9b14ff 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2051,7 +2051,7 @@ Partial Class PopUpVerFactura
Else
Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then
- DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString = "0.03", "2", If(dr1("PorcentajeIEPS").ToString = "0.06", "3", If(dr1("PorcentajeIEPS").ToString = "0.07", "4", If(dr1("PorcentajeIEPS").ToString = "0.09", "5", ""))))
+ DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.03, "2", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.06, "3", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.07, "4", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.09, "5", ""))))
TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
TmpDTImpuestosIVAIEPS.AcceptChanges()
End If
diff --git a/Documentacion/TableroMaterialidad.aspx b/Documentacion/TableroMaterialidad.aspx
index 01736b900..b5874d606 100644
--- a/Documentacion/TableroMaterialidad.aspx
+++ b/Documentacion/TableroMaterialidad.aspx
@@ -17,15 +17,15 @@
}
th.Modulo5{
color:#fff;
- background-color:darksalmon;
+ background-color:#8e44ad;
}
th.Modulo6{
color:#fff;
- background-color:#67809f;
+ background-color:#3598dc;
}
th.Modulo7{
color:#fff;
- background-color:purple;
+ background-color:#36c6d3;
}
th:not(.Modulo5) + th.Modulo5,
th:not(.Modulo6) + th.Modulo6,
diff --git a/Inventarios/RepVentasXSurtir.aspx b/Inventarios/RepVentasXSurtir.aspx
index 0e8c227f9..8f124e4cd 100644
--- a/Inventarios/RepVentasXSurtir.aspx
+++ b/Inventarios/RepVentasXSurtir.aspx
@@ -62,8 +62,8 @@
-
-
+
+
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index b79f29538..cc4733a86 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -186,7 +186,7 @@ Partial Class Inventarios_TraspasoAlmacen
If UsuarioActual.CveEmpresa = 119 Then
divGastoIndirecto.Visible = False
LblGastoIndirecto.Visible = False
- divResponsable.Visible = False
+ DivResponsable.Visible = False
End If
CargaCombos()
@@ -238,7 +238,7 @@ Partial Class Inventarios_TraspasoAlmacen
End If
Else
- If ChkTransitorio.Checked Then
+ If ChkTransitorio.Checked Then
RegistraScript(" $('#DivGastoIndirecto').show(0); ")
DivResponsable.Visible = True
DivTransitorio2.Visible = True
@@ -437,11 +437,15 @@ Partial Class Inventarios_TraspasoAlmacen
'dtAlm.Merge(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 2))
'Llena Almacen Destino, todos los almacenes destino,
+ 'Dim CveSubP As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
- DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo'")
- 'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 4")
- DdlAlmacenDestino.DataBind()
- DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+ 'DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo' AND CveSubProyecto = {0}", CveSubP))
+ ''DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 4")
+ 'DdlAlmacenDestino.DataBind()
+ 'DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+ CargaAlmacenDestino()
'Llena Almacen Transitorio
DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
@@ -813,19 +817,16 @@ Partial Class Inventarios_TraspasoAlmacen
#Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
- 'If ChkEmitirTimbrado.Checked Then
-
- ' If DdlChofer.SelectedValue.ToEntero <= 0 Then
- ' Alert("Debe de seleccionar un chofer")
- ' Exit Sub
- ' End If
- ' If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then
- ' Alert("Debe de seleccionar una unidad")
- ' Exit Sub
- ' End If
-
-
- 'End If
+ If ChkEmitirCartaPorte.Checked Then
+ If DdlChofer.SelectedValue.ToEntero <= 0 Then
+ Alert("Debe de seleccionar un chofer.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+ If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then
+ Alert("Debe de seleccionar una unidad.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+ End If
'VALIDA ALMACEN ORIGEN Y DESTINO
If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 49f5b7e99..f9d095166 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -2390,18 +2390,18 @@ Partial Class RH_Personal
Private Sub CargaCombosBuzon()
- Dim ObjClientes As New ClsClientes
- If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
- DdlClienteBuzon.DataSource = ObjClientes.DtResultados
- DdlClienteBuzon.DataSource = ObjClientes.DtResultados
- DdlClienteBuzon.DataSource = ObjClientes.DtResultados
- Else
- DdlClienteBuzon.DataSource = Nothing
- DdlClienteBuzon.DataSource = Nothing
- DdlClienteBuzon.DataSource = Nothing
- End If
- ObjClientes.Dispose()
- DdlClienteBuzon.DataBind()
+ 'Dim ObjClientes As New ClsClientes
+ 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+ ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados
+ ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados
+ ' DdlClienteBuzon.DataSource = ObjClientes.DtResultados
+ 'Else
+ ' DdlClienteBuzon.DataSource = Nothing
+ ' DdlClienteBuzon.DataSource = Nothing
+ ' DdlClienteBuzon.DataSource = Nothing
+ 'End If
+ 'ObjClientes.Dispose()
+ 'DdlClienteBuzon.DataBind()
Dim objRH As New ClsRH
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index a818111b8..280686c3a 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -6820,7 +6820,7 @@ Partial Class PV
Private Sub CargaModelos()
Dim ObjGral As New ClsGenerales
- If ObjGral.ModelosAutosGet(UsuarioActual.CveEmpresa) Then
+ If ObjGral.ModelosAutosGet(1, UsuarioActual.CveEmpresa) Then
DtModelosAuto = ObjGral.DtResultados
DdlModeloAuto.DataSource = DtModelosAuto
End If
diff --git a/vwd.webinfo b/vwd.webinfo
index bdb69fe75..79e6f2494 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -418,6 +418,18 @@
+
+
+
+
+
+
+
+
+
+
+
+