mejoras en cambio de clientes, que se refleje en la remisión

Transportes/RepContratoDetalle.aspx.vb

@@ -140,6 +140,18 @@ Partial Class RepContratoDetalle
             ViewState("CveMonedaOriginal") = value
         End Set
     End Property
+    Private Property CveClienteOriginal As Integer
+        Get
+            If ViewState("CveClienteOriginal") Is Nothing Then
+                ViewState("CveClienteOriginal") = -1
+            End If
+            Return ViewState("CveClienteOriginal").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveClienteOriginal") = value
+        End Set
+    End Property
 
 
     Private Property ImporteOrigial As Decimal
@@ -357,6 +369,7 @@ Partial Class RepContratoDetalle
 
                 CveSubProyectoOriginal = drc("CveSubProyecto").ToString.ToEntero
                 CveMonedaOriginal = drc("CveMoneda").ToString.ToEntero
+                CveClienteOriginal = drc("CveCliente").ToString.ToEntero
                 ImporteOrigial = Importe
                 DescripcionOriginal = drc("DescripcionContrato").ToString
                 TipoAFOriginal = DdlTipoAF.SelectedItem.Text
@@ -601,10 +614,11 @@ Partial Class RepContratoDetalle
                       ImporteOrigial <> TxtImporte.Text.ToDecimal OrElse
                       DescripcionOriginal <> TxtDescripcion.Text OrElse
                       TipoAFOriginal <> DdlTipoAF.SelectedItem.Text OrElse
-                        FolioOriginal <> TxtFolio.Text.Trim) Then
+                        FolioOriginal <> TxtFolio.Text.Trim OrElse
+                        CveClienteOriginal <> DdlClientes.SelectedValue.ToEntero) Then
 
                 Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}"
-                If Not UpdateRemision(ObjContratos.IniciaTransacSQL(), DdlSubProyecto.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, ObsRemisionPartida) Then
+                If Not UpdateRemision(ObjContratos.IniciaTransacSQL(), DdlSubProyecto.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, ObsRemisionPartida, DdlClientes.SelectedValue.ToEntero) Then
                     ErrorProceso = True
                 End If
             End If
@@ -653,7 +667,7 @@ Partial Class RepContratoDetalle
 
     End Sub
 
-    Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String) As Boolean
+    Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String, CveClienteNew As Integer) As Boolean
 
         Dim Respuesta As Boolean = False
         Dim TmpDT As DataTable = New DataTable
@@ -675,12 +689,9 @@ Partial Class RepContratoDetalle
             PorcentajeIVA = ObjVentas.DtResultados.MAX("PorcentajeIVA").ToDecimal
 
             If PorcentajeIVA > 0 Then
-
                 IVANew = (TotalNew * (PorcentajeIVA * 100)) / (100 + (PorcentajeIVA * 100))
                 SubTotalNew = TotalNew - IVANew
-
             End If
-
         End If
 
         If TmpDT Is Nothing OrElse TmpDT.Rows.Count = 0 Or FechaVenta = MinFecha Then
@@ -697,7 +708,7 @@ Partial Class RepContratoDetalle
                                       UsuarioActual.CveEmpresa, CveVentaRemision,
                                       Vigencia:=FechaVenta, CondicionesPago:=-1,
                                       PedidoContrato:="-1", AtencionA:="-1", CveMetodoPago33:=-1,
-                                      CveFormaPago33:=-1, TipoDocto:="Rem", CveCliente:=-1, CveClienteSucursal:=-1,
+                                      CveFormaPago33:=-1, TipoDocto:="Rem", CveCliente:=CveClienteNew, CveClienteSucursal:=-1,
                                       OrdenCompra:="-1", RetIVA:=0, RetISR:=0, Kilometraje:=0D, CveUsoCFDi:=-1,
                                       CveVendedor:=-1, ServicioDomicilio:=False, CveMedico:=-1, CveProcedimiento:=-1,
                                       FechaParaSurtir:=MinFecha, Paciente:="-1", Episodio:="-1", CveCondicionEntrega:=-1, FolioRemision:="-1") Then
@@ -721,7 +732,6 @@ Partial Class RepContratoDetalle
 
             If Not OcurrioError Then
                 Dim DTPrePoliza As New DataTable
-
                 If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                     DTPrePoliza = ObjConta.DtResultados
                     If DTPrePoliza.Rows.Count = 0 Then
@@ -733,8 +743,7 @@ Partial Class RepContratoDetalle
                 End If
 
                 For Each dRow As DataRow In DTPrePoliza.Rows
-
+                    If Not ObjConta.UpdatePrePolizasDetalle(dRow("CvePrePolizaDetalle").ToString.ToEntero, dRow("Concepto").ToString, dRow("CveSubProyecto").ToString.ToEntero, -1, Boolean.Parse(dRow("TipoMovto").ToString), ImporteMN:=TotalNew, Importe:=TotalNew, TipoCambio:=TC, CveCliente:=CveClienteNew) Then
-                    If Not ObjConta.UpdatePrePolizasDetalle(dRow("CvePrePolizaDetalle").ToString.ToEntero, dRow("Concepto").ToString, dRow("CveSubProyecto").ToString.ToEntero, -1, Boolean.Parse(dRow("TipoMovto").ToString), ImporteMN:=TotalNew, Importe:=TotalNew, TipoCambio:=TC) Then
                         OcurrioError = True
                         Exit For
                     End If
@@ -765,6 +774,7 @@ Partial Class RepContratoDetalle
             DescripcionOriginal = TxtDescripcion.Text
             TipoAFOriginal = DdlTipoAF.SelectedItem.Text
             FolioOriginal = TxtFolio.Text.Trim
+            CveClienteOriginal = DdlClientes.SelectedValue.ToEntero
             Return True
         End If
     End Function