varios

Bancos/IE.aspx.vb

@@ -1381,11 +1381,8 @@ Partial Class Bancos_IE
             Dim Banco As New ClsBancos
             Folio = Banco.GetNextFolio(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero)
             Banco.Dispose()
-            TxtFolio.Text = Folio.ToString
-
-            If Opcion = "DevDinC" Then
-                TxtFolio.Enabled = False
-            End If
+            TxtFolio.Text = Folio.ToString
+
         Else
             TxtFolio.Text = ""
         End If
@@ -2335,6 +2332,9 @@ Partial Class Bancos_IE
                     CveConceptoContable = 30 'Bancos
                     CvePlantillaPoliza = 12
                 End If
+            End If
+            If Opcion = "DevDinC" Then
+                CvePlantillaPoliza = 2
             End If
 
             'Cuando es Egreso sin factura, se registra una compra tipo anticipo
@@ -2689,10 +2689,12 @@ Partial Class Bancos_IE
                                         TipoMovtoIE = True
                                         Impo = Math.Abs(Impo)
                                         CveConcIE = 78
+                                        IdCtaContableAplicar = UsuarioActual.Empresa.IdCuentaOtrosIngresos
                                     Else
                                         TipoMovtoIE = False
                                         Impo = Math.Abs(Impo)
                                         CveConcIE = 211
+                                        IdCtaContableAplicar = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
                                     End If
 
                                     If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=Impo, ImporteME:=0) Then
@@ -2815,12 +2817,15 @@ Partial Class Bancos_IE
                                         TipoMovtoIE = True
                                         Impo = Math.Abs(Impo)
                                         CveConcIE = 78
+                                        IdCtaContableAplicar = UsuarioActual.Empresa.IdCuentaOtrosIngresos
                                     Else
                                         TipoMovtoIE = False
                                         Impo = Math.Abs(Impo)
                                         CveConcIE = 211
+                                        IdCtaContableAplicar = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
                                     End If
 
+
                                     If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
                                         MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                                         Exit Select