From 28ee7f871e4a1087757a2aaaeab0efeed20c6c3d Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 25 Aug 2020 18:54:03 -0700 Subject: [PATCH 01/30] =?UTF-8?q?PA=20para=20editar=20la=20observaci=C3=B3?= =?UTF-8?q?n=20de=20una=20venta=20agregado?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsVentas.vb | 33 +++++++++++++++++++++++++++------ Ventas/Ventas.aspx.vb | 6 ++---- 2 files changed, 29 insertions(+), 10 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index e3592c397..3e1fabf64 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -460,8 +460,7 @@ Public Class ClsVentas Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1, Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, - Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveVendedor As Integer = -1, Optional ObsAlm As String = "", Optional FormaPaqueteria As Integer = -1, - Optional CorreoNot As String = "-1") As Boolean + Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -492,10 +491,6 @@ Public Class ClsVentas .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - .Add("@ObservacionesAlm", SqlDbType.NVarChar).Value = ObsAlm - .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria - .Add("@CorreoNotificacion", SqlDbType.NVarChar).Value = CorreoNot End With Try @@ -507,6 +502,32 @@ Public Class ClsVentas Return Retorno End Function + + Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, + Pedido As String, OrdenCompra As String, FechaPago As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasObservacionesUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones + .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria + .Add("@CorreoNotificaciones", SqlDbType.NVarChar).Value = CorreoNotificaciones + .Add("@ObservacionesAlm", SqlDbType.NVarChar).Value = ObservacionesAlm + .Add("@Pedido", SqlDbType.NVarChar).Value = Pedido + .Add("@OrdenCompra", SqlDbType.NVarChar).Value = OrdenCompra + .Add("@FechaPago", SqlDbType.Date).Value = FechaPago + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar las observaciones de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasFechaVencimientoUpdate") diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ade3b1824..9843d7605 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -26143,10 +26143,8 @@ Partial Class Ventas Private Sub GuardarValoresEditados() Dim ObjVentas As New ClsVentas() - If ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(), - TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, DdlMetodoPago33.SelectedValue.ToEntero, DdlFormaPago33.SelectedValue.ToEntero, - TipoDocto:=DdlTipoComprobante.SelectedValue, OrdenCompra:=TxtOrdenCompra.Text, PedidoContrato:=TxtPedidoContrato.Text, ObsAlm:=TxtObsAlmacen.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, - CorreoNot:=TxtCorreoNotificaciones.Text, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, Kilometraje:=TxtKilometraje.Text.ToDouble) Then + If ObjVentas.UpdateObservacionesVenta(CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text, + TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text) Then CargaVenta() BtnEditar.Text = "Editar" Alert("Actualizado correctamente") From 5f7862bebc5b115e4b8b283ab37ca8644118674b Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 26 Aug 2020 08:44:15 -0700 Subject: [PATCH 02/30] Correcion de almacenes administrativos --- Compras/Compras.aspx.vb | 101 ++++++++++++++++++++++++++-------------- 1 file changed, 67 insertions(+), 34 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a28d0e56b..fb5b5faab 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6347,7 +6347,6 @@ Partial Class Compras_Compras Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" - Dim Insertado205 As Boolean = False If RBLPago.SelectedValue.ToEntero = 4 Then @@ -6392,15 +6391,42 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"}) 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN - For Each Dr As DataRow In DT.Rows - If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then - Dr("CveAlmacen") = 0 - End If - Dr.AcceptChanges() - Next + 'SI LA COMPRA ES DE TIPO GASTO CON ALMACEN DEBE REGISTRAR MOVIMIENTO + If DdlTipoCompra.SelectedValue <> "10" Then + For Each Dr As DataRow In DT.Rows + If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then + Dr("CveAlmacen") = 0 + End If + Dr.AcceptChanges() + Next + End If DT.AcceptChanges() DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0") If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then + + 'SI ES GASTO CON ALMACEN + If DdlTipoCompra.SelectedValue = "10" Then + For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen", "CveClasificacion", "CveSubProyecto"}).Rows + + importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen = {RowDetalle("CveAlmacen")}").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen = {RowDetalle("CveAlmacen")}").ToString.ToDecimal 'Row2("Total").ToString.ToDecimal + Row2("CostoIndirectoAlmacen").ToString.ToDecimal + importeMN = importeMovimiento * tipoCambioActual * Multiplicador + + If ObjConta.GetRetCuenta(6, RowDetalle("CveClasificacion").ToString().ToEntero()) Then + If ObjConta.DtResultados.Rows.Count > 0 Then + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero + End If + End If + + If importeMN <> 0 Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, + CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True + End If + End If + Next + End If + For Each Row2 As DataRow In DT.Rows importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen = {Row2("CveAlmacen")}").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen = {Row2("CveAlmacen")}").ToString.ToDecimal 'Row2("Total").ToString.ToDecimal + Row2("CostoIndirectoAlmacen").ToString.ToDecimal @@ -6418,15 +6444,16 @@ Partial Class Compras_Compras idCuentaContabilizacion = 0 End If - 'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68 - If DdlTipoCompra.SelectedValue = "10" Then - SeContabiliza = False - IdCtaContable = 0 - CveCuenta = 0 + 'SI ES GASTO CON ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68 + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=If(DdlTipoCompra.SelectedValue = "10", False, SeContabiliza)) Then + ErrorPrepoliza = True End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True + 'SI ES GASTO CON ALMACEN REGISTRA EL CONCEPTO 95 + If DdlTipoCompra.SelectedValue = "10" Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN, Referencia, 95, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=False) Then + ErrorPrepoliza = True + End If End If ' si agrego en almacen, ya no se ocupa algun concepto puente AgregaMercanciaInventario = False @@ -6595,8 +6622,6 @@ Partial Class Compras_Compras If RegistraConcepto225 Then - - importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador @@ -6682,12 +6707,15 @@ Partial Class Compras_Compras DT = TmpDT.FiltraParametros("ISNULL(AplicaCostoIndirecto,0) <> 1") End If 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN - For Each Dr As DataRow In DT.Rows - If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then - Dr("CveAlmacen") = 0 - End If - Dr.AcceptChanges() - Next + If DdlTipoCompra.SelectedValue <> "10" Then + For Each Dr As DataRow In DT.Rows + If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then + Dr("CveAlmacen") = 0 + End If + Dr.AcceptChanges() + Next + End If + DT.AcceptChanges() DtAlmacenes.Dispose() @@ -10118,12 +10146,14 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen = 0 Then DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"}) 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN - For Each Dr As DataRow In DT.Rows - If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then - Dr("CveAlmacen") = 0 - End If - Dr.AcceptChanges() - Next + If DdlTipoCompra.SelectedValue <> "10" Then + For Each Dr As DataRow In DT.Rows + If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then + Dr("CveAlmacen") = 0 + End If + Dr.AcceptChanges() + Next + End If DT.AcceptChanges() DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0") If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then @@ -10204,12 +10234,15 @@ Partial Class Compras_Compras 'GASTO DT = TmpDT.Copy 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN - For Each Dr As DataRow In DT.Rows - If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then - Dr("CveAlmacen") = 0 - End If - Dr.AcceptChanges() - Next + If DdlTipoCompra.SelectedValue <> "10" Then + For Each Dr As DataRow In DT.Rows + If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen = {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then + Dr("CveAlmacen") = 0 + End If + Dr.AcceptChanges() + Next + End If + DT.AcceptChanges() DtAlmacenes.Dispose() From 5545457d0f7c47630f26e157de82de5a38c68d03 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Aug 2020 12:02:49 -0700 Subject: [PATCH 03/30] -- se especifico, el modulo, de moviemento de almacen --- Inventarios/ResguardoMaterial.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index fb4e1fd2c..e3cfa6f5d 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -816,7 +816,7 @@ Partial Class Inventarios_ResguardoMaterial Case 23 ' Resguardo 'SALIDA ORIGEN - CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 24, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=CveCliente, CveProveedor:=CveProveedor) + CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 24, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=CveCliente, CveProveedor:=CveProveedor, Modulo:="ResgMat1") FolioSalida = ObjInventario.Folio If CveMovimientoSalida <= 0 Then @@ -839,7 +839,7 @@ Partial Class Inventarios_ResguardoMaterial Cont = 0 If Not TieneError Then - CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=CveCliente, CveProveedor:=CveProveedor) + CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=CveCliente, CveProveedor:=CveProveedor, Modulo:="ResgMat2") FolioEntrada = ObjInventario.Folio If CveMovimientoEntrada <= 0 Then @@ -873,7 +873,7 @@ Partial Class Inventarios_ResguardoMaterial 'SALIDA ORIGEN - RESGUARDO - CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenLiberación, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveAlmacenDestino:=DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True) + CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenLiberación, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveAlmacenDestino:=DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True, Modulo:="ResgMat3") FolioSalida = ObjInventario.Folio Dim DiccionarioSecciones As New HybridDictionary @@ -899,7 +899,7 @@ Partial Class Inventarios_ResguardoMaterial If Not TieneError Then - CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, 23, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveMovimientoRelacionado:=CveMovimientoSalida, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True) + CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, 23, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveMovimientoRelacionado:=CveMovimientoSalida, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True, Modulo:="ResgMat4") FolioEntrada = ObjInventario.Folio If CveMovimientoEntrada <= 0 Then From e915520d0f60efcc38e0b3a08ecad6d55567ea14 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Aug 2020 12:03:31 -0700 Subject: [PATCH 04/30] -- actualizacion de datos seccion en liberacion --- RH/Personal.aspx | 2 +- RH/Personal.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 3dec2293d..ef91b9bb5 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -3875,7 +3875,7 @@
- +
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 59bbbebb0..9402434f0 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -5105,7 +5105,7 @@ Partial Class RH_Personal Dim ObjInv As New ClsInventarios - If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=True) Then + If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=False) Then GvUniformesResguardo.DataSource = ObjInv.DtResultados UniformesInfo = ObjInv.DtResultados Else From 0ba81b8495d0d1c45bc66b807e5a38b594344b2a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Aug 2020 12:04:07 -0700 Subject: [PATCH 05/30] -- activaion de salida por ajuste de celia --- Inventarios/EntradasSalidas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 7891db1e0..4bbcef129 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2025,7 +2025,7 @@ Partial Class Inventarios_EntradasSalidas DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2")) End If - If UsuarioActual.CveEmpresa = 72 AndAlso CveTipoAlmacen.Contiene(14, 19) AndAlso UsuarioActual.CveUsuario = 2185 Then + If UsuarioActual.CveEmpresa = 72 AndAlso CveTipoAlmacen.Contiene(12, 14, 19) AndAlso (UsuarioActual.CveUsuario = 2185 OrElse UsuarioActual.CveRol = 1) Then 'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1")) DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32")) From e0dd5b0110d5f3edd9e405838b1e1ecb091e7795 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Aug 2020 12:04:45 -0700 Subject: [PATCH 06/30] - actualizacion --- packages.config | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/packages.config b/packages.config index 457abd773..e62d14c90 100644 --- a/packages.config +++ b/packages.config @@ -17,9 +17,9 @@ - - - + + + @@ -37,6 +37,6 @@ - + \ No newline at end of file From 70186479806226ac57d6bdb9be98c88ace15ebc3 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 26 Aug 2020 12:05:45 -0700 Subject: [PATCH 07/30] - cambios de version --- .../RCGPSService/configuration91.svcinfo | 2 +- .../WSPenske/ReceiveGPSInfo.wsdl | 54 +++++++++++++++ .../WSRVConsultas/configuration91.svcinfo | 2 +- App_WebReferences/WSRVConsultas/service1.wsdl | 66 +++++++++++++++++++ .../wsValidaCFDi2/ConsultaCFDIService.xsd | 2 + .../wsValidaCFDi2/configuration91.svcinfo | 2 +- 6 files changed, 125 insertions(+), 3 deletions(-) diff --git a/App_WebReferences/RCGPSService/configuration91.svcinfo b/App_WebReferences/RCGPSService/configuration91.svcinfo index 74eb6fcf0..60a186b35 100644 --- a/App_WebReferences/RCGPSService/configuration91.svcinfo +++ b/App_WebReferences/RCGPSService/configuration91.svcinfo @@ -1,5 +1,5 @@ - + diff --git a/App_WebReferences/WSPenske/ReceiveGPSInfo.wsdl b/App_WebReferences/WSPenske/ReceiveGPSInfo.wsdl index b2c6f6577..73cde7e36 100644 --- a/App_WebReferences/WSPenske/ReceiveGPSInfo.wsdl +++ b/App_WebReferences/WSPenske/ReceiveGPSInfo.wsdl @@ -83,6 +83,32 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -103,6 +129,12 @@ + + + + + + @@ -116,6 +148,10 @@ + + + + @@ -146,6 +182,15 @@ + + + + + + + + + @@ -176,6 +221,15 @@ + + + + + + + + + diff --git a/App_WebReferences/WSRVConsultas/configuration91.svcinfo b/App_WebReferences/WSRVConsultas/configuration91.svcinfo index 95fb42f85..4f5b80053 100644 --- a/App_WebReferences/WSRVConsultas/configuration91.svcinfo +++ b/App_WebReferences/WSRVConsultas/configuration91.svcinfo @@ -1,5 +1,5 @@ - + diff --git a/App_WebReferences/WSRVConsultas/service1.wsdl b/App_WebReferences/WSRVConsultas/service1.wsdl index b7b24ac5b..acaf74ae5 100644 --- a/App_WebReferences/WSRVConsultas/service1.wsdl +++ b/App_WebReferences/WSRVConsultas/service1.wsdl @@ -153,6 +153,43 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -242,6 +279,12 @@ + + + + + + @@ -290,6 +333,11 @@ + + Consultar un CFDI directamente por UUID y Fecha + + + Consultar los CFDIs emitidos por rango de fecha @@ -366,6 +414,15 @@ + + + + + + + + + @@ -450,6 +507,15 @@ + + + + + + + + + diff --git a/App_WebReferences/wsValidaCFDi2/ConsultaCFDIService.xsd b/App_WebReferences/wsValidaCFDi2/ConsultaCFDIService.xsd index 3794d9bb1..1e54f4ce6 100644 --- a/App_WebReferences/wsValidaCFDi2/ConsultaCFDIService.xsd +++ b/App_WebReferences/wsValidaCFDi2/ConsultaCFDIService.xsd @@ -3,7 +3,9 @@ + + diff --git a/App_WebReferences/wsValidaCFDi2/configuration91.svcinfo b/App_WebReferences/wsValidaCFDi2/configuration91.svcinfo index 03e1cea96..cf557a755 100644 --- a/App_WebReferences/wsValidaCFDi2/configuration91.svcinfo +++ b/App_WebReferences/wsValidaCFDi2/configuration91.svcinfo @@ -1,5 +1,5 @@ - + From b50831e667122167c0c516300d2afd844560955a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 26 Aug 2020 17:58:11 -0700 Subject: [PATCH 08/30] OC. aspx. E13.si el proveedor es dedicado, solo debe de mostrarse la opcion de Cotizacion Rapida --- OC/OC.aspx.vb | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 03d0415ca..a3d970573 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1663,7 +1663,10 @@ Partial Class OC InicializaMovtosAlmacen() If UsuarioActual.Empresa.Funcionalidad(565) = "1" And pCveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then - RowCotizaciones.Visible = True + 'LAS COTIZACIONES RAPIDAS SOLO DEBE APARECER SI EL PROVEEDOR ES DEDICADO + If CveConfianzaProveedor = 1 Then + RowCotizaciones.Visible = True + End If UpIvas.Update() End If @@ -1823,6 +1826,8 @@ Partial Class OC DdlProveedores.Attributes.Add("data-metodo", "getproveedores") DdlProveedores.SelectedText = "Seleccione" DdlProveedores.SelectedValue = "-1" + DdlProveedores.ddl.AutoPostBack = True + DdlProveedorCot.setEsWebService(True) DdlProveedorCot.Attributes.Add("data-metodo", "getproveedores") Else @@ -1830,6 +1835,7 @@ Partial Class OC DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataBind() DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlProveedores.ddl.AutoPostBack = True DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedorCot.DataBind() @@ -5352,6 +5358,14 @@ Partial Class OC VerificaSiRequiereCotizacion() + If UsuarioActual.Empresa.Funcionalidad(565) = "1" And CveOrdenCompra > 0 And TipoOC.ToUpper() = "REQ" Then + 'LAS COTIZACIONES RAPIDAS SOLO DEBE APARECER SI EL PROVEEDOR ES DEDICADO + If CveConfianzaProveedor = 1 Then + RowCotizaciones.Visible = True + End If + UpIvas.Update() + End If + DdlProveedorSucursal.DataBind() UPProv.Update() : UPPEmp.Update() UPPDetalle.Update() From 761bf1e222c3dde7fbafe2289e49b0d9f203d9f2 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 26 Aug 2020 19:37:04 -0700 Subject: [PATCH 09/30] =?UTF-8?q?se=20agrego=20nuevo=20campo=20en=20las=20?= =?UTF-8?q?paqueterias=20guias,=20documento=20detalle=20recibi=C3=B3=20cam?= =?UTF-8?q?bios=20de=20retroalimentaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsGenerales.vb | 3 +- General/PopUpPaqueteriasGuias.aspx | 4 +++ General/PopUpPaqueteriasGuias.aspx.cs | 26 ++++++++++++++++- General/RepPaqueteriasGuias.aspx | 3 +- OI/DocumentoDetalle.aspx.cs | 7 +++-- RH/Personal.aspx | 40 ++++++++++++++++++++------- RH/Personal.aspx.vb | 9 ++++-- 7 files changed, 74 insertions(+), 18 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 80b8e3306..69f64de00 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2728,7 +2728,7 @@ Public Class ClsGenerales #Region "P A Q U E T E R I A S G U I A S" Public Function AddPaqueteriasGuias(CvePaqueteria As Integer, CvePaqueteriaGuiaTipo As Integer, CveEstatus As Integer, CveSubProyecto As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer, Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True, - Optional EsEntregaInterna As Boolean = False) As Integer + Optional EsEntregaInterna As Boolean = False, Optional PolizaSeguro As String = "-1") As Integer Dim Retorno As Integer = -1 @@ -2755,6 +2755,7 @@ Public Class ClsGenerales .Add("@CvePaqueteriaGuiaTipo", SqlDbType.SmallInt).Value = CvePaqueteriaGuiaTipo .Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna + .Add("@PolizaSeguro", SqlDbType.NVarChar).Value = PolizaSeguro .Add("@CvePaqueteriaGuia", SqlDbType.Int).Direction = ParameterDirection.Output diff --git a/General/PopUpPaqueteriasGuias.aspx b/General/PopUpPaqueteriasGuias.aspx index 8412bda47..3d8060faf 100644 --- a/General/PopUpPaqueteriasGuias.aspx +++ b/General/PopUpPaqueteriasGuias.aspx @@ -208,6 +208,10 @@ + Poliza de Seguro: + + + diff --git a/General/PopUpPaqueteriasGuias.aspx.cs b/General/PopUpPaqueteriasGuias.aspx.cs index c124dbd4e..33cc3edab 100644 --- a/General/PopUpPaqueteriasGuias.aspx.cs +++ b/General/PopUpPaqueteriasGuias.aspx.cs @@ -181,6 +181,10 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas if (CveVenta > 0 || CveOC > 0 || CveMovimiento > 0 || CveCompra > 0) { CargaGuiasVinculadas(); + if(CveVenta > 0) + { + CondicionesVenta(); + } } else { @@ -381,7 +385,10 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas String Observaciones = TxtObservaciones.Text; Boolean ImplicaCosto = ChkImplicaCosto.Checked; - int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, CvePaqueteriaGuiaTipo,CveEstatus, CveSucursal, Fecha, Rastreo, Guia, NoCajas, Peso, Dimensiones, FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ImplicaCosto); + string PolizaSeguro = (tdLblPolizaSeguro.Visible) ? TxtPolizaSeguro.Text : "-1"; + + int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, CvePaqueteriaGuiaTipo,CveEstatus, CveSucursal, Fecha, Rastreo, Guia, NoCajas, Peso, Dimensiones, + FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ImplicaCosto,PolizaSeguro: PolizaSeguro); if (CvePaqueteriaGuia > 0) { @@ -853,4 +860,21 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas } #endregion + private void CondicionesVenta() + { + + ClsVentas ObjVenta = new ClsVentas(); + if (ObjVenta.GetVentaDetalle(CveVenta)) + { + DataTable VentasDetalle = ObjVenta.DtResultados; + if (VentasDetalle.Rows.Count > 0) + { + double Total = VentasDetalle.SUM("Total"); + bool Mostrar = (Total >= 100000.00); + tdLblPolizaSeguro.Visible = Mostrar; + tdTxtPolizaSeguro.Visible = Mostrar; + } + } + } + } \ No newline at end of file diff --git a/General/RepPaqueteriasGuias.aspx b/General/RepPaqueteriasGuias.aspx index b77e74312..cff504eb1 100644 --- a/General/RepPaqueteriasGuias.aspx +++ b/General/RepPaqueteriasGuias.aspx @@ -190,7 +190,7 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> - @@ -208,6 +208,7 @@ + diff --git a/OI/DocumentoDetalle.aspx.cs b/OI/DocumentoDetalle.aspx.cs index f16ec0e2b..02ca2f7e0 100644 --- a/OI/DocumentoDetalle.aspx.cs +++ b/OI/DocumentoDetalle.aspx.cs @@ -89,15 +89,16 @@ public partial class OI_DocumentoDetalle : ClsPaginas ViewState["CveAsignacion"] = value; } } + #endregion protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { Cargar(); + CargarMensajeNuevoEditado(); } } - #endregion #region "CARGAS" private void CargarCveDocumento() @@ -120,7 +121,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas switch (MensajeNuevoEditado) { case "Nuevo": - Alert("El Documento ha sido creado correctamente"); + Alert("El Documento ha sido creado correctamente",JSBtnAceptar: "document.location.href=\"/OI/Documentos.aspx\";"); break; case "NuevaVersion": Alert("Nueva versión del Documento creado correctamente"); @@ -343,7 +344,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas ConfiguracionActualizar(); ConfigurarGridUsuariosParticipantes(); ConfigurarCamposDetalleSegunUsuario(); - CargarMensajeNuevoEditado(); + MostrarBotonRechazar(); } } diff --git a/RH/Personal.aspx b/RH/Personal.aspx index ef91b9bb5..c085f4560 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -829,7 +829,7 @@ - @@ -3869,23 +3869,43 @@
-
- - +
+
+ +
+
+ +
-
- - - - +
+
+
+ +
+
+ + + +
+
+
+
+ Cantidad: +
+
+ + +
+
+
- + diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 9402434f0..eb401adee 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -5143,6 +5143,9 @@ Partial Class RH_Personal CvePS = row.DataKey("CvePS").ToString().ToEntero CveMovimientoUniforme = row.DataKey("CveMovimiento").ToString().ToEntero CveMovimientoDetalleUniforme = row.DataKey("CveMovimientoDetalle").ToString().ToEntero + Dim Cantidad As Integer = row.DataKey("Cantidad").ToString().ToEntero + TxtCantidadResguardo.Text = Cantidad.ToString + RvTxtCantidadResguardo.MaximumValue = Cantidad.ToString If row.DataKey("AplicaSeccion").ToString = "True" Then divSeccionAlmacen.Visible = True DdlSeccionAlmacen.Items.Clear() @@ -5168,11 +5171,13 @@ Partial Class RH_Personal Dim ObjInventario As New ClsInventarios ObjInventario.IniciaTransacSQL() + Dim Cantidad As Double = TxtCantidadResguardo.Text.ToDouble() + Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme) - Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme) + Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme) Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme) - Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen) + Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen) If ResultadoDetalleSalida And ResultadoDetalleEntrada Then ObjInventario.Commit() From 72f7a828fa8506882afdb5bbee6bc4f0a9dd4e76 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 27 Aug 2020 10:22:24 -0700 Subject: [PATCH 10/30] Concepto 6 en gasto con almacen --- Compras/Compras.aspx.vb | 38 ++++++++++++++++++++++++++++++++++++-- 1 file changed, 36 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index fb5b5faab..5f8f19a96 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6489,7 +6489,15 @@ Partial Class Compras_Compras End If Dim UsaComplementariaFleteImportaciones As Boolean = False + 'DEBE METER EL CONCEPTO DE COMPRAS SI EL TIPO ES GASTO CON ALMACEN + If DdlTipoCompra.SelectedValue = "10" Then + ConceptoContabilizacion = 6 + End If + Select Case ConceptoContabilizacion + Case 6 + importeMovimiento = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")) + importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO Case 176 ConceptoContabilizacionME = 228 ConceptoContabilizacionMEComp = 229 @@ -6510,8 +6518,14 @@ Partial Class Compras_Compras importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO End Select - If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero + If ConceptoContabilizacion = 6 Then + If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero + End If + Else + If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero + End If End If If ObjConta.GetRetCuenta(ConceptoContabilizacionME, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then @@ -6605,6 +6619,26 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If End If + Case 6 + Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" + + For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto"}).Rows + + If ObjConta.GetRetCuenta(6, RowDetalle("CveClasificacion").ToString().ToEntero()) Then + If ObjConta.DtResultados.Rows.Count > 0 Then + IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero + CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero + End If + End If + + If importeMN <> 0 Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, + CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True + End If + End If + Next + End Select 'End If From 72db432b5ea53ad8a343ec14bc0ddc99621a01a9 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 27 Aug 2020 15:07:33 -0700 Subject: [PATCH 11/30] =?UTF-8?q?nuevo=20reporte=20para=20impresi=C3=B3n?= =?UTF-8?q?=20del=20documento=20detalle?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Formatos/RepClientesPagosBancos.rdlc | 73 ++++++------------- Empresas/Grales/Formatos/RepOCPorAtender.rdlc | 8 +- OI/DocumentoDetalle.aspx | 10 +++ OI/DocumentoDetalle.aspx.cs | 55 +++++++++++++- 4 files changed, 93 insertions(+), 53 deletions(-) diff --git a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc index 574f43d48..fbf8a8cbf 100644 --- a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc +++ b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc @@ -52,10 +52,10 @@ 4.42895cm - 3.2021cm + 3.06732cm - 3.36938cm + 3.6031cm 2.89562cm @@ -156,7 +156,7 @@ - Fecha Ven. + Fecha Vencimiento. @@ -191,7 +191,7 @@ - Movto. + Cheque. @@ -226,14 +226,14 @@ - Abono + Abonado @@ -250,47 +250,14 @@ 2pt + 2 - - - - true - true - - - - - - - - - - - - Textbox21 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - + - 0.6cm + 0.46771cm @@ -303,7 +270,8 @@ = IIF( IsNothing(Fields!CveVenta.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value) @@ -336,7 +304,8 @@ =Fields!Fecha.Value @@ -372,7 +341,8 @@ = IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value) @@ -408,7 +378,8 @@ = IIF( IsNothing(Fields!CveVenta.Value) , Fields!FolioCobro.Value,"") @@ -441,7 +412,8 @@ =Fields!ImporteAbonado.Value @@ -478,7 +450,8 @@ =IIF(Fields!CveVenta.Value > 0,Fields!MonedaVenta.Value, Fields!MonedaIE.Value) @@ -527,8 +500,8 @@ DataSet1 1.00112cm 0.12912cm - 1.2cm - 19.74272cm + 1.06771cm + 19.84166cm 2 <%----%> - Proyecto: + Proyecto: @@ -70,7 +74,10 @@ - + +
+ +
@@ -142,11 +168,19 @@ - + + + + + + + + + diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb index fcef61fbb..00101529a 100644 --- a/Ventas/RepPS.aspx.vb +++ b/Ventas/RepPS.aspx.vb @@ -33,6 +33,39 @@ Partial Class Ventas_RepPS Private Sub CargaCombos() CargaTipoCentroCosto() + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + DdlClasificacion.DataBind() + + DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue) + DdlPS.SelectedText = "" + DdlPS.SelectedValue = "-1" + Else + DdlPS.ddl.Items.Clear() + DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) + DdlPS.ddl.DataBind() + DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) + End If + + + If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then + DivMarca.Visible = True + LblMarca.Visible = True + LblLinea.Visible = True + DivLinea.Visible = True + + Using ObjMarcas As New ClsProductosServicios + If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then + DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados + DdlMarcaPSDes.DataBind() + End If + End Using + End If + + DdlLinea.DataSource = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa) + DdlLinea.DataBind() + 'DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1")) End Sub Private Sub CargaTipoCentroCosto() @@ -70,9 +103,12 @@ Partial Class Ventas_RepPS Private Sub CargaDatos() + Dim Clasificacion As String = If(DdlClasificacion.GetSelectedValuesM = "", "-1", DdlClasificacion.GetSelectedValuesM) + Dim Linea As String = If(DdlLinea.GetSelectedValuesM = "", "-1", DdlLinea.GetSelectedValuesM) + Dim Marca As String = If(DdlMarcaPSDes.GetSelectedValuesM = "", "-1", DdlMarcaPSDes.GetSelectedValuesM) Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero() Dim Grupo As Integer = DdlGrupo.SelectedValue.ToEntero() - Dim CvePS As Integer = -1 + Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero() Dim CveMoneda As Integer = -1 Dim TC As Integer = 1 Dim TCEspecifico As Decimal = -1 @@ -81,7 +117,7 @@ Partial Class Ventas_RepPS FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha) Dim ObjVentas As New ClsVentas() - If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico) Then + If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico, Clasificacion:=Clasificacion, Linea:=Linea, Marca:=Marca) Then DtReporte = ObjVentas.DtResultados.Copy() GvDatos.DataSource = DtReporte Else @@ -97,14 +133,25 @@ Partial Class Ventas_RepPS If e.Row.RowType = DataControlRowType.DataRow Then Select Case e.Row.DBCampo("Orden").ToString.ToEntero() Case 4 + + e.Row.Cells(0).ColumnSpan = 2 + e.Row.Cells(1).Visible = False e.Row.CssClass = "Totales" Case 3 + e.Row.Cells(0).ColumnSpan = 2 + e.Row.Cells(1).Visible = False e.Row.CssClass = "SubTotales2" Case 2 + e.Row.Cells(0).ColumnSpan = 2 + e.Row.Cells(1).Visible = False e.Row.CssClass = "SubTotales" Case 1 + e.Row.Cells(0).ColumnSpan = 2 + e.Row.Cells(1).Visible = False e.Row.CssClass = "SubTotalesB" Case 0 + e.Row.Cells(0).ColumnSpan = 1 + e.Row.Cells(1).Visible = True e.Row.CssClass = "Texto" End Select End If diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 6f25b6b3a..961687d51 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -295,12 +295,12 @@ Partial Class Ventas_RepProductosServicios DivMarca.Visible = True LblMarca.Visible = True - Dim ObjMarcas As New ClsProductosServicios - If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then - DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados - ObjMarcas.Dispose() - DdlMarcaPSDes.DataBind() - End If + Using ObjMarcas As New ClsProductosServicios + If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then + DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados + DdlMarcaPSDes.DataBind() + End If + End Using End If DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1")) End Sub diff --git a/packages.config b/packages.config index e62d14c90..88f1d754c 100644 --- a/packages.config +++ b/packages.config @@ -26,7 +26,7 @@ - + From 03b322f5f6a80a1e9f21789a1b20ef5507af6c12 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 1 Sep 2020 11:04:53 -0700 Subject: [PATCH 25/30] =?UTF-8?q?validaci=C3=B3n=20para=20mostrar=20una=20?= =?UTF-8?q?pesat=C3=B1a=20en=20ventas,=20en=20oc=20se=20recupera=20el=20us?= =?UTF-8?q?uario=20asignado?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx.vb | 12 +++++++++++- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 645cf0e68..8df2ee5f5 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -18,6 +18,14 @@ Partial Class OC ViewState("CveEmpresaActual") = value End Set End Property + Private Property CveUsuarioAsignado As Integer + Get + Return If(IsNothing(ViewState("CveUsuarioAsignado")), -1, ViewState("CveUsuarioAsignado").ToString.ToEntero) + End Get + Set(value As Integer) + ViewState("CveUsuarioAsignado") = value + End Set + End Property Private Property TipoOC As String Get TipoOC = ViewState("TipoOC").ToString @@ -1212,7 +1220,7 @@ Partial Class OC MPContrato.Enabled = False 'SOLICITUD DE ANTICIPO CveIEAnticipo = objOC.CveIEAnticipo - + CveUsuarioAsignado = objOC.CveUsuarioAsignado 'LtImporteIEAnticipo.Text = objOC.ImporteAnticipo.FormatoNumero 'LtFolioIEAnticipo.Text = $"{objOC.FolioIEAnticipo}" @@ -5400,6 +5408,8 @@ Partial Class OC DdlUsuariosAsignado.DataSource = GlobalDTUsuarios(CveEmpresa:=CveEmpresaActual).FiltraParametros("Estatus = 1", "Nombre") DdlUsuariosAsignado.DataBind() DdlUsuariosAsignado.Items.Insert(0, New ListItem(" - ", "-1")) + DdlUsuariosAsignado.SelectedValueExist(CveUsuarioAsignado) + End If Else VerificaCotizacionesGanadoras() diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9843d7605..56ab2f9d3 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3668,7 +3668,7 @@ Partial Class Ventas HlCuentaTerminal.Visible = True End If CargarSaldoAuxiliar(CveCliente) - TabAuxiliarConta.Visible = True + TabAuxiliarConta.Visible = UsuarioActual.TienePermisoProceso(306) Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto"))) If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175) From 8cc3c035853319b12e2e59a47aa0011e4027bcc5 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 1 Sep 2020 15:25:33 -0700 Subject: [PATCH 26/30] --- Contabilidad2/RepEstadoResultadosHorizontal.aspx | 4 ++-- Ventas/RepAuxiliarFacturas.aspx | 3 +++ 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 55f95ed26..467d19c2c 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -185,7 +185,7 @@ - + @@ -544,7 +544,7 @@ - + diff --git a/Ventas/RepAuxiliarFacturas.aspx b/Ventas/RepAuxiliarFacturas.aspx index 4146eba0b..557ef1378 100644 --- a/Ventas/RepAuxiliarFacturas.aspx +++ b/Ventas/RepAuxiliarFacturas.aspx @@ -154,6 +154,9 @@ + + + From 5e5e25c2761c0d83397252110f014a4ddd696023 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 1 Sep 2020 20:59:46 -0700 Subject: [PATCH 27/30] -- filtrado predeterminado --- Inventarios/Apartados.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/Apartados.aspx.vb b/Inventarios/Apartados.aspx.vb index f25090430..fd119f2c7 100644 --- a/Inventarios/Apartados.aspx.vb +++ b/Inventarios/Apartados.aspx.vb @@ -806,7 +806,7 @@ Partial Class Inventarios_Apartados If e.Row.RowType = DataControlRowType.DataRow Then e.Row.FCTextBox("TxtCantidad").Attributes.Add("onblur", String.Format("ValidaCantidad(this,{0})", e.Row.DBCampo("Cantidad"))) If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero > 0 Then - Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero) + Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero).FiltraParametros("Predeterminado = 1") e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind() From 94ee536ef5459781282dde6fb92448868c5d114e Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 1 Sep 2020 21:03:59 -0700 Subject: [PATCH 28/30] titulo tab, contabilidad --- Ventas/Ventas.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 679b36265..029f871b0 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -2880,7 +2880,7 @@ - +
From a4efc39ec6c4ee206b633af67516a1c8b2e5a457 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 1 Sep 2020 22:17:32 -0700 Subject: [PATCH 29/30] - ancho columnas --- Ventas/RepPS.aspx | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Ventas/RepPS.aspx b/Ventas/RepPS.aspx index 8cf13668e..b3f9052f4 100644 --- a/Ventas/RepPS.aspx +++ b/Ventas/RepPS.aspx @@ -186,13 +186,13 @@ - - - - - - - + + + + + + + From 8494d0230c6169f18b9a05e7c7ca436c20a4e227 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 2 Sep 2020 01:02:06 -0700 Subject: [PATCH 30/30] --- .../RepEstadoResultadosHorizontal.aspx | 786 +++++++++++------- .../RepEstadoResultadosHorizontal.aspx.vb | 89 +- Inventarios/RepTraspasoAlmacen.aspx | 4 +- Inventarios/RepTraspasoAlmacen.aspx.vb | 7 +- Metronic/assets/admin/layout/css/custom.css | 7 +- Scripts/custom.js | 4 +- Ventas/RepVentas.aspx.vb | 2 +- vwd.webinfo | 2 + 8 files changed, 560 insertions(+), 341 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 467d19c2c..52c0ff298 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -3,6 +3,18 @@ + + @@ -10,15 +22,13 @@ - -
  • +
  • Generar Excel
    • -     - +
    @@ -29,19 +39,19 @@
      - +
      - + -
      +
    - -
    - + +
    + -
    - - +
    + +
    @@ -57,25 +67,26 @@ -
    +
    - - + +
    -
    - - -
    - - - - - -
    + +
    + + + + + + +
    @@ -84,10 +95,10 @@     - - - - + + + +
    @@ -108,7 +119,7 @@ - + <%-- --%> @@ -116,13 +127,13 @@ - + <%-- --%> - +

    @@ -140,20 +151,20 @@     - + - + - + @@ -185,7 +196,7 @@ - + @@ -197,11 +208,13 @@ - + <%----%> - + + + @@ -212,73 +225,73 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + @@ -294,7 +307,7 @@ <%----%> - + @@ -305,11 +318,12 @@
    - + <%----%> - + + @@ -320,85 +334,85 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - <%-- + <%-- --%> - <%-- --%> + <%-- --%> @@ -409,96 +423,97 @@ -

    - +
    + - + + - - +     +     - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + @@ -517,7 +532,7 @@ -
    +