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

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

Browse Source
This commit is contained in:
Rakcsle Supertramp
2019-08-20 18:57:46 -07:00
parent 322e7abb3d cda1c6d91c
commit f99828ea9c
9 changed files with 348 additions and 213 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
App_Code/ClsContabilidad.vb
View File

@@ -933,6 +933,22 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function End Function
Public Function UpdatePrePolizasDetalleBloquear(CvePrePoliza As Integer, Bloquear As Boolean) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_PrePolizasDetalleBloquearUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@Bloquear", SqlDbType.Bit).Value = Bloquear
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al bloquear o desbloquear las prepolizas detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function ContabilizarPrePoliza(CvePrePoliza As Integer, CveUsuario As Integer, Empresa As Empresa, Optional Fecha As Date = MinFecha, Optional Concepto As String = "", Public Function ContabilizarPrePoliza(CvePrePoliza As Integer, CveUsuario As Integer, Empresa As Empresa, Optional Fecha As Date = MinFecha, Optional Concepto As String = "",
@@ -981,6 +997,8 @@ Public Class ClsContabilidad
End If End If
Dim tIdPoliza As Integer Dim tIdPoliza As Integer
Dim CveTipoPoliza, FolioFijo As Integer Dim CveTipoPoliza, FolioFijo As Integer
Dim Cargos As Decimal Dim Cargos As Decimal
@@ -1260,6 +1278,12 @@ Public Class ClsContabilidad
End If End If
End If End If
If Not OcurrioError Then
If Not UpdatePrePolizasDetalleBloquear(CvePrePoliza, True) Then
OcurrioError = True
End If
End If
'If Empresa.Funcionalidad(522).ToString = "1" And Empresa.UsaContabilidad Then 'If Empresa.Funcionalidad(522).ToString = "1" And Empresa.UsaContabilidad Then
' Dim CodigoPersona As String = "" ' Dim CodigoPersona As String = ""
@@ -5638,12 +5662,13 @@ Public Class ClsContabilidad
#End Region #End Region
#Region "VALIDACION POLIZA DESCUADRADA" #Region "VALIDACION POLIZA DESCUADRADA"
Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer) As Boolean Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1) As Boolean
Dim Retorno = False Dim Retorno = False
DataAdapter("PA_Conta_PrePoliza_Validacion") DataAdapter("PA_Conta_PrePoliza_Validacion")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output

73
Compras/Compras.aspx
View File

