diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 93410cced..aa4ea3012 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -160,6 +160,7 @@ Public Class ClsClientes
Public Property CodigoRegimenFiscal As String
Public Property RegimenFiscal As String
Public Property RepresentanteLegal As String
+ Public Property CveAlmacenAsignado As Integer
Public Property UsaProductoAlterno As Boolean = False
Public Property CveAlmacenAsignado As Integer = -1
@@ -408,6 +409,7 @@ Public Class ClsClientes
_RegimenFiscal = Data(0)("RegimenFiscal").ToString
_CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString
_RepresentanteLegal = Data(0)("RepresentanteLegal").ToString
+ _CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero
_UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno"))
Me.CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index c80e830ff..767e2dcf7 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -6472,7 +6472,7 @@ Public Class ClsVentas
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
- OnError("Ocurrió un error al obtener el reporte de ultilidades.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ OnError("Ocurrió un error al obtener el reporte de utilidades.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 2f9b592ca..b4f6e27c7 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2483,6 +2483,8 @@ Partial Class Inventarios_EntradasSalidas
divSerie.Visible = False
divLote.Visible = False
+ divSeccionAlmacen.Visible = False
+ divCaducidad.Visible = False
EscondeColumnasGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
@@ -5410,8 +5412,9 @@ Partial Class Inventarios_EntradasSalidas
If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
dttCosto = ObjInventario.DtResultados
End If
-
- If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", CveMovimientoVirtual, -1, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then
+ Dim tCveMovtoEntrada As Integer = If(tOrigen > 0, CveMovimientoVirtual, -1)
+ Dim tCveMovtoSalida As Integer = If(tOrigen > 0, -1, CveMovimientoVirtual)
+ If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", tCveMovtoSalida, tCveMovtoEntrada, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then
ErrorMovInv = True
End If
End If
diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx
index 04e64281a..25fdbcce1 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx
@@ -18,6 +18,8 @@
+
+
| Filtros para búsqueda |
@@ -99,6 +101,7 @@
|
+
@@ -121,11 +124,12 @@
+
- | Lista de precio: |
+ Lista: |
-
+
|
diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
index ab8440fba..470eba0bb 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
@@ -50,6 +50,7 @@ Partial Class Inventarios_Default
LtPrecioPS.Visible = True
DivListasPrecios.Visible = True
DivListasPreciosRow2.Visible = True
+ DivListasPrecios2.Visible = True
End If
If UsuarioActual.CveRol = 1 Then
@@ -182,7 +183,7 @@ Partial Class Inventarios_Default
If CvePrecioLista = -1 Then CvePrecioLista = ObjVta.DtResultados.Rows(0)("CvePrecioLista").ToString.ToEntero
If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, -1, DDlPS.SelectedValue.ToEntero) Then
If objPS.DtResultados.Rows.Count > 0 Then
- LtPrecioPS.Text = $"Precio de venta: $: {objPS.DtResultados.Rows(0)("PrecioLista").ToString.FormatoNumero} {dr("Abreviatura").ToString}"
+ LtPrecioPS.Text = $"Precio: $: {objPS.DtResultados.Rows(0)("PrecioLista").ToString.FormatoNumero} {dr("Abreviatura").ToString}"
End If
End If
End If
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index bfbafcff9..38e80a887 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -584,13 +584,13 @@
Requiere Técnico:
|
-
+
|
Fecha de Cirugia:
|
-
+
|
@@ -4361,7 +4361,7 @@
Concepto:
@@ -6914,7 +6914,7 @@
Concepto:
@@ -7014,17 +7014,17 @@
-
+
-
+
-
+
@@ -8465,16 +8465,16 @@
-
+
Productos utilizados en el procedimiento
0 Then
+ TrObsMedico1.Visible = True
+ TrObsMedico2.Visible = True
+ TrObsProcedimiento1.Visible = True
+ TrObsProcedimiento2.Visible = True
+
+ DdlMedicoObservaciones.SelectedValueExist(DbRowVenta("CveMedico").ToString)
+ DdlProcedimientoObservaciones.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString)
+
+ End If
+
+ End If
+
+
+
End If
Return Retorno
End Function
@@ -7785,6 +7806,10 @@ Partial Class Ventas
DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
DdlProcedimientoModal.DataBind()
+
+ DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
+ DdlProcedimientoObservaciones.DataBind()
+
End Sub
Private Sub CargaMedicos()
@@ -7794,6 +7819,9 @@ Partial Class Ventas
DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
DdlMedicoModal.DataBind()
+ DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
+ DdlMedicoObservaciones.DataBind()
+
End Sub
Private Sub CargaDdlClientes()
@@ -26963,6 +26991,7 @@ Partial Class Ventas
Dim DtTemporal As DataTable = ObjMovtos.DtResultados.FiltraParametros("TipoDocto NOT IN ('RNC','Rem') AND Tipo = 'Act' AND CveVenta > 0", "Moneda, OrdenVencimiento, FechaVencimiento")
GvCxC.DataSource = DtTemporal
End If
+ If UsuarioActual.Empresa.Funcionalidad(713) <> "" Then GvCxC.Columns(6).Visible = True 'columna de IEPS
ObjMovtos.Dispose()
GvCxC.DataBind()
UpAplicarNC.Update()
@@ -30070,7 +30099,7 @@ Partial Class Ventas
If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
'debo de cambiar la columna que se tomaria como total, por si tiene impuestos, la NC estaria abarcandolos
-
+ CargaDdlNCPS()
DivConceptoNC.Visible = True
Else
DivConceptoNC.Visible = False
@@ -36029,6 +36058,7 @@ Partial Class Ventas
GvProductosProcedimiento.DataSource = Nothing
GvProductosProcedimiento.DataBind()
+ DVGvProductosProcedimiento.Visible = False
UpDvModalTipoVenta.Update()
@@ -36153,6 +36183,7 @@ Partial Class Ventas
End If
GvProductosProcedimiento.DataBind()
+ DVGvProductosProcedimiento.Visible = True
UpDvModalTipoVenta.Update()
@@ -36236,11 +36267,7 @@ Partial Class Ventas
' End If
' End If
- ' End If
-
-
-
-
+ ' End If
'End Sub
Protected Sub LBNotaCredito_Click(sender As Object, e As EventArgs)