AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Hector
2021-08-05 10:14:38 -07:00
parent 80487fd93c 423ec7da9b
commit dc0caab3f3
32 changed files with 2510 additions and 1160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsContratos.vb
View File

@@ -1345,7 +1345,7 @@ Public Class ClsContratos
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
.Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
.Add("@Cantidad", SqlDbType.Int).Value = Cantidad .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad
.Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa

115
App_Code/ClsNominas.vb
View File

@@ -621,10 +621,14 @@ Public Class ClsNominas
Return Retorno Return Retorno
End Function End Function
Public Function AddNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal) As Boolean Public Function AddUPNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer,
Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal, ImporteValor As Decimal,
CveUsuario As Integer, IsEdited As Boolean,
chkImporte As Integer, chkImporteGravado As Integer, chkImporteValor As Integer
) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Nom_NominasDetallesAdd") DataAdapter("PA_Nom_NominasDetallesAddUP")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("CveNomina", SqlDbType.Int).Value = CveNomina .Add("CveNomina", SqlDbType.Int).Value = CveNomina
@@ -634,6 +638,12 @@ Public Class ClsNominas
.Add("Importe", SqlDbType.Float).Value = Importe .Add("Importe", SqlDbType.Float).Value = Importe
.Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
.Add("ImporteExento", SqlDbType.Float).Value = ImporteExento .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
.Add("ImporteValor", SqlDbType.Float).Value = ImporteValor
.Add("CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("IsEdited", SqlDbType.Bit).Value = IsEdited
.Add("chkImporteValor", SqlDbType.Int).Value = chkImporteValor
.Add("chkImporte", SqlDbType.Int).Value = chkImporte
.Add("chkImporteGravado", SqlDbType.Int).Value = chkImporteGravado
End With End With
Try Try
@@ -646,31 +656,56 @@ Public Class ClsNominas
Return Retorno Return Retorno
End Function End Function
Public Function UpdateNom_NominasDetalles(CveNominaDetalle As Integer, Importe As Decimal, ImporteExento As Decimal, ImporteGravado As Decimal) As Boolean 'Public Function AddNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal) As Boolean
Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
DataAdapter("PA_Nom_NominasDetallesUpdate")
With SqlAdapter.SelectCommand.Parameters ' DataAdapter("PA_Nom_NominasDetallesAdd")
.Add("CveNominaDetalle", SqlDbType.Int).Value = CveNominaDetalle
.Add("Importe", SqlDbType.Float).Value = Importe
.Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
.Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
End With
Try ' With SqlAdapter.SelectCommand.Parameters
SqlAdapter.Fill(Data) ' .Add("CveNomina", SqlDbType.Int).Value = CveNomina
Retorno = True ' .Add("CvePeriodo", SqlDbType.Int).Value = CvePeriodo
' ' .Add("CvePersonal", SqlDbType.Int).Value = CvePersonal
Catch sqlex As SqlException ' .Add("CveConcepto", SqlDbType.Int).Value = CveConcepto
If sqlex.Message.Contains("x5010") Then ' .Add("Importe", SqlDbType.Float).Value = Importe
Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina(Timbrada).", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
Else ' .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' End With
End If
End Try
Return Retorno ' Try
End Function ' SqlAdapter.Fill(Data)
' Retorno = True
' Catch Ex1 As SqlException
' Me.OnError("Ocurrió un error al Guardar el Movimiento de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
'End Function
'Public Function UpdateNom_NominasDetalles(CveNominaDetalle As Integer, Importe As Decimal, ImporteExento As Decimal, ImporteGravado As Decimal) As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Nom_NominasDetallesUpdate")
' With SqlAdapter.SelectCommand.Parameters
' .Add("CveNominaDetalle", SqlDbType.Int).Value = CveNominaDetalle
' .Add("Importe", SqlDbType.Float).Value = Importe
' .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
' .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' '
' Catch sqlex As SqlException
' If sqlex.Message.Contains("x5010") Then
' Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina(Timbrada).", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' Else
' Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End If
' End Try
' Return Retorno
'End Function
Public Function DeleteNom_NominasDetalles(CveConcepto As Integer, CvePersonal As Integer, CvePeriodo As Integer) As Boolean Public Function DeleteNom_NominasDetalles(CveConcepto As Integer, CvePersonal As Integer, CvePeriodo As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -1770,7 +1805,7 @@ Public Class ClsNominas
End Function End Function
#End Region #End Region
#Region "" #Region "Periodos"
Public Function GetPeriodos(CveTipoPeriodo As Integer, CveEmpresa As Integer, Ejercicio As Integer, Mes As Integer, CvePeriodo As Integer, Optional CveEstatus As Integer = -1) As Boolean Public Function GetPeriodos(CveTipoPeriodo As Integer, CveEmpresa As Integer, Ejercicio As Integer, Mes As Integer, CvePeriodo As Integer, Optional CveEstatus As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -2172,34 +2207,6 @@ Public Class ClsNominas
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function AddUPNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal, ImporteValor As Decimal, CveUsuario As Integer, Optional IsEdited As Boolean = False) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_NominasDetallesAddUP")
With SqlAdapter.SelectCommand.Parameters
.Add("CveNomina", SqlDbType.Int).Value = CveNomina
.Add("CvePeriodo", SqlDbType.Int).Value = CvePeriodo
.Add("CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("CveConcepto", SqlDbType.Int).Value = CveConcepto
.Add("Importe", SqlDbType.Float).Value = Importe
.Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
.Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
.Add("ImporteValor", SqlDbType.Float).Value = ImporteValor
.Add("CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("IsEdited", SqlDbType.Bit).Value = IsEdited
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
Me.OnError("Ocurrió un error al Guardar el Movimiento de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function ProcesarSUA(txtSUA As String, cveEmpresa As Int32) As Boolean Public Function ProcesarSUA(txtSUA As String, cveEmpresa As Int32) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
DTSet = New DataSet() DTSet = New DataSet()
@@ -2298,7 +2305,7 @@ Public Class ClsNominas
Dim retorno As Boolean = False Dim retorno As Boolean = False
Try Try
DTSet = New DataSet() DTSet = New DataSet()
DataAdapter("PA_Nom_NominaEmpleado", CommandType.StoredProcedure) DataAdapter("PA_Nom_NominaEmpleadoV2", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto

4
App_Code/ClsPaginas.vb
View File

@@ -6788,7 +6788,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.Telefono.Length > 6, Vta.Cliente.Telefono, Vta.TelefonoGenerico))) params.Add(New ReportParameter("ClienteTelefono", If(Vta.TelefonoGenerico <> "", Vta.TelefonoGenerico, Vta.Cliente.Telefono)))
End If End If
If UsuarioActual.CveEmpresa.Contiene(17) Then If UsuarioActual.CveEmpresa.Contiene(17) Then
@@ -7925,7 +7925,7 @@ Public Class ClsPaginas
Dim DTDeducciones As Data.DataTable Dim DTDeducciones As Data.DataTable
Dim DTDeducciones2 As New Data.DataTable Dim DTDeducciones2 As New Data.DataTable
Dim Ruta As String = RutaEmpresa Dim Ruta As String = UsuarioActual.Empresa.Ruta
Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.Serie }{If(indemnizacion, "F", "")}-{ObjNomina.Folio}.xml" Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.Serie }{If(indemnizacion, "F", "")}-{ObjNomina.Folio}.xml"
Dim FechaEmision, FechaCertificacion As DateTime Dim FechaEmision, FechaCertificacion As DateTime
Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT As String Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT As String

2
Bancos/PopIECompras.aspx
View File

@@ -523,7 +523,7 @@
</span> </span>
</div> </div>
<ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="Left" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="TopLeft" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator> <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>

4
Bancos/PopIECompras.aspx.vb
View File

@@ -2562,7 +2562,7 @@ Partial Class Bancos_PopIECompras
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
End If End If
End If End If
@@ -2703,7 +2703,7 @@ Partial Class Bancos_PopIECompras
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If End If
End If End If

260
Compras/Compras.aspx.vb
View File

@@ -1109,6 +1109,8 @@ Partial Class Compras_Compras
End Set End Set
End Property End Property
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
'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip") 'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
@@ -1548,8 +1550,8 @@ Partial Class Compras_Compras
End If End If
'SE OCUPAN AFUERA DEL POSTBACK ?? 'SE OCUPAN AFUERA DEL POSTBACK ??
cargaddlVinculacionServcios() cargaddlVinculacionServcios()
If UsuarioActual.TienePermisoProceso(117) Then If UsuarioActual.TienePermisoProceso(117) Then
HplAddClasificacion.Visible = False HplAddClasificacion.Visible = False
@@ -4088,11 +4090,15 @@ Partial Class Compras_Compras
'DF - 10/04/2017 'DF - 10/04/2017
If UsuarioActual.TienePermisoProceso(187) Then If UsuarioActual.TienePermisoProceso(187) Then
If TxtSerie.Text <> SerieVieja Then If TxtSerie.Text <> SerieVieja Then
Dim SerieNueva As String = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
If SerieNueva = "" Then If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia) Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
Exit Sub If SerieNueva = "" Then
Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If End If
End If End If
End If End If
@@ -4385,6 +4391,8 @@ Partial Class Compras_Compras
Exit Sub Exit Sub
End If End If
'------------------TERMINA VALIDACIONES------------------ '------------------TERMINA VALIDACIONES------------------
'si hay necesidad de actualizar el globaldtps 'si hay necesidad de actualizar el globaldtps
@@ -4633,20 +4641,7 @@ Partial Class Compras_Compras
If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(1, 101) Then If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(1, 101) Then
CveEstatusFactura = 6 CveEstatusFactura = 6
End If End If
'hay amortización directa como descuento. RMF Temporal
If UsuarioActual.CveEmpresa = 119 Then
'If LblAmortizacion.Text.ToDouble > 0 AndAlso TxtDescuento.Text.ToDouble = 0 Then
' TxtDescuento.Text = LblAmortizacion.Text
' LblAmortizacion.Text = "0.00"
'End If
'o si el descuento es igual a la amortizacion
'If LblAmortizacion.Text.ToDouble = TxtDescuento.Text.ToDouble Then
' TxtDescuento.Text = LblAmortizacion.Text
' LblAmortizacion.Text = "0.00"
'End If
End If
'Compra 'Compra
Dim CveFactura As Integer = -1 Dim CveFactura As Integer = -1
@@ -6698,7 +6693,7 @@ Partial Class Compras_Compras
CveMovimientoAlmacen = ObjOC.DtResultados.FiltroPrimeroValor("CveMovimientoAlmacen").ToEntero CveMovimientoAlmacen = ObjOC.DtResultados.FiltroPrimeroValor("CveMovimientoAlmacen").ToEntero
Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal
'RMF. falta verificar el costo indirecto de la OC 'RMF. falta verificar el costo indirecto de la OC
If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then If DdlMoneda.SelectedValue.ToEntero <> 1 Then
TCO = TxtTC.Text.ToDecimal TCO = TxtTC.Text.ToDecimal
ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal
CostoIndirectoAcum176 += ImporteCI176 CostoIndirectoAcum176 += ImporteCI176
@@ -6884,7 +6879,7 @@ Partial Class Compras_Compras
Next Next
If ContienePSNeteoBonif Then If ContienePSNeteoBonif Then
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = 20319 ").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
@@ -6905,8 +6900,6 @@ Partial Class Compras_Compras
End If End If
' adfasdasd
'ChkNCInvNC 'ChkNCInvNC
If Not RegistroCuentaPuente AndAlso Not ChkNCInvNC.Checked Then If Not RegistroCuentaPuente AndAlso Not ChkNCInvNC.Checked Then
@@ -6968,9 +6961,11 @@ Partial Class Compras_Compras
DTDistinct.Clear() DTDistinct.Clear()
End If End If
Dim tTipoMovimiento As Boolean = TipoMovimiento
If DTDistinct.Rows.Count > 0 Then If DTDistinct.Rows.Count > 0 Then
For Each Row2 As DataRow In DTDistinct.Rows For Each Row2 As DataRow In DTDistinct.Rows
tTipoMovimiento = TipoMovimiento
'DETERMINA IMPORTE 'DETERMINA IMPORTE
If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), String.Format("ISNULL(TipoAF,0) <> 2 And CveClasificacion = {0} And CveSubProyecto = {1} And ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), String.Format("ISNULL(TipoAF,0) <> 2 And CveClasificacion = {0} And CveSubProyecto = {1} And ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
@@ -6995,8 +6990,6 @@ Partial Class Compras_Compras
End If End If
'SEGMENTO DE NEGOCIO 'SEGMENTO DE NEGOCIO
Dim IdSegmentoNegocio As Integer = -1 Dim IdSegmentoNegocio As Integer = -1
Dim drT As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero).FiltroPrimero(String.Format("CveSubProyecto = {0} ", Row2("CveSubProyecto").ToString.ToEntero)) Dim drT As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero).FiltroPrimero(String.Format("CveSubProyecto = {0} ", Row2("CveSubProyecto").ToString.ToEntero))
@@ -7006,12 +6999,6 @@ Partial Class Compras_Compras
'AGREGA MOVIMIENTO 'AGREGA MOVIMIENTO
If importeMovimiento.RoundSQL <> 0 Then If importeMovimiento.RoundSQL <> 0 Then
'Conta ContPAQ
' If IdCtaContable = 0 Then
' CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
' idCuentaContabilizacion = 0
'End If
Dim tcvecon As Integer = 6 Dim tcvecon As Integer = 6
Dim tidctacon As Integer = 6 Dim tidctacon As Integer = 6
@@ -7027,17 +7014,23 @@ Partial Class Compras_Compras
tcvecon = 259 tcvecon = 259
tidctacon = UsuarioActual.Empresa.Funcionalidad(405).ToEntero tidctacon = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
ElseIf UsuarioActual.CveEmpresa = 119 AndAlso Row2("CveClasificacion").ToString = "20473" Then
'CODIGO FIJO, SI ES LA CLASIFICACION DE "SEGURO/SERVICIO COSTO", SE ABONARÁ
tTipoMovimiento = True
importeMovimiento = -importeMovimiento
importeMN = -importeMN
End If End If
Dim usacomplementariaProveedor As Boolean = False Dim usacomplementariaProveedor As Boolean = False
usacomplementariaProveedor = If(tipoCambioActual > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119, 158), True, False) usacomplementariaProveedor = If(tipoCambioActual > 1, True, False)
If usacomplementariaProveedor AndAlso DdlTipoComprobante.SelectedValue = "Ant" Then If usacomplementariaProveedor AndAlso DdlTipoComprobante.SelectedValue = "Ant" Then
'importeMovimiento 'importeMovimiento
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
importeMN = tipoCambioActual * importeMovimiento - importeMovimiento importeMN = tipoCambioActual * importeMovimiento - importeMovimiento
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 266, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=importeMovimiento, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovimiento, importeMovimiento, Referencia, 266, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=importeMovimiento, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
importeMN = importeMovimiento importeMN = importeMovimiento
@@ -7047,7 +7040,7 @@ Partial Class Compras_Compras
If Not Insertado205 Then If Not Insertado205 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, tcvecon, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovimiento, importeMovimiento, Referencia, tcvecon, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
@@ -7068,7 +7061,7 @@ Partial Class Compras_Compras
End If End If
Case 5 'Proveedores Case 5 'Proveedores
If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158) Dim UsaComplementaria As Boolean = True
If tipoCambioActual <> 1 Then If tipoCambioActual <> 1 Then
Select Case ConceptoContable Select Case ConceptoContable
Case 5 Case 5
@@ -7374,7 +7367,7 @@ Partial Class Compras_Compras
End If End If
'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA 'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 Then
Dim importeMovimientoNC = Ant.Importe Dim importeMovimientoNC = Ant.Importe
Dim importeMNNC = 0.0D Dim importeMNNC = 0.0D
Dim TipoCambioNC = Ant.TCCompra Dim TipoCambioNC = Ant.TCCompra
@@ -7435,7 +7428,7 @@ Partial Class Compras_Compras
End If End If
End If End If
ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 Then
Dim importeMovimientoNC = Ant.Importe Dim importeMovimientoNC = Ant.Importe
Dim importeMNNC = 0.0D Dim importeMNNC = 0.0D
Dim TipoCambioNC = Ant.TCCompra Dim TipoCambioNC = Ant.TCCompra
@@ -7530,7 +7523,7 @@ Partial Class Compras_Compras
Dim usacomplementariaAnticipo As Boolean = False Dim usacomplementariaAnticipo As Boolean = False
usacomplementariaAnticipo = If(Ant.TCCompra > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False) usacomplementariaAnticipo = If(Ant.TCCompra > 1, True, False)
Dim TipoCambioAnt As Decimal = Ant.TCCompra Dim TipoCambioAnt As Decimal = Ant.TCCompra
@@ -7560,7 +7553,7 @@ Partial Class Compras_Compras
If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307
Dim IdCtaContablePago As Integer = CtaProveedor Dim IdCtaContablePago As Integer = CtaProveedor
Dim usacomplementariaProveedor As Boolean = False Dim usacomplementariaProveedor As Boolean = False
usacomplementariaProveedor = If(tipoCambioActual > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False) usacomplementariaProveedor = If(tipoCambioActual > 1, True, False)
If usacomplementariaProveedor Then If usacomplementariaProveedor Then
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
importeMN = tipoCambioActual * importeMovimiento - importeMovimiento importeMN = tipoCambioActual * importeMovimiento - importeMovimiento
@@ -8633,7 +8626,7 @@ Partial Class Compras_Compras
If Respuesta Then If Respuesta Then
Dim IEPSPSDetalles As Decimal = TmpDT.SUM("IEPSPS", " IEPSPS > 0 ").ToDecimal Dim IEPSPSDetalles As Decimal = TmpDT.SUMD("IEPSPS", " IEPSPS > 0 ")
Dim DiferenciaIEPSPS As Decimal = TxtIEPS.Text.ToDecimal - IEPSPSDetalles Dim DiferenciaIEPSPS As Decimal = TxtIEPS.Text.ToDecimal - IEPSPSDetalles
Dim DTConsultaIEPSPS As New DataTable Dim DTConsultaIEPSPS As New DataTable
@@ -8652,7 +8645,7 @@ Partial Class Compras_Compras
IndiceContador = IndiceContador + 1 IndiceContador = IndiceContador + 1
Next Next
If DiferenciaIEPSPS <> 0 Then If DiferenciaIEPSPS.RoundAD(2) <> 0 Then
If DTConsultaIEPSPS.Rows.Count > 0 Then If DTConsultaIEPSPS.Rows.Count > 0 Then
'Ajusta IPES en primer registro que aplique IEPS 'Ajusta IPES en primer registro que aplique IEPS
@@ -8660,7 +8653,7 @@ Partial Class Compras_Compras
TmpDT.AcceptChanges() TmpDT.AcceptChanges()
Else Else
Respuesta = False Respuesta = False
Alert("Los productos especificados en el lisado no tienen asigando impuesto IEPS, favor de realizar la correción en el producto que aplique el impúesto.", TipoMensaje.MsgAdvertencia) Alert(String.Format("Los productos especificados en el listado no tienen asigando impuesto IEPS, favor de realizar la corrección en el producto que aplique el impuesto. ({0}-{1})", IEPSPSDetalles, TxtIEPS.Text.ToDecimal), TipoMensaje.MsgAdvertencia)
End If End If
End If End If
@@ -8921,13 +8914,13 @@ Partial Class Compras_Compras
If DdlMoneda.SelectedValue.ToEntero <> 1 Then If DdlMoneda.SelectedValue.ToEntero <> 1 Then
IdCtaContable = CtaProveedorAnticiposExtranjera IdCtaContable = CtaProveedorAnticiposExtranjera
If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, "", ConceptoContable, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, "", ConceptoContable, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then
If UsuarioActual.CveEmpresa.Contiene(119) Then
IdCtaContable = CtaProveedorAnticiposComplementaria IdCtaContable = CtaProveedorAnticiposComplementaria
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeMN - ImporteMovimiento, "", 266, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN - ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeMN - ImporteMovimiento, "", 266, "", Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN - ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then
ErrorMovtosCxP = 1 ErrorMovtosCxP = 1
Exit Select Exit Select
End If
End If End If
Else Else
ErrorMovtosCxP = 1 ErrorMovtosCxP = 1
Exit Select Exit Select
@@ -8958,7 +8951,7 @@ Partial Class Compras_Compras
ImporteMovimiento = ImporteMovimiento / gvr.DataKey("TCCompra").ToDecimal ImporteMovimiento = ImporteMovimiento / gvr.DataKey("TCCompra").ToDecimal
End If End If
If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then If DdlMoneda.SelectedValue.ToEntero <> 1 Then
IdCtaContable = CtaProveedorExtranjera IdCtaContable = CtaProveedorExtranjera
If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, ConceptoPartida, ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, ConceptoPartida, ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioNC, CveCompraAmortizacion:=CveCompra) Then
IdCtaContable = CtaProveedorComplementaria IdCtaContable = CtaProveedorComplementaria
@@ -9004,7 +8997,7 @@ Partial Class Compras_Compras
Dim TipoCambioAnt = gvr.DataKey("TCCompra").ToDecimal Dim TipoCambioAnt = gvr.DataKey("TCCompra").ToDecimal
Dim usacomplementariaAnticipo As Boolean = False Dim usacomplementariaAnticipo As Boolean = False
usacomplementariaAnticipo = If(TipoCambioAnt > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False) usacomplementariaAnticipo = If(TipoCambioAnt > 1, True, False)
Dim ImporteAnt As Decimal = ImporteMovimiento Dim ImporteAnt As Decimal = ImporteMovimiento
@@ -9103,7 +9096,7 @@ Partial Class Compras_Compras
ImporteMovimiento = sumaAmortizacion ImporteMovimiento = sumaAmortizacion
importeMN = ImporteMovimiento * TipoCambio17 importeMN = ImporteMovimiento * TipoCambio17
If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then If DdlMoneda.SelectedValue.ToEntero <> 1 Then
IdCtaContable = CtaProveedorExtranjera IdCtaContable = CtaProveedorExtranjera
If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=TipoCambio17) Then If ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=ImporteMovimiento, TipoCambio:=TipoCambio17) Then
@@ -11037,18 +11030,6 @@ Partial Class Compras_Compras
If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
If e.Row.RowIndex = 0 Then If e.Row.RowIndex = 0 Then
'e.Row.Cells(0).Width = Unit.Pixel(15)
'e.Row.Cells(1).Width = Unit.Pixel(45)
'e.Row.Cells(2).Width = Unit.Pixel(70)
'e.Row.Cells(3).Width = Unit.Pixel(230)
'e.Row.Cells(4).Width = Unit.Pixel(202)
'e.Row.Cells(5).Width = Unit.Pixel(155)
'e.Row.Cells(6).Width = Unit.Pixel(155)
'e.Row.Cells(7).Width = Unit.Pixel(50)
'e.Row.Cells(8).Width = Unit.Pixel(80)
'e.Row.Cells(9).Width = Unit.Pixel(80)
'e.Row.Cells(10).Width = Unit.Pixel(43)
'e.Row.Cells(11).Width = Unit.Pixel(43)
If UsuarioActual.Empresa.UsaAC Then 'AndAlso (CveFactura > 0 Or CveCompra > 0) If UsuarioActual.Empresa.UsaAC Then 'AndAlso (CveFactura > 0 Or CveCompra > 0)
e.Row.Cells(13).Width = Unit.Pixel(150) e.Row.Cells(13).Width = Unit.Pixel(150)
@@ -11239,10 +11220,6 @@ Partial Class Compras_Compras
GvPS.DataSource = TmpDT GvPS.DataSource = TmpDT
GvPS.DataBind() GvPS.DataBind()
'GVAF.DataSource = TmpDT
'GVAF.DataBind()
''UpnAF.Update()
CalculaTotales(True) CalculaTotales(True)
CargaGvInv() CargaGvInv()
CargaGVsAF() CargaGVsAF()
@@ -11274,17 +11251,7 @@ Partial Class Compras_Compras
Private Sub GeneraGlobalDT(data As Object) Private Sub GeneraGlobalDT(data As Object)
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
'Dim ObjPS As New ClsProductosServicios
'If (ObjPS.GetPSSimplificado(-1)) Then
' Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable
'End If
'If ObjPS.GetPSEquivalencias(-1, -1) Then
' GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = ObjPS.DtResultados
'End If
'ObjPS.Dispose()
End Sub End Sub
Private Function notienepresupuesto() As Boolean Private Function notienepresupuesto() As Boolean
Dim notienerecursos = False Dim notienerecursos = False
@@ -11357,21 +11324,7 @@ Partial Class Compras_Compras
DTConceptos.Columns.Add("Total", GetType(Double)) DTConceptos.Columns.Add("Total", GetType(Double))
DTConceptos.Columns.Add("Amortizacion", GetType(Double)) DTConceptos.Columns.Add("Amortizacion", GetType(Double))
End Sub End Sub
'Private Sub AddPS(Cantidad As Double, UM As String, PS As String, PU As Double, IVA As Double, Descuento As Double, Optional Total As Double = 0)
' Dim Row As DataRow = Nothing
' Row = DTConceptos.NewRow()
' Row("Consec") = DTConceptos.Rows.Count + 1
' Row("Cantidad") = Cantidad
' Row("UM") = UM
' Row("CveClasificacion") = -1
' Row("PS") = PS
' Row("PU") = PU
' Row("IVA") = IVA
' Row("Total") = If(Total > 0, Total, Cantidad * PU)
' Row("Descuento") = Descuento
' DTConceptos.Rows.Add(Row)
'End Sub
Private Sub CreaDTCompras() Private Sub CreaDTCompras()
TmpDT = New DataTable TmpDT = New DataTable
@@ -11599,26 +11552,6 @@ Partial Class Compras_Compras
End Sub End Sub
'Private Sub AddDTEnvio(Cantidad As Double, UM As String, CveUM As Integer, CvePS As Integer, PS As String, PU As Double, CveAlmacen As Integer, CveEq As Integer)
' Dim dr As DataRow = DtInv.NewRow
' dr("Cantidad") = Cantidad
' dr("UM") = UM
' dr("CveUM") = CveUM
' dr("CvePS") = CvePS
' dr("PS") = PS
' dr("PU") = PU
' dr("CveAlmacen") = CveAlmacen
' dr("CveEq") = CveEq
' DtInv.Rows.InsertAt(dr, hdnIndexInv.Value.ToEntero + 1)
' GvInv.DataSource = DtInv
' GvInv.DataBind()
'End Sub
Protected Sub RecargaMaximum_Click(sender As Object, e As System.EventArgs) Protected Sub RecargaMaximum_Click(sender As Object, e As System.EventArgs)
@@ -11719,62 +11652,6 @@ Partial Class Compras_Compras
#End Region #End Region
#Region " ALGO DE AF QUE NUNCA SE USABA " #Region " ALGO DE AF QUE NUNCA SE USABA "
'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
' If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
' e.Row.FCDropDownList("DdlAF").DataSource = Nothing
' e.Row.FCDropDownList("DdlAF").DataBind()
' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
' End If
'End Sub
'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then
' If e.Row.RowIndex = 0 Then
' e.Row.Cells(0).Width = Unit.Pixel(20)
' e.Row.Cells(1).Width = Unit.Pixel(140)
' e.Row.Cells(2).Width = Unit.Pixel(250)
' End If
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
' End If
'End Sub
'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
' Dim Array() As String = Nothing
' Dim DdlGVSubTipoAF As DropDownList = Nothing
' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
' If Array.Length > 0 Then
' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
' End If
' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
'End Sub
'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then
' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
' End If
'End Sub
'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
' UPCondicionesPago.Update()
'End Sub
Protected Sub BtnOCAceptar_Click(sender As Object, e As EventArgs) Handles BtnOCAceptar.Click Protected Sub BtnOCAceptar_Click(sender As Object, e As EventArgs) Handles BtnOCAceptar.Click
'carga la OC 'carga la OC
Dim CveOC As Integer = -1 Dim CveOC As Integer = -1
@@ -11804,13 +11681,6 @@ Partial Class Compras_Compras
OC.Dispose() OC.Dispose()
End If End If
'GvOCC.DataSource = TmpDT
'GvOCC.DataBind()
'GvOCC2.DataSource = dt
'GvOCC2.DataBind()
'UpnAF.Update()
End Sub End Sub
#End Region #End Region
@@ -12877,12 +12747,6 @@ Partial Class Compras_Compras
Dim dr As DataRow Dim dr As DataRow
dr = DtAcreedores.FiltroPrimero(String.Format("CveProveedor = {0}", DdlAcreedor.SelectedValue)) dr = DtAcreedores.FiltroPrimero(String.Format("CveProveedor = {0}", DdlAcreedor.SelectedValue))
'If EmpresaPrueba Then
' dr = DtAcreedores.FiltroPrimero(String.Format("CveProveedor = {0}", DdlAcreedor.SelectedValue))
'Else
' dr = DtAcreedores.FiltroPrimero(String.Format("CveProveedor = {0}", DdlDeudor.SelectedValue))
'End If
If dr IsNot Nothing Then If dr IsNot Nothing Then
Dim tSaldo As Double = dr("Saldo").ToString.ToDouble Dim tSaldo As Double = dr("Saldo").ToString.ToDouble
@@ -12972,12 +12836,6 @@ Partial Class Compras_Compras
UpTabs.Update() UpTabs.Update()
'DdlProveedor.Attributes.Add("onclick", "CargaProveedores();")
End Sub End Sub
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
Dim Folio As Long Dim Folio As Long
@@ -13528,12 +13386,6 @@ Partial Class Compras_Compras
For Each gvr As GridViewRow In GvPS.Rows For Each gvr As GridViewRow In GvPS.Rows
dr = TmpDT.Rows(gvr.RowIndex) dr = TmpDT.Rows(gvr.RowIndex)
'DtDetalle.Rows(gvr.RowIndex)("CveClasificacionOG") = gvr.FCDropDownList("DdlAC5").SelectedValue.ToEntero
'DtDetalle.Rows(gvr.RowIndex)("CveProgramaOperativo") = gvr.FCDropDownList("DdlAC1").SelectedValue.ToEntero
'DtDetalle.Rows(gvr.RowIndex)("CveUnidadAdministrativa") = gvr.FCDropDownList("DdlAC2").SelectedValue.ToEntero
'DtDetalle.Rows(gvr.RowIndex)("CveFuenteFinanciamiento") = gvr.FCDropDownList("DdlAC3").SelectedValue.ToEntero
'DtDetalle.Rows(gvr.RowIndex)("CveTipoGasto") = gvr.FCDropDownList("DdlAC4").SelectedValue.ToEntero
dr("CveProgramaOperativo") = gvr.FCDropDownList("DdlAC1").SelectedValue.ToEntero dr("CveProgramaOperativo") = gvr.FCDropDownList("DdlAC1").SelectedValue.ToEntero
dr("CveUnidadAdministrativa") = gvr.FCDropDownList("DdlAC2").SelectedValue.ToEntero dr("CveUnidadAdministrativa") = gvr.FCDropDownList("DdlAC2").SelectedValue.ToEntero
dr("CveFuenteFinanciamiento") = gvr.FCDropDownList("DdlAC3").SelectedValue.ToEntero dr("CveFuenteFinanciamiento") = gvr.FCDropDownList("DdlAC3").SelectedValue.ToEntero
@@ -18080,6 +17932,12 @@ Partial Class Compras_Compras
TxtRetISRModal.Text = FormatoNumero(ViewState("RetISR").ToString().ToDouble * 100, 0) TxtRetISRModal.Text = FormatoNumero(ViewState("RetISR").ToString().ToDouble * 100, 0)
If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 And PS("IEPSPorcentaje").ToString.ToDecimal > 0 Then
TxtIEPSModal.Text = "0"
Alert("El producto seleccionado contiene IEPS, pero el acumulado de la factura no contiene IEPS, por lo que no se agregara el impuesto.", TipoMensaje.MsgAdvertencia)
End If
UpIVA.Update() UpIVA.Update()
If PS("CveClasificacion").ToString IsNot Nothing Then If PS("CveClasificacion").ToString IsNot Nothing Then
@@ -18473,6 +18331,13 @@ Partial Class Compras_Compras
End If End If
'Esta parte es para validar cuando la factura tenga ieps en o se asignara el ieps como una partida ya no se considere
If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 Then
Row("IEPSPS") = 0
Row("IEPSPSPorcentaje") = 0
End If
TmpDT.Rows.Add(Row) TmpDT.Rows.Add(Row)
TmpDT.Rows.IndexOf(Row) TmpDT.Rows.IndexOf(Row)
@@ -18603,6 +18468,13 @@ Partial Class Compras_Compras
DrPS("IEPSPSIVAPorcentaje") = IEPSPSIVA DrPS("IEPSPSIVAPorcentaje") = IEPSPSIVA
'Esta parte es para validar cuando la factura tenga ieps en o se asignara el ieps como una partida ya no se considere
If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 Then
DrPS("IEPSPS") = 0
DrPS("IEPSPSPorcentaje") = 0
End If
AplicaCalculaTotales = True AplicaCalculaTotales = True
'End If 'End If
@@ -19813,6 +19685,7 @@ Partial Class Compras_Compras
Dim CvePS As Integer = DdlConceptoIEPS.SelectedValue.ToEntero Dim CvePS As Integer = DdlConceptoIEPS.SelectedValue.ToEntero
' If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero ' If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero
AgregarConceptoIEPS(TrasladoIEPS, CvePS) AgregarConceptoIEPS(TrasladoIEPS, CvePS)
TrasladoIEPS = 0 TrasladoIEPS = 0
TxtIEPS.Text = 0.ToString.FormatoNumero TxtIEPS.Text = 0.ToString.FormatoNumero
TrIEPS.Visible = False TrIEPS.Visible = False
@@ -19827,6 +19700,7 @@ Partial Class Compras_Compras
Dim CvePS As Integer = DdlConceptoOI.SelectedValue.ToEntero Dim CvePS As Integer = DdlConceptoOI.SelectedValue.ToEntero
'If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(305).ToString.ToEntero 'If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(305).ToString.ToEntero
AgregarConceptoIEPS(OtrosImpuestos, CvePS) AgregarConceptoIEPS(OtrosImpuestos, CvePS)
OtrosImpuestos = 0 OtrosImpuestos = 0
TxtOtrosImpuestos.Text = 0.ToString.FormatoNumero TxtOtrosImpuestos.Text = 0.ToString.FormatoNumero
TrOtrosImpuestos.Visible = False TrOtrosImpuestos.Visible = False
@@ -19841,7 +19715,7 @@ Partial Class Compras_Compras
MostrarOcultarColumnaIEPS() MostrarOcultarColumnaIEPS()
AddPS2()
End Sub End Sub
#End Region #End Region

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -4437,7 +4437,7 @@ Partial Class PopUpVerFactura
RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar)) RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios") ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos\EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
End If End If
End Sub End Sub

