From 6bc0402e5a642799beadfcd6f01c8b9aa7848bf1 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 16 Jan 2024 21:40:39 -0700 Subject: [PATCH] =?UTF-8?q?--=20prep=C3=B3lizas=20de=20pago?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 51 ++++++++++--------------------------------- 1 file changed, 12 insertions(+), 39 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9282f899e..56ee46d7e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16051,8 +16051,8 @@ Partial Class Ventas importeMN = importeMovimiento * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal TC = TipoCambioFluctuacion ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 1 Then - importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal - importeMN = importeMovimiento + importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal + importeMN = importeMovimiento * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal TC = gvr.DataKey("TipoCambio").ToString().ToDecimal End If importeMovimiento = importeMovimiento.RoundSQL @@ -16064,7 +16064,7 @@ Partial Class Ventas Pago.Fecha = TxtFechaAnticipoCliente.Text.ToDate Pago.FechaDocumentoRelacionado = gvr.DataKey("Fecha").ToDate Pago.ImportePagoVenta = importeMovimiento - Pago.ImportePago = importeMovimiento + Pago.ImportePago = importeMN Pago.CveIE = CveIEAnticipo Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero() Pago.TCPago = gvr.DataKey("TipoCambio").ToDecimal @@ -16072,7 +16072,6 @@ Partial Class Ventas Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero() Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1" Pago.Referencia = gvr.DataKey("Folio") - 'Pago.CveConceptoPago = 251 ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta) End If @@ -19737,7 +19736,7 @@ Partial Class Ventas If DtMovimientos.Rows.Count > 0 Then Dim GeneroMovimientoAlmacen As Boolean = False - TieneMovimientosServicioDomicilio = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=29") > 0 + TieneMovimientosServicioDomicilio = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen IN (29,4)") > 0 TieneMovimientosSinCosto = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=26") > 0 @@ -19766,7 +19765,7 @@ Partial Class Ventas If (CveAlmacenEntrada > 0 AndAlso CveTipoAlmacen <> 1) Or RemisionesLista.Count = 0 Then 'Con remisiones parciales ignoramos las surtidas ya realizadas Dim MovDetalle As New DataTable - Dim AplicaMovimientoDetalleEntrada As Boolean = False + Dim AplicaMovimientoDetalleEntrada As Boolean = True If RemisionesLista.Count > 0 Then AplicaMovimientoDetalleEntrada = True @@ -19786,35 +19785,9 @@ Partial Class Ventas If ErrorList.Count = 0 AndAlso MovDetalle.Rows.Count > 0 Then Dim CveMovimientoSalidaPorTraspaso As Integer = -1 - Dim CveConceptoSalidaAlmacen As Integer = 3 - Dim CveAlmacenParaSalida As Integer = CveAlmacenEntrada + Dim CveConceptoSalidaAlmacen As Integer = 40 'SALIDA DEFINITIVA DEL SISTEMA + Dim CveAlmacenParaSalida As Integer = CveAlmacenSalida - 'SALIDA DEFINITIVA DEL SISTEMA - If UsuarioActual.Empresa.Funcionalidad(575) = "1" Then - CveConceptoSalidaAlmacen = 40 - CveAlmacenParaSalida = CveAlmacenSalida - AplicaMovimientoDetalleEntrada = True - Else - 'Le damos salida de apartado por traspaso - CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, ObjConta:=ObjConta) - - If Not CveMovimientoSalidaPorTraspaso > 0 Then - OcurrioError = True - Exit For - End If - - 'Le damos entrada al general por traspaso - If Not OcurrioError Then - GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, ObjConta:=ObjConta) > 0 - - If Not GeneroMovimientoAlmacen Then - OcurrioError = True - Exit For - End If - End If - - - End If 'Le damos salida normal If ConSalida AndAlso Not OcurrioError Then @@ -19976,7 +19949,7 @@ Partial Class Ventas If DtMovimientos.Rows.Count > 0 Then Dim GeneroMovimientoAlmacen As Boolean = False - TieneMovimientosServicioDomicilio = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=29") > 0 + TieneMovimientosServicioDomicilio = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen IN (29,4)") > 0 TieneMovimientosSinCosto = DtMovimientosDetalles.COUNT("CveTipoAlmacen", "CveTipoAlmacen=26") > 0 @@ -36393,10 +36366,10 @@ Partial Class Ventas Dim CveOsDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(ObjOrdenServicio.CveOS, CvePSDetalle, 1, -1, -1, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, Archivo:="") - If CveOsDetalle > 0 Then - MensajeAlert.AppendFormat(String.Format("
La Orden de Servicio: {0} se generó correctamente.
", ObjOrdenServicio.Folio)) - MensajeAlert.AppendFormat("
", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS))) - Else + If Not CveOsDetalle > 0 Then + ' MensajeAlert.AppendFormat(String.Format("
La Orden de Servicio: {0} se generó correctamente.
", ObjOrdenServicio.Folio)) + ' MensajeAlert.AppendFormat("
", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS))) + 'Else errorList.Add("Se presento un error al guardar la el detalle de la orden de servicio.") Errores = True End If