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

App_Code/ClsContabilidad.vb

@@ -1562,6 +1562,30 @@ Public Class ClsContabilidad
 
 #End Region
 
+
+    Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Conta_CuentasConceptosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoSaldo", SqlDbType.Int).Value = CveTipoSaldo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveCuentaBancos", SqlDbType.Int).Value = CveCuentaBancos
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener lod datos de Concepto Contables.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
 #Region " C O N T A B I L I D A D - T I P O - P O L I Z A "
     Public Function GetConta_TiposPoliza(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -4579,22 +4603,22 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetCuentasyConceptos(CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Conta_GetCuentasyConceptos")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
+    'Public Function GetCuentasyConceptos(CveCliente As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    DataAdapter("PA_Conta_GetCuentasyConceptos")
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+    '    End With
 
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al consultar las cuentas y conceptos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al consultar las cuentas y conceptos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
 
-        Return Retorno
-    End Function
+    '    Return Retorno
+    'End Function
 
     Public Function UpdateCuentaCompaq(CveCuenta As Integer, IdCompaq As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False

Bancos/IE.aspx.vb

@@ -984,7 +984,7 @@ Partial Class Bancos_IE
                 UPPDesContabilizar.Update()
 
                 'ImgImprimir.Visible = True
-                LblRegistroFecha.Text = ObjIE.FechaIng.ToShortDateString
+                LblRegistroFecha.Text = ObjIE.FechaIng.ToString
                 LblRegistroUsuario.Text = ObjIE.Usuario
 
                 CveEstatusIE = ObjIE.CveEstatusIE

General/SaldosIniciales.aspx.vb

@@ -1169,10 +1169,11 @@ Partial Class General_SaldosIniciales
                         '    Exit For
                         'End If
                     Else
+                        Dim CveSATEstado As Integer = GlobalDTEstado("MEX").FiltroPrimeroValor("CveSATEstado", String.Format("NombreEstado ='{0}'", Estado)).ToEntero
 
                         If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString, "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
                                    "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, LimiteCredito, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
-                                   BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI) Then
+                                   BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado) Then
 
                             ErrorClientes = True
                             RFC.GuardaLog
@@ -1251,7 +1252,7 @@ Partial Class General_SaldosIniciales
                     If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
                     If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1
 
-                    TipoDocto = IIf(TipoDocto = "Ingresos", "Fac", "NC").ToString
+                    TipoDocto = IIf(TipoDocto.ToUpper = "INGRESOS", "Fac", "NC").ToString
 
 
                     'Temporalmente SE BORRARA