18
Compras/RepProductosServiciosDetalle.aspx.vb
View File

@@ -149,17 +149,21 @@ Partial Class Compras_RepProductosServiciosDetalle
'DdlCategoria.SelectedValueExist(Categoria) 'DdlCategoria.SelectedValueExist(Categoria)
DdlClasificacion.SelectedValueExist(Clasificacion) DdlClasificacion.SelectedValueExist(Clasificacion)
If PS <> "-1" Then If PS.ToEntero > 1 Then
DdlPS.SelectedValue = PS DdlPS.SelectedValue = PS
DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero)(0)("PSCodigo").ToString DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero).FiltroPrimeroValor("PSCodigo")
End If End If
'DdlSubProyecto.SelectedValueExist(SubProyecto) 'DdlSubProyecto.SelectedValueExist(SubProyecto)
DdlFamilia.SelectedValueExist(Familia) DdlFamilia.SelectedValueExist(Familia)
DdlSubFamilia.SelectedValueExist(SubFamilia) DdlSubFamilia.SelectedValueExist(SubFamilia)
DdlProveedor.SelectedValue = Proveedor
If Proveedor.ToEntero > 0 Then If Proveedor.ToEntero > 0 Then
DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString Dim Dr As DataRow = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, Proveedor.ToEntero).FiltroPrimero("")
If Dr IsNot Nothing Then
DdlProveedor.SelectedText = Dr("RazonSocial").ToString
DdlProveedor.SelectedValue = Proveedor
End If
Else Else
DdlProveedor.SelectedText = "Todos" DdlProveedor.SelectedText = "Todos"
End If End If
@@ -200,8 +204,10 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlClasificacion.DataBind() DdlClasificacion.DataBind()
'CargaProveedor 'CargaProveedor
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedor.setEsWebService(True)
DdlProveedor.DataBind() DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
DdlProveedor.SelectedText = "Todos"
DdlProveedor.SelectedValue = "-1"
'CargaUsuarios 'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)