@@ -89,11 +89,11 @@
<asp:HyperLink ID="HLModalFletes" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#ModalFletes" runat="server"><i class='fa fa-truck'></i> Fletes</asp:HyperLink> <asp:HyperLink ID="HLModalFletes" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#ModalFletes" runat="server"><i class='fa fa-truck'></i> Fletes</asp:HyperLink>
</li> </li>
<li> <li>
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkCompleplementos" Visible="false" runat="server" OnClick="LnkCompleplementos_Click"><i class='fa fa-money'></i> Complementos Pago</asp:LinkButton> <asp:LinkButton ID="LnkCompleplementos" Visible="false" runat="server" OnClick="LnkCompleplementos_Click"><i class='fa fa-money'></i> Complementos Pago</asp:LinkButton>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</li> </li>
@@ -292,7 +292,7 @@
<div class="form-group whitoutcol" style="width: 400px;" id="DivEsNoDeducible" visible="false" runat="server"> <div class="form-group whitoutcol" style="width: 400px;" id="DivEsNoDeducible" visible="false" runat="server">
<span class="whitoutcol linewhitsize comprasdfleft" style="width: 120px;">¿Es No Deducible?</span> <span class="whitoutcol linewhitsize comprasdfleft" style="width: 120px;">¿Es No Deducible?</span>
<div class="whitoutcol whitoutcol comprasdfleftvar"> <div class="whitoutcol whitoutcol comprasdfleftvar">
<asp:CheckBox ID="ChkEsNoDeducible" runat="server" OnCheckedChanged="ChkEsNoDeducible_CheckedChanged1" AutoPostBack="true"/> <asp:CheckBox ID="ChkEsNoDeducible" runat="server" OnCheckedChanged="ChkEsNoDeducible_CheckedChanged1" AutoPostBack="true" />
</div> </div>
</div> </div>
@@ -611,7 +611,8 @@
<th style="width: 50px">% IVA&nbsp;</th> <th style="width: 50px">% IVA&nbsp;</th>
<th style="width: 80px">Total&nbsp;</th> <th style="width: 80px">Total&nbsp;</th>
<div id="dvNoDeducible" runat="server" visible="false"> <div id="dvNoDeducible" runat="server" visible="false">
<th style="width: 80px">¿No Deducible?&nbsp;</th></div> <th style="width: 80px">¿No Deducible?&nbsp;</th>
</div>
<th style="width: 90px">Comandos</th> <th style="width: 90px">Comandos</th>
</tr> </tr>
<tr id="DivReclasifica" class="collapse"> <tr id="DivReclasifica" class="collapse">
@@ -706,9 +707,9 @@
<asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
<%-- 10 --%> <%-- 10 --%>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ControlStyle-Width="100px" visible="false"> <asp:TemplateField ItemStyle-HorizontalAlign="Center" ControlStyle-Width="100px" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:CheckBox ID="ChkEsNoDeduciblePS" runat="server" Checked='<%# If(Eval("NoDeducible").ToString = "", 0, Eval("NoDeducible")) %>' AutoPostBack="true" OnCheckedChanged="ChkEsNoDeduciblePS_CheckedChanged" /> <asp:CheckBox ID="ChkEsNoDeduciblePS" runat="server" Checked='<%# If(Eval("NoDeducible").ToString = "", 0, Eval("NoDeducible")) %>' AutoPostBack="true" OnCheckedChanged="ChkEsNoDeduciblePS_CheckedChanged" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -1437,9 +1438,9 @@
<asp:Button Text="" Style="display: none;" ClientIDMode="Static" ID="BtnAlertaPUCero" OnClick="BtnAlertaPUCero_Click" runat="server" /> <asp:Button Text="" Style="display: none;" ClientIDMode="Static" ID="BtnAlertaPUCero" OnClick="BtnAlertaPUCero_Click" runat="server" />
<asp:HiddenField ID="HdnAlertaPUCero" Value="-1" runat="server" ClientIDMode="Static" /> <asp:HiddenField ID="HdnAlertaPUCero" Value="-1" runat="server" ClientIDMode="Static" />
<asp:GridView runat="server" ID="GvOC1" AutoGenerateColumns="false" <asp:GridView runat="server" ID="GvOC1" AutoGenerateColumns="false"
GridLines="None" UseAccessibleHeader="true" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover Widthall Sortable" RowStyle-HorizontalAlign="Center" GridLines="None" UseAccessibleHeader="true" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover Widthall Sortable" RowStyle-HorizontalAlign="Center"
DataKeyNames="CantidadF,FolioREQ,CveProveedorSucursal,PS,CantidadDisponible,IEPSPS,IVA,RetIVA,RetISR,Descuento,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,Cantidad,CveProveedorOC" > DataKeyNames="CantidadF,FolioREQ,CveProveedorSucursal,PS,CantidadDisponible,IEPSPS,IVA,RetIVA,RetISR,Descuento,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,Cantidad,CveProveedorOC">
<Columns> <Columns>
<asp:TemplateField HeaderText="Folio" ItemStyle-Width="10%" Visible="false"> <asp:TemplateField HeaderText="Folio" ItemStyle-Width="10%" Visible="false">
@@ -1460,9 +1461,9 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="UM" DataField="UM" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="UM" DataField="UM" ItemStyle-Width="10%" />
<asp:TemplateField HeaderText="Clasificación <br/> Producto/Servicio" ItemStyle-Width="50%" ItemStyle-HorizontalAlign="Left" > <asp:TemplateField HeaderText="Clasificación <br/> Producto/Servicio" ItemStyle-Width="50%" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<span style="width: 100%; border-bottom: 1px solid gray;text-align:left!important"> <span style="width: 100%; border-bottom: 1px solid gray; text-align: left!important">
<asp:Label ID="LblClasificacion" runat="server" Text='<%# Eval("Clasificacion") %>'></asp:Label> <asp:Label ID="LblClasificacion" runat="server" Text='<%# Eval("Clasificacion") %>'></asp:Label>
</span> </span>
<br /> <br />
@@ -1506,6 +1507,7 @@
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>
<asp:HiddenField runat="server" ID="HdnIEPSModificadoOC" ClientIDMode="Static" Value="0" />
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
@@ -1792,18 +1794,21 @@
</div> </div>
</div> </div>
<asp:UpdatePanel ID="UpBtnVinculacion" runat="server" UpdateMode="Conditional">
<div class="row" align="right"> <ContentTemplate>
<div class="col-md-12 text-right text-small"> <div class="row" align="right">
<asp:Button Text="Concluir Vinculación" ID="BtnVincularOC" CssClass="btn btn-success" OnClick="BtnVincularOC_Click" ValidationGroup="GrpVincularOC" runat="server" /> <div class="col-md-12 text-right text-small">
</div> <asp:Button Text="Concluir Vinculación" ID="BtnVincularOC" CssClass="btn btn-success" OnClick="BtnVincularOC_Click" ValidationGroup="GrpVincularOC" runat="server" />
</div> </div>
<br /> </div>
<div class="row" align="right"> <br />
<div class="col-md-12 text-right text-small"> <div class="row" align="right">
<asp:Button Text="Vinculación Completa" ID="BtnVincularOCCompleta" CssClass="btn btn-success" ClientIDMode="Static" runat="server" Visible="false" OnClick="BtnVincularOCCompleta_Click" ValidationGroup="GrpVincularOC" runat="server" /> <div class="col-md-12 text-right text-small">
</div> <asp:Button Text="Vinculación Completa" ID="BtnVincularOCCompleta" CssClass="btn btn-success" ClientIDMode="Static" runat="server" Visible="false" OnClick="BtnVincularOCCompleta_Click" ValidationGroup="GrpVincularOC" runat="server" />
</div> </div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div> </div>
</div> </div>
@@ -3214,7 +3219,8 @@
<asp:GridView ID="GVServicios" runat="server" AutoGenerateColumns="false" <asp:GridView ID="GVServicios" runat="server" AutoGenerateColumns="false"
EmptyDataText="No se encontraron fletes o servicios en la factura" ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron fletes o servicios en la factura" ShowHeaderWhenEmpty="true"
ToolTip="Listado de Unidades de Medida" CssClass="table table-striped table-advance table-hover Widthall ToolTip="Listado de Unidades de Medida" CssClass="table table-striped table-advance table-hover Widthall
ScrollAD " data-height="320" Style="text-align: left;" GridLines="None" DataKeyNames="CvePS"> ScrollAD "
data-height="320" Style="text-align: left;" GridLines="None" DataKeyNames="CvePS">
<Columns> <Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Center"> <asp:TemplateField ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
@@ -4340,7 +4346,7 @@
<asp:CheckBox ID="ChkEsNoDeduciblePS" runat="server" /> <asp:CheckBox ID="ChkEsNoDeduciblePS" runat="server" />
</div> </div>
</div> </div>
<br /> <br />
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
@@ -4543,8 +4549,8 @@
<asp:TemplateField Visible="false" HeaderText="Op" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100PX"> <asp:TemplateField Visible="false" HeaderText="Op" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100PX">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton runat="server" ID="LnkDesVincularComplemento" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-chain-broken' aria-hidden='true'></i>" ToolTip="Des Vincular Complemento" OnClick="LnkDesVincularComplemento_Click" <asp:LinkButton runat="server" ID="LnkDesVincularComplemento" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-chain-broken' aria-hidden='true'></i>" ToolTip="Des Vincular Complemento" OnClick="LnkDesVincularComplemento_Click"
data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea Des Vincular el complemento?" data-btn-ok-label="si" /> data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea Des Vincular el complemento?" data-btn-ok-label="si" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -4773,9 +4779,9 @@
<div class="modal-body"> <div class="modal-body">
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<div class="row" runat="server" id="DivActualizarVincular" visible="false" align="center"> <div class="row" runat="server" id="DivActualizarVincular" visible="false" align="center">
<h4>Los cambios se realizaran al dar click en vincular</h4> <h4>Los cambios se realizaran al dar click en vincular</h4>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-3"></div> <div class="col-md-3"></div>
<label class="col-md-2" style="margin-top: 5px;">Asignación:</label> <label class="col-md-2" style="margin-top: 5px;">Asignación:</label>
@@ -5368,7 +5374,7 @@
if (Sumatoria > saldoAmortizacion) { if (Sumatoria > saldoAmortizacion) {
Sumatoria -= ToDouble(txt.value) * ToDouble(jQuery($(txt[0]).parent().parent().children()[7]).text()); Sumatoria -= ToDouble(txt.value) * ToDouble(jQuery($(txt[0]).parent().parent().children()[7]).text());
txt.value = ''; txt.value = '';
alert("El Importe no debe de exceder a el saldo.[" + Sumatoria + " " + saldoAmortizacion+"]" ); alert("El Importe no debe de exceder a el saldo.[" + Sumatoria + " " + saldoAmortizacion + "]");
} }
$('#C_LbNCInvImporte').text(FormatoNumero(Sumatoria, 2)); $('#C_LbNCInvImporte').text(FormatoNumero(Sumatoria, 2));
} }
@@ -5623,6 +5629,9 @@
if ($get("C_Tab_TabOC_LbIEPSOC1")) { if ($get("C_Tab_TabOC_LbIEPSOC1")) {
$get("C_Tab_TabOC_LbIEPSOC1").innerText = FormatoNumero(SumaIEPS, 2); $get("C_Tab_TabOC_LbIEPSOC1").innerText = FormatoNumero(SumaIEPS, 2);
} }
$get("HdnIEPSModificadoOC").value = FormatoNumero(SumaIEPS, 2);
if ($get("C_Tab_TabOC_LbIEPSIVAOC1")) { if ($get("C_Tab_TabOC_LbIEPSIVAOC1")) {
$get("C_Tab_TabOC_LbIEPSIVAOC1").innerText = FormatoNumero(SumaIEPSIVA, 2); $get("C_Tab_TabOC_LbIEPSIVAOC1").innerText = FormatoNumero(SumaIEPSIVA, 2);
} }

