Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Bancos/IE.aspx.vb

@@ -1311,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   "
@@ -1675,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
@@ -1967,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
@@ -2286,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