1
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -371,6 +371,7 @@ Partial Class ContabilidadC_RegPrePoliza
.Add("ContadoImporte", Type.GetType("System.Double")) .Add("ContadoImporte", Type.GetType("System.Double"))
.Add("ContadoBeneficiario", Type.GetType("System.String")) .Add("ContadoBeneficiario", Type.GetType("System.String"))
.Add("ContadoObservaciones", Type.GetType("System.String")) .Add("ContadoObservaciones", Type.GetType("System.String"))
.Add("FolioPoliza", Type.GetType("System.Int32"))
End With End With
End Sub End Sub

96
Contratos/ContratoAvance.aspx
View File

@@ -4,28 +4,7 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
<style> <style>
table.GVEstimacion{
width:100%;
}
.txtimporte{
/*background: transparent;*/
/*border: none;*/
}
.txtcant,.txtimporte,
table.GVEstimacion > tbody > tr > td,
table.GVEstimacion > tbody > tr > th{
text-align:right;
}
table.GVEstimacion > tbody > tr > th,
table.GVEstimacion > tbody > tr > td{
width:100px;
}
table.GVEstimacion > tbody > tr > th:nth-child(1),
table.GVEstimacion > tbody > tr > td:nth-child(1){
width:300px;
text-align:left;
}
.ddls { .ddls {
max-width:220px; max-width:220px;
} }
@@ -85,8 +64,8 @@
Fecha: Fecha:
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;"> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 90px !important; padding: 0px;">
<asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox> <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 88px" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="ImgFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="ImgFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span> </span>
@@ -113,18 +92,18 @@
<table class="table table-striped Widthall"> <table class="table table-striped Widthall">
<tr> <tr>
<th style="width: 400px;"></th> <th style=""></th>
<th style="width: 100px;"></th>
<th style="width: 100px;"></th>
<th style="width: 100px;"></th>
<th style="width: 100px;"></th>
<th style="width: 100px;"></th>
<th style="width: 100px;"></th> <th style="width: 100px;"></th>
<th style="width: 100px;"></th> <th style="width: 100px;"></th>
<th style="width: 100px;"></th> <th style="width: 100px;"></th>
<th style="width: 120px;"></th>
<th style="width: 120px;"></th>
<th style="width: 120px;"></th>
<th style="width: 50px;"></th>
<th style="width: 50px;"></th>
</tr> </tr>
<tr> <tr>
<th>Producto / Servicio</th> <th>Concepto</th>
<th colspan="2">Avance</th> <th colspan="2">Avance</th>
<th colspan="2">Ultimo Avance</th> <th colspan="2">Ultimo Avance</th>
<th colspan="2">Levantamiento</th> <th colspan="2">Levantamiento</th>
@@ -138,7 +117,7 @@
<asp:GridView ID="Gv" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance" <asp:GridView ID="Gv" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance"
DataKeyNames="CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance" DataKeyNames="CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance"
CssClass="table GVEstimacion table-advance table-hover mysmallbtn" GridLines="None"> CssClass="table table-advance table-hover mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:TemplateField HeaderText=""> <asp:TemplateField HeaderText="">
<ItemTemplate> <ItemTemplate>
@@ -147,58 +126,53 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad Total"> <asp:TemplateField HeaderText="Cant. Total" ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate >
<span><%# Eval("CantidadTotal", "{0:N2}")%></span> <span><%# Eval("CantidadTotal", "{0:N2}")%></span>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="UM"> <asp:TemplateField HeaderText="UM" ItemStyle-Width="60px">
<ItemTemplate> <ItemTemplate>
<span><%# Eval("Abreviatura")%></span> <span><%# Eval("Abreviatura")%></span>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right">
<asp:TemplateField HeaderText="Cantidad">
<ItemTemplate> <ItemTemplate>
<span><%# Eval("Cantidad", "{0:N2}")%></span> <span><%# Eval("Cantidad", "{0:N2}")%></span>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Importe"> <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<span><%# Eval("Importe", "{0:N2}")%></span> <span><%# Eval("Importe", "{0:N2}")%></span>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad"> <asp:TemplateField HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<span><%# Eval("Cantidad_Ultima", "{0:N2}")%></span> <span><%# Eval("Cantidad_Ultima", "{0:N2}")%></span>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Importe"> <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<span><%# Eval("Importe_Ultima", "{0:N2}")%></span> <span><%# Eval("Importe_Ultima", "{0:N2}")%></span>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad"> <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtCantidad" Text="" CssClass="txtcant" type="number" step="any" data-cantidad='<%# Eval("CantidadMax")%>' data-pu='<%# Eval("PU")%>' data-cve='<%# Eval("CveContratoDetalle") %>' Width="90" runat="server"></asp:TextBox> <asp:TextBox ID="TxtCantidad" Text="" CssClass="txtcant" type="number" step="any" data-cantidad='<%# Eval("CantidadMax")%>' data-pu='<%# Eval("PU")%>' data-cve='<%# Eval("CveContratoDetalle") %>' Width="70" runat="server"></asp:TextBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Importe"> <asp:TemplateField HeaderText="Importe" ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtImporte" Text="" CssClass="txtimporte" data-cve='<%# Eval("CveContratoDetalle") %>' type="number" step="any" Width="90" runat="server"></asp:TextBox> <asp:TextBox ID="TxtImporte" Text="" CssClass="txtimporte" data-cve='<%# Eval("CveContratoDetalle") %>' type="number" step="any" Width="90" runat="server"></asp:TextBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Porcentaje" ItemStyle-Width="50px">
<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="70" runat="server"></asp:TextBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText=" "> <asp:TemplateField HeaderText=" ">
<ItemTemplate> <ItemTemplate>
@@ -231,15 +205,11 @@
</div> </div>
</div> </div>
</div> </div>
</ItemTemplate>
</ItemTemplate> </asp:TemplateField>
</asp:TemplateField> <asp:TemplateField HeaderText=" ">
<asp:TemplateField HeaderText="">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkGuardarAvance" Text="Guardar" CssClass="btn btn-primary" runat="server" OnClick="LnkGuardarAvance_Click" Visible="false" Height="30px" ValidationGroup="GrpGuardar"></asp:LinkButton> <asp:LinkButton ID="LnkGuardarAvance" Text="" CssClass="btn btn-primary btn-sm" runat="server" OnClick="LnkGuardarAvance_Click" Visible="false" ValidationGroup="GrpGuardar" ToolTip="Guardar"><i class='fa fa-save'></i></asp:LinkButton>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -258,13 +228,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="modal fade " id="dropmodal"> <div class="modal fade " id="dropmodal">
<div class="modal-dialog"> <div class="modal-dialog">