8
Compras/Compras.aspx.vb
View File

@@ -14242,8 +14242,10 @@ Partial Class Compras_Compras
GvOC1.Columns(0).Visible = False GvOC1.Columns(0).Visible = False
End If End If
Dim Cont As Integer = 0
For Each gvr As GridViewRow In GvOC1.Rows For Each gvr As GridViewRow In GvOC1.Rows
RegistraScript($"CalculaTotalOCEdit('{gvr.DataKey("PS").Replace("'", "")}', {gvr.DataKey("CantidadDisponible").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", "Gv") RegistraScript($"CalculaTotalOCEdit('{gvr.DataKey("PS").Replace("'", "")}', {gvr.DataKey("CantidadDisponible").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}")
Cont += 1
Next Next
UpGvOC1.Update() UpGvOC1.Update()
@@ -14469,8 +14471,8 @@ Partial Class Compras_Compras
End If End If
End If End If
If (LbIEPSOC1.Text.ToDecimal <> LbIEPSOC2.Text.ToDecimal) Then If (HdnIEPSModificadoOC.Value.ToDecimal <> LbIEPSOC2.Text.ToDecimal) Then
Alert("Hay una diferencia de IEPS entre la factura y la OC.", TipoMensaje.MsgAdvertencia) Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If

355
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1632,72 +1632,175 @@ Partial Class PopUpVerFactura
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Armado - {0}", Folio.ToString), RDSName:="DsInventarios") ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Armado - {0}", Folio.ToString), RDSName:="DsInventarios")
Case 6, 23 ' ENTRADA RESGUARDO Case 6, 23 ' ENTRADA RESGUARDO
Dim params As New List(Of ReportParameter) If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Folio", Folio)) If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Fecha", Fecha)) params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
params.Add(New ReportParameter("Observaciones", Observaciones)) params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("NombreEntrego", Personal)) params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("Responsable", Personal)) params.Add(New ReportParameter("NombreEntrego", Personal))
params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) params.Add(New ReportParameter("Responsable", Personal))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))
params.Add(New ReportParameter("LogoPath", logouri)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If DtMovimientos.COUNT("SerieLote") > 0 Then params.Add(New ReportParameter("LogoPath", logouri))
params.Add(New ReportParameter("MostrarSerieLote", "1")) If DtMovimientos.COUNT("SerieLote") > 0 Then
params.Add(New ReportParameter("MostrarSerieLote", "1"))
Else
params.Add(New ReportParameter("MostrarSerieLote", "0"))
End If
Else Else
params.Add(New ReportParameter("MostrarSerieLote", "0")) params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
params.Add(New ReportParameter("NombreRecibio", Personal))
params.Add(New ReportParameter("Responsable", Personal))
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
params.Add(New ReportParameter("NombreProveedor", Proveedor))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
End If End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
Else Else
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter)
Dim TipoResponsable As String = ""
Dim Responsable As String = ""
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
End If
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Folio", Folio)) params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
params.Add(New ReportParameter("Fecha", Fecha)) params.Add(New ReportParameter("Fecha", Fecha))
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Observaciones", Observaciones)) params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("NombreRecibio", Personal)) params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
params.Add(New ReportParameter("Responsable", Personal))
params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
params.Add(New ReportParameter("NombreProveedor", Proveedor))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Dim Mov As New ClsInventarios
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
TipoResponsable = "Personal"
Responsable = Recibio
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
TipoResponsable = "Cliente"
Responsable = Mov.DtResultados(0)("Nombre").ToString
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
TipoResponsable = "Proveedor"
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
End If
End If
Mov.Dispose()
params.Add(New ReportParameter("Responsable", Responsable))
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
End If
Case 7 ' SALIDA RESGUARDO Case 7 ' SALIDA RESGUARDO
Dim params As New List(Of ReportParameter) If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Folio", Folio)) If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Fecha", Fecha)) params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
params.Add(New ReportParameter("Observaciones", Observaciones)) params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("Responsable", Personal)) params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
params.Add(New ReportParameter("NombreRecibio", Personal)) params.Add(New ReportParameter("Responsable", Personal))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("NombreRecibio", Personal))
params.Add(New ReportParameter("LogoPath", logouri)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If DtMovimientos.COUNT("SerieLote") > 0 Then params.Add(New ReportParameter("LogoPath", logouri))
params.Add(New ReportParameter("MostrarSerieLote", "1")) If DtMovimientos.COUNT("SerieLote") > 0 Then
params.Add(New ReportParameter("MostrarSerieLote", "1"))
Else
params.Add(New ReportParameter("MostrarSerieLote", "0"))
End If
Else Else
params.Add(New ReportParameter("MostrarSerieLote", "0")) params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
params.Add(New ReportParameter("NombreRecibio", Personal))
params.Add(New ReportParameter("Responsable", Personal))
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
params.Add(New ReportParameter("NombreProveedor", Proveedor))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
End If End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
Else Else
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter)
Dim TipoResponsable As String = ""
Dim Responsable As String = ""
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
End If
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Folio", Folio)) params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
params.Add(New ReportParameter("Fecha", Fecha)) params.Add(New ReportParameter("Fecha", Fecha))
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Observaciones", Observaciones)) params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("NombreRecibio", Personal)) params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
params.Add(New ReportParameter("Responsable", Personal))
params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
params.Add(New ReportParameter("NombreProveedor", Proveedor))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
Dim Mov As New ClsInventarios
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
TipoResponsable = "Personal"
Responsable = Recibio
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
TipoResponsable = "Cliente"
Responsable = Mov.DtResultados(0)("Nombre").ToString
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
TipoResponsable = "Proveedor"
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
End If
End If
Mov.Dispose()
params.Add(New ReportParameter("Responsable", Responsable))
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
End If End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
Case 8, 26 ' T R A S L A D O - S A L I D A Case 8, 26 ' T R A S L A D O - S A L I D A
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
@@ -2275,93 +2378,95 @@ Partial Class PopUpVerFactura
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
Case 24 'SALIDA POR RESGUARDO Case 24 'SALIDA POR RESGUARDO
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc"
Dim params As New List(Of ReportParameter)
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc" If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
End If
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" If Imagen.Exists Then
End If params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
If Imagen.Exists Then params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
params.Add(New ReportParameter("LogoPath", logouri)) params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
params.Add(New ReportParameter("Total", ""))
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
params.Add(New ReportParameter("NombreRecibio", Recibio))
params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
params.Add(New ReportParameter("Observaciones", Observaciones))
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios")
Else Else
params.Add(New ReportParameter("LogoPath", "")) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter)
Dim TipoResponsable As String = ""
Dim Responsable As String = ""
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
End If
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Fecha", Fecha))
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
Dim Mov As New ClsInventarios
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
TipoResponsable = "Personal"
Responsable = Recibio
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
TipoResponsable = "Cliente"
Responsable = Mov.DtResultados(0)("Nombre").ToString
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
TipoResponsable = "Proveedor"
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
End If
End If
Mov.Dispose()
params.Add(New ReportParameter("Responsable", Responsable))
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
End If End If
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
params.Add(New ReportParameter("Total", ""))
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
params.Add(New ReportParameter("NombreRecibio", Recibio))
params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
params.Add(New ReportParameter("Observaciones", Observaciones))
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios")
'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
'Dim params As New List(Of ReportParameter)
'Dim TipoResponsable As String = ""
'Dim Responsable As String = ""
'Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
'If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
' Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
'End If
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
'If Imagen.Exists Then
' params.Add(New ReportParameter("LogoPath", logouri))
'Else
' params.Add(New ReportParameter("LogoPath", ""))
'End If
'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
'params.Add(New ReportParameter("Folio", Folio))
'params.Add(New ReportParameter("Fecha", Fecha))
''params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
'params.Add(New ReportParameter("Observaciones", Observaciones))
'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
'params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
'params.Add(New ReportParameter("AlmacenOrigen", Almacen))
'params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
'Dim Mov As New ClsInventarios
'If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
' If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
' TipoResponsable = "Personal"
' Responsable = Recibio
' 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
' ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
' TipoResponsable = "Cliente"
' Responsable = Mov.DtResultados(0)("Nombre").ToString
' ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
' TipoResponsable = "Proveedor"
' Responsable = Mov.DtResultados(0)("RazonSocial").ToString
' End If
'End If
'Mov.Dispose()
'params.Add(New ReportParameter("Responsable", Responsable))
'params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
'ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)

