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
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 = "",
@@ -981,6 +997,8 @@ Public Class ClsContabilidad
End If
Dim tIdPoliza As Integer
Dim CveTipoPoliza, FolioFijo As Integer
Dim Cargos As Decimal
@@ -1260,6 +1278,12 @@ Public Class ClsContabilidad
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
' Dim CodigoPersona As String = ""
@@ -5638,12 +5662,13 @@ Public Class ClsContabilidad
#End Region
#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
DataAdapter("PA_Conta_PrePoliza_Validacion")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output

95
Compras/Compras.aspx
View File

@@ -2,7 +2,7 @@
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel ID="UppAddAcciones" runat="server">
<ContentTemplate>
@@ -88,14 +88,14 @@
<li>
<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>
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:LinkButton ID="LnkCompleplementos" Visible="false" runat="server" OnClick="LnkCompleplementos_Click"><i class='fa fa-money'></i> Complementos Pago</asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>
<li>
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:LinkButton ID="LnkCompleplementos" Visible="false" runat="server" OnClick="LnkCompleplementos_Click"><i class='fa fa-money'></i> Complementos Pago</asp:LinkButton>
</ContentTemplate>
</asp:UpdatePanel>
</li>
<li>
<asp:HyperLink ID="HLModalActualizarTC" NavigateUrl="#" runat="server" Visible="false" data-toggle="modal" data-target="#ModalActualizarTC"><i class="fa fa-usd"></i> Actualizar Tipo Cambio</asp:HyperLink>
@@ -292,7 +292,7 @@
<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>
<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>
@@ -611,7 +611,8 @@
<th style="width: 50px">% IVA&nbsp;</th>
<th style="width: 80px">Total&nbsp;</th>
<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>
</tr>
<tr id="DivReclasifica" class="collapse">
@@ -704,11 +705,11 @@
</asp:TemplateField>
<%-- 9 --%>
<asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
<%-- 10 --%>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ControlStyle-Width="100px" visible="false">
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ControlStyle-Width="100px" Visible="false">
<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>
</asp:TemplateField>
@@ -1436,11 +1437,11 @@
<div id="DivOCV" style="height: 250px; overflow-y: auto;">
<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: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"
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>
<asp:TemplateField HeaderText="Folio" ItemStyle-Width="10%" Visible="false">
<ItemTemplate>
@@ -1460,9 +1461,9 @@
</ItemTemplate>
</asp:TemplateField>
<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>
<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>
</span>
<br />
@@ -1506,6 +1507,7 @@
</Columns>
</asp:GridView>
</div>
<asp:HiddenField runat="server" ID="HdnIEPSModificadoOC" ClientIDMode="Static" Value="0" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
@@ -1792,18 +1794,21 @@
</div>
</div>
<div class="row" align="right">
<div class="col-md-12 text-right text-small">
<asp:Button Text="Concluir Vinculación" ID="BtnVincularOC" CssClass="btn btn-success" OnClick="BtnVincularOC_Click" ValidationGroup="GrpVincularOC" runat="server" />
</div>
</div>
<br />
<div class="row" align="right">
<div class="col-md-12 text-right text-small">
<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>
<asp:UpdatePanel ID="UpBtnVinculacion" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" align="right">
<div class="col-md-12 text-right text-small">
<asp:Button Text="Concluir Vinculación" ID="BtnVincularOC" CssClass="btn btn-success" OnClick="BtnVincularOC_Click" ValidationGroup="GrpVincularOC" runat="server" />
</div>
</div>
<br />
<div class="row" align="right">
<div class="col-md-12 text-right text-small">
<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>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
@@ -3211,10 +3216,11 @@
<asp:UpdatePanel ID="UpGVServicios" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVServicios" runat="server" AutoGenerateColumns="false"
EmptyDataText="No se encontraron fletes o servicios en la factura" ShowHeaderWhenEmpty="true"
<asp:GridView ID="GVServicios" runat="server" AutoGenerateColumns="false"
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
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>
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
@@ -4330,7 +4336,7 @@
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:UpdatePanel>
<br />
<asp:UpdatePanel ID="UpEsNoDeduciblePS" runat="server" UpdateMode="Conditional" Visible="false">
<ContentTemplate>
@@ -4340,7 +4346,7 @@
<asp:CheckBox ID="ChkEsNoDeduciblePS" runat="server" />
</div>
</div>
<br />
<br />
</ContentTemplate>
</asp:UpdatePanel>
<div class="form-group form-md-line-input input-iconright">
@@ -4541,10 +4547,10 @@
<asp:BoundField HeaderText="XML" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="PDF" ItemStyle-HorizontalAlign="Center" />
<asp:TemplateField Visible="false" HeaderText="Op" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100PX">
<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"
data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea Des Vincular el complemento?" data-btn-ok-label="si" />
<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"
data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea Des Vincular el complemento?" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
@@ -4773,9 +4779,9 @@
<div class="modal-body">
<div class="row">
<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>
</div>
</div>
<div class="row">
<div class="col-md-3"></div>
<label class="col-md-2" style="margin-top: 5px;">Asignación:</label>
@@ -5368,7 +5374,7 @@
if (Sumatoria > saldoAmortizacion) {
Sumatoria -= ToDouble(txt.value) * ToDouble(jQuery($(txt[0]).parent().parent().children()[7]).text());
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));
}
@@ -5623,6 +5629,9 @@
if ($get("C_Tab_TabOC_LbIEPSOC1")) {
$get("C_Tab_TabOC_LbIEPSOC1").innerText = FormatoNumero(SumaIEPS, 2);
}
$get("HdnIEPSModificadoOC").value = FormatoNumero(SumaIEPS, 2);
if ($get("C_Tab_TabOC_LbIEPSIVAOC1")) {
$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
End If
Dim Cont As Integer = 0
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
UpGvOC1.Update()
@@ -14469,8 +14471,8 @@ Partial Class Compras_Compras
End If
End If
If (LbIEPSOC1.Text.ToDecimal <> LbIEPSOC2.Text.ToDecimal) Then
Alert("Hay una diferencia de IEPS entre la factura y la OC.", TipoMensaje.MsgAdvertencia)
If (HdnIEPSModificadoOC.Value.ToDecimal <> LbIEPSOC2.Text.ToDecimal) Then
Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia)
Exit Sub
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")
Case 6, 23 ' ENTRADA RESGUARDO
Dim params As New List(Of ReportParameter)
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("NombreEntrego", Personal))
params.Add(New ReportParameter("Responsable", Personal))
params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))
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("LogoPath", logouri))
If DtMovimientos.COUNT("SerieLote") > 0 Then
params.Add(New ReportParameter("MostrarSerieLote", "1"))
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
Dim params As New List(Of ReportParameter)
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("NombreEntrego", Personal))
params.Add(New ReportParameter("Responsable", Personal))
params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))
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("LogoPath", logouri))
If DtMovimientos.COUNT("SerieLote") > 0 Then
params.Add(New ReportParameter("MostrarSerieLote", "1"))
Else
params.Add(New ReportParameter("MostrarSerieLote", "0"))
End If
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
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
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("CveConcepto", CveConcepto.ToString))
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("NombreEntrego", Capturo.ToUpper))
params.Add(New ReportParameter("NombreRecibio", Personal))
params.Add(New ReportParameter("Responsable", Personal))
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))
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
Dim params As New List(Of ReportParameter)
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", 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("Responsable", Personal))
params.Add(New ReportParameter("NombreRecibio", 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("LogoPath", logouri))
If DtMovimientos.COUNT("SerieLote") > 0 Then
params.Add(New ReportParameter("MostrarSerieLote", "1"))
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
Dim params As New List(Of ReportParameter)
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", 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("Responsable", Personal))
params.Add(New ReportParameter("NombreRecibio", 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("LogoPath", logouri))
If DtMovimientos.COUNT("SerieLote") > 0 Then
params.Add(New ReportParameter("MostrarSerieLote", "1"))
Else
params.Add(New ReportParameter("MostrarSerieLote", "0"))
End If
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
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
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("CveConcepto", CveConcepto.ToString))
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("NombreEntrego", Capturo.ToUpper))
params.Add(New ReportParameter("NombreRecibio", Personal))
params.Add(New ReportParameter("Responsable", Personal))
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))
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
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
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")
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 params As New List(Of ReportParameter)
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc"
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
Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.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
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))
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")
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
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
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter)

7
Contabilidad/RegPoliza.aspx.vb
View File

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

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

@@ -2252,7 +2252,7 @@
<Paragraph>
<TextRuns>
<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>
<FontFamily>Myriad Pro</FontFamily>
<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
' Modalidad = "A"
Modalidad = "A"
If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
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,

27
Ventas/Ventas.aspx.vb
View File

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