Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -305,7 +305,7 @@ Public Class CFDINominaReceptor
|
||||
Public Property Departamento As String = ""
|
||||
Public Property Puesto As String = ""
|
||||
Public Property CodigoRiesgoPuesto As String = ""
|
||||
Public Property TipoPeriodo As String = ""
|
||||
Public Property PeriodicidadPago As String = ""
|
||||
Public Property CodigoBanco As String = ""
|
||||
Public Property NumeroCuenta As String = ""
|
||||
Public Property SDI As Decimal = 0
|
||||
|
||||
@@ -137,7 +137,7 @@ Public Class LogicNominas
|
||||
Dim Departamento As String = ""
|
||||
Dim Puesto As String = ""
|
||||
Dim CveSATRiesgoPuesto As String = ""
|
||||
Dim TipoPeriodoPago As String = ""
|
||||
Dim PeriodicidadPago As String = ""
|
||||
Dim ClaveBanco As String = ""
|
||||
Dim BancoNumCuenta As String = ""
|
||||
Dim SDI As Decimal = 0
|
||||
@@ -203,7 +203,7 @@ Public Class LogicNominas
|
||||
Departamento = objPersonal.Departamento
|
||||
Puesto = objPersonal.Puesto
|
||||
CveSATRiesgoPuesto = objPersonal.CveSATRiesgoPuesto.ToString()
|
||||
TipoPeriodoPago = objPersonal.TipoPeriodoPago
|
||||
|
||||
'If Not MetodoPagoFijo Then
|
||||
' ClaveBanco = objPersonal.ClaveBanco
|
||||
' BancoNumCuenta = objPersonal.BancoNumCuenta
|
||||
@@ -213,7 +213,6 @@ Public Class LogicNominas
|
||||
SalarioDiarioSS = objPersonal.SalarioDiarioSS
|
||||
ClaveEstado = objPersonal.ClaveEstado
|
||||
|
||||
AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, Now).ToEntero()
|
||||
FormatoReciboCFDi = objPersonal.FormatoReciboCFDi
|
||||
Else
|
||||
If continuar Then GetError = "No se pudo obtener la información del empleado" 'si continuar= true el error se origino en este nodo y le asigno el error
|
||||
@@ -266,6 +265,8 @@ Public Class LogicNominas
|
||||
|
||||
FechaFin = DrPeriodo("FechaFin").ToString().ToDate()
|
||||
FechaPago = DrPeriodo("FechaPago").ToString().ToDate()
|
||||
PeriodicidadPago = DrPeriodo("ClavePerioricidadPago").ToString()
|
||||
AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, FechaFin).ToEntero()
|
||||
|
||||
If Not TimbreIndemnizacion Then
|
||||
FechaInicio = DrPeriodo("FechaInicio").ToString().ToDate()
|
||||
@@ -491,7 +492,7 @@ Public Class LogicNominas
|
||||
cfdi.Nomina.Receptor.Departamento = Departamento
|
||||
cfdi.Nomina.Receptor.Puesto = Puesto
|
||||
cfdi.Nomina.Receptor.CodigoRiesgoPuesto = CveSATRiesgoPuesto.ToString()
|
||||
cfdi.Nomina.Receptor.TipoPeriodo = TipoPeriodoPago
|
||||
cfdi.Nomina.Receptor.PeriodicidadPago = PeriodicidadPago
|
||||
cfdi.Nomina.Receptor.CodigoBanco = ClaveBanco
|
||||
cfdi.Nomina.Receptor.NumeroCuenta = BancoNumCuenta
|
||||
cfdi.Nomina.Receptor.SDI = SDI
|
||||
|
||||
@@ -516,7 +516,7 @@ Public Class Timbrado
|
||||
Dim UrlServicio As String = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL"
|
||||
Dim AmbienteProductivo As Boolean = True
|
||||
|
||||
If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 Then
|
||||
If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then
|
||||
UsuarioServicio = "fgomez"
|
||||
ClaveServicio = "12121212"
|
||||
Clave = "12345678a"
|
||||
@@ -713,12 +713,15 @@ Public Class Timbrado
|
||||
Dim UsuarioServicio As String = "rene.molina@adssistemas.mx"
|
||||
Dim ClaveServicio As String = "Facturacion2021#"
|
||||
|
||||
If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 Then
|
||||
EmisorRFC = "ZUÑ920208KL4"
|
||||
ArchivoLLave = $"{Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key"
|
||||
ArchivoCertificado = $"{Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.cer"
|
||||
If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then
|
||||
EmisorRFC = "EKU9003173C9"
|
||||
ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key"
|
||||
ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer"
|
||||
|
||||
Clave = "12345678a"
|
||||
TimbraProduccion = False
|
||||
UsuarioServicio = "UserTest"
|
||||
ClaveServicio = "1234567890"
|
||||
End If
|
||||
|
||||
Dim llaveByte As Byte(), certByte As Byte()
|
||||
@@ -1325,7 +1328,7 @@ Public Class Timbrado
|
||||
|
||||
If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
|
||||
|
||||
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
|
||||
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then
|
||||
AmbienteProductivo = False
|
||||
Clave = "12345678a"
|
||||
EmisorRFC = "EKU9003173C9"
|
||||
@@ -1362,7 +1365,7 @@ Public Class Timbrado
|
||||
Dim cfdi As New Profact.TimbraCFDI40.Conector(AmbienteProductivo)
|
||||
Dim comprobante As New Profact.TimbraCFDI40.Comprobante()
|
||||
|
||||
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
|
||||
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then
|
||||
cfdi.EstableceCredenciales("mvpNUXmQfK8=")
|
||||
Else
|
||||
cfdi.EstableceCredenciales($"vSGxMFWnNRy/nDoowxqrqw==|Sia123654")
|
||||
@@ -2326,7 +2329,7 @@ Public Class Timbrado
|
||||
Nom.Receptor.Puesto = ObjCFDITimbre.Nomina.Receptor.Puesto
|
||||
Nom.Receptor.RiesgoPuestoSpecified = True
|
||||
Nom.Receptor.RiesgoPuesto = ObjCFDITimbre.Nomina.Receptor.CodigoRiesgoPuesto
|
||||
Nom.Receptor.PeriodicidadPago = ObjCFDITimbre.Nomina.Receptor.TipoPeriodo
|
||||
Nom.Receptor.PeriodicidadPago = ObjCFDITimbre.Nomina.Receptor.PeriodicidadPago
|
||||
If ObjCFDITimbre.Nomina.Receptor.CodigoBanco <> "" AndAlso ObjCFDITimbre.Nomina.Receptor.NumeroCuenta <> "" Then
|
||||
Nom.Receptor.BancoSpecified = True
|
||||
Nom.Receptor.Banco = ObjCFDITimbre.Nomina.Receptor.CodigoBanco
|
||||
@@ -2403,30 +2406,62 @@ Public Class Timbrado
|
||||
FolioFiscal = resultadoTimbre.FolioUUID
|
||||
If FolioFiscal <> "" Then
|
||||
resultadoTimbre.GuardaXml(RutaArchivo, NombreArchivoXML)
|
||||
'----------------------
|
||||
|
||||
If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
|
||||
Select Case ObjCFDITimbre.Comprobante.TipoComprobante
|
||||
Case "N"
|
||||
Using ObjNomina2 As New ClsNominas()
|
||||
|
||||
'Actualiza Estatus Factura
|
||||
If Ventas.CveVenta > 0 Then
|
||||
If ObjNomina2.UpdateEstatusNomNominas(3, UsuarioActual.Empresa.CvePAC, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then
|
||||
Retorno = ""
|
||||
Else
|
||||
Retorno = "Error"
|
||||
End If
|
||||
End Using
|
||||
|
||||
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", Now, Ventas.CveVenta, CvePAC:=UsuarioActual.Empresa.CvePAC, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then
|
||||
Case "T"
|
||||
Dim objGrales As New ClsGenerales
|
||||
If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
|
||||
Retorno = ""
|
||||
Else
|
||||
Retorno = "Error"
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
objGrales.Dispose()
|
||||
|
||||
Using ObjInv As New ClsInventarios()
|
||||
If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
|
||||
Retorno = ""
|
||||
Else
|
||||
Retorno = "Error"
|
||||
End If
|
||||
End Using
|
||||
Case Else
|
||||
|
||||
''Actualiza Cliente (NumeroCuenta)
|
||||
'If Not UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
||||
' Dim Hilo2 As New System.Threading.Thread(Sub() ActualizaCliente(UsuarioActual.CveUsuario, Ventas.Cliente.NumCtaPago, Ventas.CveMetodoPago, Ventas.CveCliente))
|
||||
' Hilo2.Start()
|
||||
'End If
|
||||
'Actualiza Estatus Factura
|
||||
If Ventas.CveVenta > 0 Then
|
||||
|
||||
End If
|
||||
End If
|
||||
Using ObjVentas As New ClsVentas()
|
||||
|
||||
If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=UsuarioActual.Empresa.CvePAC, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then
|
||||
Retorno = ""
|
||||
Else
|
||||
Retorno = "Error"
|
||||
End If
|
||||
End Using
|
||||
|
||||
'Genero la addenda Ford
|
||||
If Ventas.Cliente.Ford_GSDB <> "" Then
|
||||
|
||||
Dim RutaCadena As String = String.Format("{0}{1}.xml", RutaArchivo, NombreArchivoXML) 'If(UsuarioActual.Empresa.FacturaProduccion, String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.SerieFolio), String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.TipoDocto, Ventas.SerieFolio))
|
||||
|
||||
Dim FolioFactura As String = ""
|
||||
If UsuarioActual.CveEmpresa = 8 Then FolioFactura = Ventas.Folio.ToString ' sogo, pordefault manda el folio de la factura
|
||||
GeneraAddendaFord(RutaCadena, FolioFactura, Ventas.FordASN, Ventas.FordGSDB)
|
||||
|
||||
End If
|
||||
End If
|
||||
End Select
|
||||
'----------------------
|
||||
|
||||
If Not IO.Directory.Exists($"{UsuarioActual.Empresa.Ruta}CBB\") Then IO.Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}CBB\")
|
||||
|
||||
@@ -2445,25 +2480,6 @@ Public Class Timbrado
|
||||
|
||||
End If
|
||||
|
||||
If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then
|
||||
Dim objGrales As New ClsGenerales
|
||||
If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
|
||||
Retorno = ""
|
||||
Else
|
||||
Retorno = "Error"
|
||||
End If
|
||||
objGrales.Dispose()
|
||||
|
||||
Using ObjInv As New ClsInventarios()
|
||||
If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
|
||||
Retorno = ""
|
||||
Else
|
||||
Retorno = "Error"
|
||||
End If
|
||||
End Using
|
||||
|
||||
End If
|
||||
|
||||
'Pendiente. Ruta guardar archivos
|
||||
sw.Stop()
|
||||
swTiempo.AppendFormat("Actualizado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
|
||||
@@ -2950,7 +2966,7 @@ Public Class Timbrado
|
||||
ObjCFDITimbre.Nomina.Receptor.Departamento,
|
||||
ObjCFDITimbre.Nomina.Receptor.Puesto,
|
||||
ObjCFDITimbre.Nomina.Receptor.CodigoRiesgoPuesto,
|
||||
If(ObjCFDITimbre.Nomina.TipoNomina = "E", "99", ObjCFDITimbre.Nomina.Receptor.TipoPeriodo),
|
||||
ObjCFDITimbre.Nomina.Receptor.PeriodicidadPago,
|
||||
ObjCFDITimbre.Nomina.Receptor.CodigoBanco,
|
||||
ObjCFDITimbre.Nomina.Receptor.NumeroCuenta,
|
||||
ObjCFDITimbre.Nomina.Receptor.SBC,
|
||||
@@ -3075,18 +3091,18 @@ Public Class Timbrado
|
||||
|
||||
UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL"
|
||||
|
||||
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
|
||||
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then
|
||||
|
||||
EmisorRFC = "EKU9003173C9"
|
||||
UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
|
||||
ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
|
||||
ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
|
||||
ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key"
|
||||
ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer"
|
||||
|
||||
Clave = "12345678a"
|
||||
TimbraProduccion = False
|
||||
UsuarioServicio = "UserTest"
|
||||
ClaveServicio = "1234567890"
|
||||
|
||||
UsuarioActual.Empresa.CodigoRegimenFiscal = "601"
|
||||
End If
|
||||
|
||||
#Region "Valida"
|
||||
@@ -3298,15 +3314,18 @@ Public Class Timbrado
|
||||
If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
|
||||
|
||||
|
||||
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
|
||||
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then
|
||||
|
||||
EmisorRFC = "EKU9003173C9"
|
||||
UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
|
||||
ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
|
||||
ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
|
||||
ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key"
|
||||
ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer"
|
||||
|
||||
Clave = "12345678a"
|
||||
TimbraProduccion = False
|
||||
UsuarioServicio = "UserTest"
|
||||
ClaveServicio = "1234567890"
|
||||
|
||||
End If
|
||||
|
||||
#Region "Valida"
|
||||
|
||||
@@ -821,7 +821,7 @@
|
||||
<i class="fa fa-user font-yellow-gold"></i>
|
||||
<span class="caption-subject bold font-black uppercase">Trabajador : </span>
|
||||
<asp:Label ID="LblCodigoEmpleado" runat="server"></asp:Label>
|
||||
<asp:HyperLink ID="LblEmpleado" runat="server" Text=""></asp:HyperLink>
|
||||
<asp:HyperLink ID="LblEmpleado" runat="server" CssClass="Texto" Text=""></asp:HyperLink>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
@@ -3348,7 +3348,7 @@
|
||||
</div>
|
||||
|
||||
<div id="DModalNominas" class="modal ADS fade" role="dialog">
|
||||
<asp:UpdatePanel ID="UpCargarNomina" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<asp:UpdatePanel ID="UpCargarNomina" class="modal-dialog modal-lg" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-content rowpadding">
|
||||
<div class="modal-header">
|
||||
@@ -3359,26 +3359,13 @@
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-download font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Paso 1: Descargar plantilla</span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body rowpadding " id="showConceptos">
|
||||
<div class="row">
|
||||
<div class="col-xs-1"></div>
|
||||
<div class="col-xs-10">
|
||||
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="row">
|
||||
<div class="col-md-8">
|
||||
<div class="portlet light xspadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-download font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Conceptos</span>
|
||||
<span class="caption-subject bold uppercase">Paso 1: Descargar plantilla Conceptos</span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
@@ -3414,11 +3401,30 @@
|
||||
<asp:LinkButton ID="LnkFormato" OnClick="LnkFormato_Click" CssClass="btn btn-success" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-4">
|
||||
<div class="portlet light xspadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-upload font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Paso 2: cargar plantilla </span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body rowpadding ">
|
||||
<asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class=" text-right">
|
||||
<asp:CheckBox ID="ChkRecalcularNomina" Text="¿Volver a calcular la nómina?" runat="server" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<%-- -recuerda Solo editar de las tercer fila en adelante.<br />
|
||||
-No se debe editar el nombre de la hoja 'Nómina'.<br />
|
||||
-la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.<br />
|
||||
@@ -3426,23 +3432,7 @@
|
||||
-si no desea insertar un concepto puede borrar la columna.<br />
|
||||
-no se debe borrar la columna código.<br />--%>
|
||||
|
||||
<div class="portlet light smmallpadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="fa fa-upload font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Paso 2: cargar plantilla </span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body rowpadding ">
|
||||
<asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class=" text-right">
|
||||
<asp:CheckBox ID="ChkRecalcularNomina" Text="¿Volver a calcular la nómina?" runat="server" />
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
@@ -1434,7 +1434,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
||||
LogicNominas lognom = new LogicNominas();
|
||||
|
||||
string Msg = "";
|
||||
Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, UsuarioActual.Empresa.CvePAC);
|
||||
Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, CvePAC: UsuarioActual.Empresa.CvePAC);
|
||||
|
||||
if (Msg != null && Msg.Length > 0)
|
||||
{
|
||||
@@ -1851,9 +1851,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
||||
protected void BtnCancelarDocumento_Click(object sender, EventArgs e)
|
||||
{
|
||||
int CveNomina = CveNominaCancelar;
|
||||
|
||||
|
||||
|
||||
|
||||
if (CveNomina > 0)
|
||||
{
|
||||
|
||||
|
||||
@@ -417,10 +417,17 @@
|
||||
<div class='portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom <%= clasegrid %>'>
|
||||
|
||||
<%--DataKeyNames="Periodo,Version CFDI,Version Nómina,UUID,UUIDs relacionados,Tipo relacion,Tipo nomina,Serie,Folio,Fecha emision,Fecha certificacion,Fecha cancelacion,Fecha pago,Fecha inicial pago,Fecha final pago,Dias pagados,RFC emisor,Razon emisor,Registro patronal,RFC receptor,Razon receptor,Fecha inicio relacion laboral,Tipo contrato,Tipo jornada,Tipo regimen,Num empleado,Antiguedad,Sindicalizado,ClaveEntFed,Banco,Cuenta bancaria,CURP,No Seguro social,Departamento,Puesto,Periodicidad pago,Salario base cot apor,Salario diario integrado,Estado"--%>
|
||||
<asp:GridView ID="GVSolicitudTimbreNominaGral" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVSolicitudTimbreNominaGral" AutoGenerateColumns="true">
|
||||
<Columns></Columns>
|
||||
<asp:GridView ID="GVSolicitudTimbreNominaGral" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVSolicitudTimbreNominaGral" OnRowDataBound="GVSolicitudTimbreNominaGral_RowDataBound" AutoGenerateColumns="true">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton runat="server" ID="BtnCancelar" OnClick="BtnCancelar_Click" Visible="false" CssClass="btn btn-circle btn-sm btn-xs red mysmallbtn" Text="<i class='fa fa-ban'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar la nómina?" data-btn-ok-label="si" ></asp:LinkButton>
|
||||
<asp:CheckBox ID="ChkC" runat="server" Visible="false" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
<asp:LinkButton runat="server" ID="BtnCancelarMasivo" OnClick="BtnCancelarMasivo_Click" Visible="false" CssClass="btn btn-circle btn-sm btn-xs red mysmallbtn" Text="<i class='fa fa-ban'></i> Cancelar solo en SAT" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar la nómina?" data-btn-ok-label="si" ></asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
using System;
|
||||
using DocumentFormat.OpenXml.Wordprocessing;
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Data;
|
||||
using System.Linq;
|
||||
@@ -10,7 +11,7 @@ using System.Threading.Tasks;
|
||||
using System.Web;
|
||||
using System.Web.UI;
|
||||
using System.Web.UI.WebControls;
|
||||
using Extensiones;
|
||||
using static Extensiones.ModExtensiones;
|
||||
|
||||
|
||||
public partial class SAT_SolicitudesNominaSat : ClsPaginas
|
||||
@@ -30,7 +31,7 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
|
||||
{
|
||||
get
|
||||
{
|
||||
if (ViewState["fechaInicio"] == null) { return ModExtensiones.MinFecha; }
|
||||
if (ViewState["fechaInicio"] == null) { return MinFecha; }
|
||||
else { return ViewState["fechaInicio"].ToString().ToDate(); }
|
||||
}
|
||||
set { ViewState["fechaInicio"] = value; }
|
||||
@@ -39,7 +40,7 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
|
||||
{
|
||||
get
|
||||
{
|
||||
if (ViewState["fechaFin"] == null) { return ModExtensiones.MaxFecha; }
|
||||
if (ViewState["fechaFin"] == null) { return MaxFecha; }
|
||||
else { return ViewState["fechaFin"].ToString().ToDate(); }
|
||||
}
|
||||
set { ViewState["fechaFin"] = value; }
|
||||
@@ -155,6 +156,16 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
|
||||
|
||||
}
|
||||
|
||||
if (DdlReporte.SelectedValue == "3")
|
||||
{
|
||||
GVSolicitudTimbreNominaGral.DataKeyNames = new string[] { "UUID", "RFCReceptor", "Total" };
|
||||
BtnCancelarMasivo.Visible = true;
|
||||
}
|
||||
else
|
||||
{
|
||||
GVSolicitudTimbreNominaGral.DataKeyNames = null;
|
||||
BtnCancelarMasivo.Visible = false;
|
||||
}
|
||||
|
||||
nom.SATSolicitudTimbreNominaGral(DdlReporte.SelectedValue.ToString().ToEntero(), UsuarioActual.CveEmpresa, fechaInicio, fechaFin, DdlTipoNomina.SelectedValue.ToEntero(), DdlRegimenContratacion.SelectedValue.ToEntero());
|
||||
GVSolicitudTimbreNominaGral.DataSource = nom.DtResultados;
|
||||
@@ -221,7 +232,7 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
|
||||
//RegistraScript("$('#DModalSolicitudesNominas').modal('hide');");
|
||||
RegistraScript("$('#ModalAgregarSolicitud').modal('hide');");
|
||||
cargasolicitudes();
|
||||
Alert("se a envia la solicitud al sat, le enviaremos un correo en cuanto tengamos una respuesta", ModExtensiones.TipoMensaje.ToastInformacion);
|
||||
Alert("se a envia la solicitud al sat, le enviaremos un correo en cuanto tengamos una respuesta", TipoMensaje.ToastInformacion);
|
||||
}
|
||||
}
|
||||
|
||||
@@ -234,6 +245,60 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas
|
||||
cargasolicitudes();
|
||||
|
||||
}
|
||||
|
||||
protected void BtnCancelar_Click(object sender, EventArgs e)
|
||||
{
|
||||
|
||||
GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
|
||||
string FolioFiscal = GvRow.DataKey("UUID");
|
||||
string RFCReceptor = GvRow.DataKey("RFCReceptor");
|
||||
decimal Total = GvRow.DataKey("Total").ToDecimal();
|
||||
int CveMotivoCancelacion = 3; // no se llevó a cabo //get_GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltroPrimeroValor ("CveMotivoCancelacion", "CveSATMotivoCancelacion IN (2,3)").ToEntero();
|
||||
|
||||
Timbrado ObjTimbrado = new Timbrado();
|
||||
var resultado = ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC, 4, CveSATMotivoCancelacion: CveMotivoCancelacion);
|
||||
if (resultado != null)
|
||||
{
|
||||
Alert("Folio Fiscal Cancelado", TipoMensaje.MsgInformacion);
|
||||
}
|
||||
}
|
||||
|
||||
protected void BtnCancelarMasivo_Click(object sender, EventArgs e)
|
||||
{
|
||||
StringBuilder sb = new StringBuilder();
|
||||
foreach (GridViewRow GvRow in GVSolicitudTimbreNominaGral.Rows)
|
||||
{
|
||||
if (GvRow.FCCheckBox("ChkC").Checked)
|
||||
{
|
||||
string FolioFiscal = GvRow.DataKey("UUID");
|
||||
string RFCReceptor = GvRow.DataKey("RFCReceptor");
|
||||
decimal Total = GvRow.DataKey("Total").ToDecimal();
|
||||
int CveMotivoCancelacion = 3; // no se llevó a cabo //get_GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltroPrimeroValor ("CveMotivoCancelacion", "CveSATMotivoCancelacion IN (2,3)").ToEntero();
|
||||
|
||||
Timbrado ObjTimbrado = new Timbrado();
|
||||
var resultado = ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC, 4, CveSATMotivoCancelacion: CveMotivoCancelacion);
|
||||
if (resultado != null)
|
||||
{
|
||||
GvRow.FCCheckBox("ChkC").Checked = false;
|
||||
sb.AppendFormat("UUID: {0}<br/>", FolioFiscal);
|
||||
}
|
||||
}
|
||||
}
|
||||
if (sb.Length > 0)
|
||||
{
|
||||
Alert("Folios Cancelados: <br/><br/>" + sb.ToString() , TipoMensaje.MsgInformacion);
|
||||
}
|
||||
}
|
||||
|
||||
protected void GVSolicitudTimbreNominaGral_RowDataBound(object sender, GridViewRowEventArgs e)
|
||||
{
|
||||
//solo cuando es vista por recibo, y que no esté en sig
|
||||
if (DdlReporte.SelectedValue == "3" && e.Row.RowType == DataControlRowType.DataRow && e.Row.DBCampo("SIG") =="NO")
|
||||
{
|
||||
//e.Row.FCLinkButton("BtnCancelar").Visible = true;
|
||||
e.Row.FCCheckBox("ChkC").Visible = true;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
public class GeneralesAPI : ADSNetLibrary.Helpers.Conexiones.SIGAPI.BaseSIGAPI
|
||||
|
||||
@@ -76,7 +76,7 @@
|
||||
<asp:HiddenField ID="HiddenField2" runat="server" ClientIDMode="Static" Value="0" />
|
||||
<div>
|
||||
<asp:GridView ID="GvDatos" runat="server" data-sort="true" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveClasificacion, CveCategoria, Clasificacion, UsoClasificacion, CuentaGasto, CuentaCostos, CuentaIngresos, IdCuentaGasto, IdCuentaCostos, IdCuentaIngresos,RequiereSerieLote,CveSATPS,SATClaveProductoServicio, RequiereAFCompra, RequiereAFInsumo, RequierePersonal, Estatus,EsAcumulador,TopVentas,TopCompras,PrecioBaseCosto,CveCuentaAsignacionGasto" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
|
||||
DataKeyNames="CveClasificacion, CveCategoria, Clasificacion, UsoClasificacion, CuentaGasto, CuentaCostos, CuentaIngresos, IdCuentaGasto, IdCuentaCostos, IdCuentaIngresos,RequiereSerieLote,CveSATPS,SATClaveProductoServicio, RequiereAFCompra, RequiereAFInsumo, RequierePersonal, Estatus,EsAcumulador,TopVentas,TopCompras,PrecioBaseCosto,CveCuentaAsignacionGasto, CveCuentaGasto" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Clasificación">
|
||||
<ItemTemplate>
|
||||
@@ -233,13 +233,13 @@
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group input-iconright" id="DivCuentaCostos" runat="server">
|
||||
<div class="form-group input-iconright" id="DivCuentaCostos" visible="false" runat="server">
|
||||
<label for="<%= DdlCuentaCostos.ClientID.ToString()%>" style="color: #888888; font-size: 13px;">Cuenta Costos:</label>
|
||||
<asp:DropDownList ID="DdlCuentaCostos" CssClass="form-control input-sm js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="340px"></asp:DropDownList>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group input-iconright" id="DivCuentaIngresos" runat="server">
|
||||
<div class="form-group input-iconright" id="DivCuentaIngresos" visible="false" runat="server">
|
||||
<label for="<%= DdlCuentaIngresos.ClientID.ToString()%>" style="color: #888888; font-size: 13px;">Cuenta Ingresos:</label>
|
||||
<asp:DropDownList ID="DdlCuentaIngresos" CssClass="form-control input-sm js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="340px"></asp:DropDownList>
|
||||
</div>
|
||||
|
||||
@@ -109,25 +109,15 @@ Partial Class CatClasificaciones
|
||||
End If
|
||||
UpModalClasif.Update()
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
|
||||
|
||||
''COMENTADO DF 30 JUNIO 2017
|
||||
'Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
'If Cuenta.GetCuentas(-1, "-1", 1, 20000) Then
|
||||
' DtCuentas = Cuenta.DtResultados
|
||||
'End If
|
||||
'Cuenta.Dispose()
|
||||
Else
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
DivCuentaIngresos.Visible = False
|
||||
DivCuentaCostos.Visible = False
|
||||
DivCuentaGasto.Visible = False
|
||||
|
||||
GvDatos.Columns(1).Visible = False
|
||||
GvDatos.Columns(2).Visible = False
|
||||
GvDatos.Columns(3).Visible = False
|
||||
End If
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
DivCuentaIngresos.Visible = False
|
||||
DivCuentaCostos.Visible = False
|
||||
'DivCuentaGasto.Visible = False
|
||||
|
||||
' GvDatos.Columns(1).Visible = False
|
||||
GvDatos.Columns(2).Visible = False
|
||||
GvDatos.Columns(3).Visible = False
|
||||
End If
|
||||
|
||||
DdlCuentaGasto.Items.Insert(0, New ListItem("-", "-1"))
|
||||
@@ -174,6 +164,7 @@ Partial Class CatClasificaciones
|
||||
If DdlCuentaCostos.SelectedValue.ToEntero > 0 Then objConta.AddCuentasAsignaciones(69, UsuarioActual.CveEmpresa, DdlCuentaCostos.SelectedValue.ToEntero, CveClasificacion:=ObjClasificaciones.CveClasificacion)
|
||||
If DdlCuentaIngresos.SelectedValue.ToEntero > 0 Then objConta.AddCuentasAsignaciones(4, UsuarioActual.CveEmpresa, DdlCuentaIngresos.SelectedValue.ToEntero, CveClasificacion:=ObjClasificaciones.CveClasificacion)
|
||||
End If
|
||||
ObjClasificaciones.Commit()
|
||||
TxtClasificacion.Text = ""
|
||||
TxtPrecioBaseCosto.Text = ""
|
||||
DdlCuentaGasto.SelectedValueExist("0")
|
||||
@@ -181,6 +172,9 @@ Partial Class CatClasificaciones
|
||||
DdlCuentaIngresos.SelectedValueExist("0")
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones"))
|
||||
Alert("La nueva Clasificación se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrió un error al agregar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
ObjClasificaciones.RollBack()
|
||||
End If
|
||||
|
||||
ElseIf HdnModalidadClasificacion.Value = "U" Then
|
||||
@@ -226,14 +220,12 @@ Partial Class CatClasificaciones
|
||||
|
||||
DdlCuentaGasto.DataValueField = "CveCuenta"
|
||||
DdlCuentaGasto.DataTextField = "Cuenta"
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||
DtCuentasContables = ObjContabilidad.DtResultados
|
||||
'Cuenta, CtaCodigo
|
||||
DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
|
||||
End If
|
||||
ObjContabilidad.Dispose()
|
||||
ElseIf UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
|
||||
DtCuentasContables = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
|
||||
'Cuenta, CtaCodigo
|
||||
DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
|
||||
|
||||
ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
|
||||
Dim ObjEmpresa As New ClsSisEmpresas
|
||||
Dim Empresa As Empresa = Nothing
|
||||
@@ -319,7 +311,7 @@ Partial Class CatClasificaciones
|
||||
If e.Row.DBCampo("CuentaIngresos") = "Seleccione" Or e.Row.DBCampo("CuentaIngresos") = "" Then e.Row.FCLabel("LtlCuentaIngresos").Text = "-"
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
|
||||
If UsuarioActual.Empresa.UsaContabilidad Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||
e.Row.FCLabel("LtlClasificacion").Text = String.Format("<a Class='Texto' href='/Ventas/CatClasificacionesDetalle.aspx?CveClasificacion={0}'>{1}</a>", e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("Clasificacion"))
|
||||
End If
|
||||
|
||||
@@ -328,18 +320,15 @@ Partial Class CatClasificaciones
|
||||
|
||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim ObjClasificaciones As New ClsClasificaciones
|
||||
|
||||
If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
|
||||
CargaDatos()
|
||||
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjClasificaciones.Dispose()
|
||||
CargaGrid()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -420,7 +409,14 @@ Partial Class CatClasificaciones
|
||||
If CuentaGasto.Length > 1 And CargaGastos Then
|
||||
DdlCuentaGasto.Items.Insert(0, New ListItem(CuentaGasto, CveCuentaGastoActual.ToString))
|
||||
DdlCuentaGasto.SelectedIndex = 0
|
||||
CargaGastos = False
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
DdlCuentaGasto.Items.Clear() : DdlCuentaGasto.Items.Add(New ListItem("-", "-1"))
|
||||
'DdlCuentaGasto.Text = ""
|
||||
DdlCuentaGasto.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1) : DdlCuentaGasto.DataBind()
|
||||
DdlCuentaGasto.SelectedValueExist(GvRow.DataKey("CveCuentaGasto"))
|
||||
End If
|
||||
|
||||
Else
|
||||
DdlCuentaGasto.SelectedValueExist(CveCuentaGastoActual)
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user