8
Contratos/ContratoAvance.aspx.vb
View File

@@ -194,8 +194,6 @@ Partial Class Contratos_ContratoAvance
e.Row.FCTextBox("TxtPorcentaje").Visible = False e.Row.FCTextBox("TxtPorcentaje").Visible = False
'txtimporte 'txtimporte
e.Row.FCLinkButton("LnkAnexo").Visible = False e.Row.FCLinkButton("LnkAnexo").Visible = False
@@ -241,13 +239,7 @@ Partial Class Contratos_ContratoAvance
LnkGuardarAvance.Visible = False LnkGuardarAvance.Visible = False
End If End If
End If End If
End If End If
End Sub End Sub
Protected Sub GetAnexos(sender As Object, e As System.EventArgs) Protected Sub GetAnexos(sender As Object, e As System.EventArgs)

2
Contratos/ContratoObra.aspx
View File

@@ -309,7 +309,7 @@
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="portlet smmallpadding light bordered"> <div class="portlet smallpadding light bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="tools"> <div class="tools">
<a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title="" title=""></a><span class="hidden"> <a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title="" title=""></a><span class="hidden">

25
Contratos/ContratoObra.aspx.vb
View File

@@ -1115,9 +1115,7 @@ Partial Class Contratos_ContratoObra
Else Else
ObjContratos.Commit() ObjContratos.Commit()
If ObjContratos.GetContratos(-1, -1) Then GlobalDTContratos(UsuarioActual.CveEmpresa) = Nothing
Application("GlobalDTContratos") = ObjContratos.DtResultados
End If
Limpiar() Limpiar()
If Modificado Then If Modificado Then
@@ -4387,7 +4385,7 @@ Partial Class Contratos_ContratoObra
DTCargaPresupuesto = CargaPresupuestoExcel("Presupuesto") DTCargaPresupuesto = CargaPresupuestoExcel("Presupuesto")
If DTCargaPresupuesto.Rows.Count > 0 Then If DTCargaPresupuesto.Rows.Count > 0 Then
ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, Nothing, Nothing, Nothing) ProcesaDatosCargaPresupuesto(EnumTipoCargaPresupuesto.Ventas, DTCargaPresupuesto, Nothing, Nothing, Nothing)
Else Else
Alert("No se encintraron partidas en el documento", TipoMensaje.MsgAdvertencia) Alert("No se encintraron partidas en el documento", TipoMensaje.MsgAdvertencia)
End If End If
@@ -4399,7 +4397,7 @@ Partial Class Contratos_ContratoObra
DTCargaPresupuestoFlotillas = CargaPresupuestoExcel("Maquinaria") DTCargaPresupuestoFlotillas = CargaPresupuestoExcel("Maquinaria")
DTCargaPresupuestoIndirectos = CargaPresupuestoExcel("Indirectos") DTCargaPresupuestoIndirectos = CargaPresupuestoExcel("Indirectos")
ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos) ProcesaDatosCargaPresupuesto(EnumTipoCargaPresupuesto.Control, DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos)
End If End If
@@ -4476,7 +4474,7 @@ Partial Class Contratos_ContratoObra
End Function End Function
Private Sub ProcesaDatosCargaPresupuesto(DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable) Private Sub ProcesaDatosCargaPresupuesto(TipoPresupuesto As EnumTipoCargaPresupuesto, DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable)
If Not DTPresupuesto Is Nothing Then If Not DTPresupuesto Is Nothing Then
@@ -4548,16 +4546,23 @@ Partial Class Contratos_ContratoObra
End If End If
End If End If
'si el presupuesto es de ventas. solo valida con el codigo del producto
'si es presupuesto es de control, valida por ambos
If CvePS = -1 Then If CvePS = -1 Then
StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c) 'si es presup ventas, busca por producto,
If StrArray.Length > 0 Then If TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then
If CBool(StrArray(0)) = True Then
CvePS = StrArray(1).ToEntero StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
If StrArray.Length > 0 Then
If CBool(StrArray(0)) = True Then
CvePS = StrArray(1).ToEntero
End If
End If End If
End If End If
If CvePS = -1 Then If CvePS = -1 Then
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios

533
Contratos/ContratoObraAutorizacion.aspx
View File

@@ -1,282 +1,277 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratoObraAutorizacion.aspx.vb" Inherits="Contratos_ContratoObraAutorizacion" %> <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratoObraAutorizacion.aspx.vb" Inherits="Contratos_ContratoObraAutorizacion" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style> <style>
table.GVEstimacion{ table.GVEstimacion {
width:100%; width: 100%;
} }
.txtimporte{
background: transparent; .txtimporte {
border: none; background: transparent;
} border: none;
}
.txtcant,.txtimporte,
table.GVEstimacion > tbody > tr > td, .txtcant, .txtimporte,
table.GVEstimacion > tbody > tr > th{ table.GVEstimacion > tbody > tr > td,
text-align:right; table.GVEstimacion > tbody > tr > th {
} text-align: right;
table.GVEstimacion > tbody > tr > th, }
table.GVEstimacion > tbody > tr > td{
width:100px; table.GVEstimacion > tbody > tr > th,
} table.GVEstimacion > tbody > tr > td {
table.GVEstimacion > tbody > tr > th:nth-child(1), width: 100px;
table.GVEstimacion > tbody > tr > td:nth-child(1){ }
width:300px;
text-align:left; table.GVEstimacion > tbody > tr > th:nth-child(1),
} table.GVEstimacion > tbody > tr > td:nth-child(1) {
.ddls { width: 300px;
max-width:220px; text-align: left;
} }
.linkfile input{
display:none .ddls {
} max-width: 220px;
</style> }
<link href="/Metronic/assets/global/plugins/dropzone/css/dropzone.css" rel="stylesheet"/> .linkfile input {
</asp:Content> display: none
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server"> }
Autorización de Avance </style>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server"> <link href="/Metronic/assets/global/plugins/dropzone/css/dropzone.css" rel="stylesheet" />
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
</asp:Content> Autorización de Avance
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server" ID="UpEstimaciones" UpdateMode="Conditional">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpEstimaciones" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter"> <div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle"> <div class="portlet-title portlet-filterT smalltitle">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultarEstimaciones" runat="server" Text="Consultar" class="btn btn-default" /> <asp:Button ID="BtnConsultarEstimaciones" runat="server" Text="Consultar" class="btn btn-default" />
</div>
<div class="titlefiltros caption" style="position: relative;">
<asp:UpdatePanel class="row" ID="UpdatePanel2" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<label class="col-md-1 truncate">Contrato:</label>
<div class="col-md-6 col-lg-4">
<div class="ddls">
<asp:DropDownList ID="DDlContratosEstimaciones" runat="server" DataTextField="ContratoCompleto" DataValueField="CveContrato" Class=" form-control input-inline select2me" Width="100%">
</asp:DropDownList>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6" style="text-align: right!important">
</div> </div>
<div class="titlefiltros caption" style="position: relative;">
<asp:UpdatePanel class="row" ID="UpdatePanel2" runat="server" UpdateMode="Conditional">
<ContentTemplate> <div class="col-md-6" style="text-align: right!important">
<label class="col-md-1 truncate">Contrato:</label> <div style="display: inline-block">
<div class="col-md-6 col-lg-4"> <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEstimaciones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" />
<div class="ddls"> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEstimaciones.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
<asp:DropDownList ID="DDlContratosEstimaciones" runat="server" DataTextField="ContratoCompleto" DataValueField="CveContrato" Class=" form-control input-inline select2me" Width="100%"> </div>
</asp:DropDownList>
</div>
</div>
<br />
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvEstimaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance"
DataKeyNames="CveContratoAvance,CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance,Fecha,CveEstimacion"
CssClass="table GVEstimacion table-advance table-hover mysmallbtn" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="" ItemStyle-Width="60%">
<ItemTemplate>
<asp:LinkButton ID="Producto" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Visible="false"></asp:LinkButton>
<asp:Label ID="LinkButton1" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad">
<ItemTemplate>
<span><%# Eval("Cantidad", "{0:N2}")%></span>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe">
<ItemTemplate>
<span><%# Eval("Importe", "{0:N2}")%></span>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ult. Cantidad">
<ItemTemplate>
<span><%# Eval("Cantidad_Ultima", "{0:N2}")%></span>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Ult. Importe">
<ItemTemplate>
<span><%# Eval("Importe_Ultima", "{0:N2}")%></span>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Acciones">
<ItemTemplate>
<table style="width: 90px!important">
<tr>
<td>
<asp:LinkButton ID="LnkAnexo" runat="server" OnClick="GetAnexos" AlternateText="Agregar Anexo" CssClass="btn btn-circle btn-sm btn-success anexo" Text="<i class='fa fa-folder'></i>" Visible="false" />
</td>
<td>
<asp:LinkButton ID="LnkEliminarAvance" runat="server" OnClick="LnkEliminarAvance_Click" AlternateText="Agregar Anexo" Visible="false"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Eliminar avance?" data-btn-ok-label="si" />
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
<div class="row">
<div class="col-md-12">
<div class="text-center">
<asp:Button ID="BtnAutoriza" CssClass="btn btn-primary" runat="server" Text="Autorizar" Visible="false" OnClick="BtnAutoriza_Click" />
<asp:Button ID="BtnGuardarEstimacion" CssClass="btn btn-primary" runat="server" Text="Generar Estimacion" Visible="false" />
<asp:Button ID="BtnDescargarGenerado" CssClass="btn btn-primary" runat="server" Text="Descarga Generador" Visible="false" />
</div>
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="BtnDescargarGenerado" />
</Triggers>
</asp:UpdatePanel>
<div class="modal fade " id="dropmodal">
<div class="modal-dialog">
<div class="modal-content ">
<div class="portlet light smmallpadding bordered ">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Cargar Evidencia</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
<a href="javascript:$('#dropmodal').modal('hide');" style="color: gray;"><i class="fa fa-remove"></i></a>
</div>
</div>
<div class="portlet-body ">
<div id="my-dropzone" class="">
</div>
</div>
<div style="text-align: center!important">
<br />
<button id="btnCerrarModal" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
<br />
</div>
</div>
</div>
</div>
</div>
<div id="ModalAnexos" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel ID="UpModalAnexos" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<!-- Modal content-->
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:Label runat="server" ID="LblTituloModalAnexo"></asp:Label></h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-12" style="text-align: center!important; text-align: center!important">
<asp:GridView ID="GvAnexos" AutoGenerateColumns="false" runat="server" ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron archivos" Width="250px"
DataKeyNames="Archivo" CssClass="table GVEstimacion table-advance table-hover" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Anexos">
<ItemTemplate>
<asp:LinkButton ID="LnkArchivo" runat="server" OnClick="LnkArchivo_Click"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div> </div>
</div> </div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div>
</div>
</div> </div>
</div>
<div class="row">
<div class="col-md-6" style="text-align: right!important">
</div>
<div class="col-md-6" style="text-align:right!important">
<div style="display: inline-block">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEstimaciones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEstimaciones.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
<br />
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvEstimaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance"
DataKeyNames="CveContratoAvance,CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance,Fecha,CveEstimacion"
CssClass="table GVEstimacion table-advance table-hover mysmallbtn" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="" ItemStyle-Width="60%">
<ItemTemplate>
<asp:LinkButton ID="Producto" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Visible="false"></asp:LinkButton>
<asp:Label ID="LinkButton1" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad">
<ItemTemplate>
<span><%# Eval("Cantidad", "{0:N2}")%></span>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe">
<ItemTemplate>
<span><%# Eval("Importe", "{0:N2}")%></span>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad">
<ItemTemplate>
<span><%# Eval("Cantidad_Ultima", "{0:N2}")%></span>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe">
<ItemTemplate>
<span><%# Eval("Importe_Ultima", "{0:N2}")%></span>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Acciones">
<ItemTemplate>
<table style="width: 120px!important">
<tr>
<td>
<asp:LinkButton ID="LnkAnexo" runat="server" OnClick="GetAnexos" AlternateText="Agregar Anexo" CssClass="btn btn-circle btn-sm btn-success anexo" Text="<i class='fa fa-folder'></i>" Visible="false" />
</td>
<td>
<asp:LinkButton ID="LnkEliminarAvance" runat="server" OnClick="LnkEliminarAvance_Click" AlternateText="Agregar Anexo" Visible="false"
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Confimra la elimiancion del avance?" data-btn-ok-label="si" />
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
</Columns> <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
</asp:GridView>
</div> <%--<script src="../Scripts/dropzone/dropzone.min.js"></script>--%>
</div> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<div class="row">
<div class="col-md-12">
<div class="text-center">
<asp:Button ID="BtnAutoriza" CssClass="btn btn-primary" runat="server" Text="Autorizar" Visible="false" OnClick="BtnAutoriza_Click" />
<asp:Button ID="BtnGuardarEstimacion" CssClass="btn btn-primary" runat="server" Text="Generar Estimacion" Visible="false" />
<asp:Button ID="BtnDescargarGenerado" CssClass="btn btn-primary" runat="server" Text="Descarga Generador" Visible="false" />
</div>
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="BtnDescargarGenerado" />
</Triggers>
</asp:UpdatePanel>
<div class="modal fade " id="dropmodal">
<div class="modal-dialog">
<div class="modal-content ">
<div class="portlet light smmallpadding bordered ">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Cargar Evidencia</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
<a href="javascript:$('#dropmodal').modal('hide');" style="color:gray;" ><i class="fa fa-remove"></i></a>
</div>
</div>
<div class="portlet-body ">
<div id="my-dropzone" class="">
</div>
</div>
<div style="text-align: center!important">
<br />
<button id="btnCerrarModal" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
<br />
</div>
</div>
</div>
</div>
</div>
<div id="ModalAnexos" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel ID="UpModalAnexos" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<!-- Modal content-->
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:Label runat="server" ID="LblTituloModalAnexo"></asp:Label></h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-12" style="text-align:center!important;text-align:center!important" >
<asp:GridView ID="GvAnexos" AutoGenerateColumns="false" runat="server" ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron archivos" Width="250px"
DataKeyNames="Archivo" CssClass="table GVEstimacion table-advance table-hover" GridLines ="None">
<Columns>
<asp:TemplateField HeaderText="Anexos">
<ItemTemplate>
<asp:LinkButton ID="LnkArchivo" runat="server" OnClick="LnkArchivo_Click"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
<%--<script src="../Scripts/dropzone/dropzone.min.js"></script>--%>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" Runat="Server">
<script> <script>
jQuery(document).ready(function () { jQuery(document).ready(function () {
@@ -287,7 +282,7 @@
Sys.Application.add_load(function (s, e) { Sys.Application.add_load(function (s, e) {
$(".linkfile").click(function () { $(".linkfile").click(function () {
showmodalFile($(this).find('input').attr('id')); showmodalFile($(this).find('input').attr('id'));
}); });
}); });
}); });
function showmodalFile(obj) { function showmodalFile(obj) {
@@ -296,7 +291,7 @@
$('#' + obj).data("urldown", '<%= url%>/Ashx/SIGWeb.ashx'); $('#' + obj).data("urldown", '<%= url%>/Ashx/SIGWeb.ashx');
$('#' + obj).data("urlget", '<%= url %>/Temp/'); $('#' + obj).data("urlget", '<%= url %>/Temp/');
ADDropzone(obj); ADDropzone(obj);
$('#dropmodal').modal(); $('#dropmodal').modal();
} }
function ValidateCant(variable) { function ValidateCant(variable) {
@@ -330,6 +325,6 @@
} }
//); //);
</script> </script>
</asp:Content> </asp:Content>

14
Contratos/ContratoObraAutorizacion.aspx.vb
View File

@@ -137,11 +137,6 @@ Partial Class Contratos_ContratoObraAutorizacion
DDlContratosEstimaciones.DataBind() DDlContratosEstimaciones.DataBind()
End Sub End Sub
Protected Sub GetAnexos(sender As Object, e As System.EventArgs) Protected Sub GetAnexos(sender As Object, e As System.EventArgs)
Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
@@ -219,11 +214,8 @@ Partial Class Contratos_ContratoObraAutorizacion
If DTEstimaciones.Rows.Count > 0 Then If DTEstimaciones.Rows.Count > 0 Then
CveEstimacionActual = DTEstimaciones.FiltroPrimeroValor("CveEstimacion", "CveEstimacion > 0").ToString.ToEntero CveEstimacionActual = DTEstimaciones.FiltroPrimeroValor("CveEstimacion", "CveEstimacion > 0").ToString.ToEntero
End If End If
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()
@@ -263,9 +255,6 @@ Partial Class Contratos_ContratoObraAutorizacion
e.Row.CssClass = "SubTotales3" e.Row.CssClass = "SubTotales3"
End If End If
End If End If
If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero > 0 Then If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero > 0 Then
@@ -638,7 +627,6 @@ Partial Class Contratos_ContratoObraAutorizacion
Dim ErrorProceso As Boolean = True Dim ErrorProceso As Boolean = True
Dim ObjContrato As New ClsContratos Dim ObjContrato As New ClsContratos
If ObjContrato.RemoveContratosAvance(CveContratoAvance, UsuarioActual.CveEmpresa) Then If ObjContrato.RemoveContratosAvance(CveContratoAvance, UsuarioActual.CveEmpresa) Then
@@ -650,7 +638,7 @@ Partial Class Contratos_ContratoObraAutorizacion
If Not ErrorProceso Then If Not ErrorProceso Then
CargaAvancesParaEstimar() CargaAvancesParaEstimar()
Alert("Avance elimiando correctamente.") Alert("Avance eliminado correctamente.")
End If End If

20
Empresas/146/Formatos/Cotizacion.rdlc
View File

@@ -1245,25 +1245,7 @@
<Width>2pt</Width> <Width>2pt</Width>
</Border> </Border>
</Style> </Style>
</Line> </Line>
<Image Name="Image9">
<Source>Embedded</Source>
<Value>VISTAPREVIA22</Value>
<Sizing>FitProportional</Sizing>
<Top>0.01389in</Top>
<Left>7.40306in</Left>
<Height>6.34944in</Height>
<Width>0.09753in</Width>
<ZIndex>20</ZIndex>
<Visibility>
<Hidden>=IIf(Parameters!CveVenta.Value &gt; 0, True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
</ReportItems> </ReportItems>
<Height>6.36333in</Height> <Height>6.36333in</Height>
<Style /> <Style />

431
Empresas/158/Formatos/Factura.rdlc
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2016/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner"> <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="DsOC"> <DataSource Name="DsOC">
@@ -4892,434 +4892,7 @@
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<ReportParametersLayout>
<GridLayoutDefinition>
<NumberOfColumns>2</NumberOfColumns>
<NumberOfRows>42</NumberOfRows>
<CellDefinitions>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>0</RowIndex>
<ParameterName>ClienteCodigo</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>0</RowIndex>
<ParameterName>ClienteNombre</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>1</RowIndex>
<ParameterName>ClienteDireccion</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>1</RowIndex>
<ParameterName>ClienteLugar</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>2</RowIndex>
<ParameterName>ClienteTelefono</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>2</RowIndex>
<ParameterName>ClienteContacto</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>3</RowIndex>
<ParameterName>ClienteContactoMail</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>3</RowIndex>
<ParameterName>ClienteCalle</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>4</RowIndex>
<ParameterName>ClienteColonia</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>4</RowIndex>
<ParameterName>ClienteCiudad</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>5</RowIndex>
<ParameterName>ClienteMunicipio</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>5</RowIndex>
<ParameterName>ClienteEstado</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>6</RowIndex>
<ParameterName>ClienteCP</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>6</RowIndex>
<ParameterName>ClientePais</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>7</RowIndex>
<ParameterName>ClienteNoInt</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>7</RowIndex>
<ParameterName>ClienteNoExt</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>8</RowIndex>
<ParameterName>ClienteRFC</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>8</RowIndex>
<ParameterName>ImporteLetra</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>9</RowIndex>
<ParameterName>Observaciones</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>9</RowIndex>
<ParameterName>CveVendedor</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>10</RowIndex>
<ParameterName>Status</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>10</RowIndex>
<ParameterName>FechaSolicitud</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>11</RowIndex>
<ParameterName>Folio</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>11</RowIndex>
<ParameterName>Descuento</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>12</RowIndex>
<ParameterName>SubTotal</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>12</RowIndex>
<ParameterName>IVA</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>13</RowIndex>
<ParameterName>Total</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>13</RowIndex>
<ParameterName>Fecha</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>14</RowIndex>
<ParameterName>DomicilioSucursal</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>14</RowIndex>
<ParameterName>MetodoPago</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>15</RowIndex>
<ParameterName>Vencimiento</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>15</RowIndex>
<ParameterName>FolioFiscal</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>16</RowIndex>
<ParameterName>FechaCertificacion</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>16</RowIndex>
<ParameterName>SelloCFDI</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>17</RowIndex>
<ParameterName>CadenaSAT</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>17</RowIndex>
<ParameterName>SelloSAT</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>18</RowIndex>
<ParameterName>CiudadSucursal</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>18</RowIndex>
<ParameterName>Serie</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>19</RowIndex>
<ParameterName>QR</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>19</RowIndex>
<ParameterName>FormaPago</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>20</RowIndex>
<ParameterName>LogoPath</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>20</RowIndex>
<ParameterName>VendedorNombre</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>21</RowIndex>
<ParameterName>VendedorCelular</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>21</RowIndex>
<ParameterName>VendedorMail</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>22</RowIndex>
<ParameterName>VendedorTelefono</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>22</RowIndex>
<ParameterName>Moneda</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>23</RowIndex>
<ParameterName>TipoCambio</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>23</RowIndex>
<ParameterName>CondicionPago</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>24</RowIndex>
<ParameterName>CadenaOriginal</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>24</RowIndex>
<ParameterName>SerieCertificadoSAT</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>25</RowIndex>
<ParameterName>Tipo</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>25</RowIndex>
<ParameterName>NumCta</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>26</RowIndex>
<ParameterName>CertificadoContribuyente</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>26</RowIndex>
<ParameterName>Amortizacion</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>27</RowIndex>
<ParameterName>SubTotal2</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>27</RowIndex>
<ParameterName>RetIVA</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>28</RowIndex>
<ParameterName>RetISR</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>28</RowIndex>
<ParameterName>TipoDocumento</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>29</RowIndex>
<ParameterName>AplicaPagare</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>29</RowIndex>
<ParameterName>Ref</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>30</RowIndex>
<ParameterName>Sucursal</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>30</RowIndex>
<ParameterName>ClienteDiasCredito</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>31</RowIndex>
<ParameterName>OC</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>31</RowIndex>
<ParameterName>MonedaAbreviatura</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>32</RowIndex>
<ParameterName>UsuarioImprimio</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>32</RowIndex>
<ParameterName>FechaImpresion</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>33</RowIndex>
<ParameterName>EnvioDireccion</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>33</RowIndex>
<ParameterName>EnvioColonia</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>34</RowIndex>
<ParameterName>EnvioCiudad</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>34</RowIndex>
<ParameterName>EnvioEstado</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>35</RowIndex>
<ParameterName>EnvioCP</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>35</RowIndex>
<ParameterName>EnvioNoExt</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>36</RowIndex>
<ParameterName>EnvioNoInt</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>36</RowIndex>
<ParameterName>EnvioContacto</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>37</RowIndex>
<ParameterName>EnvioDepartamento</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>37</RowIndex>
<ParameterName>EstatusFactura</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>38</RowIndex>
<ParameterName>EstatusEntrega</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>38</RowIndex>
<ParameterName>PedidoContrato</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>39</RowIndex>
<ParameterName>DescripcionContrato</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>39</RowIndex>
<ParameterName>OrdenCompra</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>40</RowIndex>
<ParameterName>UsoCFDI</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>40</RowIndex>
<ParameterName>TipoRelacionTexto</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>0</ColumnIndex>
<RowIndex>41</RowIndex>
<ParameterName>FolioFiscalRelacionado</ParameterName>
</CellDefinition>
<CellDefinition>
<ColumnIndex>1</ColumnIndex>
<RowIndex>41</RowIndex>
<ParameterName>Contrato</ParameterName>
</CellDefinition>
</CellDefinitions>
</GridLayoutDefinition>
</ReportParametersLayout>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="Logo119"> <EmbeddedImage Name="Logo119">
<MIMEType>image/png</MIMEType> <MIMEType>image/png</MIMEType>

6
Empresas/72/Formatos/TrasladoAlmacen.rdlc
View File

@@ -3198,6 +3198,12 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="LogoPath">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="compuproveedores"> <EmbeddedImage Name="compuproveedores">

4
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -658,7 +658,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
Private Sub LnkExcelUniverso_Click(sender As Object, e As EventArgs) Handles LnkExcelUniverso.Click Private Sub LnkExcelUniverso_Click(sender As Object, e As EventArgs) Handles LnkExcelUniverso.Click
Dim IncluyePS, ExcluyePS, IncluyeClasificacion, ExcluyeClasificacion, IncluyeProveedor As New StringBuilder Dim IncluyePS, ExcluyePS, IncluyeClasificacion, ExcluyeClasificacion, IncluyeProveedor As New StringBuilder
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim DtPS As DataTable Dim DtPS As DataTable = Nothing
If ObjInventario.GetInventarioFisicoUniversoProductos(CveInventarioFisico, UsuarioActual.CveEmpresa) Then If ObjInventario.GetInventarioFisicoUniversoProductos(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.DtResultados.Rows.Count > 0 Then
DtPS = ObjInventario.DtResultados.FiltraParametros("", "", {"Codigo", "PS", "Clasificacion", "RazonSocial"}) DtPS = ObjInventario.DtResultados.FiltraParametros("", "", {"Codigo", "PS", "Clasificacion", "RazonSocial"})
@@ -666,6 +666,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
Alert("Error al consultar la informacion") Alert("Error al consultar la informacion")
End If End If
End If End If
ObjInventario.Dispose()
Dim NombreArchivo As String Dim NombreArchivo As String
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim workbook As New ExcelFile() Dim workbook As New ExcelFile()

2
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -899,7 +899,7 @@ Partial Class Inventarios_TrasladoSolicitud
End If End If
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then
ImprimirPDF(String.Format("Empresas\{0}\Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.CveEmpresa), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato) ImprimirPDF(String.Format("{0}Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.Empresa.Ruta), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
Else Else
ImprimirPDF(RutaFormatoDefault, dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato) ImprimirPDF(RutaFormatoDefault, dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
End If End If

2
Nomina/Aguinaldo.aspx.cs
View File

@@ -217,7 +217,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
if (CveNomina > 0) if (CveNomina > 0)
{ {
if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario)) if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, false, 1, 1, 1))
{ {
continuar = false; continuar = false;
} }

8
Nomina/Finiquito.aspx.cs
View File

@@ -1232,7 +1232,7 @@ public partial class Nomina_Finiquito : ClsPaginas
if (continuar) if (continuar)
{ {
if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario)) if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, false, 1, 1, 1))
{ {
continuar = false; continuar = false;
} }
@@ -1345,6 +1345,10 @@ public partial class Nomina_Finiquito : ClsPaginas
protected void BtnAceptarMC_Click(object sender, EventArgs e) protected void BtnAceptarMC_Click(object sender, EventArgs e)
{ {
int chkImporte = 1;
int chkImporteGravado = 1;
int chkImporteValor = 1;
bool continuar = true; bool continuar = true;
int CveNomina = 0; int CveNomina = 0;
double Total = 0; double Total = 0;
@@ -1395,7 +1399,7 @@ public partial class Nomina_Finiquito : ClsPaginas
if (continuar) if (continuar)
{ {
if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoFiniquito, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true)) if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoFiniquito, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true, chkImporte, chkImporteGravado, chkImporteValor))
{ {
continuar = false; continuar = false;
} }

70
Nomina/NomTimbrados.aspx.cs
View File

@@ -130,8 +130,8 @@ public partial class Nomina_NomTimbrados : ClsPaginas
case "DESCUENTO": drow["DESCUENTO"] = xtr.Value; break; case "DESCUENTO": drow["DESCUENTO"] = xtr.Value; break;
case "TIPODECOMPROBANTE": drow["TIPODECOMPROBANTE"] = xtr.Value; break; case "TIPODECOMPROBANTE": drow["TIPODECOMPROBANTE"] = xtr.Value; break;
} }
switch (xtr.Name.ToUpper()) //switch (xtr.Name.ToUpper())
{ //{
//case "XMLNS:CFDI": xmlCFDI.comprobante.xmlns_cfdi = xtr.Value; break; //case "XMLNS:CFDI": xmlCFDI.comprobante.xmlns_cfdi = xtr.Value; break;
//case "XMLNS:XSI": xmlCFDI.comprobante.xmlns_xsi = xtr.Value; break; //case "XMLNS:XSI": xmlCFDI.comprobante.xmlns_xsi = xtr.Value; break;
//case "XSI:SCHEMALOCATION": xmlCFDI.comprobante.xsi_schemaLocation = xtr.Value; break; //case "XSI:SCHEMALOCATION": xmlCFDI.comprobante.xsi_schemaLocation = xtr.Value; break;
@@ -155,7 +155,7 @@ public partial class Nomina_NomTimbrados : ClsPaginas
//case "NOCERTIFICADO": xmlCFDI.comprobante.NoCertificado = xtr.Value; break; //case "NOCERTIFICADO": xmlCFDI.comprobante.NoCertificado = xtr.Value; break;
//case "SELLO": xmlCFDI.comprobante.Sello = xtr.Value; break; //case "SELLO": xmlCFDI.comprobante.Sello = xtr.Value; break;
//case "CERTIFICADO": xmlCFDI.comprobante.Certificado = xtr.Value; break; //case "CERTIFICADO": xmlCFDI.comprobante.Certificado = xtr.Value; break;
} //}
cont = xtr.MoveToNextAttribute(); cont = xtr.MoveToNextAttribute();
} }
cont = xtr.MoveToFirstAttribute(); cont = xtr.MoveToFirstAttribute();
@@ -244,8 +244,8 @@ public partial class Nomina_NomTimbrados : ClsPaginas
cont = xtr.MoveToFirstAttribute(); cont = xtr.MoveToFirstAttribute();
while (cont) while (cont)
{ {
switch (xtr.Name.ToUpper()) //switch (xtr.Name.ToUpper())
{ //{
//case "CLAVEPRODSERV": concepto.ClaveProdServ = xtr.Value; break; //case "CLAVEPRODSERV": concepto.ClaveProdServ = xtr.Value; break;
//case "NOIDENTIFICACION": concepto.NoIdentificacion = xtr.Value; break; //case "NOIDENTIFICACION": concepto.NoIdentificacion = xtr.Value; break;
//case "CANTIDAD": concepto.Cantidad = xtr.Value; break; //case "CANTIDAD": concepto.Cantidad = xtr.Value; break;
@@ -255,7 +255,7 @@ public partial class Nomina_NomTimbrados : ClsPaginas
//case "IMPORTE": decimal Importe = 0; decimal.TryParse(xtr.Value, out Importe); concepto.Importe = Importe; ; break; //case "IMPORTE": decimal Importe = 0; decimal.TryParse(xtr.Value, out Importe); concepto.Importe = Importe; ; break;
//case "DESCUENTO": decimal DDescuento = 0; decimal.TryParse(xtr.Value, out DDescuento); concepto.Descuento = DDescuento; ; break; //case "DESCUENTO": decimal DDescuento = 0; decimal.TryParse(xtr.Value, out DDescuento); concepto.Descuento = DDescuento; ; break;
//case "DESCRIPCION": concepto.Descripcion = xtr.Value; break; //case "DESCRIPCION": concepto.Descripcion = xtr.Value; break;
} //}
cont = xtr.MoveToNextAttribute(); cont = xtr.MoveToNextAttribute();
} }
xtr.MoveToFirstAttribute(); xtr.MoveToFirstAttribute();
@@ -377,22 +377,22 @@ public partial class Nomina_NomTimbrados : ClsPaginas
while (conts) while (conts)
{ {
decimal Base = 0; //decimal Base = 0;
switch (xtr.Name.ToUpper()) //switch (xtr.Name.ToUpper())
{ //{
//case "FECHAPAGO": xmlCFDI.complemento.Pagos.FechaPago = xtr.Value; break; // case "FECHAPAGO": xmlCFDI.complemento.Pagos.FechaPago = xtr.Value; break;
//case "FORMADEPAGOP": xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value; break; // case "FORMADEPAGOP": xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value; break;
//case "FORMADEPAGOPTEXT": xmlCFDI.complemento.Pagos.FormaDePagoPText = xtr.Value; break; // case "FORMADEPAGOPTEXT": xmlCFDI.complemento.Pagos.FormaDePagoPText = xtr.Value; break;
//case "MONEDAP": xmlCFDI.complemento.Pagos.MonedaP = xtr.Value; break; // case "MONEDAP": xmlCFDI.complemento.Pagos.MonedaP = xtr.Value; break;
//case "MONTO": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.Monto = Base; break; // case "MONTO": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.Monto = Base; break;
//case "TIPOCAMBIOP": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.TipoCambioP = Base; break; // case "TIPOCAMBIOP": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.TipoCambioP = Base; break;
//case "NUMOPERACION": xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value; break; // case "NUMOPERACION": xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value; break;
//case "NOMBANCOORDEXT": xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value; break; // case "NOMBANCOORDEXT": xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value; break;
//case "RFCEMISORCTAORD": xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value; break; // case "RFCEMISORCTAORD": xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value; break;
//case "CTAORDENANTE": xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value; break; // case "CTAORDENANTE": xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value; break;
//case "RFCEMISORCTABEN": xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value; break; // case "RFCEMISORCTABEN": xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value; break;
//case "CTABENEFICIARIO": xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value; break; // case "CTABENEFICIARIO": xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value; break;
} //}
conts = xtr.MoveToNextAttribute(); conts = xtr.MoveToNextAttribute();
} }
conts = xtr.MoveToFirstAttribute(); conts = xtr.MoveToFirstAttribute();
@@ -404,20 +404,20 @@ public partial class Nomina_NomTimbrados : ClsPaginas
while (conts) while (conts)
{ {
decimal Basep = 0; //decimal Basep = 0;
switch (xtr.Name.ToUpper()) //switch (xtr.Name.ToUpper())
{ //{
//case "IDDOCUMENTO": objpago.IdDocumento = xtr.Value; break; // case "IDDOCUMENTO": objpago.IdDocumento = xtr.Value; break;
//case "SERIE": objpago.Serie = xtr.Value; break; // case "SERIE": objpago.Serie = xtr.Value; break;
//case "FOLIO": objpago.Folio = xtr.Value; break; // case "FOLIO": objpago.Folio = xtr.Value; break;
//case "MONEDADR": objpago.MonedaDR = xtr.Value; break; // case "MONEDADR": objpago.MonedaDR = xtr.Value; break;
//case "METODODEPAGODR": objpago.MetodoDePagoDR = xtr.Value; break; // case "METODODEPAGODR": objpago.MetodoDePagoDR = xtr.Value; break;
//case "NUMPARCIALIDAD": objpago.NumParcialidad = xtr.Value; break; // case "NUMPARCIALIDAD": objpago.NumParcialidad = xtr.Value; break;
//case "IMPSALDOANT": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoAnt = Basep; break; // case "IMPSALDOANT": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoAnt = Basep; break;
//case "IMPPAGADO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpPagado = Basep; break; // case "IMPPAGADO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpPagado = Basep; break;
//case "IMPSALDOINSOLUTO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoInsoluto = Basep; break; // case "IMPSALDOINSOLUTO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoInsoluto = Basep; break;
} //}
conts = xtr.MoveToNextAttribute(); conts = xtr.MoveToNextAttribute();
} }
conts = xtr.MoveToFirstAttribute(); conts = xtr.MoveToFirstAttribute();

