This commit is contained in:
2019-10-31 18:30:44 -07:00
5 changed files with 67 additions and 11 deletions

View File

@@ -443,7 +443,7 @@ Public Class ClsContPAQi
End If
' no puede ser menor el subtotal al IVA, para evitar numeros negativos, excepto VSH
If Not CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
If Not CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
If Math.Abs(SubTotal) < Math.Abs(IVA) Then
Return False
End If

View File

@@ -169,7 +169,7 @@ Partial Class Compras_RepNotasCredito
MsgError = "Ocurrio un Error al saldar el movimiento"
End If
If TC <> TCCompra AndAlso CveMoneda > 1 AndAlso UsaComplementaria Then
If TC <> TCCompra AndAlso CveMoneda > 1 Then
Dim difFluctuacion As Decimal = TC - TCCompra
Dim CveConceptoFluctua As Integer = 64 '64.ganacia, 65.perdida
Dim TipoMovtoFluctua As Boolean = True

View File

@@ -419,7 +419,7 @@
<Style />
</TextRun>
<TextRun>
<Value>=Year(Parameters!Fecha.Value)</Value>
<Value>=Year(Parameters!FechaInst.Value)</Value>
<Style />
</TextRun>
</TextRuns>
@@ -463,7 +463,7 @@
<Style />
</TextRun>
<TextRun>
<Value>=Day(Parameters!Fecha.Value)</Value>
<Value>=Day(Parameters!FechaInst.Value)</Value>
<Style />
</TextRun>
</TextRuns>
@@ -502,7 +502,7 @@
<Style />
</TextRun>
<TextRun>
<Value>= MonthName(Month(Parameters!Fecha.Value))</Value>
<Value>= MonthName(Month(Parameters!FechaInst.Value))</Value>
<Style />
</TextRun>
</TextRuns>
@@ -577,7 +577,11 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Año:</Value>
<Value>Año: </Value>
<Style />
</TextRun>
<TextRun>
<Value>= Year(Parameters!Fecha.Value)</Value>
<Style />
</TextRun>
</TextRuns>
@@ -617,7 +621,11 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Día:</Value>
<Value>Día: </Value>
<Style />
</TextRun>
<TextRun>
<Value>=Day(Parameters!Fecha.Value)</Value>
<Style />
</TextRun>
</TextRuns>
@@ -652,7 +660,11 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Mes:</Value>
<Value>Mes: </Value>
<Style />
</TextRun>
<TextRun>
<Value>= MonthName(Month(Parameters!Fecha.Value))</Value>
<Style />
</TextRun>
</TextRuns>
@@ -1725,6 +1737,40 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox48">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Fecha.Value</Value>
<Style>
<Format>d' de 'MMMM' de 'yyyy</Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox46</rd:DefaultName>
<Top>5.70014in</Top>
<Left>0.70708in</Left>
<Height>0.25in</Height>
<Width>3.03125in</Width>
<ZIndex>46</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Height>6.57167in</Height>
<Style />
@@ -1769,7 +1815,7 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Fecha">
<ReportParameter Name="FechaInst">
<DataType>DateTime</DataType>
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
@@ -1816,7 +1862,13 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Fecha">
<DataType>DateTime</DataType>
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<Language>Es-MX</Language>
<rd:ReportUnitType>Inch</rd:ReportUnitType>
<rd:ReportID>32a58a02-ed5a-499c-85e0-a4eefc333287</rd:ReportID>
</Report>

View File

@@ -2821,7 +2821,9 @@
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCodEnsamble" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<%--<asp:RequiredFieldValidator ID="RFVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%>
<asp:RegularExpressionValidator ID="REVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" ValidationExpression="^[0-9][A-HJ-M]([[0-2][1-9]|3[0-1])$"></asp:RegularExpressionValidator>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender2" TargetControlID="TxtCodEnsamble" FilterType="UppercaseLetters, Numbers,LowercaseLetters, Custom" runat="server" ValidChars="&Ñ" InvalidChars="-" />
<%--<asp:RequiredFieldValidator ID="RFVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%
<%--<ajax:ValidatorCalloutExtender ID="VCECodEnsamble" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodEnsamble"></ajax:ValidatorCalloutExtender>--%>
<label for="<%= TxtCodEnsamble.ClientID.ToString()%>">Cod.Ensamble:</label>
</div>
@@ -2868,6 +2870,7 @@
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCodInspeccion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<ajax:MaskedEditExtender TargetControlID="TxtCodInspeccion" ID="MEECodInspeccion" runat="server" Mask="L9?L" AutoComplete="True" AutoCompleteValue="0" />
<%--<asp:RequiredFieldValidator ID="RFVCodInspeccion" runat="server" ControlToValidate="TxtCodInspeccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod. Inspeccion''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%>
<%--<ajax:ValidatorCalloutExtender ID="VCECodInspeccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodInspeccion"></ajax:ValidatorCalloutExtender>--%>
<label for="<%= TxtCodInspeccion.ClientID.ToString()%>">Cod. Inspección:</label>

View File

@@ -5670,7 +5670,8 @@ Partial Class PV
params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
'Informacion de Garantia o ajuste
params.Add(New ReportParameter("Fecha", TxtFechaAjuste.Text.Trim))
params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim))
params.Add(New ReportParameter("Fecha", Now.ToShortDateString))
params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))