From 86cc50a54dc51deb09ed2b3bd7b2f0b14d193aeb Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 28 Apr 2020 17:39:30 -0700 Subject: [PATCH 01/18] Cambio de moneda en la orden de compra --- OC/OC.aspx | 40 +++++++++++++++++++++++++++++++-- OC/OC.aspx.vb | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 100 insertions(+), 2 deletions(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index 50959795d..253614009 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -1,6 +1,5 @@ <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="OC.aspx.vb" EnableEventValidation="false" Inherits="OC" %> - @@ -42,7 +41,9 @@
  • Verificar Existencias
    • - +
  • + Cambiar Moneda +
    • @@ -2599,6 +2600,41 @@ +     diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 807c00757..3eb4d98e3 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -6760,6 +6760,10 @@ Partial Class OC GVInv.DataSource = ObjInventarios.DtResultados If ObjInventarios.DtResultados.Rows.Count > 0 Then DdlMoneda.Enabled = False + Dim TipoEstatusTerminado As String = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoTermino", String.Format("CveEstatus = {0}", CboE.SelectedValue)) + If TipoEstatusTerminado = "1" Then + LnkCambiarMoneda.Visible = True + End If End If End If GVInv.DataBind() @@ -6767,6 +6771,7 @@ Partial Class OC ObjInventarios.Dispose() UpAlmacen.Update() + UpAcciones.Update() End If End Sub @@ -7664,4 +7669,61 @@ Partial Class OC Protected Sub DdlMoneda_Change() Handles DdlMoneda.SelectedIndexChanged MonedaTexto = DdlMoneda.SelectedItem.Text End Sub + + Protected Sub LnkCambiarMoneda_Click(sender As Object, e As EventArgs) Handles LnkCambiarMoneda.Click + If DdlMoneda.SelectedValue = 1 Then + DivTCRow.Visible = True + UpdatePanel3.Update() + End If + RegistraScript("$('#DivCambiarMoneda').modal();") + End Sub + + Protected Sub BtnCambiarMoneda_Click() Handles BtnCambiarMoneda.Click + Dim ObjInv As New ClsInventarios + Dim Err As Boolean = False + If ObjInv.GetMovimientos(CveMovimientoAlmacenVenta, -1, -1, UsuarioActual.CveEmpresa) Then + Dim TipoMoneda As String = ObjInv.DtResultados.FiltroPrimeroValor("CveMoneda") + Dim ObjConta As New ClsContabilidad + If TipoMoneda = "2" Then + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("OC/OC-(OCAlmacen)", 74, 0.0D, 0.0D, 1, Now, DdlProveedores.SelectedText, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CvePrePoliza > 0 Then + Dim PrimerImporte As Integer = (0 - LblSubTotal.Text.ToDecimal) + Dim SegundoImporte As Integer = (0 - LblSubTotal.Text.ToDecimal) + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, PrimerImporte, lblFolio.Text, 228, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SegundoImporte, lblFolio.Text, 229, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, PrimerImporte + SegundoImporte, lblFolio.Text, 176, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + Err = True + End If + Else + Err = True + End If + Else + Err = True + End If + End If + ElseIf TipoMoneda = "1" Then + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("OC/OC-(OCAlmacen)", 74, 0.0D, 0.0D, 1, Now, DdlProveedores.SelectedText, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CvePrePoliza > 0 Then + Dim PrimerImporte As Decimal = Decimal.Round(((LblSubTotal.Text.ToDecimal) / TxtTCCambioMoneda.Text.ToDecimal), 2, MidpointRounding.AwayFromZero) + Dim SegundoImporte As Decimal = LblSubTotal.Text.ToDecimal + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, PrimerImporte, lblFolio.Text, 228, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SegundoImporte, lblFolio.Text, 229, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, (0 - (PrimerImporte + SegundoImporte)), lblFolio.Text, 176, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + Err = True + End If + Else + Err = True + End If + Else + Err = True + End If + End If + End If + ObjConta.Dispose() + End If + ObjInv.Dispose() + If Err Then + Alert("Sucedió un error con el cambio en la moneda", TipoMensaje.MsgError) + End If + End Sub End Class From a6c2f533c5e8fbb12eb91cae1a8f06ad9660372c Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 28 Apr 2020 18:19:44 -0700 Subject: [PATCH 02/18] agregando la busqueda de la cuenta a la cual asociar la prepoliza detalle --- OC/OC.aspx.vb | 30 ++++++++++++++++++++++++------ 1 file changed, 24 insertions(+), 6 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 3eb4d98e3..f941ec6e7 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -7684,14 +7684,32 @@ Partial Class OC If ObjInv.GetMovimientos(CveMovimientoAlmacenVenta, -1, -1, UsuarioActual.CveEmpresa) Then Dim TipoMoneda As String = ObjInv.DtResultados.FiltroPrimeroValor("CveMoneda") Dim ObjConta As New ClsContabilidad + + Dim IdCtaContableOC As Integer = 0 + Dim IdCtaContableOCME As Integer = 0 + Dim IdCtaContableOCComplementaria As Integer = 0 + + If ObjConta.GetRetCuenta(176, UsuarioActual.CveEmpresa) Then + IdCtaContableOC = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero + End If + + If ObjConta.GetRetCuenta(228, UsuarioActual.CveEmpresa) Then + IdCtaContableOCME = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero + End If + + If ObjConta.GetRetCuenta(229, UsuarioActual.CveEmpresa) Then + IdCtaContableOCComplementaria = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero + End If + If TipoMoneda = "2" Then Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("OC/OC-(OCAlmacen)", 74, 0.0D, 0.0D, 1, Now, DdlProveedores.SelectedText, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePrePoliza > 0 Then Dim PrimerImporte As Integer = (0 - LblSubTotal.Text.ToDecimal) Dim SegundoImporte As Integer = (0 - LblSubTotal.Text.ToDecimal) - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, PrimerImporte, lblFolio.Text, 228, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SegundoImporte, lblFolio.Text, 229, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, PrimerImporte + SegundoImporte, lblFolio.Text, 176, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, PrimerImporte, lblFolio.Text, 228, lblFolio.Text, Now, IdCtaContableOCME, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SegundoImporte, lblFolio.Text, 229, lblFolio.Text, Now, IdCtaContableOCComplementaria, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, PrimerImporte + SegundoImporte, lblFolio.Text, 176, lblFolio.Text, Now, IdCtaContableOC, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then Err = True End If Else @@ -7706,9 +7724,9 @@ Partial Class OC If CvePrePoliza > 0 Then Dim PrimerImporte As Decimal = Decimal.Round(((LblSubTotal.Text.ToDecimal) / TxtTCCambioMoneda.Text.ToDecimal), 2, MidpointRounding.AwayFromZero) Dim SegundoImporte As Decimal = LblSubTotal.Text.ToDecimal - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, PrimerImporte, lblFolio.Text, 228, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SegundoImporte, lblFolio.Text, 229, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, (0 - (PrimerImporte + SegundoImporte)), lblFolio.Text, 176, lblFolio.Text, Now, -1, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, PrimerImporte, lblFolio.Text, 228, lblFolio.Text, Now, IdCtaContableOCME, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SegundoImporte, lblFolio.Text, 229, lblFolio.Text, Now, IdCtaContableOCComplementaria, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, (0 - (PrimerImporte + SegundoImporte)), lblFolio.Text, 176, lblFolio.Text, Now, IdCtaContableOC, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then Err = True End If Else From 540aa72a6fa9111d3c1fa304674247bccc00fe33 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 28 Apr 2020 22:18:35 -0700 Subject: [PATCH 03/18] - cambios traspaso, en lo virtual --- App_Code/ClsInventarios.vb | 3 ++- Inventarios/TraspasoAlmacen.aspx.vb | 23 +++++++++++++---------- 2 files changed, 15 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index fcd8bcd3f..e0cc7a960 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1241,7 +1241,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1) As Boolean + Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleVirtualGet") @@ -1249,6 +1249,7 @@ Public Class ClsInventarios .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveMovimientoRelacionado", SqlDbType.Int).Value = CveMovimientoRelacionado End With Try SqlAdapter.Fill(Data) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index e40e86ff5..0a27020c6 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -369,7 +369,7 @@ Partial Class Inventarios_TraspasoAlmacen 'Llena Almacen Destino, todos los almacenes destino, - DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11) AND Estatus = 'Activo'") + 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")) @@ -380,7 +380,7 @@ Partial Class Inventarios_TraspasoAlmacen DdlAlmacenTransitorio.Items.Insert(0, New ListItem("Seleccione", "-1")) 'Llena Almacen Recepcion - DdlAlmacenRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11)") + DdlAlmacenRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24)") DdlAlmacenRecepcion.DataBind() DdlAlmacenRecepcion.Items.Insert(0, New ListItem("Todos", "-1")) @@ -440,7 +440,7 @@ Partial Class Inventarios_TraspasoAlmacen Private Sub CargaAlmacenOrigen() DdlAlmacenOrigen.Enabled = True DdlAlmacenOrigen.Items.Clear() - DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11)") + DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24)") DdlAlmacenOrigen.Items.Insert(0, New ListItem(" Seleccione ", "-1")) DdlAlmacenOrigen.SelectedValue = "-1" DdlAlmacenOrigen.DataBind() @@ -1517,6 +1517,8 @@ Partial Class Inventarios_TraspasoAlmacen Dim ErrorMovInv As Boolean = False Dim TextoError As String = "" Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate + Dim CveMovimientoVirtualEntrada As Integer = 0 + Dim FolioVirtualEntrada As Integer = 0 Dim ObjInventario As New ClsInventarios Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) @@ -1599,28 +1601,28 @@ Partial Class Inventarios_TraspasoAlmacen 'End If 'VIRTUAL ENTRADA - Dim CveMovimientoVirtualEntrada As Integer = 0 - Dim FolioVirtualEntrada As Integer = 0 + If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then - Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenRecepcion.SelectedValue}").ToEntero() + Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero}").ToEntero() Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero() If CveAlmacenVirtual > 0 Then - CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S2") + CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/C2") FolioVirtualEntrada = ObjInventario.Folio Dim dtvirtual As DataTable = Nothing - If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then + If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then dtvirtual = ObjInventario.DtResultados For Each RowVirtual As DataRow In dtvirtual.Rows Dim CvePS = RowVirtual("CvePS").ToString().ToEntero() Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal() - Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal() + Dim PU As Decimal = RowVirtual("PUOriginal").ToString().ToDecimal() Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero() + Dim CostoIndirecto As Decimal = RowVirtual("CostoIndirecto").ToString().ToDecimal() - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then ErrorMovInv = True Exit For End If @@ -1670,6 +1672,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim Mensaje As StringBuilder = New StringBuilder Mensaje.AppendFormat("Se realizo correctamente la cancelación.
    Folio de Entrada: {0}", Folio, CveMovimientoEntrada) Mensaje.AppendFormat("
    Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()' + If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("
    Folio: {2} Imprimir Entrada Virtual", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) Alert(Mensaje.ToString, TipoMensaje.MsgInformacion) From 20a1d325a8e15a3f8be309b2c82f6ea0c75f2cd9 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 28 Apr 2020 22:19:31 -0700 Subject: [PATCH 04/18] - en alert poner el folio de salida --- Inventarios/RecepcionUsados.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index c968d4df8..a90be7ac1 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1162,7 +1162,7 @@ Partial Class Inventarios_RecepcionUsados If Not ErrorMovInv Then - Msg.AppendFormat("
    El Movimiento se registro con el Folio: {0}", ObjInventario.Folio) + Msg.AppendFormat("
    El Movimiento se registro con el Folio: {0}", ObjInventario.Folio, CveMovimiento) Msg.AppendFormat("

    Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) If IDPoliza > 0 Then Msg = Msg.AppendFormat("

    Ver Póliza", IDPoliza) From 81875aee7bde100c743aa425cc4d610629e74943 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 28 Apr 2020 22:19:58 -0700 Subject: [PATCH 05/18] -- bloqueo de ps en remision --- Ventas/Ventas.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index aeb2ba752..6cc217de6 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5807,6 +5807,7 @@ Partial Class Ventas If e.Row.DBCampo("CantidadInventario").ToDouble > 0 Then e.Row.FCDropDownList("DdlClasificacion").Enabled = False e.Row.FCDropDownLost("DdlPS").Enabled = False + e.Row.FCDropDownLost("DdlPS").ddlWS.Attributes.Add("disabled", "disabled") End If e.Row.FCTextBox("TxtTiempoEntrega").Enabled = False From 8df24f665c1c984290473532fa5425cb53fb79ed Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 29 Apr 2020 11:56:45 -0700 Subject: [PATCH 06/18] agregando cambio de moneda en OC --- OC/OC.aspx.vb | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index f941ec6e7..776b7c10d 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -7680,6 +7680,7 @@ Partial Class OC Protected Sub BtnCambiarMoneda_Click() Handles BtnCambiarMoneda.Click Dim ObjInv As New ClsInventarios + Dim OC As New ClsOC Dim Err As Boolean = False If ObjInv.GetMovimientos(CveMovimientoAlmacenVenta, -1, -1, UsuarioActual.CveEmpresa) Then Dim TipoMoneda As String = ObjInv.DtResultados.FiltroPrimeroValor("CveMoneda") @@ -7701,6 +7702,21 @@ Partial Class OC IdCtaContableOCComplementaria = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero End If + Dim LugarEntrega = If(txtLugarEntrega.Text.Trim = "", "-1", txtLugarEntrega.Text.Trim) + LugarEntrega = If(DivLugarEntrega1.Visible, LugarEntrega, If(TxtLugarEntregaDirecta.Visible, TxtLugarEntregaDirecta.Text.Trim, "")) + + Dim CveProveedorContacto As Integer = -1 + + Dim CveProveedor As Integer = -1 + If Not ChkCotizacion.Checked OrElse (UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0) Then + CveProveedor = DdlProveedores.SelectedValue.ToEntero + CveProveedorContacto = IIf(DdlProveedorContacto.SelectedValue.ToEntero = 0, "-1", DdlProveedorContacto.SelectedValue).ToString.ToEntero + End If + + Dim IVA = If(TxtIVA.Visible, TxtIVA.Text.ToDecimal, LblIVA.Text.ToDecimal) + + Dim Promocion = TxtPromocion.Text.Trim + If TipoMoneda = "2" Then Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("OC/OC-(OCAlmacen)", 74, 0.0D, 0.0D, 1, Now, DdlProveedores.SelectedText, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePrePoliza > 0 Then @@ -7711,6 +7727,14 @@ Partial Class OC If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SegundoImporte, lblFolio.Text, 229, lblFolio.Text, Now, IdCtaContableOCComplementaria, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, PrimerImporte + SegundoImporte, lblFolio.Text, 176, lblFolio.Text, Now, IdCtaContableOC, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then Err = True + Else + If Not OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), + LugarEntrega, 1, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero, + DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), + Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto, + PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)) Then + Err = True + End If End If Else Err = True @@ -7728,6 +7752,14 @@ Partial Class OC If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SegundoImporte, lblFolio.Text, 229, lblFolio.Text, Now, IdCtaContableOCComplementaria, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, (0 - (PrimerImporte + SegundoImporte)), lblFolio.Text, 176, lblFolio.Text, Now, IdCtaContableOC, -1, CveProveedor:=DdlProveedores.SelectedText, CveMovimientoAlmacen:=CveMovimientoAlmacenVenta, CveOC:=CveOrdenCompra) Then Err = True + Else + If Not OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), + LugarEntrega, 2, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero, + DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), + Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto, + PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)) Then + Err = True + End If End If Else Err = True @@ -7742,6 +7774,8 @@ Partial Class OC ObjInv.Dispose() If Err Then Alert("Sucedió un error con el cambio en la moneda", TipoMensaje.MsgError) + Else + Alert("Moneda actualizada con exito") End If End Sub End Class From 84003fe1fb3c0dafff4e21e20664df0bbb487499 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 29 Apr 2020 15:08:08 -0700 Subject: [PATCH 07/18] conversion del moneda nacional a al correspondiente cambio de moneda al actualizar --- OC/OC.aspx | 2 +- OC/OC.aspx.vb | 39 +++++++++++++++++++++++++++++++-------- 2 files changed, 32 insertions(+), 9 deletions(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index 253614009..f66374eb7 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -2617,7 +2617,7 @@
    -
    +
    diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 776b7c10d..27dc3ac22 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -7671,10 +7671,6 @@ Partial Class OC End Sub Protected Sub LnkCambiarMoneda_Click(sender As Object, e As EventArgs) Handles LnkCambiarMoneda.Click - If DdlMoneda.SelectedValue = 1 Then - DivTCRow.Visible = True - UpdatePanel3.Update() - End If RegistraScript("$('#DivCambiarMoneda').modal();") End Sub @@ -7717,6 +7713,9 @@ Partial Class OC Dim Promocion = TxtPromocion.Text.Trim + Dim TCDecimal As Decimal = TxtTCCambioMoneda.Text.ToDecimal + Dim TCDouble As Double = TxtTCCambioMoneda.Text.ToDouble + If TipoMoneda = "2" Then Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("OC/OC-(OCAlmacen)", 74, 0.0D, 0.0D, 1, Now, DdlProveedores.SelectedText, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePrePoliza > 0 Then @@ -7729,11 +7728,23 @@ Partial Class OC Err = True Else If Not OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), - LugarEntrega, 1, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero, - DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), + LugarEntrega, 1, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero, DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=(IVA * TCDecimal), RetIVA:=(TxtRetIVA.Text.ToDecimal * TCDecimal), + RetISR:=(TxtRetISR.Text.ToDecimal * TCDecimal), FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)) Then Err = True + Else + For Each dr As DataRow In DtDetalle.FiltraParametros("TipoDato IN (1)").Rows + If OC.UpdateOrdenCompraDetalle(dr("Cantidad").ToString.ToDouble, dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, (dr("Importe").ToString.ToDouble * TCDouble), dr("CveSubProyecto").ToString.ToEntero, + dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, dr("CveOrdenCompraDetalle").ToString.ToEntero, If(TipoOC = "REQ", -1, dr("CvePresupuestoEgreso").ToString.ToEntero), + (dr("Descuento").ToString.ToDouble * TCDouble), IEPSPS:=(dr("IEPSPS").ToString.ToDouble * TCDouble), IEPSPSIVA:=(dr("IEPSPSIVA").ToString.ToDouble * TCDouble), IVA:=(dr("IVA").ToString.ToDouble * TCDouble), + RetIVA:=(dr("RetIVA").ToString.ToDouble * TCDouble), RetISR:=(dr("RetISR").ToString.ToDouble * TCDouble), Total:=(dr("Total").ToString.ToDouble * TCDouble), CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, + IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, + IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) <= 0 Then + Err = True + Exit For + End If + Next End If End If Else @@ -7754,11 +7765,23 @@ Partial Class OC Err = True Else If Not OC.UpdateOrdenCompra(-1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, ChkCotizacion.Checked, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), - LugarEntrega, 2, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero, - DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), + LugarEntrega, 2, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero, DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=(IVA / TCDecimal), + RetIVA:=(TxtRetIVA.Text.ToDecimal / TCDecimal), RetISR:=(TxtRetISR.Text.ToDecimal / TCDecimal), FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)) Then Err = True + Else + For Each dr As DataRow In DtDetalle.FiltraParametros("TipoDato IN (1)").Rows + If OC.UpdateOrdenCompraDetalle(dr("Cantidad").ToString.ToDouble, dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, (dr("Importe").ToString.ToDouble / TCDouble), dr("CveSubProyecto").ToString.ToEntero, + dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, dr("CveOrdenCompraDetalle").ToString.ToEntero, If(TipoOC = "REQ", -1, dr("CvePresupuestoEgreso").ToString.ToEntero), + (dr("Descuento").ToString.ToDouble / TCDouble), IEPSPS:=(dr("IEPSPS").ToString.ToDouble / TCDouble), IEPSPSIVA:=(dr("IEPSPSIVA").ToString.ToDouble / TCDouble), IVA:=(dr("IVA").ToString.ToDouble / TCDouble), + RetIVA:=(dr("RetIVA").ToString.ToDouble / TCDouble), RetISR:=(dr("RetISR").ToString.ToDouble / TCDouble), Total:=(dr("Total").ToString.ToDouble / TCDouble), CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, + IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, + IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) <= 0 Then + Err = True + Exit For + End If + Next End If End If Else From 20bda493391f3e2e884241599ea75320ba43e7ea Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 29 Apr 2020 15:24:12 -0700 Subject: [PATCH 08/18] - columna cvetiporetencion --- Ventas/ClientesAbonar.aspx | 2 +- Ventas/ClientesAbonar.aspx.vb | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index dc0660c9d..754f34600 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -261,7 +261,7 @@ diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 3292966a3..8c1a2c8d0 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -905,7 +905,7 @@ Partial Class Ventas_ClientesAbonar Case 8 'Ret IVA x Trasladar If EsAnticipoEspecial Then Exit Select - If ObjFactura IsNot Nothing AndAlso ObjFactura.CveTipoRetencion = 4 Then + If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then Exit Select End If If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then @@ -954,7 +954,7 @@ Partial Class Ventas_ClientesAbonar Case 313 'Ret Iva Servicios If EsAnticipoEspecial Then Exit Select - If ObjFactura IsNot Nothing AndAlso ObjFactura.CveTipoRetencion = 4 Then + If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago importeMX = ImporteMovimiento @@ -1069,7 +1069,7 @@ Partial Class Ventas_ClientesAbonar If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}" Case 62 'Ret IVA Trasladado If EsAnticipoEspecial Then Exit Select - If ObjFactura IsNot Nothing AndAlso ObjFactura.CveTipoRetencion = 4 Then + If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then Exit Select End If If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then @@ -1119,7 +1119,7 @@ Partial Class Ventas_ClientesAbonar Case 314 'Ret Iva Servicios Traslado If EsAnticipoEspecial Then Exit Select - If ObjFactura IsNot Nothing AndAlso ObjFactura.CveTipoRetencion = 4 Then + If gvr.DataKey("CveTipoRetencion").ToEntero = 4 Then If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago importeMX = ImporteMovimiento From 354cd1d724aa413481e3a4a6f685ec02937d88a5 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 29 Apr 2020 15:24:24 -0700 Subject: [PATCH 09/18] -- actualizar poliza --- Contabilidad/RegPrePoliza1.aspx.vb | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/Contabilidad/RegPrePoliza1.aspx.vb b/Contabilidad/RegPrePoliza1.aspx.vb index 396eb55d9..0d84d4c48 100644 --- a/Contabilidad/RegPrePoliza1.aspx.vb +++ b/Contabilidad/RegPrePoliza1.aspx.vb @@ -158,6 +158,15 @@ Partial Class ContabilidadC_RegPrePoliza ViewState("IndiceGrid") = value End Set End Property + Public Property IdPoliza As Integer + Get + Return CType(ViewState("IdPoliza"), Integer) + End Get + Set(value As Integer) + ViewState("IdPoliza") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -174,6 +183,7 @@ Partial Class ContabilidadC_RegPrePoliza Observaciones = "-1" Beneficiario = "-1" Actualizar = False + IdPoliza = -1 If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then DivTipoGasto.Visible = True @@ -388,9 +398,15 @@ Partial Class ContabilidadC_RegPrePoliza LnkComplementoPago.Visible = True End If + IdPoliza = dr("IdPoliza").ToString.ToEntero If dr("IdPoliza").ToString.ToEntero > 0 Then HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza")) divContabilziada.Visible = True + BtnEliminar.Visible = False + If UsuarioActual.CveUsuario = 100 Then + BtnContabilizar.Visible = True + BtnContabilizar.Text = "Actualizar Poliza" + End If ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then 'sino está contabilizada, se activa el botón BtnContabilizar.Visible = True @@ -1622,7 +1638,11 @@ Partial Class ContabilidadC_RegPrePoliza Dim ObjConta As New ClsContabilidad - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero + ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) + End If + + If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime) Then Alert(String.Format("Prepóliza contabilizada.

    Folio:Ver Póliza", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion) Else From eaa3cdcefb3960b99ad0d9a6797cbfbfcb1d7629 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 29 Apr 2020 15:35:51 -0700 Subject: [PATCH 10/18] Filtros de fecha en RepReembolsos comprobaciones --- App_Code/ClsMovimientos.vb | 12 +- Compras/RepRembolsoComprobaciones.aspx | 482 ++++++++++++---------- Compras/RepRembolsoComprobaciones.aspx.vb | 5 +- 3 files changed, 272 insertions(+), 227 deletions(-) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 85846866e..fe4714eff 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -851,14 +851,16 @@ Public Class ClsMovimientos Return Retorno End Function - Public Function GetChequesFYE(CveEmpresa As Integer) As Boolean + Public Function GetChequesFYE(CveEmpresa As Integer, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_ReporteChequesFYEGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF End With Try @@ -1278,14 +1280,16 @@ Public Class ClsMovimientos Return Retorno End Function - Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String) As Boolean + Public Function GetCxPPersonalCajaChica(CveEmpresa As Integer, CvePersonal As Integer, CveCajaChica As Integer, NumeroReembolso As String, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_CxPPersonalCajaChica") With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica - .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso + .Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF End With Try diff --git a/Compras/RepRembolsoComprobaciones.aspx b/Compras/RepRembolsoComprobaciones.aspx index 7d3509703..53a762efd 100644 --- a/Compras/RepRembolsoComprobaciones.aspx +++ b/Compras/RepRembolsoComprobaciones.aspx @@ -1,241 +1,279 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepRembolsoComprobaciones.aspx.vb" Inherits="Compras_RepRembolsoComprobaciones" %> - - - - - - - - Reembolsos / Comprobaciones - - - - - - -
  • +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepRembolsoComprobaciones.aspx.vb" Inherits="Compras_RepRembolsoComprobaciones" %> + + + + + + + + Reembolsos / Comprobaciones + + + + + + +
  • Exportar Excel - -
    • -
  • + +
    • +
  • Imprimir Reembolso - -
    • -
  • -     - - - - -     -     - - - - - - -
    -
    -
    - - -
    -
    -
    - -
    - - - - - - - -
    - -
    -
    - -
    -
    - - - - - - - - - - - -
    -
    - - -
    - -
    -
    -
    -
    -
    -     -     - - - -
    -
    - - -
    - -
    - - -
    - - -
    - -
    + + +
  • + + + + + + + + + + + + + +
    +
    +
    + + +
    +
    +
    + +
    + + + + + + + +
    +
    +
    + +
    +
    + + + + + + + + + + + +
    +
    + +
    + +
    +
    +
    +
    + +
    +     +     + + + +
    +
    + + +
    + +
    + + +
    + + +
    + +
    Unificar - -
    - -
    - -
    - -
    -
    - -
    -
    - - -
    + +
    + +
    + +
    + +
    +
    + +
    +
    + + +
    +
    -
    - - - - - Compra - - - - - - Proveedor - -
    - -
    -     -     - - Fecha Compra - - - - - - Proyecto - - - - - - # R - + + + + + + Compra + + + + + + Proveedor + +
    + +
    +     +     + + Fecha Compra + + + + + + Proyecto + + + + + + # R +   - - - - Monto Compra (Saldo Orig.) - + + + + + Monto Compra (Saldo Orig.) +   - - - - Abonado - + + + + + Abonado +   - - - - Saldo - + + + + + Saldo +   - - - - - Excedente - + + + + + + Excedente +   - - - - - - Auxiliar - - - - - - CveCompra - - - - - - CveProveedor - - - - - - IdCtaContProveedores - - - - - -     -     - - - - - + + +     +     + + + Auxiliar + + + + + + CveCompra + + + + + + CveProveedor + + + + + + IdCtaContProveedores + + + + + +     +     + + + + + - - + + + diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index 77316d8e8..ea7151c62 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -257,7 +257,10 @@ Partial Class Compras_RepRembolsoComprobaciones GvCxP.Visible = True - ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim)) + Dim FechaI As DateTime = If(String.IsNullOrEmpty(txtFechaI.Text.Trim()), ModExtensiones.MinFecha, txtFechaI.Text.ToDateTime()) + Dim FechaF As DateTime = If(String.IsNullOrEmpty(txtFechaF.Text.Trim()), ModExtensiones.MaxFecha, txtFechaF.Text.ToDateTime()) + + ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF) DtDatos = ObjMovtos.DtResultados GvCxP.DataSource = DtDatos From a719d101cbd0f39dc2687b963cc5f0dfb9bf9b21 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 29 Apr 2020 15:36:39 -0700 Subject: [PATCH 11/18] Validaciones correctas como en PV.aspx --- Inventarios/RecepcionUsados.aspx | 106 +++++++++++++++++++--------- Inventarios/RecepcionUsados.aspx.vb | 10 +++ 2 files changed, 81 insertions(+), 35 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx index 2a14c8eac..0a80a9302 100644 --- a/Inventarios/RecepcionUsados.aspx +++ b/Inventarios/RecepcionUsados.aspx @@ -353,13 +353,15 @@
    + +
    - + @@ -380,8 +382,8 @@
    - - + <%-- + --%>
    @@ -398,7 +400,7 @@
    - + <%----% <%----%> @@ -408,7 +410,7 @@
    - +
    @@ -419,7 +421,7 @@
    - + <%----%> <%----%> @@ -434,7 +436,7 @@ - +
    @@ -443,7 +445,7 @@
    - + <%----%> <%----%> @@ -452,7 +454,7 @@
    - + @@ -464,7 +466,7 @@
    - +
    @@ -472,7 +474,7 @@
    - + @@ -481,7 +483,7 @@
    - + @@ -500,15 +502,15 @@
    - +
    - - + +
    @@ -969,8 +971,7 @@
    - -
    +
    @@ -988,39 +989,27 @@
    - <%--
    - - - - - -
    --%> -
    +
    - -
    +


    -
    - -
    +
    - -
    +
    -
    @@ -1035,13 +1024,60 @@
    -