19
Nomina/Nomina.aspx.cs
View File

@@ -1389,6 +1389,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
protected void LnkCargarNomina_Click(object sender, EventArgs e) protected void LnkCargarNomina_Click(object sender, EventArgs e)
{ {
int chkImporteValor = 1;
int chkImporte = 1;
int chkImporteGravado = 0;
List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos; List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos;
bool continuar = Filesgral.Count > 0; bool continuar = Filesgral.Count > 0;
string stringError = ""; string stringError = "";
@@ -1512,7 +1515,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{ {
if (!dontsaveconcepto)//el usuario definira si desea actualizar o no el concepto en el periodo if (!dontsaveconcepto)//el usuario definira si desea actualizar o no el concepto en el periodo
{ {
if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, true)) if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, true, chkImporte, chkImporteGravado, chkImporteValor))
{ {
rollback = true; rollback = true;
} }
@@ -1841,6 +1844,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
} }
protected void BtnAceptarMC_Click(object sender, EventArgs e) protected void BtnAceptarMC_Click(object sender, EventArgs e)
{ {
int chkImporte = 1;
int chkImporteGravado = 1;
int chkImporteValor = 1;
bool continuar = true; bool continuar = true;
int CveNomina = 0; int CveNomina = 0;
double Total = 0; double Total = 0;
@@ -1896,7 +1902,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (continuar) if (continuar)
{ {
if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true)) if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true, chkImporte, chkImporteGravado, chkImporteValor))
{ {
continuar = false; continuar = false;
} }
@@ -4737,8 +4743,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
private bool autorizarNomina(int FiltroCvePersonal) private bool autorizarNomina(int FiltroCvePersonal)
{ {
bool continuar = true; bool continuar = true;
int chkImporte = 1;
int chkImporteGravado = 1;
int chkImporteValor = 1;
string[] getcolumnas = new string[] { "CvePersonal", "CveMetodoPago", "SumaPercepciones", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" }; string[] getcolumnas = new string[] { "CvePersonal", "CveMetodoPago", "SumaPercepciones", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" };
DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", getcolumnas); DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", getcolumnas);
@@ -4814,7 +4823,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (continuar) if (continuar)
{ {
if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario)) if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario,false, chkImporte, chkImporteGravado, chkImporteValor))
{ {
continuar = false; continuar = false;
} }
@@ -5846,7 +5855,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
} }
catch (Exception ex) catch (Exception ex)
{ {
// OnError("Error al cargar Formato vacaciones", ex); this.OnError("Error al cargar Formato vacaciones", ex);
} }
} }
if (Documento.Length > 0) if (Documento.Length > 0)