7
Contabilidad/RegPoliza.aspx.vb
View File

@@ -1712,6 +1712,13 @@ Partial Class RegPoliza
ErrorTrans = True ErrorTrans = True
End If End If
If Not ErrorTrans Then
If Not ObjMov.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
ErrorTrans = True
End If
End If
If Not ErrorTrans Then If Not ErrorTrans Then
ObjConta.Commit() ObjConta.Commit()
ObjMov.Commit() ObjMov.Commit()

2
Empresas/119/Formatos/Factura.rdlc
View File

@@ -2252,7 +2252,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=iif(cdbl(Fields!PorcentajeIEPS.Value) &gt; 0, Fields!ImporteIEPS.Value &amp; "(" &amp; cdbl(Fields!PorcentajeIEPS.Value) * 100 &amp; "%)","")</Value> <Value>=iif(cdbl(Fields!PorcentajeIEPS.Value) &gt; 0, Fields!ImporteIEPS.Value &amp; "(" &amp; Round(cdbl(Fields!PorcentajeIEPS.Value) * 100,0) &amp; "%)","")</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>

38
SIGGIT.sln
View File

@@ -1,38 +0,0 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 14
VisualStudioVersion = 14.0.25420.1
MinimumVisualStudioVersion = 10.0.40219.1
Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{FDC5C912-427E-4541-B08F-04591188AA00}"
ProjectSection(WebsiteProperties) = preProject
UseIISExpress = "false"
TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.0"
Debug.AspNetCompiler.VirtualPath = "/localhost"
Debug.AspNetCompiler.PhysicalPath = "..\wwwSIG\"
Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\"
Debug.AspNetCompiler.Updateable = "true"
Debug.AspNetCompiler.ForceOverwrite = "true"
Debug.AspNetCompiler.FixedNames = "false"
Debug.AspNetCompiler.Debug = "True"
Release.AspNetCompiler.VirtualPath = "/localhost"
Release.AspNetCompiler.PhysicalPath = "..\wwwSIG\"
Release.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\"
Release.AspNetCompiler.Updateable = "true"
Release.AspNetCompiler.ForceOverwrite = "true"
Release.AspNetCompiler.FixedNames = "false"
Release.AspNetCompiler.Debug = "False"
SlnRelativePath = "..\wwwSIG\"
EndProjectSection
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{FDC5C912-427E-4541-B08F-04591188AA00}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{FDC5C912-427E-4541-B08F-04591188AA00}.Debug|Any CPU.Build.0 = Debug|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

