From a4c3f342351667d29ee7aa75e81f724c7274bb24 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 7 Apr 2022 00:06:26 -0700 Subject: [PATCH 1/2] =?UTF-8?q?Movimiento=20relacionado=20al=20realizar=20?= =?UTF-8?q?devoluci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Modelos.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 28d1e9af0..7167697c1 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5215,15 +5215,18 @@ Namespace Modelos Dim CveMovimientoDevolucion As Integer = 0 Dim Folio As Integer = 0 + Dim CveMovimientoSalida As Integer = -1 + Select Case RowMovimiento("CveConcepto").ToString().ToEntero() Case 3 CveConceptoMovimiento = 18 'DEVOLUCION DEL CLIENTE CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero() + CveMovimientoSalida = RowMovimiento("CveMovimiento").ToString().ToEntero() Case 40 CveConceptoMovimiento = 41 'DEVOLUCIÓN DEL CLIENTE DIRECTA CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero() Case 18 - CveConceptoMovimiento = 3 'DEVOLUCIÓN DEL CLIENTE DIRECTA + CveConceptoMovimiento = 3 'SALIDA DE ALMACEN CveAlmacenMovimiento = RowMovimiento("CveAlmacen").ToString().ToEntero() ''SI TIENE REMISIONES RELACIONADAS 'If DtRemisionesFacturadas.Rows.Count > 0 Then @@ -5248,7 +5251,7 @@ Namespace Modelos 'SI TIENE SALDO PENDIENTE POR DEVOLVER GENERA UN MOVIMIENTO DE DEVOLUCION If ObjFactura.SaldoAlmacen <> 0 Then 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN) - CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenMovimiento, CveConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, Modulo:="Mod/CV1") + CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenMovimiento, CveConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="Mod/CV1") Folio = ObjInventario.Folio If CveMovimientoDevolucion > 0 Then From cc41def1b3e44b1d7c49cbf5e511d0e2f46f8da6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 7 Apr 2022 00:06:58 -0700 Subject: [PATCH 2/2] =?UTF-8?q?Correcci=C3=B3n=20del=20merge=20de=20ventas?= =?UTF-8?q?.aspx?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 356268c07..6625018cb 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -33945,6 +33945,21 @@ Partial Class Ventas End Sub + Protected Sub RdTipoPersona_SelectedIndexChanged(sender As Object, e As EventArgs) + + DVRegimenSociedad.Visible = False + DivRazonSocial2.Attributes.Add("class", "col-md-12") + + If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + + DivRazonSocial2.Attributes.Add("class", "col-md-8") + DVRegimenSociedad.Visible = True + + End If + + UpAgregarCliente.Update() + End Sub + #Region "C A R T A - P O R T E" Public Sub CargaDireccionCP()