diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index a85b009e2..fea43d93f 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3476,7 +3476,7 @@ Namespace Modelos 'COMIENZA: VENTADETALLE 'CUANDO SEA SALIDA VA POR LA VENTA DETALLE DE LA FACTURA DE LA REMISION - OJO!! SOLO FUNCIONA HASTA ORITA QUE SE HACE SALIDA SOLO CUANDO SE FACTURA LA REMISION - Dim CveVentaDetalle = If(ConceptoEntrada = 3, DtDetalle.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero, MovDet("CveVentaDetalle").ToString.ToEntero) + Dim CveVentaDetalle = If(ConceptoEntrada.Contiene(3, 40), DtDetalle.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero, MovDet("CveVentaDetalle").ToString.ToEntero) 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN If CveVentaDetalle < 0 Then OcurrioError = True diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 00ce5db51..5adbdbc87 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1884,14 +1884,24 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString 'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString - params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString + params.Add(New ReportParameter("SubProyecto", "Traslado de: ")) 'DdlAlmacenDestino.SelectedItem.ToString + params.Add(New ReportParameter("Origen", Almacen)) + params.Add(New ReportParameter("Destino", AlmacenDestino)) params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text - params.Add(New ReportParameter("Accion", "Recibió")) 'Antes Trasladó + params.Add(New ReportParameter("Accion", "RECIBE")) 'Antes Trasladó params.Add(New ReportParameter("Observaciones", Observaciones)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If Dim DTCliente As New DataTable Dim SBDireccionO As New StringBuilder() diff --git a/Empresas/Grales/Formatos/Traslado.rdlc b/Empresas/Grales/Formatos/Traslado.rdlc index 382e09b90..626b3516a 100644 --- a/Empresas/Grales/Formatos/Traslado.rdlc +++ b/Empresas/Grales/Formatos/Traslado.rdlc @@ -15,7 +15,13 @@ 2.19837cm - 12.15373cm + 9.27592cm + + + 1.41521cm + + + 1.45633cm @@ -190,6 +196,90 @@ + + + + true + true + + + + + Costo + + + + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Valor + + + + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + @@ -207,7 +297,7 @@ =Fields!Cantidad.Value @@ -330,6 +420,74 @@ + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + @@ -340,6 +498,8 @@ + + @@ -356,7 +516,7 @@ 0.07056cm 0.00711cm 0.73434cm - 19.57434cm + 19.56807cm @@ -370,7 +530,7 @@ 7.70923in - 2.09944cm + 5.08094cm true true @@ -392,9 +552,10 @@ Textbox2 - 0.00711cm - 0.6cm - 16.69653cm + 0.03803cm + 4.37423cm + 2.04667cm + 12.55984cm @@ -424,8 +585,8 @@ Textbox4 - 1.34069cm - 17.81839cm + 4.48094cm + 17.3888cm 0.6cm 1.76305cm 1 @@ -456,8 +617,8 @@ Textbox5 - 1.34067cm - 16.70363cm + 4.48092cm + 16.27404cm 0.6cm 1.11476cm 2 @@ -487,8 +648,8 @@ Textbox4 - 1.34066cm - 15.46894cm + 0.63803cm + 17.07518cm 0.6cm 1.2347cm 3 @@ -517,8 +678,8 @@ Textbox5 - 1.34066cm - 14.2869cm + 0.03803cm + 17.07518cm 0.6cm 1.18203cm 4 @@ -549,7 +710,7 @@ Textbox2 - 0.7407cm + 2.6457cm 0.00711cm 0.6cm 7.66226cm @@ -582,7 +743,7 @@ Textbox2 - 1.34066cm + 3.24566cm 0.00711cm 0.6cm 14.27979cm @@ -597,6 +758,101 @@ 2pt + + true + true + + + + + Origen: + + + + =Parameters!Origen.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Destino: + + + + =Parameters!Destino.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.03803cm + 0.1121cm + 2.53711cm + 4.08574cm + 9 + + + + @@ -1324,6 +1580,23 @@ true ReportParameter1 + + String + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb index 83cf75375..8e5e23634 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx.vb +++ b/Inventarios/InventarioFisicoDetalle.aspx.vb @@ -332,7 +332,7 @@ Partial Class Inventarios_InventarioFisicoDetalle #Region " ELIMINAR " Protected Sub gvInventarioFisicoDetalle_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvIFD.RowDeleting - If ddlUsuario.SelectedValue = UsuarioActual.CveUsuario.ToString Then + If ddlUsuario.SelectedValue = UsuarioActual.CveUsuario.ToString OrElse UsuarioActual.TienePermisoProceso(283) Then Dim Inventarios As New ClsInventarios Dim Retorno As Boolean = Inventarios.RemoveInventarioFisicoDetalles(GvIFD.DataKeys(e.RowIndex).Value.ToString.ToEntero()) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 5f9618df9..37c043e47 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -258,7 +258,7 @@
  • - +
    • diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 48f69afb9..f40cfb01b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10680,7 +10680,7 @@ Partial Class Ventas If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero - Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E") + Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E1") If CveMovimientoInventario <= 0 Then OcurrioError = True @@ -12689,8 +12689,8 @@ Partial Class Ventas Dim Fecha As Date = Now 'Creamos el movimiento de entrada y el movimiento de salida - Dim CveMovimientoInventarioEntrada As Integer = ObjInventario.AddMovimiento(CveAlmacen, 18, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveDevolucion, -1, -1, MovimientoFijo:=True, Modulo:="Vta/E") - Dim CveMovimientoInventarioSalida As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaNueva, -1, -1, MovimientoFijo:=True, Modulo:="Vta/E") + Dim CveMovimientoInventarioEntrada As Integer = ObjInventario.AddMovimiento(CveAlmacen, 18, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveDevolucion, -1, -1, MovimientoFijo:=True, Modulo:="Vta/E2") + Dim CveMovimientoInventarioSalida As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaNueva, -1, -1, MovimientoFijo:=True, Modulo:="Vta/E3") If CveMovimientoInventarioEntrada > 0 AndAlso CveMovimientoInventarioSalida > 0 Then @@ -15345,24 +15345,25 @@ Partial Class Ventas If ErrorList.Count = 0 AndAlso MovDetalle.Rows.Count > 0 Then Dim CveMovimientoSalidaPorTraspaso As Integer = -1 - + Dim CveConceptoSalidaAlmacen As Integer = 3 'SALIDA DEFINITIVA DEL SISTEMA If UsuarioActual.Empresa.Funcionalidad(575) = "1" Then - 'Le damos salida normal - If ConSalida Then - GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 + CveConceptoSalidaAlmacen = 40 + ''Le damos salida normal + 'If ConSalida Then + ' GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveVenta, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 - If Not GeneroMovimientoAlmacen Then - OcurrioError = True - Exit For - End If + ' If Not GeneroMovimientoAlmacen Then + ' OcurrioError = True + ' Exit For + ' End If - If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then - If Not GeneroMovimientoAlmacen Then - OcurrioError = Not GenerarMovimientoAlmacenVirtual(CveRemision, ObjInventario, ObjFactura) - End If - End If - End If + ' If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then + ' If Not GeneroMovimientoAlmacen Then + ' OcurrioError = Not GenerarMovimientoAlmacenVirtual(CveRemision, ObjInventario, ObjFactura) + ' End If + ' End If + 'End If Else 'Le damos salida de apartado por traspaso CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada) @@ -15382,23 +15383,24 @@ Partial Class Ventas End If End If - 'Le damos salida normal - If ConSalida AndAlso Not OcurrioError Then - If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then - OcurrioError = Not GenerarMovimientoAlmacenVirtual(CveRemision, ObjInventario, ObjFactura) - End If - - If Not OcurrioError Then - GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 3, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 - - If Not GeneroMovimientoAlmacen Then - OcurrioError = True - Exit For - End If - End If + End If + 'Le damos salida normal + If ConSalida AndAlso Not OcurrioError Then + If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then + OcurrioError = Not GenerarMovimientoAlmacenVirtual(CveRemision, ObjInventario, ObjFactura) End If + + If Not OcurrioError Then + GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, CveConceptoSalidaAlmacen, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 + + If Not GeneroMovimientoAlmacen Then + OcurrioError = True + Exit For + End If + End If + End If Else @@ -15518,7 +15520,7 @@ Partial Class Ventas 'Creamos el movimiento Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, - CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Vta/E") + CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Vta/E4") If CveMovimientoInventario > 0 Then @@ -15543,7 +15545,7 @@ Partial Class Ventas 'COMIENZA: VENTADETALLE 'CUANDO SEA SALIDA VA POR LA VENTA DETALLE DE LA FACTURA DE LA REMISION - OJO!! SOLO FUNCIONA HASTA ORITA QUE SE HACE SALIDA SOLO CUANDO SE FACTURA LA REMISION - Dim CveVentaDetalle = If(ConceptoEntrada = 3, TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero, MovDet("CveVentaDetalle").ToString.ToEntero) + Dim CveVentaDetalle = If(ConceptoEntrada.Contiene(3, 40), TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero, MovDet("CveVentaDetalle").ToString.ToEntero) 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN If CveVentaDetalle < 0 Then Alert("no se encontro la venta detalle. Por favor comuniquese con atención SIG.", TipoMensaje.ToastError) @@ -19447,7 +19449,7 @@ Partial Class Ventas 'MOVIMIENTO DE SALIDA POR TRASPASO DEL ALMACEN DE CONSIGNACION - CveMovimientoSalidaConsignacion = ObjInventario.AddMovimiento(CveAlmacenExistenciasContrato, 8, 1, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E") + CveMovimientoSalidaConsignacion = ObjInventario.AddMovimiento(CveAlmacenExistenciasContrato, 8, 1, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E5") If CveMovimientoSalidaConsignacion > 0 Then Dim CveProducto As Integer Dim CveUnidad As Integer @@ -19490,7 +19492,7 @@ Partial Class Ventas 'ENTRADA POR TRASPASO A GENERAL - CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(CveAlmacenOrigenContrato, 9, 1, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalidaConsignacion, Modulo:="Vta/E") + CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(CveAlmacenOrigenContrato, 9, 1, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalidaConsignacion, Modulo:="Vta/E6") If CveMovimientoEntradaGeneral > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows @@ -19504,7 +19506,7 @@ Partial Class Ventas End If 'SALIDA GENERAL - CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(CveAlmacenOrigenContrato, 3, 1, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E") + CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(CveAlmacenOrigenContrato, 3, 1, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E7") If CveMovimientoEntradaGeneral > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows