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

Entrada usados resumen totales, Cierre cultivo, Empresas acutualizar certificados

Browse Source
This commit is contained in:
rakcsle
2022-06-25 09:46:23 -07:00
parent ba778d5b36
commit 541cad7d92
14 changed files with 914 additions and 434 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Acumuladores/EntradasUsadosResumenRep.aspx
View File

@@ -14,7 +14,7 @@
<asp:LinkButton runat="server" ID="BtnDescargaSabana" OnClick="BtnDescargaSabana_Click" data-toggle="tooltip" data-placement="left" title="Descargar Sábana de Venta" Text="<i class='fa fa-download'></i> Descargar Sábana de Venta"></asp:LinkButton>
</li>
<li>
<asp:LinkButton runat="server" ID="BtnImprimir" OnClick="BtnImprimir_Click" data-toggle="tooltip" data-placement="left" title="PDF" Text="<i class='fa fa-file-pdf-o'></i> PDF"></asp:LinkButton>
<asp:LinkButton runat="server" ID="BtnImprimir" OnClick="BtnImprimir_Click" data-toggle="tooltip" data-placement="left" title="PDF" Text="<i class='fa fa-file-pdf-o'></i> PDF" Visible="false"></asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
@@ -81,7 +81,9 @@
<ContentTemplate>
<asp:GridView ID="GvAcum" Width="100%" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover ScrollAD "
ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False"
ShowFooter="False" DataKeyNames="CvePSCargo,CodigoPS,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual">
ShowFooter="False" DataKeyNames="CvePSCargo,CodigoPS,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual"
OnRowDataBound="GvAcum_RowDataBound"
>
<Columns>
<asp:BoundField DataField="CodigoPS" HeaderText="Grupo" ReadOnly="true" ></asp:BoundField>
<asp:BoundField DataField="Inicial" HeaderText="Inicial" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>

27
Acumuladores/EntradasUsadosResumenRep.aspx.vb
View File

@@ -53,14 +53,25 @@ Partial Class Acumuladores_RepEntradasUsados
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
Dim ObjAcum As New ClsAcumuladores
BtnImprimir.Visible = False
If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then
GvAcum.DataSource = ObjAcum.DtResultados
DatosEntradasUsados = ObjAcum.DtResultados
If DatosEntradasUsados IsNot Nothing AndAlso DatosEntradasUsados.Rows.Count > 0 Then
BtnImprimir.Visible = True
End If
End If
ObjAcum.Dispose()
GvAcum.DataBind()
UpAcciones.Update()
UpDatos.Update()
End Sub
Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
@@ -163,4 +174,20 @@ Partial Class Acumuladores_RepEntradasUsados
End Sub
Protected Sub GvAcum_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DataKey("CvePSCargo").ToEntero <= 0 Then
e.Row.CssClass = "Totales"
End If
End If
End Sub
End Class

35
Agropecuaria/CierreCultivo.aspx
View File

@@ -50,10 +50,7 @@
<div class="col-md-1 truncate"><asp:Label runat="server" ID="LblSubProyecto"></asp:Label></div>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyectoCierreCultivo" runat="server" Width="100%" CssClass="form-control select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
</div>
</div>
</div>
@@ -75,7 +72,8 @@
<div class="col-md-6">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveClasificacion"
EmptyDataText="No se Encontraron datos" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
EmptyDataText="No se Encontraron datos" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None"
OnRowDataBound="GvDatos_RowDataBound" >
<Columns>
<asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Importe" DataField="Importe" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n2}" />
@@ -102,21 +100,30 @@
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright" >
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtModalConcepto" CssClass="form-control" MaxLength="100" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtModalConcepto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalConcepto"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GpoModalCerrarCultivo"></asp:RequiredFieldValidator>
<label for="<%= TxtModalConcepto.ClientID.ToString() %>">Concepto:</label>
<i></i>
<asp:TextBox ID="TxtmodalFechaCierreCultivo" CssClass="form-control" MaxLength="50" runat="server"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright" style="width:150px!important">
<asp:TextBox ID="TxtmodalFechaCierreCultivo" CssClass="form-control" MaxLength="50" runat="server" Width="110px"></asp:TextBox>
<span class="input-group-btn " style="position: absolute; right: 41px; top: -5px;">
<asp:LinkButton ID="LnkTxtmodalFechaCierreCultivo" class="btn default" Style="margin-top: 15px; margin-left: 6px" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:CalendarExtender runat="server" ID="CETxtmodalFechaCierreCultivo" TargetControlID="TxtmodalFechaCierreCultivo" PopupButtonID="LnkTxtmodalFechaCierreCultivo" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="CvTxtmodalFechaCierreCultivo" runat="server" ControlToValidate="TxtmodalFechaCierreCultivo" Display="None"
ErrorMessage="El campo <b>''Fecha de Cierre''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."
<asp:CompareValidator ID="CvTxtmodalFechaCierreCultivo" runat="server" ControlToValidate="TxtmodalFechaCierreCultivo" Display="None"
ErrorMessage="El campo <b>''Fecha de Cierre''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."
Operator="DataTypeCheck" Type="Date" ValidationGroup="GpoModalCerrarCultivo"></asp:CompareValidator>
<asp:RequiredFieldValidator ID="RfvTxtmodalFechaCierreCultivo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtmodalFechaCierreCultivo"
<asp:RequiredFieldValidator ID="RfvTxtmodalFechaCierreCultivo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtmodalFechaCierreCultivo"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Cierre''</b> es necesario, por favor ingréselo." ValidationGroup="GpoModalCerrarCultivo"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="CvcTxtmodalFechaCierreCultivo" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtmodalFechaCierreCultivo" Width="100px"></ajax:ValidatorCalloutExtender>
@@ -127,9 +134,11 @@
</div>
</div>
<div class="modal-footer">
<asp:Button ID="BtnModalCerrarCultivo" runat="server" Text="Cerrar Cultivo" CssClass="btn btn-primary" ValidationGroup="GpoModalCerrarCultivo" />
<asp:Button ID="BtnModalCerrarCultivo" runat="server" Text="Cerrar Cultivo" OnClick="BtnModalCerrarCultivo_Click" CssClass="btn btn-primary" ValidationGroup="GpoModalCerrarCultivo" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>

134
Agropecuaria/CierreCultivo.aspx.vb
View File

@@ -19,6 +19,20 @@ Partial Class Agrupecuaria_CierreCultivo
End Property
Private Property DT_Datos_Cierre_Cuadros As DataTable
Get
If ViewState("DT_Datos_Cierre_Cuadros") Is Nothing Then
ViewState("DT_Datos_Cierre_Cuadros") = New DataTable
End If
Return DirectCast(ViewState("DT_Datos_Cierre_Cuadros"), DataTable)
End Get
Set(ByVal value As DataTable)
ViewState("DT_Datos_Cierre_Cuadros") = value
End Set
End Property
Private Sub Agrupecuaria_CierreCultivo_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -55,20 +69,40 @@ Partial Class Agrupecuaria_CierreCultivo
Exit Sub
End If
If Not DdlSubProyectoCierreCultivo.SelectedValue.ToEntero > 0 Then
Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
DT_Datos_Cierre = Nothing
DT_Datos_Cierre_Cuadros = Nothing
Dim ObjGral As New ClsGenerales
If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjGral.DtResultados
DT_Datos_Cierre = ObjGral.DtResultados
'se valida que se ejecute la consulta, que el resultado tenga dos tablas y que las dos tablas tengan por lo menos 1 registro
If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, DdlSubProyectoCierreCultivo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjGral.DSResultados.Tables.Count = 2 AndAlso
ObjGral.DSResultados.Tables(0).Rows.Count > 0 AndAlso ObjGral.DSResultados.Tables(1).Rows.Count > 0 Then
DT_Datos_Cierre = ObjGral.DSResultados.Tables(0).FiltraParametros("", "Gpo")
DT_Datos_Cierre_Cuadros = ObjGral.DSResultados.Tables(1)
GvDatos.DataSource = DT_Datos_Cierre
Else
GvDatos.DataSource = Nothing
DT_Datos_Cierre = Nothing
DT_Datos_Cierre_Cuadros = Nothing
End If
OcultarmostrarControles(DT_Datos_Cierre)
ObjGral.Dispose()
GvDatos.DataBind()
UpDatos.Update()
@@ -81,10 +115,12 @@ Partial Class Agrupecuaria_CierreCultivo
Protected Sub LnkAccionesCerrarCultivo_Click(sender As Object, e As EventArgs)
TxtModalConcepto.Text = ""
TxtmodalFechaCierreCultivo.Text = ""
UpModalCerrarCultivo.Update()
RegistraScript("$('#DivModalCerrarCultivo').modal('show');")
UpModalCerrarCultivo.Update()
End Sub
@@ -108,17 +144,79 @@ Partial Class Agrupecuaria_CierreCultivo
Dim ObjConta As New ClsContabilidad()
ObjConta.IniciaTransacSQL()
Dim CvePrePoliza As Integer = -1
Dim FolioPoliza As Integer = -1
Dim ErrorProceso As Boolean = False
Dim CveSubProyecto As Integer = DdlSubProyectoCierreCultivo.SelectedValue.ToEntero
Dim ImporteCierre As Decimal = DT_Datos_Cierre.SUMD("Importe")
Dim ImporteCierre As Decimal = DT_Datos_Cierre.SUMD("Importe", "CveClasificacion > 0")
Dim CveClasificacionTotalitaria As Integer = DT_Datos_Cierre.Rows(0)("CveClasificacion").ToString.ToEntero ' se usa la primera clasificacion
CvePrePoliza = ObjConta.AddPrePolizas("CierreCultivo/Cerrar", 1, ImporteCierre, ImporteCierre, 1, TxtmodalFechaCierreCultivo.Text.ToDate, $"Cierre Temporada {DdlTemporada.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
Dim ConceptoTotales As String = $"{DdlTemporada.SelectedItem.Text}-{DdlSubProyectoCierreCultivo.SelectedItem.Text}"
CvePrePoliza = ObjConta.AddPrePolizas("CierreCultivo/Cerrar", 53, ImporteCierre, ImporteCierre, 1, TxtmodalFechaCierreCultivo.Text.ToDate, TxtModalConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
'FolioPoliza = ObjConta.FolioPoliza
If CvePrePoliza > 0 Then
Dim Orden As Integer = 1
For Each dRow As DataRow In DT_Datos_Cierre.Rows
Dim ImporteMovimiento As Decimal = dRow("Importe").ToString.ToDecimal
Dim CveClasificacion As Integer = dRow("CveClasificacion").ToString.ToEntero
Dim Clasificacion As String = dRow("Clasificacion").ToString
Dim TipoMovimiento As Boolean = True
Dim CveConceptoClasificaiones As Integer = 336
Dim CveConceptoNominas As Integer = 336
Dim CveConceptoTotal As Integer = 69
If CveClasificacion > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, ImporteMovimiento, Clasificacion, CveConceptoClasificaiones, Clasificacion, TxtmodalFechaCierreCultivo.Text.ToDate, -1, -1, -1, -1, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, TipoCambio:=1, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then
ErrorProceso = True
Exit For
End If
Else
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 0, ImporteCierre, ConceptoTotales, 69, ConceptoTotales, TxtmodalFechaCierreCultivo.Text.ToDate, -1, -1, -1, -1, -1, ImporteMX:=ImporteCierre, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, TipoCambio:=1, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then
ErrorProceso = True
Exit For
End If
End If
Orden = Orden + 1
Next
If Not ErrorProceso Then
Dim ObjGral As New ClsGenerales(ObjConta.IniciaTransacSQL)
For Each dRow As DataRow In DT_Datos_Cierre_Cuadros.Rows
If Not ObjGral.UpdateCierreCultivos(dRow("CveCultivoCuadro").ToString.ToEntero, CvePrePoliza, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
Exit For
End If
Next
End If
'ObjConta.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa)
Else
ErrorProceso = True
End If
@@ -128,8 +226,9 @@ Partial Class Agrupecuaria_CierreCultivo
ObjConta.RollBack()
Else
ObjConta.Commit()
Alert($"Cultivo Cerrado correctamente <b><a target='_blank' href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}'>Ver Pre Póliza</a><b>")
RegistraScript("$('#DivModalCerrarCultivo').modal('hide');")
CargaDatos()
End If
ObjConta.Dispose()
@@ -137,4 +236,23 @@ Partial Class Agrupecuaria_CierreCultivo
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DataKey("CveClasificacion").ToEntero <= 0 Then
e.Row.Font.Bold = True
End If
End If
End Sub
Protected Sub BtnModalCerrarCultivo_Click(sender As Object, e As EventArgs)
CierraCultivo()
End Sub
End Class

4
App_Code/ClsContabilidad.vb
View File

@@ -228,6 +228,8 @@ Public Class ClsContabilidad
OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex.Message.Contains("CK_Conta_PrePolizas_Concepto") Then
OnError("Ocurrio un error al registrar la póliza, el concepto o descripción no puede ir vacio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex.Message.Contains("UK_CveEmpresa_CveTipoPoliza_AnioMes_FolioPoliza") Then
Alert("No se puede registrar la póliza, póliza duplicada, ya existe una póliza con los datos especificados.", TipoMensaje.MsgAdvertencia)
Else
OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End If
@@ -1647,6 +1649,8 @@ Public Class ClsContabilidad
If ex.Message.Contains("50015;") Then
OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex.Message.Contains("UK_CveEmpresa_CveTipoPoliza_AnioMes_FolioPoliza") Then
Alert("No se puede actualizar la póliza, póliza duplicada, ya existe una póliza con los datos especificados.", TipoMensaje.MsgAdvertencia)
Else
OnError("Ocurrió un error al actualizar prepoliza del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End If

36
App_Code/ClsGenerales.vb
View File

@@ -15,6 +15,7 @@ Public Class ClsGenerales
Private SqlCommand As SqlCommand
Private SqlTransacc As SqlTransaction
Private Data As DataTable
Private DSet As New DataSet
Private disposedValue As Boolean = False
'REGISTRAR CONEXIONES ABIERTAS
Private CveConexion As Integer = 0
@@ -50,6 +51,12 @@ Public Class ClsGenerales
End Get
End Property
Public ReadOnly Property DSResultados() As DataSet
Get
DSResultados = DSet
End Get
End Property
Public Property FolioInsertado As Integer
Public Property SerieInsertada As String
@@ -3623,18 +3630,40 @@ Public Class ClsGenerales
End Function
Public Function GetCierreCultivos(CveTemporada As Integer, CveEmpresa As Integer) As Boolean
Public Function UpdateCierreCultivos(CveCultivoCuadro As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Agro_CierreCultivosGet")
DataAdapter("PA_Agro_CierreCultivosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveTemporada", SqlDbType.Int).Value = CveTemporada
.Add("@CveCultivoCuadro", SqlDbType.Int).Value = CveCultivoCuadro
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError($"Ocurrió un error al actualizar la pre póliza del cuadro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function GetCierreCultivos(CveTemporada As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Agro_CierreCultivosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveTemporada", SqlDbType.Int).Value = CveTemporada
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(DSet)
Retorno = True
Catch ex As Exception
OnError($"Ocurrió un error al obtener los datos de cultivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
@@ -3644,7 +3673,6 @@ Public Class ClsGenerales
End Function
#End Region

24
App_Code/ClsPaginas.vb
View File

@@ -8901,32 +8901,39 @@ Public Class ClsPaginas
DTConceptosPagoRelacionado.Columns.Add("TipoCambioDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("ObjetoImpDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra001BaseDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra001ImpuestoDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra001TipoFactorDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra001TasaOCuotaDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra001ImporteDR", GetType(Decimal))
DTConceptosPagoRelacionado.Columns.Add("Tra002BaseDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra002ImpuestoDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra002TipoFactorDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra002TasaOCuotaDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra002ImporteDR", GetType(Decimal))
DTConceptosPagoRelacionado.Columns.Add("Tra003BaseDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra003ImpuestoDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra003TipoFactorDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra003TasaOCuotaDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Tra003ImporteDR", GetType(Decimal))
DTConceptosPagoRelacionado.Columns.Add("Ret001BaseDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret001ImpuestoDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret001TipoFactorDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret001TasaOCuotaDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret001ImporteDR", GetType(Decimal))
DTConceptosPagoRelacionado.Columns.Add("Ret002BaseDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret002ImpuestoDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret002TipoFactorDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret002TasaOCuotaDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret002ImporteDR", GetType(Decimal))
DTConceptosPagoRelacionado.Columns.Add("Ret003BaseDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret003ImpuestoDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret003TipoFactorDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("Ret003TasaOCuotaDR", GetType(String))
@@ -8934,14 +8941,6 @@ Public Class ClsPaginas
'001 ISR
'002 IVA
'003 IEPS
'Impuetos
'Retenciones
Dim ObjBancos As New ClsBancos
If ObjBancos.GetComplementoPagos(CveComplementoPago, CveIE, CveVenta, UsuarioActual.CveEmpresa) Then
Serie = ObjBancos.DtResultados.FiltroPrimeroValor("Serie")
@@ -9114,12 +9113,15 @@ Public Class ClsPaginas
Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces)
For Each NodoTraslados As XmlNode In NodosTraslados
Dim BaseDR As String = ValorXML(NodoTraslados, "BaseDR")
Dim ImpuestoDR As String = ValorXML(NodoTraslados, "ImpuestoDR") ' ImpuestoDR
Dim TipoFactor As String = ValorXML(NodoTraslados, "TipoFactorDR")
Dim TasaOCuotaDR As String = ValorXML(NodoTraslados, "TasaOCuotaDR")
Dim ImporteDR As Decimal = ValorXML(NodoTraslados, "ImporteDR").ToDecimal
If ImpuestoDR = "001" Then
DrRelacionado("Tra001BaseDR") = BaseDR
DrRelacionado("Tra001ImpuestoDR") = ImpuestoDR
DrRelacionado("Tra001TipoFactorDR") = TipoFactor
DrRelacionado("Tra001TasaOCuotaDR") = TasaOCuotaDR
@@ -9127,6 +9129,7 @@ Public Class ClsPaginas
End If
If ImpuestoDR = "002" Then
DrRelacionado("Tra002BaseDR") = BaseDR
DrRelacionado("Tra002ImpuestoDR") = ImpuestoDR
DrRelacionado("Tra002TipoFactorDR") = TipoFactor
DrRelacionado("Tra002TasaOCuotaDR") = TasaOCuotaDR
@@ -9134,6 +9137,7 @@ Public Class ClsPaginas
End If
If ImpuestoDR = "003" Then
DrRelacionado("Tra003BaseDR") = BaseDR
DrRelacionado("Tra003ImpuestoDR") = ImpuestoDR
DrRelacionado("Tra003TipoFactorDR") = TipoFactor
DrRelacionado("Tra003TasaOCuotaDR") = TasaOCuotaDR
@@ -9143,12 +9147,14 @@ Public Class ClsPaginas
For Each NodoRetenciiones As XmlNode In Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:RetencionesDR/{PagoVersion}:RetencionDR", namespaces)
Dim BaseDR As String = ValorXML(NodoRetenciiones, "BaseDR")
Dim ImpuestoDR As String = ValorXML(NodoRetenciiones, "ImpuestoDR") ' ImpuestoDR
Dim TipoFactor As String = ValorXML(NodoRetenciiones, "TipoFactorDR")
Dim TasaOCuotaDR As String = ValorXML(NodoRetenciiones, "TasaOCuotaDR")
Dim ImporteDR As Decimal = ValorXML(NodoRetenciiones, "ImporteDR").ToDecimal
If ImpuestoDR = "001" Then
DrRelacionado("Ret001BaseDR") = BaseDR
DrRelacionado("Ret001ImpuestoDR") = ImpuestoDR
DrRelacionado("Ret001TipoFactorDR") = TipoFactor
DrRelacionado("Ret001TasaOCuotaDR") = TasaOCuotaDR
@@ -9156,6 +9162,7 @@ Public Class ClsPaginas
End If
If ImpuestoDR = "002" Then
DrRelacionado("Ret002BaseDR") = BaseDR
DrRelacionado("Ret002ImpuestoDR") = ImpuestoDR
DrRelacionado("Ret002TipoFactorDR") = TipoFactor
DrRelacionado("Ret002TasaOCuotaDR") = TasaOCuotaDR
@@ -9163,6 +9170,7 @@ Public Class ClsPaginas
End If
If ImpuestoDR = "003" Then
DrRelacionado("Ret003BaseDR") = BaseDR
DrRelacionado("Ret003ImpuestoDR") = ImpuestoDR
DrRelacionado("Ret003TipoFactorDR") = TipoFactor
DrRelacionado("Ret003TasaOCuotaDR") = TasaOCuotaDR

32
App_Code/ClsSisEmpresas.vb
View File

@@ -630,6 +630,7 @@ Public Class ClsSisEmpresas
Return Retorno
End Function
Public Function UpdateEmpresa(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String,
RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String,
ArchivoCer As String, ArchivoPfx As String, Banner As String, Estatus As Boolean, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean,
@@ -768,6 +769,37 @@ Public Class ClsSisEmpresas
Return Retorno
End Function
Public Function UpdateEmpresasCertificados(ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_EmpresasCertificadosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@ArchivoKey", SqlDbType.VarChar).Value = ArchivoKey
.Add("@ArchivoCer", SqlDbType.VarChar).Value = ArchivoCer
.Add("@ArchivoPfx", SqlDbType.VarChar).Value = ArchivoPfx
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
Alert("Ocurrió un error al actualizar los archivos de certificados", TipoMensaje.MsgAdvertencia)
Catch ex As Exception
OnError("Ocurrió un error al actualizar los archivos de certificados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateEmpresaXWizard(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String,
RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, Regimen As String, SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean,
Buzon_Mail As String, Buzon_Server As String, Buzon_Puerto As Integer, Buzon_SSL As Boolean, Buzon_USR As String, Buzon_PWD As String, CveEmpresa As Integer,

310
Empresas/119/Formatos/ReciboDePago.rdlc
View File

@@ -702,7 +702,7 @@
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.39427cm</Height>
<Height>0.43188cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
@@ -798,6 +798,7 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -901,7 +902,6 @@
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -938,7 +938,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
</TablixCells>
@@ -970,13 +969,13 @@
<rd:DefaultName>Textbox108</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
OR Fields!Tra002ImporteDR.Value &gt; 0
OR Fields!Tra003ImporteDR.Value &gt; 0
OR Fields!Ret001ImporteDR.Value &gt; 0
OR Fields!Ret002ImporteDR.Value &gt; 0
OR Fields!Ret003ImporteDR.Value &gt; 0
,False,True)</Hidden>
Fields!Tra001BaseDR.Value &gt; 0
OR Fields!Tra002BaseDR.Value &gt; 0
OR Fields!Tra003BaseDR.Value &gt; 0
OR Fields!Ret001BaseDR.Value &gt; 0
OR Fields!Ret002BaseDR.Value &gt; 0
OR Fields!Ret003BaseDR.Value &gt; 0
,False,true)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1011,13 +1010,13 @@
<rd:DefaultName>Textbox109</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
OR Fields!Tra002ImporteDR.Value &gt; 0
OR Fields!Tra003ImporteDR.Value &gt; 0
OR Fields!Ret001ImporteDR.Value &gt; 0
OR Fields!Ret002ImporteDR.Value &gt; 0
OR Fields!Ret003ImporteDR.Value &gt; 0
,False,True)</Hidden>
Fields!Tra001BaseDR.Value &gt; 0
OR Fields!Tra002BaseDR.Value &gt; 0
OR Fields!Tra003BaseDR.Value &gt; 0
OR Fields!Ret001BaseDR.Value &gt; 0
OR Fields!Ret002BaseDR.Value &gt; 0
OR Fields!Ret003BaseDR.Value &gt; 0
,False,true)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1052,13 +1051,13 @@
<rd:DefaultName>Textbox110</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
OR Fields!Tra002ImporteDR.Value &gt; 0
OR Fields!Tra003ImporteDR.Value &gt; 0
OR Fields!Ret001ImporteDR.Value &gt; 0
OR Fields!Ret002ImporteDR.Value &gt; 0
OR Fields!Ret003ImporteDR.Value &gt; 0
,False,True)</Hidden>
Fields!Tra001BaseDR.Value &gt; 0
OR Fields!Tra002BaseDR.Value &gt; 0
OR Fields!Tra003BaseDR.Value &gt; 0
OR Fields!Ret001BaseDR.Value &gt; 0
OR Fields!Ret002BaseDR.Value &gt; 0
OR Fields!Ret003BaseDR.Value &gt; 0
,False,true)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1093,13 +1092,13 @@
<rd:DefaultName>Textbox111</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
OR Fields!Tra002ImporteDR.Value &gt; 0
OR Fields!Tra003ImporteDR.Value &gt; 0
OR Fields!Ret001ImporteDR.Value &gt; 0
OR Fields!Ret002ImporteDR.Value &gt; 0
OR Fields!Ret003ImporteDR.Value &gt; 0
,False,True)</Hidden>
Fields!Tra001BaseDR.Value &gt; 0
OR Fields!Tra002BaseDR.Value &gt; 0
OR Fields!Tra003BaseDR.Value &gt; 0
OR Fields!Ret001BaseDR.Value &gt; 0
OR Fields!Ret002BaseDR.Value &gt; 0
OR Fields!Ret003BaseDR.Value &gt; 0
,False,true)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1134,13 +1133,13 @@
<rd:DefaultName>Textbox112</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
OR Fields!Tra002ImporteDR.Value &gt; 0
OR Fields!Tra003ImporteDR.Value &gt; 0
OR Fields!Ret001ImporteDR.Value &gt; 0
OR Fields!Ret002ImporteDR.Value &gt; 0
OR Fields!Ret003ImporteDR.Value &gt; 0
,False,True)</Hidden>
Fields!Tra001BaseDR.Value &gt; 0
OR Fields!Tra002BaseDR.Value &gt; 0
OR Fields!Tra003BaseDR.Value &gt; 0
OR Fields!Ret001BaseDR.Value &gt; 0
OR Fields!Ret002BaseDR.Value &gt; 0
OR Fields!Ret003BaseDR.Value &gt; 0
,False,true)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1175,13 +1174,13 @@
<rd:DefaultName>Textbox113</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
OR Fields!Tra002ImporteDR.Value &gt; 0
OR Fields!Tra003ImporteDR.Value &gt; 0
OR Fields!Ret001ImporteDR.Value &gt; 0
OR Fields!Ret002ImporteDR.Value &gt; 0
OR Fields!Ret003ImporteDR.Value &gt; 0
,False,True)</Hidden>
Fields!Tra001BaseDR.Value &gt; 0
OR Fields!Tra002BaseDR.Value &gt; 0
OR Fields!Tra003BaseDR.Value &gt; 0
OR Fields!Ret001BaseDR.Value &gt; 0
OR Fields!Ret002BaseDR.Value &gt; 0
OR Fields!Ret003BaseDR.Value &gt; 0
,False,true)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1216,13 +1215,13 @@
<rd:DefaultName>Textbox114</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
OR Fields!Tra002ImporteDR.Value &gt; 0
OR Fields!Tra003ImporteDR.Value &gt; 0
OR Fields!Ret001ImporteDR.Value &gt; 0
OR Fields!Ret002ImporteDR.Value &gt; 0
OR Fields!Ret003ImporteDR.Value &gt; 0
,False,True)</Hidden>
Fields!Tra001BaseDR.Value &gt; 0
OR Fields!Tra002BaseDR.Value &gt; 0
OR Fields!Tra003BaseDR.Value &gt; 0
OR Fields!Ret001BaseDR.Value &gt; 0
OR Fields!Ret002BaseDR.Value &gt; 0
OR Fields!Ret003BaseDR.Value &gt; 0
,False,true)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1257,13 +1256,13 @@
<rd:DefaultName>Textbox115</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
OR Fields!Tra002ImporteDR.Value &gt; 0
OR Fields!Tra003ImporteDR.Value &gt; 0
OR Fields!Ret001ImporteDR.Value &gt; 0
OR Fields!Ret002ImporteDR.Value &gt; 0
OR Fields!Ret003ImporteDR.Value &gt; 0
,False,True)</Hidden>
Fields!Tra001BaseDR.Value &gt; 0
OR Fields!Tra002BaseDR.Value &gt; 0
OR Fields!Tra003BaseDR.Value &gt; 0
OR Fields!Ret001BaseDR.Value &gt; 0
OR Fields!Ret002BaseDR.Value &gt; 0
OR Fields!Ret003BaseDR.Value &gt; 0
,False,true)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1296,13 +1295,13 @@
<rd:DefaultName>Textbox116</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
OR Fields!Tra002ImporteDR.Value &gt; 0
OR Fields!Tra003ImporteDR.Value &gt; 0
OR Fields!Ret001ImporteDR.Value &gt; 0
OR Fields!Ret002ImporteDR.Value &gt; 0
OR Fields!Ret003ImporteDR.Value &gt; 0
,False,True)</Hidden>
Fields!Tra001BaseDR.Value &gt; 0
OR Fields!Tra002BaseDR.Value &gt; 0
OR Fields!Tra003BaseDR.Value &gt; 0
OR Fields!Ret001BaseDR.Value &gt; 0
OR Fields!Ret002BaseDR.Value &gt; 0
OR Fields!Ret003BaseDR.Value &gt; 0
,False,true)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1335,13 +1334,13 @@
<rd:DefaultName>Textbox117</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
OR Fields!Tra002ImporteDR.Value &gt; 0
OR Fields!Tra003ImporteDR.Value &gt; 0
OR Fields!Ret001ImporteDR.Value &gt; 0
OR Fields!Ret002ImporteDR.Value &gt; 0
OR Fields!Ret003ImporteDR.Value &gt; 0
,False,True)</Hidden>
Fields!Tra001BaseDR.Value &gt; 0
OR Fields!Tra002BaseDR.Value &gt; 0
OR Fields!Tra003BaseDR.Value &gt; 0
OR Fields!Ret001BaseDR.Value &gt; 0
OR Fields!Ret002BaseDR.Value &gt; 0
OR Fields!Ret003BaseDR.Value &gt; 0
,False,true)</Hidden>
</Visibility>
<Style>
<Border>
@@ -1381,7 +1380,7 @@
<rd:DefaultName>Textbox61</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
Fields!Tra001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1416,7 +1415,7 @@
<rd:DefaultName>Textbox204</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
Fields!Tra001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1453,7 +1452,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
Fields!Tra001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1490,7 +1489,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
Fields!Tra001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1527,7 +1526,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
Fields!Tra001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1551,7 +1550,7 @@
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize>
<Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
<Format>'$'#,0.00</Format>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</TextRun>
@@ -1564,7 +1563,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
Fields!Tra001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1599,7 +1598,7 @@
<rd:DefaultName>Textbox4</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
Fields!Tra001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1634,7 +1633,7 @@
<rd:DefaultName>Textbox13</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
Fields!Tra001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1667,7 +1666,7 @@
<rd:DefaultName>Textbox17</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
Fields!Tra001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1700,7 +1699,7 @@
<rd:DefaultName>Textbox18</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra001ImporteDR.Value &gt; 0
Fields!Tra001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1740,7 +1739,7 @@
<rd:DefaultName>Textbox61</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra002ImporteDR.Value &gt; 0
Fields!Tra002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1775,7 +1774,7 @@
<rd:DefaultName>Textbox204</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra002ImporteDR.Value &gt; 0
Fields!Tra002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1812,7 +1811,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra002ImporteDR.Value &gt; 0
Fields!Tra002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1849,7 +1848,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra002ImporteDR.Value &gt; 0
Fields!Tra002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1886,7 +1885,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra002ImporteDR.Value &gt; 0
Fields!Tra002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1910,7 +1909,7 @@
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize>
<Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
<Format>'$'#,0.00</Format>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</TextRun>
@@ -1923,7 +1922,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra002ImporteDR.Value &gt; 0
Fields!Tra002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1958,7 +1957,7 @@
<rd:DefaultName>Textbox67</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra002ImporteDR.Value &gt; 0
Fields!Tra002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -1993,7 +1992,7 @@
<rd:DefaultName>Textbox68</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra002ImporteDR.Value &gt; 0
Fields!Tra002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2026,7 +2025,7 @@
<rd:DefaultName>Textbox69</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra002ImporteDR.Value &gt; 0
Fields!Tra002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2059,7 +2058,7 @@
<rd:DefaultName>Textbox70</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra002ImporteDR.Value &gt; 0
Fields!Tra002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2099,7 +2098,7 @@
<rd:DefaultName>Textbox61</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra003ImporteDR.Value &gt; 0
Fields!Tra003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2134,7 +2133,7 @@
<rd:DefaultName>Textbox204</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra003ImporteDR.Value &gt; 0
Fields!Tra003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2171,7 +2170,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra003ImporteDR.Value &gt; 0
Fields!Tra003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2208,7 +2207,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra003ImporteDR.Value &gt; 0
Fields!Tra003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2245,7 +2244,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra003ImporteDR.Value &gt; 0
Fields!Tra003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2269,7 +2268,7 @@
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize>
<Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
<Format>'$'#,0.00</Format>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</TextRun>
@@ -2282,7 +2281,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra003ImporteDR.Value &gt; 0
Fields!Tra003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2317,7 +2316,7 @@
<rd:DefaultName>Textbox51</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra003ImporteDR.Value &gt; 0
Fields!Tra003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2352,7 +2351,7 @@
<rd:DefaultName>Textbox55</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra003ImporteDR.Value &gt; 0
Fields!Tra003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2385,7 +2384,7 @@
<rd:DefaultName>Textbox56</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra003ImporteDR.Value &gt; 0
Fields!Tra003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2418,7 +2417,7 @@
<rd:DefaultName>Textbox58</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Tra003ImporteDR.Value &gt; 0
Fields!Tra003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2458,7 +2457,7 @@
<rd:DefaultName>Textbox61</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret001ImporteDR.Value &gt; 0
Fields!Ret001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2493,7 +2492,7 @@
<rd:DefaultName>Textbox207</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret001ImporteDR.Value &gt; 0
Fields!Ret001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2530,7 +2529,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret001ImporteDR.Value &gt; 0
Fields!Ret001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2567,7 +2566,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret001ImporteDR.Value &gt; 0
Fields!Ret001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2604,7 +2603,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret001ImporteDR.Value &gt; 0
Fields!Ret001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2628,7 +2627,7 @@
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize>
<Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
<Format>'$'#,0.00</Format>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</TextRun>
@@ -2641,7 +2640,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret001ImporteDR.Value &gt; 0
Fields!Ret001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2676,7 +2675,7 @@
<rd:DefaultName>Textbox75</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret001ImporteDR.Value &gt; 0
Fields!Ret001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2711,7 +2710,7 @@
<rd:DefaultName>Textbox76</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret001ImporteDR.Value &gt; 0
Fields!Ret001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2744,7 +2743,7 @@
<rd:DefaultName>Textbox77</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret001ImporteDR.Value &gt; 0
Fields!Ret001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2777,7 +2776,7 @@
<rd:DefaultName>Textbox78</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret001ImporteDR.Value &gt; 0
Fields!Ret001BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2791,7 +2790,7 @@
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.07938cm</Height>
<Height>0.07939cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
@@ -2817,7 +2816,7 @@
<rd:DefaultName>Textbox61</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret002ImporteDR.Value &gt; 0
Fields!Ret002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2852,7 +2851,7 @@
<rd:DefaultName>Textbox207</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret002ImporteDR.Value &gt; 0
Fields!Ret002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2889,7 +2888,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret002ImporteDR.Value &gt; 0
Fields!Ret002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2926,7 +2925,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret002ImporteDR.Value &gt; 0
Fields!Ret002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2963,7 +2962,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret002ImporteDR.Value &gt; 0
Fields!Ret002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -2987,7 +2986,7 @@
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize>
<Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
<Format>'$'#,0.00</Format>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</TextRun>
@@ -3000,7 +2999,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret002ImporteDR.Value &gt; 0
Fields!Ret002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3035,7 +3034,7 @@
<rd:DefaultName>Textbox85</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret002ImporteDR.Value &gt; 0
Fields!Ret002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3070,7 +3069,7 @@
<rd:DefaultName>Textbox86</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret002ImporteDR.Value &gt; 0
Fields!Ret002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3103,7 +3102,7 @@
<rd:DefaultName>Textbox87</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret002ImporteDR.Value &gt; 0
Fields!Ret002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3136,7 +3135,7 @@
<rd:DefaultName>Textbox88</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret002ImporteDR.Value &gt; 0
Fields!Ret002BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3176,7 +3175,7 @@
<rd:DefaultName>Textbox59</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret003ImporteDR.Value &gt; 0
Fields!Ret003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3211,7 +3210,7 @@
<rd:DefaultName>Textbox207</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret003ImporteDR.Value &gt; 0
Fields!Ret003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3248,7 +3247,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret003ImporteDR.Value &gt; 0
Fields!Ret003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3285,7 +3284,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret003ImporteDR.Value &gt; 0
Fields!Ret003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3322,7 +3321,7 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret003ImporteDR.Value &gt; 0
Fields!Ret003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3346,7 +3345,7 @@
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7pt</FontSize>
<Format>'$'#,0.00;-'$'#,0.00;'-'</Format>
<Format>'$'#,0.00</Format>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</TextRun>
@@ -3359,13 +3358,14 @@
<rd:DefaultName>ImpPagado</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret003ImporteDR.Value &gt; 0
Fields!Ret003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</Textbox>
</CellContents>
@@ -3394,7 +3394,7 @@
<rd:DefaultName>Textbox95</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret003ImporteDR.Value &gt; 0
Fields!Ret003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3429,7 +3429,7 @@
<rd:DefaultName>Textbox96</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret003ImporteDR.Value &gt; 0
Fields!Ret003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3462,7 +3462,7 @@
<rd:DefaultName>Textbox97</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret003ImporteDR.Value &gt; 0
Fields!Ret003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3495,7 +3495,7 @@
<rd:DefaultName>Textbox98</rd:DefaultName>
<Visibility>
<Hidden>= IIF(
Fields!Ret003ImporteDR.Value &gt; 0
Fields!Ret003BaseDR.Value &gt; 0
,False,True)</Hidden>
</Visibility>
<Style>
@@ -3546,7 +3546,7 @@
</TablixRowHierarchy>
<DataSetName>DataSet2</DataSetName>
<Top>4.62704cm</Top>
<Height>1.51927cm</Height>
<Height>1.55689cm</Height>
<Width>20.53139cm</Width>
<ZIndex>1</ZIndex>
<Style>
@@ -4747,7 +4747,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>12.34604cm</Top>
<Top>12.02854cm</Top>
<Height>0.11466cm</Height>
<Width>20.5314cm</Width>
<ZIndex>8</ZIndex>
@@ -4763,7 +4763,7 @@
</Style>
</Textbox>
</ReportItems>
<Height>12.4607cm</Height>
<Height>12.1432cm</Height>
<Style />
</Body>
<Width>20.53564cm</Width>
@@ -5375,6 +5375,30 @@
<DataField>Ret003ImporteDR</DataField>
<rd:TypeName>System.Float</rd:TypeName>
</Field>
<Field Name="Tra001BaseDR">
<DataField>Tra001BaseDR</DataField>
<rd:TypeName>System.Float</rd:TypeName>
</Field>
<Field Name="Tra002BaseDR">
<DataField>Tra002BaseDR</DataField>
<rd:TypeName>System.Float</rd:TypeName>
</Field>
<Field Name="Tra003BaseDR">
<DataField>Tra003BaseDR</DataField>
<rd:TypeName>System.Float</rd:TypeName>
</Field>
<Field Name="Ret001BaseDR">
<DataField>Ret001BaseDR</DataField>
<rd:TypeName>System.Float</rd:TypeName>
</Field>
<Field Name="Ret002BaseDR">
<DataField>Ret002BaseDR</DataField>
<rd:TypeName>System.Float</rd:TypeName>
</Field>
<Field Name="Ret003BaseDR">
<DataField>Ret003BaseDR</DataField>
<rd:TypeName>System.Float</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>

62
Empresas/140/Formatos/RepEntradasUsados.rdlc
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
@@ -17,6 +17,10 @@
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="CvePSCargo">
<DataField>CvePSCargo</DataField>
<rd:TypeName>System.Int</rd:TypeName>
</Field>
<Field Name="CodigoPS">
<DataField>CodigoPS</DataField>
<rd:TypeName>System.String</rd:TypeName>
@@ -485,7 +489,7 @@
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.58521cm</Height>
<Height>0.32063cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
@@ -499,6 +503,7 @@
<Value>=Fields!CodigoPS.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
</Style>
</TextRun>
</TextRuns>
@@ -510,9 +515,10 @@
<rd:DefaultName>CodigoPS</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -533,6 +539,7 @@
<Value>0</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
</Style>
</TextRun>
</TextRuns>
@@ -544,9 +551,10 @@
<rd:DefaultName>TipoAgrupador</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -567,6 +575,7 @@
<Value>=Fields!E_Almacen.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
<Format>#,0;(#,0)</Format>
</Style>
</TextRun>
@@ -579,9 +588,10 @@
<rd:DefaultName>E_Almacen</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -602,6 +612,7 @@
<Value>0</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
<Format>d</Format>
</Style>
</TextRun>
@@ -614,9 +625,10 @@
<rd:DefaultName>Paqueteria1</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -637,6 +649,7 @@
<Value>=Fields!E_Traspaso.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
<Format>#,0;(#,0)</Format>
</Style>
</TextRun>
@@ -649,9 +662,10 @@
<rd:DefaultName>E_Traspaso</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -672,6 +686,7 @@
<Value>=Fields!E_Compra.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
<Format>#,0;(#,0)</Format>
</Style>
</TextRun>
@@ -684,9 +699,10 @@
<rd:DefaultName>E_Compra</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -707,6 +723,7 @@
<Value>0</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
<Format>d</Format>
</Style>
</TextRun>
@@ -719,9 +736,10 @@
<rd:DefaultName>Fecha</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -742,6 +760,7 @@
<Value>=Fields!S_Almacen.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
<Format>#,0;(#,0)</Format>
</Style>
</TextRun>
@@ -754,9 +773,10 @@
<rd:DefaultName>S_Almacen</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -777,6 +797,7 @@
<Value>=Fields!S_Traspaso.Value</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
<Format>#,0;(#,0)</Format>
</Style>
</TextRun>
@@ -789,9 +810,10 @@
<rd:DefaultName>S_Traspaso</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -812,6 +834,7 @@
<Value>0</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
</Style>
</TextRun>
</TextRuns>
@@ -823,9 +846,10 @@
<rd:DefaultName>Textbox16</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -846,6 +870,7 @@
<Value>0</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIF(Fields!CvePSCargo.Value &gt; 0, "Default","Bold")</FontWeight>
</Style>
</TextRun>
</TextRuns>
@@ -857,9 +882,10 @@
<rd:DefaultName>Textbox42</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Color>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>=IIF(Fields!CvePSCargo.Value &gt; 0, "White","Silver")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
@@ -900,7 +926,7 @@
<DataSetName>DataSet1</DataSetName>
<Top>0.10583cm</Top>
<Left>0.08377cm</Left>
<Height>1.2148cm</Height>
<Height>0.95022cm</Height>
<Width>20.80089cm</Width>
<Style>
<Border>
@@ -1108,12 +1134,12 @@
</Style>
</PageHeader>
<PageFooter>
<Height>1.01804cm</Height>
<Height>0.6cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
<Line Name="Line2">
<Top>0.12694cm</Top>
<Top>0.12693cm</Top>
<Left>0.01325cm</Left>
<Height>0cm</Height>
<Width>20.90669cm</Width>
@@ -1146,7 +1172,6 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>FechaConFormato</rd:DefaultName>
<Top>0.30333cm</Top>
<Height>0.6cm</Height>
<Width>8.45793cm</Width>
<ZIndex>1</ZIndex>
@@ -1183,7 +1208,6 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>FechaConFormato</rd:DefaultName>
<Top>0.30333cm</Top>
<Left>8.69316cm</Left>
<Height>0.6cm</Height>
<Width>8.00814cm</Width>
@@ -1221,7 +1245,6 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>PageNumber</rd:DefaultName>
<Top>0.30333cm</Top>
<Left>16.84241cm</Left>
<Height>0.6cm</Height>
<Width>4.00442cm</Width>
@@ -1294,7 +1317,6 @@
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="Logo">
<MIMEType>image/png</MIMEType>

549
Empresas/Grales/Formatos/ReciboDePago.rdlc
View File

File diff suppressed because it is too large Load Diff

30
Sistemas/Empresa.aspx
View File

@@ -1761,6 +1761,12 @@
</tr>
</table>
<br />
<asp:UpdatePanel runat="server" ID="UpModalCertificados" UpdateMode="Conditional">
<ContentTemplate>
<div id="ModalArchvivo" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
@@ -1768,7 +1774,7 @@
<div class="modal-content" style="width: 700px;">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Subir Imagen</h4>
<h4 class="modal-title"><asp:Label runat="server" ID="LblModalCertificadosTitulo"></asp:Label></h4>
</div>
<div class="modal-body" style="height: 200px;">
@@ -1787,17 +1793,33 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>
<br />
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnGuardarArchivo" runat="server" OnClick="BtnGuardarArchivo_Click" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
<div class="row">
<div class="col-md-12">
<asp:Button ID="BtnGuardarArchivo" runat="server" OnClick="BtnGuardarArchivo_Click" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="server">
<script type="text/javascript">

93
Sistemas/Empresa.aspx.vb
View File

@@ -107,6 +107,31 @@ Partial Class Sistemas_Empresa
End Set
End Property
Enum EnumOpActualizaArchivosCer
SinOpcion
KEY
CER
PFX
End Enum
Property OpActualizaArchivosCer As EnumOpActualizaArchivosCer
Get
If ViewState("OpActualizaArchivosCer") Is Nothing Then
ViewState("OpActualizaArchivosCer") = EnumOpActualizaArchivosCer.SinOpcion
End If
Return DirectCast(ViewState("OpActualizaArchivosCer"), EnumOpActualizaArchivosCer)
End Get
Set(value As EnumOpActualizaArchivosCer)
ViewState("OpActualizaArchivosCer") = value
End Set
End Property
#End Region
@@ -1644,15 +1669,35 @@ Partial Class Sistemas_Empresa
If result.Exitoso Then
Alert("El emisor se registró correctamente.<br>" & result.Descripcion)
Else
Alert("Ocurrió un error al registrar el emisor.<br>" & result.Descripcion & ".<br> Numero Error: " & result.NumeroError, TipoMensaje.MsgError)
End If
Catch ex As Exception
OnError("Ocurrió un error al registrar el emisor", ex)
End Try
End Sub
Protected Sub LnkArchivoKey_Click(sender As Object, e As EventArgs) Handles LnkArchivoKey.Click
TxtCargaImg.getfiles().Archivos = Nothing
TxtCargaImg.Text = "[]"
OpActualizaArchivosCer = EnumOpActualizaArchivosCer.KEY
LblModalCertificadosTitulo.Text = "Archivo KEY"
UpModalCertificados.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
End Sub
Protected Sub LnkArchivoCer_Click(sender As Object, e As EventArgs) Handles LnkArchivoCer.Click
TxtCargaImg.getfiles().Archivos = Nothing
TxtCargaImg.Text = "[]"
OpActualizaArchivosCer = EnumOpActualizaArchivosCer.CER
LblModalCertificadosTitulo.Text = "Archivo CER"
UpModalCertificados.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
End Sub
@@ -1663,6 +1708,7 @@ Partial Class Sistemas_Empresa
OpActualizaArchivosCer = EnumOpActualizaArchivosCer.PFX
LblModalCertificadosTitulo.Text = "Archivo PFX"
UpModalCertificados.Update()
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
End Sub
Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs)
@@ -1670,6 +1716,9 @@ Partial Class Sistemas_Empresa
Dim filesgral As List(Of Archivo) = TxtCargaImg.getfiles().Archivos
Dim filemove As String = ""
Dim TieneError As Boolean = False
For Each fileItem As Archivo In filesgral
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
filemove = fileItem.filename
@@ -1681,13 +1730,57 @@ Partial Class Sistemas_Empresa
Dim ArchivoCertificado As String = $"{NombreArchivo}.{FileExtension}"
If File.Exists(yaExistente) Then
File.Delete(yaExistente)
End If
Try
If filemove <> "" Then
Dim Ruta As String = String.Format("Empresas\{0}\Certificados\", CveEmpresa)
filemove.FilesMove(NombreArchivo, Ruta)
End If
Catch ex As Exception
TieneError = True
End Try
If CveEmpresa > 0 AndAlso Not TieneError Then
Dim ObjEmpresas As New ClsSisEmpresas
Dim ArchivoKey As String = "-1"
Dim ArchivoCer As String = "-1"
Dim ArchivoPfx As String = "-1"
If OpActualizaArchivosCer = EnumOpActualizaArchivosCer.KEY Then
ArchivoKey = ArchivoCertificado
TxtArchivoKey.Text = ArchivoKey
ElseIf OpActualizaArchivosCer = EnumOpActualizaArchivosCer.CER Then
ArchivoCer = ArchivoCertificado
TxtArchivoCer.Text = ArchivoCer
ElseIf OpActualizaArchivosCer = EnumOpActualizaArchivosCer.PFX Then
ArchivoPfx = ArchivoCertificado
TxtArchivoPfx.Text = ArchivoPfx
End If
If Not ObjEmpresas.UpdateEmpresasCertificados(ArchivoKey, ArchivoCer, ArchivoPfx, CveEmpresa) Then
TieneError = True
End If
ObjEmpresas.Dispose()
End If
Next
If Not TieneError Then
Alert("Certificado cargado con exito")
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
End If

6
vwd.webinfo
View File

@@ -506,6 +506,12 @@