From c88ce4f24ddc4afa6f34de46b3f7b80a0fa37c7d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 23 May 2022 14:18:16 -0700
Subject: [PATCH] -- mejora en TC

---
 Contabilidad/RegPrePolizaS.aspx.vb | 33 ++++++++++++++++++++----------
 1 file changed, 22 insertions(+), 11 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 536dc89fc..55c7ad886 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1257,12 +1257,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
 
         TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.00")
-        DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
-        DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
-        TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
-        TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario")
-        TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
-        TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
 
         TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero
 
@@ -1307,11 +1301,22 @@ Partial Class ContabilidadC_RegPrePolizaS
             TxtAbonoE.Text = Abono
         End If
 
-        If Abono = 0 Then
-            CargaModalConceptoTipoTransaccion("Ing")
-        Else
-            CargaModalConceptoTipoTransaccion("Egs")
+        If CveConceptoContable = 30 Then
+            If Abono = 0 Then
+                CargaModalConceptoTipoTransaccion("Ing")
+            Else
+                CargaModalConceptoTipoTransaccion("Egs")
+            End If
+            DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
+            DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
+            TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
+            TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario")
+            TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
+            TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
+
         End If
+
+
         UpModalConcepto.Update()
 
     End Sub
@@ -1644,12 +1649,18 @@ Partial Class ContabilidadC_RegPrePolizaS
             dr("Modificado") = True
             dr("TC") = TxtTipoCambio.Text.ToDecimal
 
+            dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
+            dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
+            dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
+            dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
+            dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
+            dr("ContadoImporte") = dr("ImporteMN").ToString
+
             If DrConceptoContable IsNot Nothing Then
                 dr("EsComplementaria") = DrConceptoContable("EsComplementaria")
                 dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera")
 
                 If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal
-
             End If
 
             If DdlPorcentajeIVAE.Visible Then