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 @@ + + @@ -99,6 +101,7 @@
Filtros para búsqueda
+
@@ -121,11 +124,12 @@
+ - + @@ -4361,7 +4361,7 @@ Concepto:
- +
@@ -6914,7 +6914,7 @@ Concepto:
- +
@@ -7014,17 +7014,17 @@ - + - + - + @@ -8465,16 +8465,16 @@
Requiere Técnico: - +
- Fecha De Orden: + Fecha de Cirugia:
-
+
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)
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: - +