Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -806,7 +806,13 @@ Public Class ClsCRM
|
|||||||
SqlAdapter.Fill(Data)
|
SqlAdapter.Fill(Data)
|
||||||
Retorno = True
|
Retorno = True
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
OnError("Ocurrió un error al eliminar el Acercamiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
If ex.Message.Contains("CveVenta = ") Then
|
||||||
|
Dim CveVenta As String = ex.Message
|
||||||
|
CveVenta = CveVenta.Substring(11, 8)
|
||||||
|
Alert(String.Format("Este acercamiento esta ligado a una cotización <br/> <b> Cotización: </b> <a href='/Ventas/Ventas.aspx?CveVenta={0}'>{0}</a>", CveVenta), TipoMensaje.MsgAdvertencia)
|
||||||
|
Else
|
||||||
|
OnError("Ocurrió un error al eliminar el Acercamiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||||
|
End If
|
||||||
End Try
|
End Try
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
End Function
|
||||||
|
|||||||
@@ -196,7 +196,7 @@ Public Class ClsCompras
|
|||||||
Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1,
|
Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1,
|
||||||
Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
|
Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
|
||||||
Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1,
|
Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1,
|
||||||
Optional CveContrato As Integer = -1) As Boolean
|
Optional CveContrato As Integer = -1, Optional EsImportacion As Boolean = False) As Boolean
|
||||||
|
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
@@ -248,6 +248,8 @@ Public Class ClsCompras
|
|||||||
.Add("@CveTipoConcepto", SqlDbType.Int).Value = CveTipoConcepto
|
.Add("@CveTipoConcepto", SqlDbType.Int).Value = CveTipoConcepto
|
||||||
.Add("@CveFactura", SqlDbType.Int).Value = CveFactura
|
.Add("@CveFactura", SqlDbType.Int).Value = CveFactura
|
||||||
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
|
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
|
||||||
|
.Add("@EsImportacion", SqlDbType.Bit).Value = EsImportacion
|
||||||
|
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|||||||
@@ -7282,19 +7282,21 @@ Public Class ClsContPAQi
|
|||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, SegmentoNegocio As Integer) As Boolean
|
Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, SegmentoNegocio As Integer, Optional CveEmpresa As Integer = -1) As Boolean
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
StrSQL.Clear()
|
StrSQL.Clear()
|
||||||
StrSQL.Append(" SELECT P.Id, P.Fecha, T.Nombre AS TipoPol, P.Concepto, P.Cargos, P.Abonos, P.Folio ")
|
StrSQL.Append(" SELECT P.Id, P.Fecha, T.Nombre AS TipoPol, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ")
|
||||||
StrSQL.Append(" FROM [dbo].[Polizas] P ")
|
StrSQL.Append(" FROM [dbo].[Polizas] P ")
|
||||||
StrSQL.Append(" LEFT JOIN TiposPolizas T ON T.Id = P.TipoPol ")
|
StrSQL.Append(" LEFT JOIN TiposPolizas T ON T.Id = P.TipoPol ")
|
||||||
StrSQL.Append(" LEFT JOIN MovimientosPoliza M ON M.IdPoliza = P.Id ")
|
StrSQL.Append(" LEFT JOIN MovimientosPoliza M ON M.IdPoliza = P.Id ")
|
||||||
|
StrSQL.Append(" LEFT JOIN [SERVIDOR].[Ventas].dbo.Conta_PrePolizas PP on P.Id = PP.IdPoliza")
|
||||||
StrSQL.Append(" WHERE P.Ejercicio = @Ejercicio ")
|
StrSQL.Append(" WHERE P.Ejercicio = @Ejercicio ")
|
||||||
StrSQL.Append(" AND P.Periodo = @Periodo ")
|
StrSQL.Append(" AND P.Periodo = @Periodo ")
|
||||||
StrSQL.Append(" AND (@TipoPoliza = -1 OR P.TipoPol = @TipoPoliza) ")
|
StrSQL.Append(" AND (@TipoPoliza = -1 OR P.TipoPol = @TipoPoliza) ")
|
||||||
StrSQL.Append(" AND (@SegmentoNegocio = -1 OR M.IdSegNeg = @SegmentoNegocio) ")
|
StrSQL.Append(" AND (@SegmentoNegocio = -1 OR M.IdSegNeg = @SegmentoNegocio) ")
|
||||||
StrSQL.Append(" GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio ")
|
StrSQL.Append(" AND (PP.CveEmpresa = @CveEmpresa) ")
|
||||||
|
StrSQL.Append(" GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ")
|
||||||
StrSQL.Append(" ORDER BY P.Folio ")
|
StrSQL.Append(" ORDER BY P.Folio ")
|
||||||
|
|
||||||
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
||||||
@@ -7305,6 +7307,8 @@ Public Class ClsContPAQi
|
|||||||
.Add("@Periodo", SqlDbType.Int).Value = Periodo
|
.Add("@Periodo", SqlDbType.Int).Value = Periodo
|
||||||
.Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
|
.Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
|
||||||
.Add("@SegmentoNegocio", SqlDbType.Int).Value = SegmentoNegocio
|
.Add("@SegmentoNegocio", SqlDbType.Int).Value = SegmentoNegocio
|
||||||
|
.Add("@CveEmpresa", SqlDbType.Int).Value = SegmentoNegocio
|
||||||
|
|
||||||
End With
|
End With
|
||||||
Try
|
Try
|
||||||
SqlAdapter.Fill(Data)
|
SqlAdapter.Fill(Data)
|
||||||
|
|||||||
@@ -6474,7 +6474,7 @@ Public Class ClsPaginas
|
|||||||
If Vta.SubProyecto.CP.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", Vta.SubProyecto.CP)
|
If Vta.SubProyecto.CP.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", Vta.SubProyecto.CP)
|
||||||
If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
|
If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
|
||||||
If Vta.SubProyecto.Pais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", Vta.SubProyecto.Pais)
|
If Vta.SubProyecto.Pais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", Vta.SubProyecto.Pais)
|
||||||
If Not String.IsNullOrEmpty(Vta.SubProyecto.Telefono) AndAlso UsuarioActual.CveEmpresa = 141 Then SBDomicilioSucursal.AppendFormat(", Tel: {0}", Vta.SubProyecto.Telefono)
|
If Not String.IsNullOrEmpty(Vta.SubProyecto.Telefono) AndAlso UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162) Then SBDomicilioSucursal.AppendFormat(", Tel: {0}", Vta.SubProyecto.Telefono)
|
||||||
|
|
||||||
DomicilioSucursal = SBDomicilioSucursal.ToString
|
DomicilioSucursal = SBDomicilioSucursal.ToString
|
||||||
|
|
||||||
@@ -6719,7 +6719,7 @@ Public Class ClsPaginas
|
|||||||
params.Add(New ReportParameter("ClienteTelefono", Vta.ClienteSucursal.TelefonoSucursal))
|
params.Add(New ReportParameter("ClienteTelefono", Vta.ClienteSucursal.TelefonoSucursal))
|
||||||
ElseIf Vta.CveCliente.ToEntero > 0 Then
|
ElseIf Vta.CveCliente.ToEntero > 0 Then
|
||||||
params.Add(New ReportParameter("ClienteContactoMail", Vta.Cliente.MailCotizacion))
|
params.Add(New ReportParameter("ClienteContactoMail", Vta.Cliente.MailCotizacion))
|
||||||
params.Add(New ReportParameter("ClienteTelefono", If(Vta.TipoDocto.Contiene("Ing", "Rem") AndAlso Vta.Cliente.RFC = "XAXX010101000", Vta.TelefonoGenerico, Vta.Cliente.Telefono)))
|
params.Add(New ReportParameter("ClienteTelefono", If(Vta.TipoDocto.Contiene("Ing", "Rem") AndAlso Vta.Cliente.Telefono.Length > 6, Vta.TelefonoGenerico, Vta.Cliente.Telefono)))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa.Contiene(17) Then
|
If UsuarioActual.CveEmpresa.Contiene(17) Then
|
||||||
|
|||||||
@@ -1742,7 +1742,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
|||||||
Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String,
|
Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String,
|
||||||
NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
|
NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
|
||||||
CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
|
CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
|
||||||
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1) As Boolean
|
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False) As Boolean
|
||||||
|
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
@@ -1823,7 +1823,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
|||||||
.Add("@TelefonoMarcadoRapido", SqlDbType.VarChar).Value = TelefonoMarcadoRapido
|
.Add("@TelefonoMarcadoRapido", SqlDbType.VarChar).Value = TelefonoMarcadoRapido
|
||||||
.Add("@ContactoAlterno", SqlDbType.VarChar).Value = ContactoAlterno
|
.Add("@ContactoAlterno", SqlDbType.VarChar).Value = ContactoAlterno
|
||||||
.Add("@CveTipodeSalario", SqlDbType.Int).Value = CveTipodeSalario
|
.Add("@CveTipodeSalario", SqlDbType.Int).Value = CveTipodeSalario
|
||||||
|
.Add("@Sindicalizado", SqlDbType.Bit).Value = Sindicalizado
|
||||||
|
|
||||||
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
|
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
|
||||||
|
|
||||||
End With
|
End With
|
||||||
@@ -1855,7 +1856,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
|||||||
NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
|
NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
|
||||||
CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
|
CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
|
||||||
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
|
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
|
||||||
Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1) As Boolean
|
Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1) As Boolean
|
||||||
|
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
@@ -1940,7 +1941,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
|||||||
.Add("@FechaActivo", SqlDbType.Date).Value = FechaActivo
|
.Add("@FechaActivo", SqlDbType.Date).Value = FechaActivo
|
||||||
.Add("@FechaReingreso", SqlDbType.Date).Value = FechaReingreso
|
.Add("@FechaReingreso", SqlDbType.Date).Value = FechaReingreso
|
||||||
.Add("@CveTipodeSalario", SqlDbType.Int).Value = CveTipodeSalario
|
.Add("@CveTipodeSalario", SqlDbType.Int).Value = CveTipodeSalario
|
||||||
|
.Add("@Sindicalizado", SqlDbType.Int).Value = Sindicalizado
|
||||||
|
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|||||||
@@ -88,6 +88,7 @@ Public Class LogicNominas
|
|||||||
Dim NombreCompleto As String = ""
|
Dim NombreCompleto As String = ""
|
||||||
|
|
||||||
Dim CURP As String = ""
|
Dim CURP As String = ""
|
||||||
|
Dim Sindicalizado As Boolean = False
|
||||||
Dim NumeroSS As String = ""
|
Dim NumeroSS As String = ""
|
||||||
Dim FechaInicioContrato As String = ""
|
Dim FechaInicioContrato As String = ""
|
||||||
Dim CodigoTipoContrato As String = ""
|
Dim CodigoTipoContrato As String = ""
|
||||||
@@ -101,6 +102,7 @@ Public Class LogicNominas
|
|||||||
Dim ClaveBanco As String = ""
|
Dim ClaveBanco As String = ""
|
||||||
Dim BancoNumCuenta As String = ""
|
Dim BancoNumCuenta As String = ""
|
||||||
Dim SDI As Double = 0
|
Dim SDI As Double = 0
|
||||||
|
Dim SalarioDiarioSS As Double = 0
|
||||||
Dim ClaveEstado As String = ""
|
Dim ClaveEstado As String = ""
|
||||||
|
|
||||||
Dim ObjIncapacidades As New List(Of CFDINominaIncapacidades)
|
Dim ObjIncapacidades As New List(Of CFDINominaIncapacidades)
|
||||||
@@ -120,6 +122,7 @@ Public Class LogicNominas
|
|||||||
RFC = objPersonal.RFC
|
RFC = objPersonal.RFC
|
||||||
NombreCompleto = objPersonal.NombreCompleto
|
NombreCompleto = objPersonal.NombreCompleto
|
||||||
|
|
||||||
|
Sindicalizado = objPersonal.DtResultados.Rows(0)("Sindicalizado").ToString().ToUpper().Contiene("TRUE", "1")
|
||||||
CURP = objPersonal.CURP
|
CURP = objPersonal.CURP
|
||||||
NumeroSS = objPersonal.NumeroSS
|
NumeroSS = objPersonal.NumeroSS
|
||||||
FechaInicioContrato = objPersonal.FechaInicioContrato.ToString()
|
FechaInicioContrato = objPersonal.FechaInicioContrato.ToString()
|
||||||
@@ -134,6 +137,7 @@ Public Class LogicNominas
|
|||||||
ClaveBanco = objPersonal.ClaveBanco
|
ClaveBanco = objPersonal.ClaveBanco
|
||||||
BancoNumCuenta = objPersonal.BancoNumCuenta
|
BancoNumCuenta = objPersonal.BancoNumCuenta
|
||||||
SDI = objPersonal.SDI
|
SDI = objPersonal.SDI
|
||||||
|
SalarioDiarioSS = objPersonal.SalarioDiarioSS
|
||||||
ClaveEstado = objPersonal.ClaveEstado
|
ClaveEstado = objPersonal.ClaveEstado
|
||||||
|
|
||||||
AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, Now).ToEntero()
|
AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, Now).ToEntero()
|
||||||
@@ -368,8 +372,8 @@ Public Class LogicNominas
|
|||||||
cfdi.Nomina.Receptor.CodigoBanco = ClaveBanco
|
cfdi.Nomina.Receptor.CodigoBanco = ClaveBanco
|
||||||
cfdi.Nomina.Receptor.NumeroCuenta = BancoNumCuenta
|
cfdi.Nomina.Receptor.NumeroCuenta = BancoNumCuenta
|
||||||
cfdi.Nomina.Receptor.SDI = SDI
|
cfdi.Nomina.Receptor.SDI = SDI
|
||||||
cfdi.Nomina.Receptor.SBC = SDI
|
cfdi.Nomina.Receptor.SBC = SalarioDiarioSS
|
||||||
cfdi.Nomina.Receptor.Sindicalizado = ""
|
cfdi.Nomina.Receptor.Sindicalizado = If(Sindicalizado, "Si", "No")
|
||||||
cfdi.Nomina.Receptor.CodigoEntidadFederativa = ClaveEstado
|
cfdi.Nomina.Receptor.CodigoEntidadFederativa = ClaveEstado
|
||||||
|
|
||||||
cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.Subtotal, .Importe = cfdi.Comprobante.Subtotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()})
|
cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.Subtotal, .Importe = cfdi.Comprobante.Subtotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()})
|
||||||
|
|||||||
@@ -256,30 +256,89 @@
|
|||||||
|
|
||||||
function FnSuma(chk, cantidad) {
|
function FnSuma(chk, cantidad) {
|
||||||
var saldoInicial = ToDouble($('#C_lblValorTotal').text());
|
var saldoInicial = ToDouble($('#C_lblValorTotal').text());
|
||||||
|
var ValorTotalSeleccionado2 = 0;
|
||||||
|
|
||||||
|
$('#C_GvFacturas input[type=checkbox]').each(
|
||||||
|
function () {
|
||||||
|
if (this.checked) {
|
||||||
|
ValorTotalSeleccionado2 = ValorTotalSeleccionado2 + ToDouble(FormatoNumero($(this).val(), 2));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
);
|
||||||
|
|
||||||
|
ValorTotalSeleccionado = ValorTotalSeleccionado2;
|
||||||
|
|
||||||
if (chk.checked == false) {
|
if (chk.checked == false) {
|
||||||
cantidad = cantidad * -1;
|
cantidad = cantidad * -1;
|
||||||
}
|
}
|
||||||
saldoInicial = saldoInicial + cantidad;
|
saldoInicial = saldoInicial + cantidad;
|
||||||
$('#C_lblValorTotal').text(FormatoNumero(saldoInicial, 2));
|
$('#C_lblValorTotal').text(FormatoNumero(saldoInicial, 2));
|
||||||
$('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldoInicial, 2));
|
$('#C_lblValorTotalSeleccionado').text(FormatoNumero(ValorTotalSeleccionado, 2));
|
||||||
ValorTotalSeleccionado = saldoInicial
|
debugger;
|
||||||
|
|
||||||
|
|
||||||
|
if ($('#C_ChkFaltante').attr('checked')) {
|
||||||
|
var txtcomision = ToDouble($('#C_TxtComision').val());
|
||||||
|
if (txtcomision != 0) {
|
||||||
|
var comisionNegativa = 0;
|
||||||
|
if (txtcomision < 0) {
|
||||||
|
comisionNegativa = txtcomision * -1;
|
||||||
|
}
|
||||||
|
if (comisionNegativa > saldo) {
|
||||||
|
$('#C_TxtComision').val(0);
|
||||||
|
comision = 0;
|
||||||
|
descuento = 0;
|
||||||
|
txtcomision = 0;
|
||||||
|
alert("No es posible poner un importe Faltante/Sobrante superior a lo seleccionado");
|
||||||
|
saldo = 0;
|
||||||
|
$('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
|
||||||
|
debugger;
|
||||||
|
} else {
|
||||||
|
|
||||||
|
//debugger;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($('#C_ChkDescuento').attr('checked')) {
|
||||||
|
var txtdescuento = ToDouble($('#C_TxtDescuento').val());
|
||||||
|
if (txtdescuento != 0) {
|
||||||
|
var DescuentoNegativa = 0;
|
||||||
|
if (txtdescuento < 0) {
|
||||||
|
DescuentoNegativa = txtdescuento * -1;
|
||||||
|
}
|
||||||
|
if (DescuentoNegativa > saldo) {
|
||||||
|
$('#C_TxtDescuento').val(0);
|
||||||
|
comision = 0;
|
||||||
|
descuento = 0;
|
||||||
|
txtdescuento = 0;
|
||||||
|
alert("No es posible poner un descuento superior a lo seleccionado");
|
||||||
|
saldo = 0;
|
||||||
|
$('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
|
||||||
|
debugger;
|
||||||
|
} else {
|
||||||
|
//saldo = ValorTotalSeleccionado + txtdescuento + comision;
|
||||||
|
//$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
|
||||||
|
//descuento = ToDouble($('#C_TxtDescuento').val())
|
||||||
|
//debugger;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
function txtSuma(txt) {
|
function txtSuma(txt) {
|
||||||
var comision2 = ToDouble($('#C_TxtComision').val());
|
var comision2 = ToDouble($('#C_TxtComision').val());
|
||||||
var comisionNegativa = 0;
|
var comisionNegativa = 0;
|
||||||
if (comision2 < 0) {
|
if (comision2 < 0) {
|
||||||
comisionNegativa = comision2 * -1
|
comisionNegativa = comision2 * -1;
|
||||||
}
|
}
|
||||||
if (comisionNegativa > ValorTotalSeleccionado) {
|
if (comisionNegativa > ValorTotalSeleccionado) {
|
||||||
$('#C_TxtComision').val(comision)
|
$('#C_TxtComision').val(0)
|
||||||
alert("No es posible poner una comision superior a lo seleccionado")
|
alert("No es posible poner una comision superior a lo seleccionado")
|
||||||
} else {
|
} else {
|
||||||
saldo = ValorTotalSeleccionado + comision2 + descuento;
|
saldo = ValorTotalSeleccionado + comision2 + descuento;
|
||||||
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
|
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
|
||||||
comision = ToDouble($('#C_TxtComision').val())
|
comision = ToDouble($('#C_TxtComision').val())
|
||||||
debugger;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
@@ -288,7 +347,7 @@
|
|||||||
var comision2 = ToDouble($('#C_TxtDescuento').val());
|
var comision2 = ToDouble($('#C_TxtDescuento').val());
|
||||||
var comisionNegativa = 0;
|
var comisionNegativa = 0;
|
||||||
if (comision2 < 0) {
|
if (comision2 < 0) {
|
||||||
comisionNegativa = comision2 * -1
|
comisionNegativa = comision2 * -1;
|
||||||
}
|
}
|
||||||
if (comisionNegativa > ValorTotalSeleccionado) {
|
if (comisionNegativa > ValorTotalSeleccionado) {
|
||||||
$('#C_TxtDescuento').val(descuento)
|
$('#C_TxtDescuento').val(descuento)
|
||||||
@@ -297,7 +356,6 @@
|
|||||||
saldo = ValorTotalSeleccionado + comision2 + comision;
|
saldo = ValorTotalSeleccionado + comision2 + comision;
|
||||||
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
|
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
|
||||||
descuento = ToDouble($('#C_TxtDescuento').val())
|
descuento = ToDouble($('#C_TxtDescuento').val())
|
||||||
debugger;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
@@ -311,7 +369,7 @@
|
|||||||
$('#divClasificacion').css("display", "block");
|
$('#divClasificacion').css("display", "block");
|
||||||
} else {
|
} else {
|
||||||
$('#DivComision').css("display", "none");
|
$('#DivComision').css("display", "none");
|
||||||
$('#divSubProyecto').css("display", "none");
|
$('#LblSubproyecto').css("display", "none");
|
||||||
$('#divSubProyecto').css("display", "none");
|
$('#divSubProyecto').css("display", "none");
|
||||||
$('#LblClasificacion').css("display", "none");
|
$('#LblClasificacion').css("display", "none");
|
||||||
$('#divClasificacion').css("display", "none");
|
$('#divClasificacion').css("display", "none");
|
||||||
|
|||||||
@@ -148,11 +148,11 @@ Partial Class Bancos_DepositosCaja
|
|||||||
NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
'Entrada a bancos
|
'Entrada a bancos
|
||||||
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 8)
|
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 13)
|
||||||
If Not FolioIE > 0 Then
|
If Not FolioIE > 0 Then
|
||||||
OcurrioError = True
|
OcurrioError = True
|
||||||
End If
|
End If
|
||||||
CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 8, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 13, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
documentos += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Depósito: {1}</a>     <br/> ", CveIEOrigen, FolioIE)
|
documentos += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Depósito: {1}</a>     <br/> ", CveIEOrigen, FolioIE)
|
||||||
|
|
||||||
@@ -253,6 +253,8 @@ Partial Class Bancos_DepositosCaja
|
|||||||
Protected Sub GvFacturas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFacturas.RowDataBound
|
Protected Sub GvFacturas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFacturas.RowDataBound
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
e.Row.FCCheckBox("ChkFactura").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Importe")))
|
e.Row.FCCheckBox("ChkFactura").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Importe")))
|
||||||
|
e.Row.FCCheckBox("ChkFactura").InputAttributes.Add("Value", e.Row.DBCampo("Importe"))
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
@@ -30,6 +30,9 @@
|
|||||||
<li>
|
<li>
|
||||||
<asp:HyperLink ID="HLModalActualizarTC" NavigateUrl="#" runat="server" Visible="false" data-toggle="modal" data-target="#ModalActualizarTC" Style="color: #686868;"><i class="fa fa-usd" style="color:#686868;"></i> Actualizar Tipo Cambio</asp:HyperLink>
|
<asp:HyperLink ID="HLModalActualizarTC" NavigateUrl="#" runat="server" Visible="false" data-toggle="modal" data-target="#ModalActualizarTC" Style="color: #686868;"><i class="fa fa-usd" style="color:#686868;"></i> Actualizar Tipo Cambio</asp:HyperLink>
|
||||||
</li>
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:HyperLink ID="HpLPrePoliza" NavigateUrl="#" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-usd" style="color:#686868;"></i> PrePoliza</asp:HyperLink>
|
||||||
|
</li>
|
||||||
|
|
||||||
<%-- <li>
|
<%-- <li>
|
||||||
<asp:LinkButton ID="LnkEmitirComplemento" runat="server" Style="color: #686868;" Visible="false"><i class="fa fa-file-text-o" style="color:#686868;"></i> Emitir Complemento de Pago</asp:LinkButton>
|
<asp:LinkButton ID="LnkEmitirComplemento" runat="server" Style="color: #686868;" Visible="false"><i class="fa fa-file-text-o" style="color:#686868;"></i> Emitir Complemento de Pago</asp:LinkButton>
|
||||||
|
|||||||
@@ -863,6 +863,8 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
LblCuenta.Text = ObjIE.BancoNumCuentaMoneda
|
LblCuenta.Text = ObjIE.BancoNumCuentaMoneda
|
||||||
ViewState("CvePrePoliza") = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
|
ViewState("CvePrePoliza") = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
|
||||||
|
HpLPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePoliza.aspx?CvePrepoliza={0}", ViewState("CvePrePoliza"))
|
||||||
|
HpLPrePoliza.Visible = True
|
||||||
TxtFechaDocumento.Text = ObjIE.FechaDocumento.ToShortDateString
|
TxtFechaDocumento.Text = ObjIE.FechaDocumento.ToShortDateString
|
||||||
TxtFolio.Text = ObjIE.Folio
|
TxtFolio.Text = ObjIE.Folio
|
||||||
LblBeneficiario.Text = ObjIE.PagueseA
|
LblBeneficiario.Text = ObjIE.PagueseA
|
||||||
|
|||||||
@@ -47,8 +47,7 @@ Partial Class Bancos_PopIECompras
|
|||||||
Set(value As Integer)
|
Set(value As Integer)
|
||||||
ViewState("CveCompra") = value
|
ViewState("CveCompra") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Private Property CveTipoConcepto As Integer
|
Private Property CveTipoConcepto As Integer
|
||||||
Get
|
Get
|
||||||
Return ViewState("CveTipoConcepto").ToString.ToEntero
|
Return ViewState("CveTipoConcepto").ToString.ToEntero
|
||||||
@@ -474,6 +473,21 @@ Partial Class Bancos_PopIECompras
|
|||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
Private Property EsImportacion As Boolean
|
||||||
|
Get
|
||||||
|
|
||||||
|
If ViewState("EsImportacion") Is Nothing Then
|
||||||
|
Return False
|
||||||
|
Else
|
||||||
|
Return CBool(ViewState("EsImportacion"))
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
ViewState("EsImportacion") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -735,6 +749,7 @@ Partial Class Bancos_PopIECompras
|
|||||||
TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero
|
TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero
|
||||||
|
|
||||||
SaldoVenta = dr("Saldo").ToString.ToDouble
|
SaldoVenta = dr("Saldo").ToString.ToDouble
|
||||||
|
EsImportacion = CBool(dr("EsImportacion"))
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1589,7 +1604,19 @@ Partial Class Bancos_PopIECompras
|
|||||||
|
|
||||||
|
|
||||||
Dim CveSubProyectoInsertar As Integer = -1
|
Dim CveSubProyectoInsertar As Integer = -1
|
||||||
Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
|
Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||||||
|
If ConceptoContable.Contiene(14, 19) AndAlso CveCompra > 0 Then
|
||||||
|
If EsImportacion Then
|
||||||
|
If ConceptoContable = 14 Then
|
||||||
|
ConceptoContable = 287
|
||||||
|
Else
|
||||||
|
ConceptoContable = 288
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
|
TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
|
||||||
Dim ImporteMovimiento As Decimal = 0
|
Dim ImporteMovimiento As Decimal = 0
|
||||||
Dim ImporteMX As Decimal = 0
|
Dim ImporteMX As Decimal = 0
|
||||||
@@ -2635,6 +2662,230 @@ Partial Class Bancos_PopIECompras
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
Case 287 'Iva por Acreditar
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
|
'funcionalidad que toma el 100% del pago para acreditamiento de iva
|
||||||
|
Dim TotalImporte As Decimal
|
||||||
|
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
TotalImporte = ImportePagado.ToString.ToDecimal
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal / tipoCambioPago, 2)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal * tipoCambioPago, 2)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
TotalImporte = ImportePagado.ToString.ToDecimal
|
||||||
|
End If
|
||||||
|
|
||||||
|
If TotalImporte = CompraSaldo Then
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = MovimientoPagar.IVA
|
||||||
|
ImporteMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = MovimientoPagar.IVA
|
||||||
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = MovimientoPagar.IVA
|
||||||
|
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = MovimientoPagar.IVA
|
||||||
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
|
TimpocambioGeneral = tipoCambioCompra
|
||||||
|
|
||||||
|
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
Else
|
||||||
|
ImporteMovimiento = 0
|
||||||
|
ImporteMX = 0
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
|
||||||
|
ImporteMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
|
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
|
||||||
|
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
End If
|
||||||
|
|
||||||
|
PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA
|
||||||
|
Dim IdCtaIVAXAcreditar As Integer = 0
|
||||||
|
Dim IdCtaIVAAcreditable As Integer = 0
|
||||||
|
|
||||||
|
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
|
||||||
|
IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
||||||
|
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
|
||||||
|
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
||||||
|
|
||||||
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
||||||
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||||
|
CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Case 288 'Iva Acreditable
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
|
'funcionalidad que toma el 100% del pago para acreditamiento de iva
|
||||||
|
Dim TotalImporte As Decimal
|
||||||
|
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
TotalImporte = ImportePagado.ToString.ToDecimal
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal / tipoCambioPago, 2)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal * tipoCambioPago, 2)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
TotalImporte = ImportePagado.ToString.ToDecimal
|
||||||
|
End If
|
||||||
|
|
||||||
|
If TotalImporte = CompraSaldo Then
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = MovimientoPagar.IVADeducible
|
||||||
|
ImporteMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.IVADeducible)
|
||||||
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.IVADeducible)
|
||||||
|
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.IVADeducible)
|
||||||
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
|
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
|
||||||
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
Else
|
||||||
|
ImporteMovimiento = 0
|
||||||
|
ImporteMX = 0
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago).RoundSQL
|
||||||
|
ImporteMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
|
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
|
||||||
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
End If
|
||||||
|
|
||||||
|
If MovimientoPagar.IVANoDeducible.ToString.ToDecimal > 0 Then
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
|
'funcionalidad que toma el 100% del pago para acreditamiento de iva
|
||||||
|
Dim TotalImporte As Decimal
|
||||||
|
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
TotalImporte = ImportePagado.ToString.ToDecimal
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal / tipoCambioPago, 2)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal * tipoCambioPago, 2)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
TotalImporte = ImportePagado.ToString.ToDecimal
|
||||||
|
End If
|
||||||
|
|
||||||
|
If TotalImporte = CompraSaldo Then
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimientoNoDeducible = MovimientoPagar.IVANoDeducible
|
||||||
|
ImporteMXNoDeducible = ImporteMovimientoNoDeducible
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimientoNoDeducible = (MovimientoPagar.IVANoDeducible)
|
||||||
|
ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimientoNoDeducible = (MovimientoPagar.IVANoDeducible)
|
||||||
|
ImporteMXNoDeducible = ImporteMovimientoNoDeducible * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimientoNoDeducible = (MovimientoPagar.IVANoDeducible)
|
||||||
|
ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2)
|
||||||
|
ImporteMXNoDeducible = Math.Round(ImporteMX, 2)
|
||||||
|
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
|
||||||
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}"
|
||||||
|
Else
|
||||||
|
ImporteMovimientoNoDeducible = 0
|
||||||
|
ImporteMXNoDeducible = 0
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimientoNoDeducible = MovimientoPagar.IVANoDeducible * PorcentajePago
|
||||||
|
ImporteMXNoDeducible = ImporteMovimientoNoDeducible
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimientoNoDeducible = (MovimientoPagar.IVANoDeducible * PorcentajePago)
|
||||||
|
ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimientoNoDeducible = (MovimientoPagar.IVANoDeducible * PorcentajePago)
|
||||||
|
ImporteMXNoDeducible = ImporteMovimientoNoDeducible * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimientoNoDeducible = (MovimientoPagar.IVANoDeducible * PorcentajePago)
|
||||||
|
ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2)
|
||||||
|
ImporteMXNoDeducible = Math.Round(ImporteMXNoDeducible, 2)
|
||||||
|
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
|
||||||
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA
|
||||||
|
Dim IdCtaIVAXAcreditar As Integer = 0
|
||||||
|
Dim IdCtaIVAAcreditable As Integer = 0
|
||||||
|
Dim IdCtaContableNoIVA As Integer = 0
|
||||||
|
|
||||||
|
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
|
||||||
|
IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
||||||
|
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||||
|
IdCtaContableNoIVA = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
|
||||||
|
IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
|
||||||
|
|
||||||
|
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
||||||
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||||
|
CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If MovimientoPagar.IVANoDeducible > 0 Then
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), 280, ConceptoMovimiento, Fecha, IdCtaContableNoIVA, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMXNoDeducible, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
|
||||||
|
MsgError = "No se pudo insertar la póliza"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
'Case 280 'Iva Acreditable No Deducible
|
'Case 280 'Iva Acreditable No Deducible
|
||||||
' If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
' If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
' 'funcionalidad que toma el 100% del pago para acreditamiento de iva
|
' 'funcionalidad que toma el 100% del pago para acreditamiento de iva
|
||||||
|
|||||||
@@ -51,7 +51,7 @@
|
|||||||
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
</span>
|
</span>
|
||||||
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomLeft" Enabled="True"></ajax:CalendarExtender>
|
||||||
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
|
||||||
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||||
|
|||||||
@@ -1006,6 +1006,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
'inserto las compras que voy a pagar
|
'inserto las compras que voy a pagar
|
||||||
For Each gvr As GridViewRow In GvCxP.Rows
|
For Each gvr As GridViewRow In GvCxP.Rows
|
||||||
If gvr.FCCheckBox("Chk").Checked Then
|
If gvr.FCCheckBox("Chk").Checked Then
|
||||||
|
Dim EsImportacion As Boolean = False
|
||||||
|
|
||||||
'Tipos de cambio
|
'Tipos de cambio
|
||||||
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then 'Si la venta viene en Pesos y se va a pagar en Pesos
|
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then 'Si la venta viene en Pesos y se va a pagar en Pesos
|
||||||
@@ -1032,7 +1033,6 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
|
|
||||||
If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
|
If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
|
||||||
For Each Row As DataRow In ObjMov.DtResultados.Rows
|
For Each Row As DataRow In ObjMov.DtResultados.Rows
|
||||||
|
|
||||||
ConceptoContable = Row("CveConcepto").ToString.ToEntero
|
ConceptoContable = Row("CveConcepto").ToString.ToEntero
|
||||||
TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
|
TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
|
||||||
ImporteMovimiento = 0
|
ImporteMovimiento = 0
|
||||||
@@ -1042,6 +1042,27 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
Referencia = gvr.DataKey("SerieFolio").ToString
|
Referencia = gvr.DataKey("SerieFolio").ToString
|
||||||
Dim PorcentajeImpuesto As Decimal = 0
|
Dim PorcentajeImpuesto As Decimal = 0
|
||||||
|
|
||||||
|
If ConceptoContable.Contiene(14, 19) AndAlso gvr.DataKey("CveCompra").ToEntero > 0 Then
|
||||||
|
Dim objcompras As New ClsCompras
|
||||||
|
objcompras.GetCompras(gvr.DataKey("CveCompra").ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa)
|
||||||
|
If objcompras.DtResultados IsNot Nothing AndAlso objcompras.DtResultados.Rows.Count > 0 Then
|
||||||
|
Dim dr As DataRow = objcompras.DtResultados.Rows(0)
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||||||
|
If dr("EsImportacion").ToString = "True" Then
|
||||||
|
EsImportacion = True
|
||||||
|
If ConceptoContable = 14 Then
|
||||||
|
ConceptoContable = 287
|
||||||
|
Else
|
||||||
|
ConceptoContable = 288
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
EsImportacion = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
Select Case ConceptoContable
|
Select Case ConceptoContable
|
||||||
Case 17 'Pago Proveedores
|
Case 17 'Pago Proveedores
|
||||||
|
|
||||||
@@ -1736,6 +1757,72 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
|
CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
Case 287 'Iva X Acreditar Importacion
|
||||||
|
Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
|
'funcionalidad que toma el 100% del pago para acreditamiento de iva
|
||||||
|
|
||||||
|
If TotalImporte = gvr.DataKey("Saldo").ToDecimal Then
|
||||||
|
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
ImporteMovimiento = gvr.DataKey("IVA").ToDecimal
|
||||||
|
importeMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
|
||||||
|
ImporteMovimiento = gvr.DataKey("IVA").ToDecimal
|
||||||
|
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
ImporteMovimiento = gvr.DataKey("IVA").ToDecimal
|
||||||
|
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
|
||||||
|
ImporteMovimiento = gvr.DataKey("IVA").ToDecimal
|
||||||
|
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||||
|
importeMX = Math.Round(importeMX, 2)
|
||||||
|
|
||||||
|
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
Else
|
||||||
|
ImporteMovimiento = 0
|
||||||
|
importeMX = 0
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
ImporteMovimiento = gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago
|
||||||
|
|
||||||
|
|
||||||
|
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
importeMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
|
||||||
|
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
|
||||||
|
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||||
|
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
|
||||||
|
|
||||||
|
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
End If
|
||||||
|
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||||
|
|
||||||
|
PorcentajeImpuesto = gvr.DataKey("PorcentajeIVA").ToDecimal
|
||||||
|
Dim IdCtaIVAXAcreditar As Integer = 0
|
||||||
|
Dim IdCtaIVAAcreditable As Integer = 0
|
||||||
|
|
||||||
|
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
|
||||||
|
IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
||||||
|
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
||||||
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
||||||
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||||
|
CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
End If
|
||||||
Case 19 'Iva Acreditado
|
Case 19 'Iva Acreditado
|
||||||
Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
||||||
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
@@ -1817,6 +1904,88 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero
|
CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
Case 288 'Iva Acreditado
|
||||||
|
Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
|
'funcionalidad que toma el 100% del pago para acreditamiento de iva
|
||||||
|
If TotalImporte = gvr.DataKey("Saldo").ToDecimal Then
|
||||||
|
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
ImporteMovimiento = gvr.DataKey("IVADeducible").ToDecimal
|
||||||
|
importeMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
|
||||||
|
ImporteMovimiento = gvr.DataKey("IVADeducible").ToDecimal
|
||||||
|
importeMX = gvr.DataKey("IVADeducible").ToDecimal * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
ImporteMovimiento = gvr.DataKey("IVADeducible").ToDecimal
|
||||||
|
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
|
||||||
|
ImporteMovimiento = gvr.DataKey("IVADeducible").ToDecimal
|
||||||
|
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||||
|
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
|
||||||
|
|
||||||
|
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
Else
|
||||||
|
ImporteMovimiento = 0
|
||||||
|
importeMX = 0
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
ImporteMovimiento = gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago
|
||||||
|
|
||||||
|
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
importeMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
|
||||||
|
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
|
||||||
|
|
||||||
|
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||||
|
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
|
||||||
|
|
||||||
|
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
End If
|
||||||
|
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
PorcentajeImpuesto = gvr.DataKey("PorcentajeIVA").ToDecimal
|
||||||
|
Dim IdCtaIVAXAcreditar As Integer = 0
|
||||||
|
Dim IdCtaIVAAcreditable As Integer = 0
|
||||||
|
Dim IdCtaContableNoIVA As Integer = 0
|
||||||
|
|
||||||
|
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
|
||||||
|
IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
||||||
|
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||||
|
IdCtaContableNoIVA = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
|
||||||
|
|
||||||
|
'se registra el iva no acreditable
|
||||||
|
If gvr.DataKey("IVAPorPagarNoDeducible").ToDecimal > 0 Then
|
||||||
|
|
||||||
|
Dim ImporteNOIVA As Decimal = gvr.DataKey("IVAPorPagarNoDeducible").ToDecimal * PorcentajePago
|
||||||
|
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, FechaMovimiento, IdCtaContableNoIVA, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=ImporteNOIVA, ImporteME:=If(TipoCambioPago = 1, 0, ImporteMovimiento), CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, PorcentajeImpuesto:=PorcentajeImpuesto) Then
|
||||||
|
MsgError = "No se pudo insertar la póliza"
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
||||||
|
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||||
|
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||||
|
CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
End If
|
||||||
Case 25 'IEPS X Acreditar
|
Case 25 'IEPS X Acreditar
|
||||||
Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
||||||
ImporteMovimiento = gvr.DataKey("IEPSPorPagar").ToDecimal * PorcentajePago
|
ImporteMovimiento = gvr.DataKey("IEPSPorPagar").ToDecimal * PorcentajePago
|
||||||
@@ -2219,6 +2388,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'Agrego el IVA
|
'Agrego el IVA
|
||||||
|
|
||||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 14, TxtObservaciones.Text, Now, IdCtaIVAXAcreditar, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=gvr.DataKey("IVA").ToDecimal * PorcentajePago) Then
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, TxtObservaciones.Text, 14, TxtObservaciones.Text, Now, IdCtaIVAXAcreditar, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=gvr.DataKey("IVA").ToDecimal * PorcentajePago) Then
|
||||||
MsgError = "Detalle"
|
MsgError = "Detalle"
|
||||||
|
|
||||||
@@ -3392,6 +3562,7 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
|
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
|
||||||
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
|
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
|
||||||
RVTxtFechaDocumentoMenor.MinimumValue = DateTime.Now.AddMonths(-4).ToShortDateString
|
RVTxtFechaDocumentoMenor.MinimumValue = DateTime.Now.AddMonths(-4).ToShortDateString
|
||||||
|
RVTxtFechaDocumentoMenor.MaximumValue = DateTime.Now.ToShortDateString
|
||||||
Calendario.EndDate = DateTime.Now
|
Calendario.EndDate = DateTime.Now
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
@@ -48,8 +48,9 @@ Partial Class Bancos_RepCobradoPagadoDetalle
|
|||||||
' GvDatos.Columns(5).HeaderText = "Cobrado"
|
' GvDatos.Columns(5).HeaderText = "Cobrado"
|
||||||
' End If
|
' End If
|
||||||
'End If
|
'End If
|
||||||
|
If Modalidad <> 0 Then
|
||||||
CargaDatos()
|
CargaDatos()
|
||||||
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|||||||
@@ -176,59 +176,62 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
|
|||||||
string Correo = row["Correo"].ToString();
|
string Correo = row["Correo"].ToString();
|
||||||
|
|
||||||
int CveMedioCaptacion = -1;
|
int CveMedioCaptacion = -1;
|
||||||
if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa))
|
if (MedioCaptacion != "" || Agente != "") {
|
||||||
{
|
|
||||||
DataRow MediosCaptacion = ObjCRM.DtResultados.FiltroPrimero(String.Format("MedioCaptacion = '{0}'",MedioCaptacion));
|
if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa))
|
||||||
if(MediosCaptacion != null)
|
|
||||||
{
|
{
|
||||||
CveMedioCaptacion = MediosCaptacion["CveMedioCaptacion"].ToString().ToEntero();
|
DataRow MediosCaptacion = ObjCRM.DtResultados.FiltroPrimero(String.Format("MedioCaptacion = '{0}'",MedioCaptacion));
|
||||||
|
if(MediosCaptacion != null)
|
||||||
|
{
|
||||||
|
CveMedioCaptacion = MediosCaptacion["CveMedioCaptacion"].ToString().ToEntero();
|
||||||
|
}else
|
||||||
|
{
|
||||||
|
Alert(String.Format("El medio de captación '{0}' no fue encontrado", MedioCaptacion), ModExtensiones.TipoMensaje.MsgAdvertencia);
|
||||||
|
TieneError = true;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
int CveVendedor = -1;
|
||||||
|
DataRow Vendedor = get_GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("Vendedor = '{0}'",Agente));
|
||||||
|
if (Vendedor != null)
|
||||||
|
{
|
||||||
|
CveVendedor = Vendedor["CveVendedor"].ToString().ToEntero();
|
||||||
}else
|
}else
|
||||||
{
|
{
|
||||||
Alert(String.Format("El medio de captación '{0}' no fue encontrado", MedioCaptacion), ModExtensiones.TipoMensaje.MsgAdvertencia);
|
Alert(String.Format("El vendedor '{0}' no fue encontrado", Agente), ModExtensiones.TipoMensaje.MsgAdvertencia);
|
||||||
TieneError = true;
|
TieneError = true;
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
int CveVendedor = -1;
|
int CveSubProyecto = -1;
|
||||||
DataRow Vendedor = get_GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("Vendedor = '{0}'",Agente));
|
DataRow SubProyecto = get_GlobalDTSubProyectos(-1,CveEmpresa:UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("SubProyecto = '{0}'",Sucursal));
|
||||||
if (Vendedor != null)
|
if(SubProyecto != null)
|
||||||
{
|
{
|
||||||
CveVendedor = Vendedor["CveVendedor"].ToString().ToEntero();
|
CveSubProyecto = SubProyecto["CveSubProyecto"].ToString().ToEntero();
|
||||||
}else
|
}else
|
||||||
{
|
{
|
||||||
Alert(String.Format("El vendedor '{0}' no fue encontrado", MedioCaptacion), ModExtensiones.TipoMensaje.MsgAdvertencia);
|
Alert(String.Format("El SubProyecto '{0}'", Sucursal), ModExtensiones.TipoMensaje.MsgAdvertencia);
|
||||||
TieneError = true;
|
TieneError = true;
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
int CveSubProyecto = -1;
|
int CveGiro = -1;
|
||||||
DataRow SubProyecto = get_GlobalDTSubProyectos(-1,CveEmpresa:UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("SubProyecto = '{0}'",Sucursal));
|
DataRow GiroDt = get_GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("ClienteClasificacion = '{0}'", Giro));
|
||||||
if(SubProyecto != null)
|
if (GiroDt != null)
|
||||||
{
|
{
|
||||||
CveSubProyecto = SubProyecto["CveSubProyecto"].ToString().ToEntero();
|
CveGiro = GiroDt["CveClienteClasificacion"].ToString().ToEntero();
|
||||||
}else
|
}
|
||||||
{
|
else
|
||||||
Alert(String.Format("El SubProyecto '{0}'", Sucursal), ModExtensiones.TipoMensaje.MsgAdvertencia);
|
{
|
||||||
TieneError = true;
|
Alert(String.Format("El Giro de Empresa '{0}', No está especificado", Giro), ModExtensiones.TipoMensaje.MsgAdvertencia);
|
||||||
break;
|
TieneError = true;
|
||||||
}
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
int CveGiro = -1;
|
TieneError = (!(ObjCRM.AddEmpresaCRM(NombreEmpresa, RFC, CveMedioCaptacion, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, -1, CveVendedor, CveSubProyecto, Mail, CveGiro) > 0));
|
||||||
DataRow GiroDt = get_GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("ClienteClasificacion = '{0}'", Giro));
|
|
||||||
if (GiroDt != null)
|
|
||||||
{
|
|
||||||
CveGiro = GiroDt["CveClienteClasificacion"].ToString().ToEntero();
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
Alert(String.Format("El Giro de Empresa '{0}', No está especificado", Giro), ModExtensiones.TipoMensaje.MsgAdvertencia);
|
|
||||||
TieneError = true;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
TieneError = (!(ObjCRM.AddEmpresaCRM(NombreEmpresa, RFC, CveMedioCaptacion, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, -1, CveVendedor, CveSubProyecto, Mail, CveGiro) > 0));
|
|
||||||
|
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
if (TieneError)
|
if (TieneError)
|
||||||
|
|||||||
@@ -88,8 +88,8 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<asp:DropDownList ID="DdlTipoPrceso2" runat="server" Width="50%" DataTextField="TipoProceso" DataValueField="CveTipoProceso" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" OnSelectedIndexChanged="DdlTipoProcesos_Change" AutoPostBack="true"/>
|
<asp:DropDownList ID="DdlTipoProceso2" runat="server" Width="50%" DataTextField="TipoProceso" DataValueField="CveTipoProceso" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" OnSelectedIndexChanged="DdlTipoProcesos_Change" AutoPostBack="true"/>
|
||||||
<label for="<%=DdlTipoPrceso2.ClientID.ToString()%>">Tipo Proceso:</label>
|
<label for="<%=DdlTipoProceso2.ClientID.ToString()%>">Tipo Proceso:</label>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
|||||||
@@ -571,10 +571,10 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
|||||||
ClsCRM ObjCRM = new ClsCRM();
|
ClsCRM ObjCRM = new ClsCRM();
|
||||||
if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa))
|
if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa))
|
||||||
{
|
{
|
||||||
DdlTipoPrceso2.DataSource = ObjCRM.DtResultados;
|
DdlTipoProceso2.DataSource = ObjCRM.DtResultados;
|
||||||
DdlTipoPrceso2.Items.Insert(0, new ListItem("Seleccione","-1"));
|
DdlTipoProceso2.Items.Insert(0, new ListItem("Seleccione","-1"));
|
||||||
}
|
}
|
||||||
DdlTipoPrceso2.DataBind();
|
DdlTipoProceso2.DataBind();
|
||||||
ObjCRM.Dispose();
|
ObjCRM.Dispose();
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -583,7 +583,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
|||||||
ClsCRM ObjCRM = new ClsCRM();
|
ClsCRM ObjCRM = new ClsCRM();
|
||||||
if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, -1))
|
if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, -1))
|
||||||
{
|
{
|
||||||
DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoPrceso2.SelectedValue));
|
DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso2.SelectedValue));
|
||||||
DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1"));
|
DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1"));
|
||||||
DdlMedioCaptacionAcercamiento.Items.Clear();
|
DdlMedioCaptacionAcercamiento.Items.Clear();
|
||||||
DdlMedioCaptacionAcercamiento.DataSource = ObjCRM.DtResultados;
|
DdlMedioCaptacionAcercamiento.DataSource = ObjCRM.DtResultados;
|
||||||
@@ -638,7 +638,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
|
|||||||
|
|
||||||
TxtNombreEmpresa.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Empresa");
|
TxtNombreEmpresa.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Empresa");
|
||||||
TxtRFC.Text = ObjCRM.DtResultados.FiltroPrimeroValor("RFC");
|
TxtRFC.Text = ObjCRM.DtResultados.FiltroPrimeroValor("RFC");
|
||||||
DdlTipoPrceso2.SelectedValue = ObjCRM.DtResultados.FiltroPrimeroValor("CveTipoProceso");
|
DdlTipoProceso2.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveTipoProceso"));
|
||||||
CargaMetodosCaptacion();
|
CargaMetodosCaptacion();
|
||||||
TxtCorreoEmpresaCRM.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Correo");
|
TxtCorreoEmpresaCRM.Text = ObjCRM.DtResultados.FiltroPrimeroValor("Correo");
|
||||||
DdlMedioCaptacion.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveMedioCaptacion"));
|
DdlMedioCaptacion.SelectedValueExist(ObjCRM.DtResultados.FiltroPrimeroValor("CveMedioCaptacion"));
|
||||||
|
|||||||
@@ -514,6 +514,12 @@
|
|||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
<div class="form-group proveedoreespes" runat="server" id="divImportacion" visible="false">
|
||||||
|
<span class="whitoutcol linewhitsize proveedoreespes">Importación </span>
|
||||||
|
<div class="whitoutcol whitoutcol">
|
||||||
|
<asp:CheckBox runat="server" ID="chkImportacion"> </asp:CheckBox>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
@@ -4427,7 +4433,7 @@
|
|||||||
<asp:UpdatePanel ID="UpIVA" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="UpIVA" runat="server" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-3">
|
<div class="col-md-3" id="divIVA" runat="server" visible="false">
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<asp:DropDownList ID="DdlIVA" CssClass="form-control select2me" Style="width: 100%; display: inline-block;" runat="server" Enabled="false">
|
<asp:DropDownList ID="DdlIVA" CssClass="form-control select2me" Style="width: 100%; display: inline-block;" runat="server" Enabled="false">
|
||||||
<asp:ListItem Selected="True" Value="1.08">8%</asp:ListItem>
|
<asp:ListItem Selected="True" Value="1.08">8%</asp:ListItem>
|
||||||
@@ -4439,6 +4445,15 @@
|
|||||||
<label for="<%= DdlIVA.ClientID.ToString()%>">% IVA:</label>
|
<label for="<%= DdlIVA.ClientID.ToString()%>">% IVA:</label>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
<div class="col-md-3" id="divImporteImportacion" runat="server" visible="false">
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox ID="txtImportacion" ClientIDMode="Static" runat="server" CssClass=" form-control " CausesValidation="true"></asp:TextBox>
|
||||||
|
<ajax:FilteredTextBoxExtender ID="FTBEImportacion" runat="server" TargetControlID="txtImportacion" FilterType="Custom, Numbers" ValidChars="." />
|
||||||
|
<%--<asp:TextBox ID="TxtIVAModal" ClientIDMode="Static" Enabled="false" runat="server" CssClass=" form-control " CausesValidation="true" MaxLength="12" ValidationGroup="GprAgregaPS"></asp:TextBox>
|
||||||
|
<ajax:FilteredTextBoxExtender ID="FTBEIVA" runat="server" TargetControlID="TxtIVAModal" FilterType="Custom, Numbers" ValidChars="." />--%>
|
||||||
|
<label for="<%= DdlIVA.ClientID.ToString()%>">Importación:</label>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
<div class="col-md-3">
|
<div class="col-md-3">
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<asp:TextBox ID="TxtRetIVAModal" ClientIDMode="Static" Enabled="false" runat="server" CssClass=" form-control " CausesValidation="true" MaxLength="12" ValidationGroup="GprAgregaPS"></asp:TextBox>
|
<asp:TextBox ID="TxtRetIVAModal" ClientIDMode="Static" Enabled="false" runat="server" CssClass=" form-control " CausesValidation="true" MaxLength="12" ValidationGroup="GprAgregaPS"></asp:TextBox>
|
||||||
@@ -6613,9 +6628,19 @@
|
|||||||
$('#LblTotalContrato').text(SubTotal);
|
$('#LblTotalContrato').text(SubTotal);
|
||||||
|
|
||||||
}
|
}
|
||||||
|
function ChkImportacion(chk) {
|
||||||
|
|
||||||
|
if (chk.checked == true) {
|
||||||
|
$('#divIVA').css("display", "none");
|
||||||
|
$('#divImporteImportacion').css("display", "block");
|
||||||
|
debugger;
|
||||||
|
} else {
|
||||||
|
$('#divIVA').css("display", "none");
|
||||||
|
$("#divImporteImportacion").css("display", "block");
|
||||||
|
debugger;
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
function ValidateCantCon(variable) {
|
function ValidateCantCon(variable) {
|
||||||
|
|
||||||
|
|||||||
@@ -1623,6 +1623,13 @@ Partial Class Compras_Compras
|
|||||||
'End If
|
'End If
|
||||||
|
|
||||||
'RegistraScript("ScrollVentanaAddProducto();")
|
'RegistraScript("ScrollVentanaAddProducto();")
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||||||
|
divImportacion.Visible = True
|
||||||
|
chkImportacion.Attributes.Add("onclick", "ChkImportacion(this);")
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "C A R G A S"
|
#Region "C A R G A S"
|
||||||
@@ -3009,6 +3016,14 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
'Tiene Importacion
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||||||
|
If dr("EsImportacion").ToString = "True" Then
|
||||||
|
chkImportacion.Checked = True
|
||||||
|
Else
|
||||||
|
chkImportacion.Checked = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
CargaComplementosPago()
|
CargaComplementosPago()
|
||||||
|
|
||||||
Else
|
Else
|
||||||
@@ -4507,6 +4522,7 @@ Partial Class Compras_Compras
|
|||||||
Dim EntregaDirecta = False
|
Dim EntregaDirecta = False
|
||||||
|
|
||||||
Dim ConceptoPoliza As String = String.Format("{0} - {1}{2} - {3}", NombreProveedor, TxtSerie.Text, TxtFolio.Text, TxtDescripcion.Text.Trim)
|
Dim ConceptoPoliza As String = String.Format("{0} - {1}{2} - {3}", NombreProveedor, TxtSerie.Text, TxtFolio.Text, TxtDescripcion.Text.Trim)
|
||||||
|
Dim EsImportacion As Boolean = chkImportacion.Checked 'funcion para empresas llanteras
|
||||||
|
|
||||||
'TIPO CAMBIO MANUAL CON COMPRA NUEVA
|
'TIPO CAMBIO MANUAL CON COMPRA NUEVA
|
||||||
Dim TipoCambioGuardar As Decimal = 1
|
Dim TipoCambioGuardar As Decimal = 1
|
||||||
@@ -4616,7 +4632,7 @@ Partial Class Compras_Compras
|
|||||||
Else
|
Else
|
||||||
CveConceptoContableAlmacen = 205
|
CveConceptoContableAlmacen = 205
|
||||||
End If
|
End If
|
||||||
If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
|
If OCVinculada AndAlso DdlOCVinculaInv.visible AndAlso Not (CveImportacion > 0 Or CveFlete > 0) Then
|
||||||
CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
|
CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
|
||||||
End If
|
End If
|
||||||
If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido
|
If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido
|
||||||
@@ -4671,12 +4687,13 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
|
|
||||||
'Compra
|
'Compra
|
||||||
|
|
||||||
If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble,
|
If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble,
|
||||||
LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble,
|
LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble,
|
||||||
TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
|
TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
|
||||||
CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
|
CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
|
||||||
AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
|
AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
|
||||||
CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto) Then
|
CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto, EsImportacion:=EsImportacion) Then
|
||||||
|
|
||||||
ViewState("CveCompra") = ObjCompras.CveCompra
|
ViewState("CveCompra") = ObjCompras.CveCompra
|
||||||
If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
|
If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
|
||||||
@@ -5844,8 +5861,11 @@ Partial Class Compras_Compras
|
|||||||
For Each Row As DataRow In DTPlatilla.Rows
|
For Each Row As DataRow In DTPlatilla.Rows
|
||||||
|
|
||||||
Dim CveSubProyectoInsertar As Integer = -1
|
Dim CveSubProyectoInsertar As Integer = -1
|
||||||
|
|
||||||
Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
|
Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
|
||||||
|
If chkImportacion.Checked And ConceptoContable = 14 Then
|
||||||
|
ConceptoContable = 287
|
||||||
|
|
||||||
|
End If
|
||||||
Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
|
Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
|
||||||
Dim importeMovimiento As Decimal = 0
|
Dim importeMovimiento As Decimal = 0
|
||||||
Dim IdCtaContable As Integer = 0
|
Dim IdCtaContable As Integer = 0
|
||||||
@@ -6077,6 +6097,21 @@ Partial Class Compras_Compras
|
|||||||
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
|
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
Case 287 'IVA X Acreditar
|
||||||
|
importeMovimiento = importeIVAxAcreditar
|
||||||
|
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||||
|
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||||
|
PorcentajeImpuesto = PorcentajeIVA
|
||||||
|
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
||||||
|
If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
||||||
|
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||||
|
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||||
|
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
Case 25 'IEPS X Acreditar
|
Case 25 'IEPS X Acreditar
|
||||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||||
importeMovimiento = ImporteIEPSxAcreditar
|
importeMovimiento = ImporteIEPSxAcreditar
|
||||||
@@ -6517,7 +6552,7 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
Case 6 'Compra
|
Case 6 'Compra
|
||||||
|
|
||||||
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
||||||
|
|
||||||
Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
||||||
|
|
||||||
@@ -9167,6 +9202,32 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
Case 287 'Iva X Acreditar importacion
|
||||||
|
If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
|
If sumaAmortizacion = CompraSaldo Then
|
||||||
|
ImporteMovimiento = TxtIVA.Text.ToDecimal
|
||||||
|
|
||||||
|
If ImporteMovimiento > 0 Then
|
||||||
|
IVACompleto = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
ImporteMovimiento = 0
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
ImporteMovimiento = Math.Round(PorcentajePago * TxtIVA.Text.ToDecimal, 2)
|
||||||
|
End If
|
||||||
|
importeMN = ImporteMovimiento * tipoCambio
|
||||||
|
PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal
|
||||||
|
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
|
||||||
|
If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
||||||
|
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||||
|
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
|
||||||
|
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
Case 19 'Iva Acreditado
|
Case 19 'Iva Acreditado
|
||||||
If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then
|
If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then
|
||||||
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||||
@@ -17757,6 +17818,15 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
UpPSS.Update()
|
UpPSS.Update()
|
||||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddProducto"))
|
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddProducto"))
|
||||||
|
If chkImportacion.Checked Then
|
||||||
|
divImporteImportacion.Visible = True
|
||||||
|
divIVA.Visible = False
|
||||||
|
|
||||||
|
Else
|
||||||
|
divIVA.Visible = True
|
||||||
|
divImporteImportacion.Visible = False
|
||||||
|
|
||||||
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub LimpiaAgregar()
|
Private Sub LimpiaAgregar()
|
||||||
|
|
||||||
@@ -18198,9 +18268,14 @@ Partial Class Compras_Compras
|
|||||||
If PSRow IsNot Nothing Then
|
If PSRow IsNot Nothing Then
|
||||||
SATClavePS = PSRow("SATClavePS").ToString.ToEntero
|
SATClavePS = PSRow("SATClavePS").ToString.ToEntero
|
||||||
End If
|
End If
|
||||||
|
Dim IVA As Double
|
||||||
|
If chkImportacion.Checked Then
|
||||||
|
IVA = (txtImportacion.Text.Trim.ToDouble / (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.Trim.ToDouble))
|
||||||
|
Else
|
||||||
|
IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)
|
||||||
|
End If
|
||||||
AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
|
AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
|
||||||
DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2),
|
DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA,
|
||||||
TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
|
TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
|
||||||
NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
|
NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
|
||||||
|
|
||||||
|
|||||||
@@ -1457,7 +1457,8 @@ Partial Class Compras_Proveedores
|
|||||||
|
|
||||||
#Region "LL E N A R - C O M B O S"
|
#Region "LL E N A R - C O M B O S"
|
||||||
Private Sub CargaResponsable()
|
Private Sub CargaResponsable()
|
||||||
DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
'DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, DistinctColumns:={"CveUsuario", "Nombre"})
|
||||||
|
DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"})
|
||||||
DdlCveUsuarioResponsable.DataBind()
|
DdlCveUsuarioResponsable.DataBind()
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub CargaClasificacionProveedor()
|
Private Sub CargaClasificacionProveedor()
|
||||||
|
|||||||
@@ -33,12 +33,12 @@
|
|||||||
<div class="row">
|
<div class="row">
|
||||||
<label class="col-md-1">Ejercicio: </label>
|
<label class="col-md-1">Ejercicio: </label>
|
||||||
<div class="col-md-2">
|
<div class="col-md-2">
|
||||||
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="form-control input-sm" DataTextField="Ejercicio" DataValueField="Ejercicio" AutoPostBack="true"></asp:DropDownList>
|
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="form-control input-sm" DataTextField="Ejercicio" DataValueField="Ejercicio" AutoPostBack="false"></asp:DropDownList>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<label class="col-md-1">Periodo: </label>
|
<label class="col-md-1">Periodo: </label>
|
||||||
<div class="col-md-2">
|
<div class="col-md-2">
|
||||||
<asp:DropDownList ID="DdlPeriodo" runat="server" CssClass="form-control input-sm" AutoPostBack="true">
|
<asp:DropDownList ID="DdlPeriodo" runat="server" CssClass="form-control input-sm" AutoPostBack="false">
|
||||||
<asp:ListItem Text="Enero" Value="1"></asp:ListItem>
|
<asp:ListItem Text="Enero" Value="1"></asp:ListItem>
|
||||||
<asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
|
<asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
|
||||||
<asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
|
<asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
|
||||||
@@ -56,7 +56,7 @@
|
|||||||
|
|
||||||
<label class="col-md-1">Tipo Póliza: </label>
|
<label class="col-md-1">Tipo Póliza: </label>
|
||||||
<div class="col-md-1">
|
<div class="col-md-1">
|
||||||
<asp:DropDownList ID="DdlTipoPoliza" runat="server" CssClass="form-control input-sm" DataTextField="Ejercicio" DataValueField="Ejercicio" AutoPostBack="true">
|
<asp:DropDownList ID="DdlTipoPoliza" runat="server" CssClass="form-control input-sm" DataTextField="Ejercicio" DataValueField="Ejercicio" AutoPostBack="false">
|
||||||
<asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
|
<asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
|
||||||
<asp:ListItem Text="Ingresos" Value="1"></asp:ListItem>
|
<asp:ListItem Text="Ingresos" Value="1"></asp:ListItem>
|
||||||
<asp:ListItem Text="Egresos" Value="2"></asp:ListItem>
|
<asp:ListItem Text="Egresos" Value="2"></asp:ListItem>
|
||||||
@@ -171,6 +171,14 @@
|
|||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
<ItemStyle Width="100px"></ItemStyle>
|
<ItemStyle Width="100px"></ItemStyle>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField HeaderText="PrePoliza" ItemStyle-HorizontalAlign="Center">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:HyperLink ID="HplPrepoliza" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>' runat="server" ToolTip="Ir PrePoliza"><i class="fa fa-arrow-right" style="color:#686868;"></i></asp:HyperLink>
|
||||||
|
|
||||||
|
</ItemTemplate>
|
||||||
|
<ItemStyle Width="100px"></ItemStyle>
|
||||||
|
</asp:TemplateField>
|
||||||
</Columns>
|
</Columns>
|
||||||
<HeaderStyle CssClass="Titulos"></HeaderStyle>
|
<HeaderStyle CssClass="Titulos"></HeaderStyle>
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
|
|||||||
@@ -49,7 +49,7 @@ Partial Class Contabilidad_FiltraPolizas
|
|||||||
Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
|
Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
|
||||||
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||||
|
|
||||||
If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero()) Then
|
If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
|
||||||
DtDatos = ObjConta.DtResultados
|
DtDatos = ObjConta.DtResultados
|
||||||
Gv.DataSource = ObjConta.DtResultados
|
Gv.DataSource = ObjConta.DtResultados
|
||||||
'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
|
'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
|
||||||
|
|||||||
@@ -70,13 +70,24 @@
|
|||||||
<asp:UpdatePanel runat="server">
|
<asp:UpdatePanel runat="server">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<li>
|
<li>
|
||||||
<asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="far fa-file-excel" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
|
<asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
|
||||||
</li>
|
</li>
|
||||||
<li>
|
<li>
|
||||||
<asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
|
<asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
|
||||||
</li>
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkImprimirPDF" runat="server" Visible="false" OnClick="LnkImprimirPDF_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Paquete Egresos</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkComprobante" runat="server" Visible="false" data-toggle="modal" data-target="#ModalUpload" Style="color: #686868;"><i class="fa fa-upload" style="color:#686868;"></i> Cargar Comprobante</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
|
<Triggers>
|
||||||
|
<asp:PostBackTrigger ControlID="LnkComprobante" />
|
||||||
|
</Triggers>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||||
|
|
||||||
@@ -783,7 +794,50 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
<div id="ModalUpload" class="modal ADS fade" role="dialog">
|
||||||
|
<div class="modal-dialog">
|
||||||
|
|
||||||
|
<!-- Modal content-->
|
||||||
|
<div class="modal-content">
|
||||||
|
<div class="modal-header ">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">Subir Archivo</h4>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="modal-body">
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpCargarArchivo" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12" style="text-align: center;">
|
||||||
|
<label style="color: red;">Nota: Si ya tiene un comprobante este sera reemplazado</label>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12">
|
||||||
|
<asp:TextBox ID="TxtCargarArchivo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<%--<div>
|
||||||
|
|
||||||
|
</div>--%>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:UpdatePanel runat="server">
|
||||||
|
<ContentTemplate>
|
||||||
|
<asp:Button ID="BtnGuardarArchivo" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
|
||||||
|
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
|
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
|||||||
@@ -5,6 +5,9 @@ Imports Extensiones
|
|||||||
Imports System.Linq
|
Imports System.Linq
|
||||||
Imports System.Web.Services
|
Imports System.Web.Services
|
||||||
Imports GemBox.Spreadsheet
|
Imports GemBox.Spreadsheet
|
||||||
|
Imports System.IO
|
||||||
|
Imports iTextSharp.text.pdf
|
||||||
|
Imports Microsoft.Reporting.WebForms
|
||||||
|
|
||||||
Partial Class ContabilidadC_RegPrePoliza
|
Partial Class ContabilidadC_RegPrePoliza
|
||||||
Inherits ClsPaginas
|
Inherits ClsPaginas
|
||||||
@@ -167,12 +170,39 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
ViewState("IdPoliza") = value
|
ViewState("IdPoliza") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
Public Property Tick As String
|
||||||
|
Get
|
||||||
|
Return CType(ViewState("Tick"), String)
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("Tick") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Property CveIE As Integer
|
||||||
|
Get
|
||||||
|
Return CType(ViewState("CveIE"), Integer)
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
ViewState("CveIE") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Property TipoPoliza As String
|
||||||
|
Get
|
||||||
|
Return CType(ViewState("TipoPoliza"), String)
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("TipoPoliza") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
|
||||||
If Not Page.IsPostBack Then
|
If Not Page.IsPostBack Then
|
||||||
|
Tick = DateTime.Now.Ticks.ToString
|
||||||
|
|
||||||
If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||||
Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
|
Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
|
||||||
@@ -265,8 +295,8 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero
|
ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero
|
||||||
ViewState("CveTurno") = Request("CveTurno").ToEntero
|
ViewState("CveTurno") = Request("CveTurno").ToEntero
|
||||||
|
|
||||||
DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
|
'DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
|
||||||
DdlPlantilla.SelectedValue = "61"
|
'DdlPlantilla.SelectedValue = "61"
|
||||||
DdlPlantilla.Enabled = False
|
DdlPlantilla.Enabled = False
|
||||||
DivAgregarConceptos.Visible = False
|
DivAgregarConceptos.Visible = False
|
||||||
|
|
||||||
@@ -418,6 +448,9 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
TxtFechaDocumento.Text = dr("Fecha")
|
TxtFechaDocumento.Text = dr("Fecha")
|
||||||
TxtConcepto.Text = dr("Concepto")
|
TxtConcepto.Text = dr("Concepto")
|
||||||
DivDatosPoliza.Visible = True
|
DivDatosPoliza.Visible = True
|
||||||
|
TipoPoliza = DdlTipoPoliza.SelectedItem.Text
|
||||||
|
Folio = dr("FolioPoliza").ToString
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
|
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
|
||||||
DivAgregarConceptos.Visible = True
|
DivAgregarConceptos.Visible = True
|
||||||
@@ -485,19 +518,19 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
'Asignamos los Subproyectos
|
'Asignamos los Subproyectos
|
||||||
e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||||
e.Row.FCDropDownList("DdlSubProyecto").DataBind()
|
e.Row.FCDropDownList("DdlSubProyecto").DataBind()
|
||||||
e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1"))
|
'e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1"))
|
||||||
e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DataKey("CveSubProyecto"))
|
e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DataKey("CveSubProyecto"))
|
||||||
|
|
||||||
'Asignamos los Tipos de Gasto
|
'Asignamos los Tipos de Gasto
|
||||||
e.Row.FCDropDownList("DdlTipoGasto").DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
|
e.Row.FCDropDownList("DdlTipoGasto").DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
|
||||||
e.Row.FCDropDownList("DdlTipoGasto").DataBind()
|
e.Row.FCDropDownList("DdlTipoGasto").DataBind()
|
||||||
e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1"))
|
'e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1"))
|
||||||
e.Row.FCDropDownList("DdlTipoGasto").SelectedValueExist(e.Row.DataKey("CveTipoGasto"))
|
e.Row.FCDropDownList("DdlTipoGasto").SelectedValueExist(e.Row.DataKey("CveTipoGasto"))
|
||||||
|
|
||||||
'ASignamos las CuentasContables
|
'ASignamos las CuentasContables
|
||||||
e.Row.FCDropDownList("DdlCtaContable").DataSource = Session("DtCuentas")
|
e.Row.FCDropDownList("DdlCtaContable").DataSource = Session("DtCuentas")
|
||||||
e.Row.FCDropDownList("DdlCtaContable").DataBind()
|
e.Row.FCDropDownList("DdlCtaContable").DataBind()
|
||||||
e.Row.FCDropDownList("DdlCtaContable").Items.Insert(0, New ListItem("Sin Asignar", "0"))
|
'e.Row.FCDropDownList("DdlCtaContable").Items.Insert(0, New ListItem("Sin Asignar", "0"))
|
||||||
e.Row.FCDropDownList("DdlCtaContable").SelectedValueExist(e.Row.DataKey("IdCtaContable"))
|
e.Row.FCDropDownList("DdlCtaContable").SelectedValueExist(e.Row.DataKey("IdCtaContable"))
|
||||||
|
|
||||||
TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble).ToString.FormatoNumero
|
TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble).ToString.FormatoNumero
|
||||||
@@ -511,6 +544,11 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
|
If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
|
||||||
If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
|
If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
|
||||||
|
|
||||||
|
If CveConceptoContable.Contiene(30) Then
|
||||||
|
LnkImprimirPDF.Visible = True
|
||||||
|
LnkComprobante.Visible = True
|
||||||
|
CveIE = e.Row.DBCampo("CveIE").ToString.ToEntero
|
||||||
|
End If
|
||||||
|
|
||||||
'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
|
'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
|
||||||
|
|
||||||
@@ -811,6 +849,8 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
|
dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
|
||||||
dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
|
dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
|
||||||
dr("CveCuenta") = drt("CveCuenta")
|
dr("CveCuenta") = drt("CveCuenta")
|
||||||
|
dr("FolioPoliza") = drt("FolioPoliza")
|
||||||
|
|
||||||
DtMovimientos.Rows.Add(dr)
|
DtMovimientos.Rows.Add(dr)
|
||||||
|
|
||||||
|
|
||||||
@@ -891,7 +931,6 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
If e.Row.DataKey("CveConcepto").ToEntero.Contiene(30) Then
|
If e.Row.DataKey("CveConcepto").ToEntero.Contiene(30) Then
|
||||||
e.Row.FCLinkButton("ImgBancos").Visible = True
|
e.Row.FCLinkButton("ImgBancos").Visible = True
|
||||||
|
|
||||||
|
|
||||||
If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
|
If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
|
||||||
e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
|
e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
|
||||||
End If
|
End If
|
||||||
@@ -1724,6 +1763,239 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs)
|
Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs)
|
||||||
GeneraTimbre(CvePrePoliza)
|
GeneraTimbre(CvePrePoliza)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs)
|
||||||
|
Dim filtro() As String = {"CveCompra", "CveIE", "CveConceptoContable"}
|
||||||
|
Dim filtroComplemento() As String = {"CveIE"}
|
||||||
|
Dim Pathpdf As New List(Of String)
|
||||||
|
Dim pdfs = New List(Of Byte())
|
||||||
|
Dim Path As String
|
||||||
|
Dim dt As DataTable = DtMovimientos.FiltraParametros("", "", filtro)
|
||||||
|
Dim ObjCompra As New ClsCompras
|
||||||
|
Dim ObjIE As New ClsBancos()
|
||||||
|
Dim pathPoliza As String
|
||||||
|
Dim TieneComprobante As Boolean = True
|
||||||
|
Try
|
||||||
|
|
||||||
|
|
||||||
|
Path = ImprimirPolizaPDF(IdPoliza)
|
||||||
|
pathPoliza = Path
|
||||||
|
If File.Exists(Path) Then
|
||||||
|
Pathpdf.Add(Path)
|
||||||
|
End If
|
||||||
|
|
||||||
|
For Each Row As DataRow In dt.Rows
|
||||||
|
If TieneComprobante Then
|
||||||
|
If Row("CveConceptoContable").ToString.ToEntero = 30 Then
|
||||||
|
If Row("CveIE").ToString.ToEntero > 0 Then
|
||||||
|
If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||||
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
||||||
|
Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
|
||||||
|
If File.Exists(Path) Then
|
||||||
|
TieneComprobante = True
|
||||||
|
Dim formato As String = System.IO.Path.GetExtension(Path)
|
||||||
|
If formato.ToLower.Contiene(".jpg", ".png", ".jpeg") Then
|
||||||
|
Dim ComprobantePDF As String = String.Format("{0}\{1}\comprobante.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick)
|
||||||
|
Using crea_archivo = New iTextSharp.text.Document(iTextSharp.text.PageSize.A4, 18, 18, 18, 18)
|
||||||
|
PdfWriter.GetInstance(crea_archivo, New FileStream(ComprobantePDF, FileMode.Create))
|
||||||
|
crea_archivo.Open()
|
||||||
|
Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(Path)
|
||||||
|
If image.Height > image.Width Then
|
||||||
|
Dim percentage As Double = 0.0F
|
||||||
|
percentage = 700 / image.Height
|
||||||
|
image.ScalePercent(percentage * 100)
|
||||||
|
Else
|
||||||
|
Dim percentage As Double = 0.0F
|
||||||
|
percentage = 540 / image.Width
|
||||||
|
image.ScalePercent(percentage * 100)
|
||||||
|
End If
|
||||||
|
crea_archivo.Add(image)
|
||||||
|
End Using
|
||||||
|
Pathpdf.Add(ComprobantePDF)
|
||||||
|
Else
|
||||||
|
Pathpdf.Add(Path)
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
TieneComprobante = False
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If Row("CveConceptoContable").ToString.ToEntero.Contiene(17, 309, 312, 308) Then
|
||||||
|
If ObjCompra.GetCompras(Row("CveCompra").ToString.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
||||||
|
If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
|
||||||
|
Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
|
||||||
|
Dim RFC As String = dr("RFC").ToString
|
||||||
|
Dim CveFactura As String = dr("CveFactura").ToString
|
||||||
|
Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura)
|
||||||
|
If File.Exists(Path) Then
|
||||||
|
|
||||||
|
Pathpdf.Add(Path)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
If TieneComprobante Then
|
||||||
|
dt = DtMovimientos.FiltraParametros("", "", filtroComplemento)
|
||||||
|
For Each Row As DataRow In dt.Rows
|
||||||
|
If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, Row("CveIE").ToString.ToEntero) Then
|
||||||
|
Console.WriteLine(Row("CveIE").ToString)
|
||||||
|
If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
|
||||||
|
Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
|
||||||
|
Dim RFC As String = dr("RFCde").ToString
|
||||||
|
Dim CveFactura As String = dr("CveFactura").ToString
|
||||||
|
Console.WriteLine(RFC & CveFactura)
|
||||||
|
If CveFactura <> "" Then
|
||||||
|
Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura)
|
||||||
|
Console.WriteLine(Path)
|
||||||
|
If File.Exists(Path) Then
|
||||||
|
Pathpdf.Add(Path)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
MergePdfFiles(Pathpdf.ToArray)
|
||||||
|
If File.Exists(pathPoliza) Then
|
||||||
|
Directory.Delete(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
Alert("No se tiene cargado comprobante de pago", TipoMensaje.MsgAdvertencia)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
Alert("Error al descargar el paquete", TipoMensaje.MsgError)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String
|
||||||
|
Dim ObjConta As New ClsContabilidad
|
||||||
|
'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)
|
||||||
|
|
||||||
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
|
||||||
|
Dim params As New List(Of ReportParameter)
|
||||||
|
Dim Bytes As Byte() = Nothing
|
||||||
|
|
||||||
|
|
||||||
|
'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
|
||||||
|
If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||||
|
Dim dtVC As DataTable
|
||||||
|
Dim dr As DataRow
|
||||||
|
dtVC = ObjConta.DtResultados
|
||||||
|
dr = dtVC.Rows(0)
|
||||||
|
Dim ruta As String = ""
|
||||||
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||||
|
params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
|
||||||
|
params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
|
||||||
|
params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
|
||||||
|
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
||||||
|
'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
|
||||||
|
'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
|
||||||
|
params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
|
||||||
|
params.Add(New ReportParameter("Moneda", ""))
|
||||||
|
params.Add(New ReportParameter("CodigoPostal", ""))
|
||||||
|
If UsuarioActual.CveEmpresa = 119 Then
|
||||||
|
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
||||||
|
End If
|
||||||
|
If Archivo.Exists Then
|
||||||
|
ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
|
||||||
|
Else
|
||||||
|
ruta = "Empresas/Grales/Formatos/Polizas.rdlc"
|
||||||
|
End If
|
||||||
|
Bytes = StreamPDF(ruta, dtVC, params, "ppoliza")
|
||||||
|
If Not File.Exists(String.Format("{0}{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)) Then
|
||||||
|
DirectoryExistsCreate(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick))
|
||||||
|
File.WriteAllBytes(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString), Bytes)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)
|
||||||
|
ObjConta.Dispose()
|
||||||
|
|
||||||
|
End Function
|
||||||
|
Private Sub MergePdfFiles(ByVal pdfFiles() As String)
|
||||||
|
Dim result As Boolean = False
|
||||||
|
Dim pdfCount As Integer = 0
|
||||||
|
Dim f As Integer = 0
|
||||||
|
Dim fileName As String
|
||||||
|
Dim reader As iTextSharp.text.pdf.PdfReader = Nothing
|
||||||
|
Dim pageCount As Integer = 0
|
||||||
|
Dim pdfDoc As iTextSharp.text.Document = Nothing
|
||||||
|
Dim writer As PdfWriter = Nothing
|
||||||
|
Dim cb As PdfContentByte = Nothing
|
||||||
|
|
||||||
|
Dim page As PdfImportedPage = Nothing
|
||||||
|
Dim rotation As Integer = 0
|
||||||
|
|
||||||
|
|
||||||
|
Try
|
||||||
|
pdfCount = pdfFiles.Length
|
||||||
|
If pdfCount > 0 Then
|
||||||
|
fileName = pdfFiles(f)
|
||||||
|
reader = New iTextSharp.text.pdf.PdfReader(fileName)
|
||||||
|
pageCount = reader.NumberOfPages
|
||||||
|
pdfDoc = New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1), 18, 18, 18, 18)
|
||||||
|
writer = PdfWriter.GetInstance(pdfDoc, New FileStream(String.Format("{0}\{1}\{2}-{3}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, TipoPoliza, Folio), FileMode.Create))
|
||||||
|
|
||||||
|
With pdfDoc
|
||||||
|
.Open()
|
||||||
|
End With
|
||||||
|
cb = writer.DirectContent
|
||||||
|
While f < pdfCount
|
||||||
|
Dim i As Integer = 0
|
||||||
|
While i < pageCount
|
||||||
|
i += 1
|
||||||
|
pdfDoc.SetPageSize(reader.GetPageSizeWithRotation(i))
|
||||||
|
pdfDoc.NewPage()
|
||||||
|
page = writer.GetImportedPage(reader, i)
|
||||||
|
rotation = reader.GetPageRotation(i)
|
||||||
|
If rotation = 90 Then
|
||||||
|
cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(i).Height)
|
||||||
|
ElseIf rotation = 270 Then
|
||||||
|
cb.AddTemplate(page, 0, 1.0F, -1.0F, 0, reader.GetPageSizeWithRotation(i).Width + 60, -30)
|
||||||
|
Else
|
||||||
|
cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, 0)
|
||||||
|
End If
|
||||||
|
End While
|
||||||
|
f += 1
|
||||||
|
If f < pdfCount Then
|
||||||
|
fileName = pdfFiles(f)
|
||||||
|
reader = New iTextSharp.text.pdf.PdfReader(fileName)
|
||||||
|
pageCount = reader.NumberOfPages
|
||||||
|
End If
|
||||||
|
End While
|
||||||
|
|
||||||
|
|
||||||
|
pdfDoc.Close()
|
||||||
|
|
||||||
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}\{1}\{2}-{3}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, TipoPoliza, Folio))
|
||||||
|
|
||||||
|
If Archivo.Exists Then
|
||||||
|
HttpContext.Current.Response.Clear()
|
||||||
|
HttpContext.Current.Response.ClearContent()
|
||||||
|
HttpContext.Current.Response.ContentType = "application/octet-stream"
|
||||||
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
||||||
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
||||||
|
HttpContext.Current.Response.TransmitFile(String.Format("{0}\{1}\{2}-{3}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, TipoPoliza, Folio))
|
||||||
|
Response.Flush() ' send it to the client to download
|
||||||
|
HttpContext.Current.Response.SuppressContent = True
|
||||||
|
HttpContext.Current.ApplicationInstance.CompleteRequest()
|
||||||
|
|
||||||
|
End If
|
||||||
|
result = True
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
@@ -1945,7 +2217,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
Next
|
Next
|
||||||
If Not TieneError Then
|
If Not TieneError Then
|
||||||
ObjConta.Commit()
|
ObjConta.Commit()
|
||||||
Alert(String.Format("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjConta.ContaFolio))
|
Alert(String.Format("<br/><br/>Prepóliza: <b><a href=""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjConta.ContaFolio))
|
||||||
|
|
||||||
Alert($"Se agregó la póliza {ObjConta.ContaFolio}")
|
Alert($"Se agregó la póliza {ObjConta.ContaFolio}")
|
||||||
|
|
||||||
@@ -2014,5 +2286,41 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
Return dataTable
|
Return dataTable
|
||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click
|
||||||
|
Dim ObjIE As New ClsBancos
|
||||||
|
Dim Comprobante As String = ""
|
||||||
|
|
||||||
|
Dim Filesgral As List(Of Archivo) = TxtCargarArchivo.getfiles().Archivos
|
||||||
|
If Filesgral.Count > 0 Then
|
||||||
|
Dim fileItem As Archivo = Filesgral(0)
|
||||||
|
Dim Path As String = HttpContext.Current.Request.ApplicationPath
|
||||||
|
Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
||||||
|
|
||||||
|
Path = Extensiones.DirectorioBaseEmpresas
|
||||||
|
Path += String.Format("Empresas/{0}/IE", UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If Not Directory.Exists(Path) Then
|
||||||
|
Directory.CreateDirectory(Path)
|
||||||
|
End If
|
||||||
|
Path += $"/{CveIE}.{Comprobante}"
|
||||||
|
If File.Exists(Path) Then
|
||||||
|
File.Delete(Path)
|
||||||
|
End If
|
||||||
|
My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path)
|
||||||
|
End If
|
||||||
|
TxtCargarArchivo.Text = ""
|
||||||
|
RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1")
|
||||||
|
|
||||||
|
If ObjIE.UpdateComprobanteIE(Comprobante.Replace("."c, ""), CveIE) Then
|
||||||
|
Alert("El Comprobante se guardo exitosamente.", TipoMensaje.MsgInformacion)
|
||||||
|
End If
|
||||||
|
|
||||||
|
ObjIE.Dispose()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|||||||
@@ -67,9 +67,17 @@
|
|||||||
<asp:Label ID="LblEncabezado" runat="server" Text=" Registro de Póliza"></asp:Label>
|
<asp:Label ID="LblEncabezado" runat="server" Text=" Registro de Póliza"></asp:Label>
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||||
<li>
|
<asp:UpdatePanel runat="server">
|
||||||
<asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
|
<ContentTemplate>
|
||||||
</li>
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="far fa-file-excel" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
<asp:UpdatePanel runat="server">
|
<asp:UpdatePanel runat="server">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<li>
|
<li>
|
||||||
@@ -779,6 +787,54 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
<div id="DivCargaExcel" class="modal ADS fade" role="dialog">
|
||||||
|
<div class="modal-dialog">
|
||||||
|
<!-- Modal content-->
|
||||||
|
<div class="modal-content">
|
||||||
|
<div class="modal-header ">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">Agregar Excel</h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
<div class="row">
|
||||||
|
<label class="col-md-2 truncate" style="text-align: right;">Plantilla:</label>
|
||||||
|
<div class="col-md-10">
|
||||||
|
<asp:DropDownList ID="DdlPlantilla2" runat="server" DataValueField="CvePlantillaPoliza" DataTextField="PlantillaPoliza" class="select2me" Width="100%"></asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12">
|
||||||
|
<h3>Arraste o haga click para subir el archivo Excel</h3>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-11" style="margin-left: 30px; margin-right: 30px; margin-bottom: 10px;">
|
||||||
|
<asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="modal-footer">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-3" style="text-align: left">
|
||||||
|
<asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<asp:Button ID="BtnDescargar" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
|
||||||
|
</ContentTemplate>
|
||||||
|
<Triggers>
|
||||||
|
<asp:PostBackTrigger ControlID="BtnDescargar" />
|
||||||
|
</Triggers>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="col-md-9" style="text-align: right">
|
||||||
|
<asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Aceptar"></asp:Button>
|
||||||
|
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
|
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
|
||||||
|
|||||||
@@ -4,11 +4,12 @@ Imports System.Data
|
|||||||
Imports Extensiones
|
Imports Extensiones
|
||||||
Imports System.Linq
|
Imports System.Linq
|
||||||
Imports System.Web.Services
|
Imports System.Web.Services
|
||||||
|
Imports GemBox.Spreadsheet
|
||||||
|
|
||||||
Partial Class ContabilidadC_RegPrePolizaS
|
Partial Class ContabilidadC_RegPrePolizaS
|
||||||
Inherits ClsPaginas
|
Inherits ClsPaginas
|
||||||
|
|
||||||
|
|
||||||
#Region "Propiedades"
|
#Region "Propiedades"
|
||||||
Public Property ArregloMovs As ArrayList
|
Public Property ArregloMovs As ArrayList
|
||||||
Get
|
Get
|
||||||
@@ -157,9 +158,9 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
Set(value As Integer)
|
Set(value As Integer)
|
||||||
ViewState("IndiceGrid") = value
|
ViewState("IndiceGrid") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
|
||||||
If Not Page.IsPostBack Then
|
If Not Page.IsPostBack Then
|
||||||
@@ -483,16 +484,29 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CargaPlantillas(TipoPlantilla As Integer)
|
Private Sub CargaPlantillas(TipoPlantilla As Integer)
|
||||||
|
|
||||||
'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
|
'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
|
||||||
'GvPlantillas.DataBind()
|
'GvPlantillas.DataBind()
|
||||||
|
|
||||||
DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
|
If UsuarioActual.CveEmpresa.Contiene(120) Then
|
||||||
DdlPlantilla.DataBind()
|
DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
|
||||||
DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
|
DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
|
||||||
End Sub
|
|
||||||
|
Else
|
||||||
|
DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
|
||||||
|
DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
DdlPlantilla.DataBind()
|
||||||
|
DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
|
||||||
|
|
||||||
|
DdlPlantilla2.DataBind()
|
||||||
|
DdlPlantilla2.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
|
||||||
|
End Sub
|
||||||
|
|
||||||
Private Sub CargaConceptos()
|
Private Sub CargaConceptos()
|
||||||
DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1)
|
DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1)
|
||||||
DdlConceptosContables.DataBind()
|
DdlConceptosContables.DataBind()
|
||||||
@@ -543,8 +557,9 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
|
|
||||||
Private Sub CargaCuentasContables()
|
Private Sub CargaCuentasContables()
|
||||||
Dim ObjConta As New ClsContabilidad
|
Dim ObjConta As New ClsContabilidad
|
||||||
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
|
If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
||||||
DdlCtaContable.DataSource = ObjConta.DtResultados
|
DdlCtaContable.DataSource = ObjConta.DtResultados
|
||||||
|
DtCuentasContables = ObjConta.DtResultados
|
||||||
End If
|
End If
|
||||||
ObjConta.Dispose()
|
ObjConta.Dispose()
|
||||||
DdlCtaContable.DataBind()
|
DdlCtaContable.DataBind()
|
||||||
@@ -1338,7 +1353,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
dr("IdCuenta") = DdlCtaContable.SelectedValue
|
dr("IdCuenta") = DdlCtaContable.SelectedValue
|
||||||
|
|
||||||
If DdlCtaContable.SelectedValue.ToEntero > 0 Then
|
If DdlCtaContable.SelectedValue.ToEntero > 0 Then
|
||||||
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue))
|
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue))
|
||||||
If drr IsNot Nothing Then
|
If drr IsNot Nothing Then
|
||||||
CodigoCuenta = drr("CuentaFormato").ToString()
|
CodigoCuenta = drr("CuentaFormato").ToString()
|
||||||
NombreCuenta = drr("Nombre").ToString()
|
NombreCuenta = drr("Nombre").ToString()
|
||||||
@@ -1406,7 +1421,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
dr("IdCuenta") = DdlCtaContable.SelectedValue
|
dr("IdCuenta") = DdlCtaContable.SelectedValue
|
||||||
|
|
||||||
If DdlCtaContable.SelectedValue.ToEntero > 0 Then
|
If DdlCtaContable.SelectedValue.ToEntero > 0 Then
|
||||||
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue))
|
Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue))
|
||||||
If drr IsNot Nothing Then
|
If drr IsNot Nothing Then
|
||||||
CodigoCuenta = drr("CuentaFormato").ToString()
|
CodigoCuenta = drr("CuentaFormato").ToString()
|
||||||
NombreCuenta = drr("Nombre").ToString()
|
NombreCuenta = drr("Nombre").ToString()
|
||||||
@@ -1457,8 +1472,8 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
TxtAbono.Text = ""
|
TxtAbono.Text = ""
|
||||||
TxtReferencia.Text = ""
|
TxtReferencia.Text = ""
|
||||||
TxtDescripcion.Text = ""
|
TxtDescripcion.Text = ""
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "PESTAÑA INFORMACION GENERAL DE BANCO IE"
|
#Region "PESTAÑA INFORMACION GENERAL DE BANCO IE"
|
||||||
Public Sub Bancos_Click(sender As Object, e As EventArgs)
|
Public Sub Bancos_Click(sender As Object, e As EventArgs)
|
||||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||||
@@ -1510,9 +1525,9 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
ObjContabilidad.Dispose()
|
ObjContabilidad.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Protected Sub DdlTipoGasto_SelectedIndexChanged(sender As Object, e As EventArgs)
|
Protected Sub DdlTipoGasto_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||||
If UpPrePoliza.Visible Then
|
If UpPrePoliza.Visible Then
|
||||||
For Each Gvr As GridViewRow In GvPrePoliza.Rows
|
For Each Gvr As GridViewRow In GvPrePoliza.Rows
|
||||||
@@ -1669,11 +1684,11 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
ObjConta.Dispose()
|
ObjConta.Dispose()
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
#Region "COMPLEMENTO DE PAGO"
|
#Region "COMPLEMENTO DE PAGO"
|
||||||
|
|
||||||
Private Sub GeneraTimbre(CvePrePoliza As Integer)
|
Private Sub GeneraTimbre(CvePrePoliza As Integer)
|
||||||
Dim Str As New StringBuilder
|
Dim Str As New StringBuilder
|
||||||
Dim Banco As New ClsBancos
|
Dim Banco As New ClsBancos
|
||||||
@@ -1730,10 +1745,211 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
|
|
||||||
Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs)
|
Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs)
|
||||||
GeneraTimbre(CvePrePoliza)
|
GeneraTimbre(CvePrePoliza)
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#Region "E X C E L"
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal();", "DivCargaExcel"))
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
|
||||||
|
Dim NombreArchivo As String
|
||||||
|
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
|
||||||
|
Dim workbook As New ExcelFile()
|
||||||
|
Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.ToString)
|
||||||
|
|
||||||
|
Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero
|
||||||
|
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
|
||||||
|
|
||||||
|
Dim DtExcel As DataTable = (From row As DataRow In Dt.Rows
|
||||||
|
Select New With
|
||||||
|
{
|
||||||
|
.ConceptoAdministrativo = row.Item("ConceptoContable"),
|
||||||
|
.Cuenta = row.Item("Codigo"),
|
||||||
|
.NombreCuenta = row.Item("NombreCuenta"),
|
||||||
|
.Cargo = "",
|
||||||
|
.Abono = "",
|
||||||
|
.Referencia = "",
|
||||||
|
.Concepto = "",
|
||||||
|
.SubProyecto = row.Item("SubProyecto"),
|
||||||
|
.CveConceptoContable = row.Item("CveConcepto"),
|
||||||
|
.CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
|
||||||
|
.IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1),
|
||||||
|
.CveCuenta = row.Item("CveCuenta")
|
||||||
|
}).QueryToDataTable(True)
|
||||||
|
|
||||||
|
worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
|
||||||
|
{
|
||||||
|
.ColumnHeaders = True,
|
||||||
|
.StartRow = 0,
|
||||||
|
.StartColumn = 0
|
||||||
|
})
|
||||||
|
|
||||||
|
Dim columnCount = worksheet.CalculateMaxUsedColumns()
|
||||||
|
For i = 0 To columnCount
|
||||||
|
worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
|
||||||
|
Next
|
||||||
|
worksheet.Columns("I").Hidden = True
|
||||||
|
worksheet.Columns("J").Hidden = True
|
||||||
|
worksheet.Columns("K").Hidden = True
|
||||||
|
worksheet.Columns("L").Hidden = True
|
||||||
|
|
||||||
|
|
||||||
|
NombreArchivo = DdlPlantilla2.SelectedItem.Text.ToString
|
||||||
|
workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
|
||||||
|
If TxtExcel.getfiles().Archivos.Count > 0 Then
|
||||||
|
Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
|
||||||
|
|
||||||
|
Dim Directorio As String = Server.MapPath("~") & file.patch
|
||||||
|
|
||||||
|
Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
|
||||||
|
CargarArchivo(Directorio, file.filename, Tipo)
|
||||||
|
Else
|
||||||
|
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
|
||||||
|
Dim dt As New DataTable
|
||||||
|
' Conexion As Odbc.OdbcConnection = Nothing
|
||||||
|
Dim ErrorArchivo = False
|
||||||
|
Dim ErrorExcel = False
|
||||||
|
|
||||||
|
dt = ReadExcelFile(Ruta + FileName, True)
|
||||||
|
|
||||||
|
|
||||||
|
If Not ErrorArchivo Then
|
||||||
|
|
||||||
|
If Not dt.Columns(0).ColumnName = "ConceptoAdministrativo" Then
|
||||||
|
Alert("El nombre de la primera columna debe ser 'ConceptoAdmin'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(1).ColumnName = "Cuenta" Then
|
||||||
|
Alert("El nombre de la segunda columna debe ser 'Cuenta'.Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(2).ColumnName = "NombreCuenta" Then
|
||||||
|
Alert("El nombre de la tercera columna debe ser 'NombreCuenta'.Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(3).ColumnName = "Cargo" Then
|
||||||
|
Alert("El nombre de la cuarta columna debe ser 'Cargo'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(4).ColumnName = "Abono" Then
|
||||||
|
Alert("El nombre de la quinta columna debe ser 'Abono' .Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(5).ColumnName = "Referencia" Then
|
||||||
|
Alert("El nombre de la sexta columna debe ser 'Referencia'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(6).ColumnName = "Concepto" Then
|
||||||
|
Alert("El nombre de la séptima columna debe ser 'Concepto'.Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(7).ColumnName = "SubProyecto" Then
|
||||||
|
Alert("El nombre de la octava columna debe ser 'SubProyecto'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Not ErrorArchivo Then
|
||||||
|
|
||||||
|
|
||||||
|
Dim ObjConta As New ClsContabilidad()
|
||||||
|
ObjConta.IniciaTransacSQL()
|
||||||
|
Try
|
||||||
|
Dim TieneError As Boolean = False
|
||||||
|
Dim ContadorUpdate As Integer = 0
|
||||||
|
Dim ContadorError As Integer = 0
|
||||||
|
Dim NombreCuenta As String = ""
|
||||||
|
Dim CvePrePoliza As Integer = 0
|
||||||
|
Dim Cuenta As String = ""
|
||||||
|
Dim Reporte As New StringBuilder
|
||||||
|
Dim TotalCargos As Integer = 0
|
||||||
|
Dim TotalAbonos As Integer = 0
|
||||||
|
|
||||||
|
|
||||||
|
CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/RegPrePolizaExcel", DdlPlantilla2.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, DdlPlantilla2.SelectedItem.Text.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero)
|
||||||
|
|
||||||
|
|
||||||
|
For Each Row As DataRow In dt.Rows
|
||||||
|
NombreCuenta = Row("NombreCuenta").ToString
|
||||||
|
Cuenta = Row("Cuenta").ToString
|
||||||
|
|
||||||
|
Dim Importe As Decimal = If(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal)
|
||||||
|
Dim Concepto As String = Row("Concepto").ToString
|
||||||
|
Dim Referencia As String = Row("Referencia").ToString
|
||||||
|
Dim IdCuenta As Integer = -1
|
||||||
|
Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero
|
||||||
|
Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
|
||||||
|
Dim YaExiste As Boolean = False
|
||||||
|
Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
|
||||||
|
Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
|
||||||
|
|
||||||
|
|
||||||
|
If Importe <> 0 Then
|
||||||
|
|
||||||
|
If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
|
||||||
|
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||||
|
IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero
|
||||||
|
'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo")
|
||||||
|
Else
|
||||||
|
Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} </br>")
|
||||||
|
TieneError = True
|
||||||
|
YaExiste = True
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
TieneError = True
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If YaExiste = False Then
|
||||||
|
If IdCuenta > 0 Then
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
|
||||||
|
TieneError = True
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
IdCuenta = -2
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
If Not TieneError Then
|
||||||
|
ObjConta.Commit()
|
||||||
|
Alert(String.Format("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, "Ver"))
|
||||||
|
|
||||||
|
Alert($"Se agregó la póliza {ObjConta.ContaFolio}")
|
||||||
|
|
||||||
|
Else
|
||||||
|
Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError)
|
||||||
|
ObjConta.RollBack()
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
ObjConta.RollBack()
|
||||||
|
End Try
|
||||||
|
|
||||||
|
ObjConta.Dispose()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|||||||
@@ -216,6 +216,7 @@
|
|||||||
<asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:BoundField HeaderText="IVA ND" DataField="IVANoDeducible" DataFormatString="{0:#,###,###.##}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="IVA ND" DataField="IVANoDeducible" DataFormatString="{0:#,###,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||||
|
<asp:BoundField HeaderText="IVA <br/>Importación " HtmlEncode="False" DataField="IvaExentoImpo" Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
|
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
|
||||||
<HeaderTemplate>
|
<HeaderTemplate>
|
||||||
@@ -231,7 +232,7 @@
|
|||||||
<asp:BoundField HeaderText="RetIVA <br/> Serv." HtmlEncode="False" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="RetIVA <br/> Serv." HtmlEncode="False" DataField="RetIVAServicios" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||||
|
|
||||||
<asp:BoundField HeaderText="RetISR <br/> Honorario" HtmlEncode="False" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="RetISR <br/> Honorario" HtmlEncode="False" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:BoundField HeaderText="RetISR <br/> Arrendamiento" HtmlEncode="False" DataField="RetISRArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="RetISR <br/> Arrendamiento" HtmlEncode="False" DataField="RetISRArrend" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:BoundField HeaderText="F.Compra" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="F.Compra" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" />
|
<asp:BoundField HeaderText="Folio Fiscal" DataField="FolioFiscal" />
|
||||||
|
|||||||
@@ -53,7 +53,6 @@ public partial class Contabilidad_RepIVA : ClsPaginas
|
|||||||
if (!IsPostBack)
|
if (!IsPostBack)
|
||||||
{
|
{
|
||||||
InicializaValores();
|
InicializaValores();
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -61,8 +60,9 @@ public partial class Contabilidad_RepIVA : ClsPaginas
|
|||||||
{
|
{
|
||||||
TipoCambio = 1;
|
TipoCambio = 1;
|
||||||
TCEspecifico = -1;
|
TCEspecifico = -1;
|
||||||
txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
|
DateTime FF = DateTime.Now.AddMonths(-1);
|
||||||
txtFechaF.Text = DateTime.Now.ToShortDateString();
|
txtFechaI.Text = $"01/{FF.Month}/{FF.Year}";
|
||||||
|
txtFechaF.Text = FF.ToShortDateString();
|
||||||
|
|
||||||
LnkAccionesDIOT.Visible = true;
|
LnkAccionesDIOT.Visible = true;
|
||||||
|
|
||||||
@@ -104,6 +104,8 @@ public partial class Contabilidad_RepIVA : ClsPaginas
|
|||||||
LblMsgAcreditable.Text = "La información presenta importes en negativo, estos no se incluirán en el archivo generado para DIOT";
|
LblMsgAcreditable.Text = "La información presenta importes en negativo, estos no se incluirán en el archivo generado para DIOT";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
GvA.Columns[11].Visible = DtIVAAcreditable.SUM("IvaExentoImpo") > 0; // sino tiene valor la columna de importación de oculta
|
||||||
|
|
||||||
|
|
||||||
if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, DdlCuenta.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
|
if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, DdlCuenta.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
|
||||||
{
|
{
|
||||||
|
|||||||
@@ -894,6 +894,10 @@ Partial Class Contratos_Default
|
|||||||
GRidsPresupuestos.Visible = True
|
GRidsPresupuestos.Visible = True
|
||||||
msjpresupuestos.Visible = False
|
msjpresupuestos.Visible = False
|
||||||
|
|
||||||
|
If ObjContratos.CveContratoTipo = 30 Then
|
||||||
|
Server.Transfer(String.Format("/Contratos/ContratoObra.aspx?CveContrato={0}", CveContrato))
|
||||||
|
End If
|
||||||
|
|
||||||
If ArchivoUpdate = ObjContratos.Archivo.ToString Then
|
If ArchivoUpdate = ObjContratos.Archivo.ToString Then
|
||||||
LinkArchivo.Visible = True
|
LinkArchivo.Visible = True
|
||||||
LinkArchivo.HRef = String.Format("{0}{1}", Ruta, ObjContratos.Archivo.ToString)
|
LinkArchivo.HRef = String.Format("{0}{1}", Ruta, ObjContratos.Archivo.ToString)
|
||||||
|
|||||||
@@ -192,7 +192,7 @@
|
|||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
|
|
||||||
<asp:TemplateField HeaderText="Procentaje">
|
<asp:TemplateField HeaderText="Porcentaje">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:TextBox ID="TxtPorcentaje" Text="" CssClass="txtporcentaje" data-cve='<%# Eval("CveContratoDetalle") %>' type="number" step="any" Width="90" runat="server"></asp:TextBox>
|
<asp:TextBox ID="TxtPorcentaje" Text="" CssClass="txtporcentaje" data-cve='<%# Eval("CveContratoDetalle") %>' type="number" step="any" Width="90" runat="server"></asp:TextBox>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
|
|||||||
@@ -103,7 +103,7 @@
|
|||||||
</li>
|
</li>
|
||||||
|
|
||||||
<li>
|
<li>
|
||||||
<asp:LinkButton ID="LnkModalAddMaquinariaFlotilla" Visible="false" runat="server" OnClick="LnkModalAddMaquinariaFlotilla_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Maquionaria Flotilla Herramienta</asp:LinkButton>
|
<asp:LinkButton ID="LnkModalAddMaquinariaFlotilla" Visible="false" runat="server" OnClick="LnkModalAddMaquinariaFlotilla_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Maquinaria-Flotilla-Herramienta</asp:LinkButton>
|
||||||
</li>
|
</li>
|
||||||
|
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
|
|||||||
@@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
|
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
|
||||||
<AutoRefresh>0</AutoRefresh>
|
<AutoRefresh>0</AutoRefresh>
|
||||||
<DataSources>
|
<DataSources>
|
||||||
<DataSource Name="DataSet1">
|
<DataSource Name="DataSet1">
|
||||||
@@ -171,7 +171,6 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<rd:Selected>true</rd:Selected>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
@@ -461,7 +460,6 @@
|
|||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<ColSpan>7</ColSpan>
|
<ColSpan>7</ColSpan>
|
||||||
<rd:Selected>true</rd:Selected>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell />
|
<TablixCell />
|
||||||
@@ -553,7 +551,6 @@
|
|||||||
<PaddingBottom>2pt</PaddingBottom>
|
<PaddingBottom>2pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<rd:Selected>true</rd:Selected>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
@@ -774,7 +771,6 @@
|
|||||||
<PaddingBottom>1pt</PaddingBottom>
|
<PaddingBottom>1pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<rd:Selected>true</rd:Selected>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
@@ -885,40 +881,40 @@
|
|||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
<CellContents>
|
<CellContents>
|
||||||
<Textbox Name="Cargo2">
|
<Textbox Name="Cargo">
|
||||||
<KeepTogether>true</KeepTogether>
|
<KeepTogether>true</KeepTogether>
|
||||||
<Paragraphs>
|
<Paragraphs>
|
||||||
<Paragraph>
|
<Paragraph>
|
||||||
<TextRuns>
|
<TextRuns>
|
||||||
<TextRun>
|
<TextRun>
|
||||||
<Value>= Fields!Cargo.Value</Value>
|
<Value>=Fields!Cargo.Value</Value>
|
||||||
<Style>
|
<Style>
|
||||||
<FontFamily>calibri</FontFamily>
|
<FontFamily>calibri</FontFamily>
|
||||||
<FontSize>8pt</FontSize>
|
<FontSize>8pt</FontSize>
|
||||||
<Format>#,0.00</Format>
|
<Format>#,0.00</Format>
|
||||||
<Language>es-MX</Language>
|
<Language>es-MX</Language>
|
||||||
</Style>
|
</Style>
|
||||||
</TextRun>
|
</TextRun>
|
||||||
</TextRuns>
|
</TextRuns>
|
||||||
|
<Style>
|
||||||
|
<TextAlign>Right</TextAlign>
|
||||||
|
</Style>
|
||||||
|
</Paragraph>
|
||||||
|
</Paragraphs>
|
||||||
|
<rd:DefaultName>Cargo</rd:DefaultName>
|
||||||
|
<Visibility>
|
||||||
|
<Hidden>=iif(Fields!TipoMovto.Value = "1", true, false)</Hidden>
|
||||||
|
</Visibility>
|
||||||
<Style>
|
<Style>
|
||||||
<TextAlign>Right</TextAlign>
|
<Border>
|
||||||
|
<Style>None</Style>
|
||||||
|
</Border>
|
||||||
|
<PaddingLeft>1pt</PaddingLeft>
|
||||||
|
<PaddingRight>1pt</PaddingRight>
|
||||||
|
<PaddingTop>1pt</PaddingTop>
|
||||||
|
<PaddingBottom>1pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Paragraph>
|
</Textbox>
|
||||||
</Paragraphs>
|
|
||||||
<Visibility>
|
|
||||||
<Hidden>=iif(Fields!TipoMovto.Value ="0",False,True)</Hidden>
|
|
||||||
</Visibility>
|
|
||||||
<Style>
|
|
||||||
<Border>
|
|
||||||
<Style>None</Style>
|
|
||||||
</Border>
|
|
||||||
<PaddingLeft>1pt</PaddingLeft>
|
|
||||||
<PaddingRight>1pt</PaddingRight>
|
|
||||||
<PaddingTop>1pt</PaddingTop>
|
|
||||||
<PaddingBottom>1pt</PaddingBottom>
|
|
||||||
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
|
|
||||||
</Style>
|
|
||||||
</Textbox>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
@@ -929,7 +925,7 @@
|
|||||||
<Paragraph>
|
<Paragraph>
|
||||||
<TextRuns>
|
<TextRuns>
|
||||||
<TextRun>
|
<TextRun>
|
||||||
<Value>= Fields!Abono.Value</Value>
|
<Value>=Fields!Abono.Value</Value>
|
||||||
<Style>
|
<Style>
|
||||||
<FontFamily>calibri</FontFamily>
|
<FontFamily>calibri</FontFamily>
|
||||||
<FontSize>8pt</FontSize>
|
<FontSize>8pt</FontSize>
|
||||||
@@ -946,7 +942,7 @@
|
|||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Abono</rd:DefaultName>
|
<rd:DefaultName>Abono</rd:DefaultName>
|
||||||
<Visibility>
|
<Visibility>
|
||||||
<Hidden>=iif(Fields!TipoMovto.Value ="1",False,True)</Hidden>
|
<Hidden>=iif(Fields!TipoMovto.Value = "0", true, false)</Hidden>
|
||||||
</Visibility>
|
</Visibility>
|
||||||
<Style>
|
<Style>
|
||||||
<Border>
|
<Border>
|
||||||
@@ -959,6 +955,7 @@
|
|||||||
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
|
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
|
<rd:Selected>true</rd:Selected>
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
</TablixCells>
|
</TablixCells>
|
||||||
@@ -996,7 +993,6 @@
|
|||||||
<PaddingBottom>1pt</PaddingBottom>
|
<PaddingBottom>1pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<rd:Selected>true</rd:Selected>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
@@ -1071,7 +1067,7 @@
|
|||||||
<TablixCell />
|
<TablixCell />
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
<CellContents>
|
<CellContents>
|
||||||
<Textbox Name="Textbox113">
|
<Textbox Name="Textbox6">
|
||||||
<CanGrow>true</CanGrow>
|
<CanGrow>true</CanGrow>
|
||||||
<KeepTogether>true</KeepTogether>
|
<KeepTogether>true</KeepTogether>
|
||||||
<Paragraphs>
|
<Paragraphs>
|
||||||
@@ -1091,7 +1087,7 @@
|
|||||||
</Style>
|
</Style>
|
||||||
</Paragraph>
|
</Paragraph>
|
||||||
</Paragraphs>
|
</Paragraphs>
|
||||||
<rd:DefaultName>Textbox113</rd:DefaultName>
|
<rd:DefaultName>Textbox6</rd:DefaultName>
|
||||||
<Style>
|
<Style>
|
||||||
<Border>
|
<Border>
|
||||||
<Style>None</Style>
|
<Style>None</Style>
|
||||||
@@ -1211,7 +1207,6 @@
|
|||||||
<PaddingBottom>1pt</PaddingBottom>
|
<PaddingBottom>1pt</PaddingBottom>
|
||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<rd:Selected>true</rd:Selected>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell>
|
<TablixCell>
|
||||||
@@ -1546,7 +1541,6 @@
|
|||||||
</Style>
|
</Style>
|
||||||
</Textbox>
|
</Textbox>
|
||||||
<ColSpan>3</ColSpan>
|
<ColSpan>3</ColSpan>
|
||||||
<rd:Selected>true</rd:Selected>
|
|
||||||
</CellContents>
|
</CellContents>
|
||||||
</TablixCell>
|
</TablixCell>
|
||||||
<TablixCell />
|
<TablixCell />
|
||||||
@@ -2052,6 +2046,7 @@
|
|||||||
<Prompt>ReportParameter1</Prompt>
|
<Prompt>ReportParameter1</Prompt>
|
||||||
</ReportParameter>
|
</ReportParameter>
|
||||||
</ReportParameters>
|
</ReportParameters>
|
||||||
|
|
||||||
<Code>
|
<Code>
|
||||||
REM Reset Page Number:
|
REM Reset Page Number:
|
||||||
Shared offset As Integer
|
Shared offset As Integer
|
||||||
|
|||||||
6015
Empresas/158/Formatos/Factura.rdlc
Normal file
6015
Empresas/158/Formatos/Factura.rdlc
Normal file
File diff suppressed because it is too large
Load Diff
@@ -50,7 +50,7 @@ public partial class General_CATIEPSxEntidadFed : ClsPaginas
|
|||||||
DdlEstado.DataBind();
|
DdlEstado.DataBind();
|
||||||
|
|
||||||
|
|
||||||
DdlEstado.Items.Insert(0, new ListItem("Seleccione", "-1"));
|
DdlEstado.Items.Insert(0, new ListItem("Todos", "-1"));
|
||||||
RcveEstado = Request["cveEstado"] == null ? -1 : Request["cveEstado"].ToString().ToEntero();
|
RcveEstado = Request["cveEstado"] == null ? -1 : Request["cveEstado"].ToString().ToEntero();
|
||||||
RtasaIEPS = Request["tasaIEPS"] == null ? -1 : Request["tasaIEPS"].ToString().ToDecimal();
|
RtasaIEPS = Request["tasaIEPS"] == null ? -1 : Request["tasaIEPS"].ToString().ToDecimal();
|
||||||
RfechaInicio = Request["fechaInicio"] == null ? string.Format("01/{0:MM/yyyy}", DateTime.Now.AddMonths(-1)) : Request["fechaInicio"].ToString();
|
RfechaInicio = Request["fechaInicio"] == null ? string.Format("01/{0:MM/yyyy}", DateTime.Now.AddMonths(-1)) : Request["fechaInicio"].ToString();
|
||||||
|
|||||||
@@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CargaCombos()
|
Private Sub CargaCombos()
|
||||||
Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,12,14,16)")
|
Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,12,14,16, 26)")
|
||||||
|
|
||||||
DdlAlmacen.DataSource = DtAlmacenes
|
DdlAlmacen.DataSource = DtAlmacenes
|
||||||
DdlAlmacen.DataBind()
|
DdlAlmacen.DataBind()
|
||||||
|
|||||||
@@ -206,12 +206,11 @@
|
|||||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
|
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
|
||||||
data-sort="true" GridLines="None">
|
data-sort="true" GridLines="None">
|
||||||
<Columns>
|
<Columns>
|
||||||
<asp:BoundField HeaderText="Folio" DataField="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
|
<asp:HyperlinkField DataTextField="Folio" HeaderText="Folio" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
|
||||||
|
<asp:BoundField HeaderText="Fecha" DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="5%" />
|
||||||
<asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
|
<asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
|
||||||
<asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" />
|
<asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" />
|
||||||
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" />
|
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" />
|
||||||
|
|
||||||
|
|
||||||
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"/>
|
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"/>
|
||||||
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left"/>
|
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left"/>
|
||||||
<asp:BoundField HeaderText="Valor" DataField="Valor" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n}" />
|
<asp:BoundField HeaderText="Valor" DataField="Valor" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n}" />
|
||||||
|
|||||||
@@ -100,6 +100,13 @@ Partial Class RepTraspasoAlmacen
|
|||||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
|
|
||||||
|
If e.Row.DBCampo("Folio") = "" Then
|
||||||
|
e.Row.CssClass = "Totales"
|
||||||
|
Else
|
||||||
|
If e.Row.DBCampo("PS") = "" Then
|
||||||
|
e.Row.CssClass = "SubTotales"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
@@ -377,6 +377,11 @@ Partial Class Inventarios_ResguardoMaterial
|
|||||||
'End If
|
'End If
|
||||||
'dtt.Dispose()
|
'dtt.Dispose()
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
ThSeccion.Visible = False
|
||||||
|
TrSeccion.Visible = False
|
||||||
|
DdlSeccionAlmacen.Items.Clear()
|
||||||
|
|
||||||
End If
|
End If
|
||||||
'activa lote
|
'activa lote
|
||||||
If CBool(drp("AplicaLote")) Then
|
If CBool(drp("AplicaLote")) Then
|
||||||
@@ -453,11 +458,11 @@ Partial Class Inventarios_ResguardoMaterial
|
|||||||
Dim Valido As Boolean = True
|
Dim Valido As Boolean = True
|
||||||
Dim cantidadd As Double = txtCantidad.Text.ToDouble
|
Dim cantidadd As Double = txtCantidad.Text.ToDouble
|
||||||
Dim Existencia As Double = GetExistencias(PSSelected, DdlUnidad.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, If(TxtnSerie.Visible, TxtnSerie.Text, "-1").ToString)
|
Dim Existencia As Double = GetExistencias(PSSelected, DdlUnidad.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, If(TxtnSerie.Visible, TxtnSerie.Text, "-1").ToString)
|
||||||
If Existencia - txtCantidad.Text.ToDouble < 0 Then
|
If Existencia - txtCantidad.Text.ToDouble - DtMovimientos.SUM("Cantidad", $"CvePS = {PSSelected} ") < 0 Then
|
||||||
If Existencia <= 0 Then
|
If Existencia <= 0 Then
|
||||||
Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
|
Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
|
||||||
Else
|
Else
|
||||||
Alert(String.Format("Solo hay en existencia: {0}", Existencia), TipoMensaje.MsgAdvertencia)
|
Alert(String.Format("Solo hay en existencia: {0}", Existencia - DtMovimientos.SUM("Cantidad", $"CvePS = {PSSelected} ")), TipoMensaje.MsgAdvertencia)
|
||||||
If Not UsuarioActual.TienePermisoProceso(114) Then
|
If Not UsuarioActual.TienePermisoProceso(114) Then
|
||||||
cantidadd = Existencia
|
cantidadd = Existencia
|
||||||
End If
|
End If
|
||||||
@@ -496,6 +501,22 @@ Partial Class Inventarios_ResguardoMaterial
|
|||||||
DdlClasificacion.SelectedValue = "-1"
|
DdlClasificacion.SelectedValue = "-1"
|
||||||
txtCantidad.Text = ""
|
txtCantidad.Text = ""
|
||||||
TxtObservacionesdetalle.Text = ""
|
TxtObservacionesdetalle.Text = ""
|
||||||
|
|
||||||
|
ThCaducidad.Visible = False
|
||||||
|
TrCaducidad.Visible = False
|
||||||
|
TxtCaducidad.Text = ""
|
||||||
|
ThLote.Visible = False
|
||||||
|
TrLote.Visible = False
|
||||||
|
TxtLote.Text = ""
|
||||||
|
ThSerie.Visible = False
|
||||||
|
TrSerie.Visible = False
|
||||||
|
TxtnSerie.Visible = False
|
||||||
|
TxtnSerie.Text = ""
|
||||||
|
|
||||||
|
ThSeccion.Visible = False
|
||||||
|
TrSeccion.Visible = False
|
||||||
|
DdlSeccionAlmacen.Items.Clear()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|||||||
@@ -382,8 +382,8 @@ Partial Class Inventarios_TrasladoSolicitud
|
|||||||
UpDatos.Update()
|
UpDatos.Update()
|
||||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalPS"))
|
RegistraScript(String.Format("$('#{0}').modal();", "ModalPS"))
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Handles BtnAgregarPS.Click
|
Private Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Handles BtnAgregarPS.Click
|
||||||
Dim Existencia As Boolean
|
|
||||||
If Not DdlProductoServicio.SelectedValue.ToEntero > 0 Then
|
If Not DdlProductoServicio.SelectedValue.ToEntero > 0 Then
|
||||||
Alert("Tiene que seleccionar un producto.", TipoMensaje.MsgAdvertencia)
|
Alert("Tiene que seleccionar un producto.", TipoMensaje.MsgAdvertencia)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
@@ -419,8 +419,8 @@ Partial Class Inventarios_TrasladoSolicitud
|
|||||||
End Sub
|
End Sub
|
||||||
Private Function AddPSTemporal() As Boolean
|
Private Function AddPSTemporal() As Boolean
|
||||||
Dim Row As DataRow = TempDT.NewRow()
|
Dim Row As DataRow = TempDT.NewRow()
|
||||||
Dim Lote As String
|
Dim Lote As String = "-1"
|
||||||
Dim FechaCaducidad As Date
|
Dim FechaCaducidad As Date = MinFecha
|
||||||
Row("Cantidad") = TxtCantidad.Text.Trim.ToDouble
|
Row("Cantidad") = TxtCantidad.Text.Trim.ToDouble
|
||||||
Row("CvePS") = DdlProductoServicio.SelectedValue.ToEntero
|
Row("CvePS") = DdlProductoServicio.SelectedValue.ToEntero
|
||||||
Row("CodigoPS") = DdlProductoServicio.SelectedText
|
Row("CodigoPS") = DdlProductoServicio.SelectedText
|
||||||
@@ -465,7 +465,7 @@ Partial Class Inventarios_TrasladoSolicitud
|
|||||||
If Existencia = 0 Then
|
If Existencia = 0 Then
|
||||||
Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
|
Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
|
||||||
Else
|
Else
|
||||||
Alert($"No hay existencia suficiente del producto. Solo hay en existencia: {Existencia}", TipoMensaje.MsgAdvertencia)
|
Alert($"No hay existencia suficiente del producto. Solo hay en existencia: {Existencia - TempDT.SUM("Cantidad", $"CvePS = {DdlProductoServicio.SelectedValue.ToEntero} AND CveUM = {DdlUM.SelectedValue.ToEntero}")}", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
End If
|
||||||
Return False
|
Return False
|
||||||
End If
|
End If
|
||||||
@@ -580,8 +580,10 @@ Partial Class Inventarios_TrasladoSolicitud
|
|||||||
RowTemp("CveUM") = row.DataKey("CveUM").ToEntero
|
RowTemp("CveUM") = row.DataKey("CveUM").ToEntero
|
||||||
RowTemp("UnidadMedida") = row.DataKey("UM")
|
RowTemp("UnidadMedida") = row.DataKey("UM")
|
||||||
RowTemp("Observaciones") = ""
|
RowTemp("Observaciones") = ""
|
||||||
'RowTemp("CveDireccionEnvio") = DdlDireccionEnvio.SelectedValue
|
RowTemp("Lote") = "-1"
|
||||||
'RowTemp("DireccionEnvio") = IIf(DdlDireccionEnvio.SelectedValue = "-1", "", DdlDireccionEnvio.SelectedItem)
|
RowTemp("FechaCaducidad") = MinFecha
|
||||||
|
'RowTemp("CveDireccionEnvio") = DdlDireccionEnvio.SelectedValue
|
||||||
|
'RowTemp("DireccionEnvio") = IIf(DdlDireccionEnvio.SelectedValue = "-1", "", DdlDireccionEnvio.SelectedItem)
|
||||||
RowTemp("CveContratoDetalle") = row.DataKey("CveContratoDetalle")
|
RowTemp("CveContratoDetalle") = row.DataKey("CveContratoDetalle")
|
||||||
CodigoPS = RowTemp("CodigoPS").ToString
|
CodigoPS = RowTemp("CodigoPS").ToString
|
||||||
|
|
||||||
@@ -1005,7 +1007,7 @@ Partial Class Inventarios_TrasladoSolicitud
|
|||||||
If Existencia = 0 Then
|
If Existencia = 0 Then
|
||||||
Alert($"No hay existencia del producto: {CodigoPS}", TipoMensaje.MsgAdvertencia)
|
Alert($"No hay existencia del producto: {CodigoPS}", TipoMensaje.MsgAdvertencia)
|
||||||
Else
|
Else
|
||||||
Alert($"No hay existencia suficiente del producto: {CodigoPS}, Solo hay en existencia: {Existencia}", TipoMensaje.MsgAdvertencia)
|
Alert($"No hay existencia suficiente del producto: {CodigoPS}, Solo hay en existencia: {Existencia - TempDT.SUM("Cantidad", $"CvePS = {RowTemp("CvePS").ToString.ToEntero} AND CveUM = {RowTemp("CveUM").ToString.ToEntero}")}", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
TempDT.Rows.Add(RowTemp)
|
TempDT.Rows.Add(RowTemp)
|
||||||
|
|||||||
@@ -399,7 +399,7 @@
|
|||||||
<ajax:FilteredTextBoxExtender ID="ftbeCant" runat="server" TargetControlID="txtCantidad" FilterType="Custom, Numbers" ValidChars="." />
|
<ajax:FilteredTextBoxExtender ID="ftbeCant" runat="server" TargetControlID="txtCantidad" FilterType="Custom, Numbers" ValidChars="." />
|
||||||
<asp:RequiredFieldValidator runat="server" ID="RFVCantidad" ControlToValidate="txtCantidad" ValidationGroup="GrpAgregar" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario por favor introdúzcalo." Display="Dynamic" Text="*"></asp:RequiredFieldValidator>
|
<asp:RequiredFieldValidator runat="server" ID="RFVCantidad" ControlToValidate="txtCantidad" ValidationGroup="GrpAgregar" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario por favor introdúzcalo." Display="Dynamic" Text="*"></asp:RequiredFieldValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="VCOCantidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="VCOCantidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
<asp:RangeValidator ID="RVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" Type="Double" MinimumValue="0.1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor introdúzcalo." ValidationGroup="GrpAgregar"></asp:RangeValidator>
|
<asp:RangeValidator ID="RVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" Type="Double" MinimumValue="0.001" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor introdúzcalo." ValidationGroup="GrpAgregar"></asp:RangeValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="RVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="RVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
</td>
|
</td>
|
||||||
<td>
|
<td>
|
||||||
|
|||||||
@@ -264,7 +264,7 @@
|
|||||||
<asp:Literal ID="LtlFechaInicio" runat="server" Text='<%# Eval("FechaInicio", "{0:dd/MM/yyyy}") %>'></asp:Literal>
|
<asp:Literal ID="LtlFechaInicio" runat="server" Text='<%# Eval("FechaInicio", "{0:dd/MM/yyyy}") %>'></asp:Literal>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
<EditItemTemplate>
|
<EditItemTemplate>
|
||||||
<asp:TextBox ID="TxtFechaInicio" CssClass="form-control" runat="server" CausesValidation="true" Text='<%# Eval("FechaInicio") %>' ValidationGroup="GrpGV" MaxLength="10" Width="70px"></asp:TextBox>
|
<asp:TextBox ID="TxtFechaInicio" CssClass="form-control" runat="server" CausesValidation="true" Text='<%# Eval("FechaInicio", "{0:dd/MM/yyyy}") %>' ValidationGroup="GrpGV" MaxLength="10" Width="70px"></asp:TextBox>
|
||||||
<asp:RequiredFieldValidator ID="RFVFechaInicio" runat="server" ControlToValidate="TxtFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Días de Período''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
|
<asp:RequiredFieldValidator ID="RFVFechaInicio" runat="server" ControlToValidate="TxtFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Días de Período''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="VCFechaInicio" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaInicio" Width="300px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="VCFechaInicio" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaInicio" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
</EditItemTemplate>
|
</EditItemTemplate>
|
||||||
@@ -274,7 +274,7 @@
|
|||||||
<asp:Literal ID="LtlFechaFin" runat="server" Text='<%# Eval("FechaFin", "{0:d}") %>'></asp:Literal>
|
<asp:Literal ID="LtlFechaFin" runat="server" Text='<%# Eval("FechaFin", "{0:d}") %>'></asp:Literal>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
<EditItemTemplate>
|
<EditItemTemplate>
|
||||||
<asp:TextBox ID="TxtFechaFin" CssClass="form-control" runat="server" CausesValidation="true" Text='<%# Eval("FechaFin") %>' ValidationGroup="GrpGV" MaxLength="10" Width="70px"></asp:TextBox>
|
<asp:TextBox ID="TxtFechaFin" CssClass="form-control" runat="server" CausesValidation="true" Text='<%# Eval("FechaFin", "{0:dd/MM/yyyy}") %>' ValidationGroup="GrpGV" MaxLength="10" Width="70px"></asp:TextBox>
|
||||||
<asp:RequiredFieldValidator ID="RFVFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Días de Período''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
|
<asp:RequiredFieldValidator ID="RFVFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Días de Período''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="VCFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFin" Width="300px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="VCFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFin" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
</EditItemTemplate>
|
</EditItemTemplate>
|
||||||
|
|||||||
@@ -229,7 +229,7 @@ Partial Class Nomina_Nomina
|
|||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||||
If Not IsPostBack Then
|
If Not IsPostBack Then
|
||||||
If UsuarioActual.CveEmpresa.Contiene(1, 80, 72, 119, 153, 158) Then
|
If UsuarioActual.CveEmpresa.Contiene(1, 48, 80, 72, 119, 153, 154, 158) Then
|
||||||
Response.Redirect("/Nomina/Nomina2.aspx")
|
Response.Redirect("/Nomina/Nomina2.aspx")
|
||||||
End If
|
End If
|
||||||
CargaTiposPeriodo()
|
CargaTiposPeriodo()
|
||||||
|
|||||||
@@ -4,6 +4,13 @@
|
|||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||||
<style>
|
<style>
|
||||||
|
.lblforchk {
|
||||||
|
font-size: 13px;
|
||||||
|
color: #888888;
|
||||||
|
opacity: 1;
|
||||||
|
display: block;
|
||||||
|
}
|
||||||
|
|
||||||
.dnone {
|
.dnone {
|
||||||
display: none !important;
|
display: none !important;
|
||||||
}
|
}
|
||||||
@@ -539,7 +546,7 @@
|
|||||||
|
|
||||||
|
|
||||||
<div id="DModalModAsistencia" class="modal ADS fade" role="dialog">
|
<div id="DModalModAsistencia" class="modal ADS fade" role="dialog">
|
||||||
<asp:UpdatePanel ID="UpdatePanel1" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="UpModalAsistencia" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<div class="modal-content rowpadding">
|
<div class="modal-content rowpadding">
|
||||||
<div class="modal-header">
|
<div class="modal-header">
|
||||||
@@ -2310,7 +2317,7 @@
|
|||||||
<div style="width: 140px; display: inline-block;">
|
<div style="width: 140px; display: inline-block;">
|
||||||
<div class="form-group form-md-line-input">
|
<div class="form-group form-md-line-input">
|
||||||
<asp:TextBox ID="TXTFechaFin" CssClass="form-control" runat="server"></asp:TextBox>
|
<asp:TextBox ID="TXTFechaFin" CssClass="form-control" runat="server"></asp:TextBox>
|
||||||
<asp:Label runat="server" AssociatedControlID="TXTFechaFin">Fecha Inicio:</asp:Label>
|
<asp:Label runat="server" AssociatedControlID="TXTFechaFin">Fecha Fin:</asp:Label>
|
||||||
<ajax:MaskedEditExtender ID="MEEFechaFin" runat="server" TargetControlID="TXTFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
<ajax:MaskedEditExtender ID="MEEFechaFin" runat="server" TargetControlID="TXTFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
<ajax:CalendarExtender runat="server" ID="CEEFechaFin" TargetControlID="TXTFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
<ajax:CalendarExtender runat="server" ID="CEEFechaFin" TargetControlID="TXTFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
<asp:RequiredFieldValidator ID="RFVFechaFin" runat="server" ControlToValidate="TXTFechaFin" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGetTxts"></asp:RequiredFieldValidator>
|
<asp:RequiredFieldValidator ID="RFVFechaFin" runat="server" ControlToValidate="TXTFechaFin" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGetTxts"></asp:RequiredFieldValidator>
|
||||||
@@ -2327,6 +2334,18 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
<div class="form-group form-md-line-input">
|
||||||
|
<asp:Label CssClass="lblforchk" runat="server" Text="Altas:"></asp:Label>
|
||||||
|
<asp:CheckBox ID="ChkSuaAltas" Text=" " CssClass="chksino" runat="server" />
|
||||||
|
</div>
|
||||||
|
<div class="form-group form-md-line-input">
|
||||||
|
<asp:Label CssClass="lblforchk" runat="server" Text="Bajas:"></asp:Label>
|
||||||
|
<asp:CheckBox ID="ChkSuaBajas" Text=" " CssClass="chksino" runat="server" />
|
||||||
|
</div>
|
||||||
|
<%--<div class="form-group form-md-line-input">
|
||||||
|
<asp:Label CssClass="lblforchk" runat="server" Text="Label"></asp:Label><br />
|
||||||
|
<asp:CheckBox ID="CheckBox3" CssClass="chksino" runat="server" />
|
||||||
|
</div>--%>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="modal-footer">
|
<div class="modal-footer">
|
||||||
|
|||||||
@@ -4514,7 +4514,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
TxtHorasDobles.Text = dr["HorasDobles"].ToString();
|
TxtHorasDobles.Text = dr["HorasDobles"].ToString();
|
||||||
TxtHorasTriples.Text = dr["HorasTriples"].ToString();
|
TxtHorasTriples.Text = dr["HorasTriples"].ToString();
|
||||||
DdlMotivoHoraExtra.SelectedValueExist(dr["CveMotivoHoraExtra"].ToString());
|
DdlMotivoHoraExtra.SelectedValueExist(dr["CveMotivoHoraExtra"].ToString());
|
||||||
TxtPorPago.Text = dr["Observacion"].ToString();
|
TxtObservaciones.Text = dr["Observacion"].ToString();
|
||||||
// CveAsistenciasInasistencias
|
// CveAsistenciasInasistencias
|
||||||
// PorcentajePago
|
// PorcentajePago
|
||||||
// HorasDobles
|
// HorasDobles
|
||||||
@@ -4526,6 +4526,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
UpModalAsistencia.Update();
|
||||||
RegistraScript("$('#DModalModAsistencia').modal();");
|
RegistraScript("$('#DModalModAsistencia').modal();");
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -4799,7 +4800,17 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
RegistraScript(string.Format("SaveCsv(\"MovtosAfil.txt\", '{0}');SaveCsv(\"MovtosmodSalario.txt\", '{1}');SaveCsv(\"movtosBajas.txt\", '{2}');", MovtosAfil.Replace("'", "\\'"), MovtosmodSalario.Replace("'", "\\'"), movtosBajas.Replace("'", "\\'")));
|
string script = "";// string.Format("SaveCsv(\"MovtosAfil.txt\", '{0}');SaveCsv(\"MovtosmodSalario.txt\", '{1}');SaveCsv(\"movtosBajas.txt\", '{2}');", MovtosAfil.Replace("'", "\\'"), MovtosmodSalario.Replace("'", "\\'"), movtosBajas.Replace("'", "\\'"));
|
||||||
|
if (ChkSuaAltas.Checked)
|
||||||
|
{
|
||||||
|
script= string.Format("{1}SaveCsv(\"MovtosAfil.txt\", '{0}');", MovtosAfil.Replace("'", "\\'"), script);
|
||||||
|
}
|
||||||
|
if (ChkSuaBajas.Checked)
|
||||||
|
{
|
||||||
|
script = string.Format("{1}SaveCsv(\"movtosBajas.txt\", '{0}');", movtosBajas.Replace("'", "\\'"), script);
|
||||||
|
}
|
||||||
|
|
||||||
|
RegistraScript(script);
|
||||||
RegistraScript("$('#DmodalGetSua').modal('hide');");
|
RegistraScript("$('#DmodalGetSua').modal('hide');");
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@@ -286,7 +286,7 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<asp:TextBox ID="TxtTelefono" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
|
<asp:TextBox ID="TxtTelefono" runat="server" CssClass="form-control" MaxLength="15"></asp:TextBox>
|
||||||
<label for="<%= TxtTelefono.ClientID.ToString()%>">Telefono:</label>
|
<label for="<%= TxtTelefono.ClientID.ToString()%>">Telefono:</label>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|||||||
@@ -386,6 +386,7 @@
|
|||||||
</ajax:TabPanel>
|
</ajax:TabPanel>
|
||||||
<ajax:TabPanel ID="TabDetalleParteVariable" runat="server" HeaderText="Detalle parte variable">
|
<ajax:TabPanel ID="TabDetalleParteVariable" runat="server" HeaderText="Detalle parte variable">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
|
<asp:GridView ID="GVDetalleParteVariable" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" ></asp:GridView>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</ajax:TabPanel>
|
</ajax:TabPanel>
|
||||||
</ajax:TabContainer>
|
</ajax:TabContainer>
|
||||||
|
|||||||
@@ -32,6 +32,11 @@ public partial class RH_CalculoSBC : ClsPaginas
|
|||||||
GVCalculosSBC.DataSource = objnom.DTSetResultados.Tables[0];
|
GVCalculosSBC.DataSource = objnom.DTSetResultados.Tables[0];
|
||||||
GVCFija.DataSource = objnom.DTSetResultados.Tables[0];
|
GVCFija.DataSource = objnom.DTSetResultados.Tables[0];
|
||||||
GVPV.DataSource = objnom.DTSetResultados.Tables[0];
|
GVPV.DataSource = objnom.DTSetResultados.Tables[0];
|
||||||
|
if(objnom.DTSetResultados.Tables.Count > 0)
|
||||||
|
{
|
||||||
|
GVDetalleParteVariable.DataSource = objnom.DTSetResultados.Tables[1];
|
||||||
|
GVDetalleParteVariable.DataBind();
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
GVCalculosSBC.DataBind();
|
GVCalculosSBC.DataBind();
|
||||||
|
|||||||
527
RH/Personal.aspx
527
RH/Personal.aspx
File diff suppressed because it is too large
Load Diff
@@ -1396,6 +1396,7 @@ Partial Class RH_Personal
|
|||||||
Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0)
|
Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0)
|
||||||
ChkEstemporal.Checked = drow("esTemporal").ToString() = "1"
|
ChkEstemporal.Checked = drow("esTemporal").ToString() = "1"
|
||||||
CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
|
CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
|
||||||
|
ChkSindicalizado.Checked = drow("Sindicalizado").ToString().ToUpper().Contiene("1", "TRUE")
|
||||||
TxtMailrecibonomina.Text = drow("MaiReciboNomina").ToString()
|
TxtMailrecibonomina.Text = drow("MaiReciboNomina").ToString()
|
||||||
'Carga Datos Personales
|
'Carga Datos Personales
|
||||||
LtlPersonal.Text = ObjPersonal.NombreCompleto
|
LtlPersonal.Text = ObjPersonal.NombreCompleto
|
||||||
@@ -1718,7 +1719,7 @@ Partial Class RH_Personal
|
|||||||
DdlClienteAsignado.SelectedValue.ToEntero, DdlSubProyectoAsignado.SelectedValue.ToEntero, URL,
|
DdlClienteAsignado.SelectedValue.ToEntero, DdlSubProyectoAsignado.SelectedValue.ToEntero, URL,
|
||||||
DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
|
DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
|
||||||
DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
|
DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
|
||||||
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero()) Then
|
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=ChkSindicalizado.Checked) Then
|
||||||
|
|
||||||
If Archivo.Exists Then
|
If Archivo.Exists Then
|
||||||
|
|
||||||
@@ -1791,7 +1792,7 @@ Partial Class RH_Personal
|
|||||||
URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
|
URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
|
||||||
DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
|
DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
|
||||||
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
|
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
|
||||||
FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero()) Then
|
FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0)) Then
|
||||||
|
|
||||||
'Funsion usa RH Familiares
|
'Funsion usa RH Familiares
|
||||||
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
||||||
|
|||||||
@@ -14,6 +14,7 @@
|
|||||||
<asp:DropDownList ID="DdlVariable" runat="server" AutoPostBack="True" Width="300px" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me">
|
<asp:DropDownList ID="DdlVariable" runat="server" AutoPostBack="True" Width="300px" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||||
<asp:ListItem Text="Usuarios" Value="GlobalDTUsuarios"></asp:ListItem>
|
<asp:ListItem Text="Usuarios" Value="GlobalDTUsuarios"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="UsuarioResponsable" Value="GlobalDTUsuarioResponsable"></asp:ListItem>
|
||||||
<asp:ListItem Text="Empresas" Value="GlobalDTEmpresas"></asp:ListItem>
|
<asp:ListItem Text="Empresas" Value="GlobalDTEmpresas"></asp:ListItem>
|
||||||
<asp:ListItem Text="Roles" Value="GlobalDTRoles"></asp:ListItem>
|
<asp:ListItem Text="Roles" Value="GlobalDTRoles"></asp:ListItem>
|
||||||
<asp:ListItem Text="Clientes" Value="GlobalDTCliente"></asp:ListItem>
|
<asp:ListItem Text="Clientes" Value="GlobalDTCliente"></asp:ListItem>
|
||||||
|
|||||||
@@ -7,7 +7,9 @@ Partial Class Sistemas_CatSesiones
|
|||||||
|
|
||||||
Protected Sub BtnCargar_Click(sender As Object, e As EventArgs) Handles BtnCargar.Click
|
Protected Sub BtnCargar_Click(sender As Object, e As EventArgs) Handles BtnCargar.Click
|
||||||
If DdlVariable.SelectedItem.Value = "GlobalDTUsuarios" Then
|
If DdlVariable.SelectedItem.Value = "GlobalDTUsuarios" Then
|
||||||
CargaUsuarios()
|
CargaUsuarios()
|
||||||
|
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTUsuarioResponsable" Then
|
||||||
|
CargaUsuariosResponsable()
|
||||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAlmacenUsuarios" Then
|
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAlmacenUsuarios" Then
|
||||||
CargaAlmacenUsuarios()
|
CargaAlmacenUsuarios()
|
||||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTCliente" Then
|
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTCliente" Then
|
||||||
@@ -287,6 +289,19 @@ Partial Class Sistemas_CatSesiones
|
|||||||
'Fin Carga Usuarios
|
'Fin Carga Usuarios
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CargaUsuariosResponsable()
|
||||||
|
'Carga Usuarios
|
||||||
|
Dim ObjUsuarios As New ClsSisUsuarios
|
||||||
|
If ObjUsuarios.GetUsuariosEmpresas(-1) Then
|
||||||
|
Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
|
||||||
|
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
|
||||||
|
Else
|
||||||
|
Application("GlobalDTUsuarioResponsable") = Nothing
|
||||||
|
End If
|
||||||
|
ObjUsuarios.Dispose()
|
||||||
|
'Fin Carga Usuarios
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Private Sub CargaEmpresas()
|
Private Sub CargaEmpresas()
|
||||||
'Carga Empresas
|
'Carga Empresas
|
||||||
|
|||||||
@@ -59,7 +59,7 @@
|
|||||||
|
|
||||||
<asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" runat="server" AutoGenerateColumns="False" GridLines="None">
|
<asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" runat="server" AutoGenerateColumns="False" GridLines="None">
|
||||||
<Columns>
|
<Columns>
|
||||||
<asp:TemplateField HeaderText="Promoción" ItemStyle-Width="300px" ItemStyle-HorizontalAlign="Left">
|
<asp:TemplateField HeaderText="Promoción" ItemStyle-HorizontalAlign="Left">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:HyperLink runat="server" ID="HLPromocion" Text='<%# Eval("Promocion").ToString %>' CssClass="Texto"></asp:HyperLink>
|
<asp:HyperLink runat="server" ID="HLPromocion" Text='<%# Eval("Promocion").ToString %>' CssClass="Texto"></asp:HyperLink>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
|
|||||||
@@ -2693,12 +2693,18 @@ Partial Class Ventas_ClientesAbonar
|
|||||||
If CveConceptoDeduccion = 78 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.IdCuentaOtrosIngresos
|
If CveConceptoDeduccion = 78 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.IdCuentaOtrosIngresos
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
|
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
|
||||||
|
|
||||||
ClienteMovto = False : Saldo = Saldo * -1
|
ClienteMovto = False : Saldo = Saldo * -1
|
||||||
ImpuestosMovto = True : IVA = IVA * -1
|
ImpuestosMovto = True : IVA = IVA * -1
|
||||||
RETIVA = RETIVA * -1
|
|
||||||
|
'RETIVA = RETIVA * -1
|
||||||
|
|
||||||
|
RETIVA = ((SubTotal * RETIVA / gr.DataKey("SubTotal").ToDecimal.RoundSQL) * -1).RoundSQL(2)
|
||||||
|
|
||||||
CveConceptoCliente = 1
|
CveConceptoCliente = 1
|
||||||
'falta cuenta incobrable
|
'falta cuenta incobrable
|
||||||
IdCuentaContableNoDeducible = 3114
|
IdCuentaContableNoDeducible = 3114
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim UsaComplementaria As Boolean = False
|
Dim UsaComplementaria As Boolean = False
|
||||||
|
|||||||
@@ -232,6 +232,8 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user