2
Ventas/PV.aspx.vb
View File

@@ -5372,7 +5372,7 @@ Partial Class PV
For Each drowPsTamaños As DataRow In DTPSTemp.Rows For Each drowPsTamaños As DataRow In DTPSTemp.Rows
' Modalidad = "A" Modalidad = "A"
If drowPsTamaños("PU").ToString.ToDecimal > 0 Then If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString, AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero, drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,

25
Ventas/Ventas.aspx.vb
View File

@@ -10215,6 +10215,10 @@ Partial Class Ventas
If ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 2) Then If ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 2) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
If ObjConta.ValorPolizaDescuadre = 2 Then
ErrorPrepoliza = True
Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
End If
'ErrorPrepoliza = True 'ErrorPrepoliza = True
GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas") GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas")
@@ -15669,6 +15673,15 @@ Partial Class Ventas
End If End If
End If End If
If ObjConta.ValidacionPrePolizaCuadre(-1, 2, CveVenta) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
If ObjConta.ValorPolizaDescuadre = 2 Then
OcurrioError = True
ErrorList.Add(ObjConta.MensajePolizaDescuadre)
End If
End If
End If
If Not OcurrioError Then If Not OcurrioError Then
If RegeneracionPolizas(ObjVentas, ObjAC) Then If RegeneracionPolizas(ObjVentas, ObjAC) Then
OcurrioError = True OcurrioError = True
@@ -21650,6 +21663,7 @@ Partial Class Ventas
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL()) Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())
Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
Dim OcurrioError = False Dim OcurrioError = False
Dim MensajeError = "" Dim MensajeError = ""
@@ -21703,6 +21717,15 @@ Partial Class Ventas
End If End If
End If End If
If ObjConta.ValidacionPrePolizaCuadre(-1, 2, CveVenta) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
If ObjConta.ValorPolizaDescuadre = 2 Then
OcurrioError = True
MensajeError = ObjConta.MensajePolizaDescuadre
End If
End If
End If
If OcurrioError Then If OcurrioError Then
ObjVentas.RollBack() ObjVentas.RollBack()
Alert($"{MensajeError}. Por favor vuelva a intentar.", TipoMensaje.MsgError) Alert($"{MensajeError}. Por favor vuelva a intentar.", TipoMensaje.MsgError)
@@ -21721,6 +21744,8 @@ Partial Class Ventas
End If End If
ObjVentas.Dispose() ObjVentas.Dispose()
ObjConta.Dispose()
ObjCGame.Dispose()
End Sub End Sub
#End Region #End Region