0
Nomina/RegistroNomina.aspx → Nomina/RegistroNomina.aspx.exclude
View File

0
Nomina/RegistroNomina.aspx.vb → Nomina/RegistroNomina.aspx.vb.exclude
View File

1839
RH/CatPersonal.aspx
View File

File diff suppressed because it is too large Load Diff

143
RH/CatPersonal.aspx.vb
View File

@@ -9,6 +9,19 @@ Imports Microsoft.Reporting.WebForms
Partial Class RH_CatPersonal Partial Class RH_CatPersonal
Inherits ClsPaginas Inherits ClsPaginas
Private Property ISChange As Boolean
Get
If ViewState("ISChange") Is Nothing Then
Return False
Else
Return DirectCast(ViewState("ISChange"), Boolean)
End If
End Get
Set(value As Boolean)
ViewState("ISChange") = value
End Set
End Property
Private Property DTDatos As DataTable Private Property DTDatos As DataTable
Get Get
@@ -24,8 +37,12 @@ Partial Class RH_CatPersonal
End Property End Property
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 Page.IsPostBack Then If Not Page.IsPostBack Then
If UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then
HplAddVenta.Visible = False
End If
LnkAddPersonalSimplificado.Visible = Not HplAddVenta.Visible
TxtFechaIngreso.Text = String.Format("{0:dd/MM/yyyy}", DateTime.Now)
ViewState("Orden") = "" ViewState("Orden") = ""
CargaEscolaridad() CargaEscolaridad()
CargaEstadoCivil() CargaEstadoCivil()
CargaDepartamento() CargaDepartamento()
@@ -41,6 +58,12 @@ Partial Class RH_CatPersonal
CargaSupervisores() CargaSupervisores()
CargaMetodosPago() CargaMetodosPago()
CargaDatos() CargaDatos()
CargaTipoRegimen()
CargaJornada()
CargaEstados()
CargaSatRiesgoPuesto()
LoadDefaultValues()
End If End If
End Sub End Sub
@@ -135,6 +158,38 @@ Partial Class RH_CatPersonal
#Region " C O M B O S " #Region " C O M B O S "
Private Sub LoadDefaultValues()
DdlDepartamentoAdd.SelectedIndex = 1
DdlRegimenContratacion.SelectedValueExist(1)
DdlMetodoPagoAdd.SelectedValueExist(1)
DdlTipoPeriodoAdd.SelectedValueExist(1)
DdlTipoContratoAdd.SelectedValueExist(2)
DdlJornada.SelectedValueExist(6)
DdlPuestoAdd.SelectedIndex = 1
DdlRiesgoPuesto.SelectedIndex = 1
End Sub
Private Sub CargaSatRiesgoPuesto()
DdlRiesgoPuesto.DataSource = GlobalDTNomSatRiesgoPuesto
DdlRiesgoPuesto.DataBind()
End Sub
Private Sub CargaJornada()
DdlJornada.DataSource = GlobalDTJornadas
DdlJornada.DataBind()
End Sub
Private Sub CargaEstados()
DdlEstados.DataSource = GlobalDTGralEstados(1)
DdlEstados.DataBind()
End Sub
Private Sub CargaTipoRegimen()
Dim dt As DataTable = GlobalDTNomSatRegimenContratacion.Copy()
For Each item As DataRow In dt.Rows
item("RegimenContratacion") = String.Format("{1}{0} {2}", item("CveSATRegimenContratacion"), If(item("CveSATRegimenContratacion").ToString().Length > 1, "", "0"), item("RegimenContratacion"))
Next
dt.AcceptChanges()
DdlRegimenContratacion.DataSource = dt.FiltraParametros("", "RegimenContratacion")
DdlRegimenContratacion.DataBind()
End Sub
Private Sub CargaEscolaridad() Private Sub CargaEscolaridad()
DdlEscolaridad.DataSource = GlobalDTEscolaridad DdlEscolaridad.DataSource = GlobalDTEscolaridad
DdlEscolaridad.DataBind() DdlEscolaridad.DataBind()
@@ -142,7 +197,9 @@ Partial Class RH_CatPersonal
Private Sub CargaGenero() Private Sub CargaGenero()
DdlGenero.DataSource = GlobalDTGenero DdlGenero.DataSource = GlobalDTGenero
DdlGeneroAdd.DataSource = GlobalDTGenero
DdlGenero.DataBind() DdlGenero.DataBind()
DdlGeneroAdd.DataBind()
End Sub End Sub
Private Sub CargaEstadoCivil() Private Sub CargaEstadoCivil()
@@ -153,11 +210,15 @@ Partial Class RH_CatPersonal
Private Sub CargaTipoPeriodo() Private Sub CargaTipoPeriodo()
DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
DdlTipoPeriodo.DataBind() DdlTipoPeriodo.DataBind()
DdlTipoPeriodoAdd.DataSource = GlobalDTTipoPeriodo
DdlTipoPeriodoAdd.DataBind()
End Sub End Sub
Private Sub CargaTiposContrato() Private Sub CargaTiposContrato()
DdlTipoContrato.DataSource = GlobalDTTiposContrato DdlTipoContrato.DataSource = GlobalDTTiposContrato
DdlTipoContrato.DataBind() DdlTipoContrato.DataBind()
DdlTipoContratoAdd.DataSource = GlobalDTTiposContrato
DdlTipoContratoAdd.DataBind()
End Sub End Sub
Private Sub CargaTurno() Private Sub CargaTurno()
@@ -167,12 +228,16 @@ Partial Class RH_CatPersonal
Private Sub CargaDepartamento() Private Sub CargaDepartamento()
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlDepartamentoAdd.DataSource = DdlDepartamento.DataSource
DdlDepartamentoAdd.DataBind()
DdlDepartamento.DataBind() DdlDepartamento.DataBind()
End Sub End Sub
Private Sub CargaPuestos() Private Sub CargaPuestos()
DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa) DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
DdlPuestoAdd.DataSource = DdlPuesto.DataSource
DdlPuesto.DataBind() DdlPuesto.DataBind()
DdlPuestoAdd.DataBind()
End Sub End Sub
Private Sub CargaRuta() Private Sub CargaRuta()
@@ -214,6 +279,10 @@ Partial Class RH_CatPersonal
End Sub End Sub
Private Sub CargaTipoCentroCosto() Private Sub CargaTipoCentroCosto()
CargarCentrosDeCosto(DdlProyectoAsignadoAdd, DdlSubProyectoAsignadoAdd, LblProyectoAsignado, LblSubProyectoAsignado)
DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyecto, LblSubProyecto) CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyecto, LblSubProyecto)
DivProyecto.Visible = LblProyecto.Visible DivProyecto.Visible = LblProyecto.Visible
ChkSubProyecto.Text = LblSubProyecto.Text ChkSubProyecto.Text = LblSubProyecto.Text
@@ -228,6 +297,8 @@ Partial Class RH_CatPersonal
Private Sub CargaMetodosPago() Private Sub CargaMetodosPago()
DdlMetodoPago.DataSource = GlobalDTMetodosPago DdlMetodoPago.DataSource = GlobalDTMetodosPago
DdlMetodoPago.DataBind() DdlMetodoPago.DataBind()
DdlMetodoPagoAdd.DataSource = GlobalDTMetodosPago
DdlMetodoPagoAdd.DataBind()
End Sub End Sub
#End Region #End Region
@@ -1041,4 +1112,74 @@ Partial Class RH_CatPersonal
' End If ' End If
'End Using 'End Using
End Sub End Sub
Protected Sub LnkGuardar_Click(sender As Object, e As EventArgs)
DdlTurno.SelectedIndex = 1
Dim CveEtadoCivil = 1
Dim CveEstatusPersonal = 1
Dim CveEscolaridad As Integer = 0
Dim isSindicalizado As Boolean = (DDlSindicalizado.SelectedValue = "1")
Dim CvePuesto As Integer = DdlPuestoAdd.SelectedValue.ToEntero()
Dim CveSATRiesgoPuesto As Integer = DdlRiesgoPuesto.SelectedValue.ToEntero()
Dim continuar As Boolean = False
Dim CvePersonal As Integer = 0
Using ObjPersonal As New ClsRH()
If ObjPersonal.AddPersonal("-1", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, "", TxtFechaIngreso.Text.ToDate,
DdlTipoPeriodoAdd.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, 0,
0, 0, 0, 0, 15, 25, DdlMetodoPagoAdd.SelectedValue.ToEntero, TxtFechaIngreso.Text.Trim.ToDate, "-1",
DdlTipoContratoAdd.SelectedValue.ToEntero, "",
DdlTurno.SelectedValue.ToEntero, CvePuesto,
DdlDepartamentoAdd.SelectedValue.ToEntero,
-1, CveEscolaridad,
CveEtadoCivil, DdlGeneroAdd.SelectedValue.ToEntero(),
-1, "-1", CveEstatusPersonal, TxtFechaNacimiento.Text.ToDate,
"", "", "", "", "", "", "",
DdlEstados.SelectedValue.ToEntero, "", "", TxtRFC.Text.Trim,
TxtCURP.Text.Trim, "", "", -1, CveSATRiesgoPuesto, DdlRegimenContratacion.SelectedValue.ToEntero,
-1, DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero, "",
DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, -1, "-1",
0, "Seleccione", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveUniforme:=-1,
TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151) Then
Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
continuar = True
ISChange = True
Else
'Alert("El empleado a sido agregado satisfactoriamente", TipoMensaje.ToastInformacion, "", 0)
End If
End Using
DdlTurno.SelectedValueExist(-1)
If continuar Then
LimpiarCampos()
If chkcontinuarAgregando.Checked Then
Else
RegistraScript("$('#DmodalAddPersonal').modal('hide');")
End If
End If
End Sub
Protected Sub LimpiarCampos()
TxtAPaterno.Text = ""
TxtAMaterno.Text = ""
TxtNombres.Text = ""
TxtFechaNacimiento.Text = ""
TxtNumeroSS.Text = ""
TxtCURP.Text = ""
TxtRFC.Text = ""
End Sub
Protected Sub LnkAddPersonalSimplificado_Click(sender As Object, e As EventArgs)
ISChange = False
UpAddPerSimplificado.Update()
LimpiarCampos()
RegistraScript("$('#DmodalAddPersonal').modal();")
End Sub
Protected Sub ClickOnHideModal_Click(sender As Object, e As EventArgs)
If ISChange Then
CargaDatos()
End If
End Sub
End Class End Class

