Aplicar CveSubProyecto a conceptos 69,177,64,65,211

2020-09-22 16:01:24 -07:00
parent e5522d8787
commit 33d1348d1f
14 changed files with 649 additions and 485 deletions
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -816,13 +816,17 @@ Partial Class ContabilidadC_RegPrePolizaS
                            TipoMovto = False
                        End If

-                        If CveConcepto = 41 Then
-                            CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
-                        Else
-                            CveIE = -1
-                        End If
-
-
+                        If CveConcepto <> 30 Then
+
+                            If CveConcepto = 41 Then
+                                CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
+                            Else
+                                CveIE = -1
+                            End If
+
+                        End If
+
+
                        If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
                            idCuentaContabilizacion = 0
                        End If