a

Contabilidad/RegPrePolizaS.aspx.vb

@@ -776,6 +776,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             dr("Referencia") = If(drt("CveConceptoContable").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
             dr("Concepto") = TxtConcepto.Text
             dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)
+            dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)
             dr("EsComodin") = EsComodin
             dr("CveConceptoContable") = drt("CveConceptoContable")
             dr("CveSubProyecto") = drt("CveSubProyectoNegativo")
@@ -1024,20 +1025,20 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
 
                         'Registra movimieno bancario
-                        If gvr.DataKey("CveConceptoContable").ToEntero = 30 Then
+                        If gvr.DataKey("CveConceptoContable") = "30" AndAlso Importe <> 0 Then
                             Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString
                             If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero)
 
-                            Dim tCveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda").ToEntero
+                            Dim tCveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=gvr.DataKey("ContadoCuenta").ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda").ToEntero
 
                             CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, tFolio,
-                                                       gvr.DataKey("ContadoBeneficiario"), Importe, tCveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "",
+                                                       gvr.DataKey("ContadoBeneficiario"), Importe, tCveMoneda, gvr.DataKey("TC").ToDecimal, gvr.DataKey("ContadoObservaciones"), "",
                                                        False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CveIE < 0 Then
                                 MsgError = "No se pudo registrar movimiento bancario"
                                 Exit For
                             Else
-                                If tFolio <> "0" Or tFolio <> "" Then
+                                If tFolio <> "0" OrElse tFolio <> "" Then
                                     FolioIE = tFolio
                                 Else
                                     FolioIE = ObjIE.Folio
@@ -1343,6 +1344,10 @@ Partial Class ContabilidadC_RegPrePolizaS
             TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario")
             TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
             TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
+            If GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta") <> "" Then
+                Dim tCveMon As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveCuenta = {GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta")}").ToEntero
+                DivModalConceptoTipoCambio.Visible = (tCveMon = 2)
+            End If
 
         End If
 
@@ -1377,16 +1382,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlTipoGastoE.DataBind()
         DdlTipoGastoE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
     End Sub
-    'Private Sub CargaCtaContableE()
-    '    Dim ObjConta As New ClsContabilidad
-    '    If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
-    '        DdlCuentaContableE.DataSource = ObjConta.DtResultados
-    '    End If
-    '    ObjConta.Dispose()
-
-    '    DdlCuentaContableE.DataBind()
-    '    DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
-    'End Sub
 
 
     Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged
@@ -1434,10 +1429,6 @@ Partial Class ContabilidadC_RegPrePolizaS
             AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString)
             AplicaComplementaria = Boolean.Parse(DT_Concepto.Rows(0)("EsComplementaria").ToString)
 
-
-
-
-
             'AplicaME = Boolean.Parse(DT_Concepto.Rows(0)("EsMonedaExtranjera").ToString)
 
 
@@ -1507,9 +1498,9 @@ Partial Class ContabilidadC_RegPrePolizaS
             End If
 
             If AplicaTC Then
-                DVmodalConceptoTipoCambio.Visible = True
+                DivModalConceptoTipoCambio.Visible = True
             Else
-                DVmodalConceptoTipoCambio.Visible = False
+                DivModalConceptoTipoCambio.Visible = False
             End If
 
             If AplicaComplementaria Then
@@ -2722,6 +2713,17 @@ Partial Class ContabilidadC_RegPrePolizaS
         If TxtAbonoE.Text.ToDecimal <> 0 Then CargaModalConceptoTipoTransaccion("Egs")
     End Sub
 
+    Private Sub DdlModalConceptoCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlModalConceptoCuenta.SelectedIndexChanged
+        Dim tCveMon As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveCuenta = {DdlModalConceptoCuenta.SelectedValue}").ToEntero
 
+        If tCveMon = 2 Then
+            DivMonedaExtranjera.Visible = True
+            DivModalConceptoTipoCambio.Visible = True
+        Else
+            DivMonedaExtranjera.Visible = False
+            DivModalConceptoTipoCambio.Visible = False
+        End If
+        UpModalConcepto.Update()
+    End Sub
 End Class