16
RH/Personal.aspx.vb
View File

@@ -876,7 +876,7 @@ Partial Class RH_Personal
divBitacora.Visible = True divBitacora.Visible = True
CargaGvBitacora() CargaGvBitacora()
Else Else
LoadDefaultValues()
'Configuración de Modalidad Insert 'Configuración de Modalidad Insert
ImgAddObs.Visible = False ImgAddObs.Visible = False
@@ -935,6 +935,20 @@ Partial Class RH_Personal
AgregarEventosAsincronosGvVacaciones() AgregarEventosAsincronosGvVacaciones()
End Sub End Sub
Private Sub LoadDefaultValues()
DdlDepartamento.SelectedIndex = 1
DdlRegimenContratacion.SelectedValueExist(1)
DdlMetodoPago.SelectedValueExist(1)
DdlTipoPeriodo.SelectedValueExist(1)
DdlTipoContrato.SelectedValueExist(2)
DdlJornada.SelectedValueExist(6)
DdlPuesto.SelectedIndex = 1
DdlTurno.SelectedIndex = 1
DdlEstatusPersonal.SelectedValue = "1"
DdlRiesgoPuesto.SelectedIndex = 1
End Sub
Private Sub CargaCuentasContables() Private Sub CargaCuentasContables()
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
If ObjContabilidad.GetCuentas(-1, "-1", -1) Then If ObjContabilidad.GetCuentas(-1, "-1", -1) Then

2
Ventas/Ventas.aspx
View File

@@ -10,7 +10,7 @@
padding: 0px 5px; padding: 0px 5px;
} }
.nolineheight TxtNombreCliente line-height: 1; .nolineheight {line-height: 1;
} }
.claseesconder { .claseesconder {

14
Ventas/Ventas.aspx.vb
View File

@@ -17073,12 +17073,14 @@ Partial Class Ventas
End If End If
End If End If
'verifica si tiene ventaminima 'SI NO ES REFACTURACION verifica si tiene ventaminima
If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then If NuevaFactura <> 1 Then
'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15... If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then
If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal <> 0 Then 'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString())) If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal <> 0 Then
Return False Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString()))
Return False
End If
End If End If
End If End If

8
vwd.webinfo
View File

@@ -280,6 +280,14 @@