Merge branch 'master' of http://192.168.10.111:8383/SIG

Bancos/IE.aspx.vb

@@ -886,6 +886,10 @@ Partial Class Bancos_IE
                 RegistraScript("if($get('imgBuscarProveedor')) $get('imgBuscarProveedor').style.display='none';")
                 'DdlBanco.SelectedValue = ObjIE.CveBanco.ToString
 
+                'Abono  es Egreso Egs
+
+
+                CargaTipoTransaccion(If(Tipo = "Abono", "Egs", "Ing"))
                 DdlTipoTransaccion.SelectedValue = ObjIE.CveTipoTransaccion.ToString
 
 
@@ -1307,16 +1311,25 @@ Partial Class Bancos_IE
         GvRH.DataBind()
         UpGvRH.Update()
     End Sub
-    Private Sub CargaCorteCaja(CveCuenta As Integer)
+    Private Sub CargaCorteCaja()
         'Checar si hay un Turno Abierto
         Dim ObjPVenta As New ClsPuntoVenta
 
-        If ObjPVenta.GetCortesPorCuenta(CveCuenta, UsuarioActual.CveEmpresa) Then
-
-            CveCorte = ObjPVenta.CveCorte
-
+        If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                CveCorte = ObjPVenta.CveCorte
+            End If
         End If
         ObjPVenta.Dispose()
+
+        'Dim ObjPVenta As New ClsPuntoVenta
+
+        'If ObjPVenta.GetCortesPorCuenta(CveCuenta, UsuarioActual.CveEmpresa) Then
+
+        '    CveCorte = ObjPVenta.CveCorte
+
+        'End If
+        'ObjPVenta.Dispose()
     End Sub
 
 #Region "   CARGA PROVEEDOR   "
@@ -1671,7 +1684,7 @@ Partial Class Bancos_IE
 
             'PAGAR NC CON C.CH DEBE DESCONTAR EN EL CORTE 
             If Opcion IsNot Nothing AndAlso Opcion = "DevDinV" AndAlso dr("CveTipoCuenta").ToString.ToEntero = 1 Then
-                CargaCorteCaja(DdlCuenta.SelectedValue.ToEntero)
+                CargaCorteCaja()
             End If
 
             If dr("UsaTarjeta").ToString = "True" Then
@@ -1823,7 +1836,7 @@ Partial Class Bancos_IE
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
-    Private Sub CargaTipoTransaccion()
+    Private Sub CargaTipoTransaccion(Optional Tipo As String = "")
         Dim dt As DataTable
         If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then
             dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
@@ -1869,6 +1882,11 @@ Partial Class Bancos_IE
             DdlTipoTransaccion.DataSource = dt
         End If
 
+        If Tipo.Length > 0 Then
+            DdlTipoTransaccion.Items.Clear()
+            DdlTipoTransaccion.DataSource = dt.FiltraParametros($"Tipo = '{Tipo}' ")
+        End If
+
 
         DdlTipoTransaccion.DataBind()
         DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
@@ -1958,7 +1976,7 @@ Partial Class Bancos_IE
         cfdi.Nomina.NumDiasPagados = 1
         cfdi.Emisor.Nombre = UsuarioActual.Empresa.Empresa
         cfdi.Emisor.RFC = UsuarioActual.Empresa.RFC
-        cfdi.Emisor.RegistroPatronal = UsuarioActual.Empresa.RegistroPatronal
+        cfdi.Emisor.RegistroPatronal = objPersonal.DtResultados.Rows(0)("RegistroPatronal").ToString()
         cfdi.Emisor.RegimenFiscal = UsuarioActual.Empresa.CodigoRegimenFiscal
 
         'aplica persona fisica debe de tener CURP
@@ -2277,7 +2295,7 @@ Partial Class Bancos_IE
 
     '                    If Msg = String.Empty Then
     '                        'Nodo emisor
-    '                        Msg = CFDi.ObjCompNomina12.CargarEmisor("", UsuarioActual.Empresa.RegistroPatronal, UsuarioActual.Empresa.RFC)
+    '                        Msg = CFDi.ObjCompNomina12.CargarEmisor("", objPersonal.DtResultados.Rows(0)("RegistroPatronal").ToString(), UsuarioActual.Empresa.RFC)
     '                        'If Msg = String.Empty Then Msg = CFDi.EmisorRegimen(UsuarioActual.Empresa.CodigoRegimenFiscal)
     '                        If Msg = String.Empty Then
     '                            'Nodo Entidad SNCF
@@ -2613,7 +2631,7 @@ Partial Class Bancos_IE
 
             If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "ANTC" Then
                 If CveCliente > 0 Then
-                    CveConceptoCompra = 3 'Clientes
+                    CveConceptoCompra = 66 'Clientes
                     CveConceptoContable = 30 'Bancos
                     CvePlantillaPoliza = 12
                 End If