Compras Correcion al agregar ieps,

This commit is contained in:
rakcsle
2022-06-06 09:16:34 -07:00
parent 817c3c93ef
commit 4e75a12e3a
6 changed files with 56 additions and 116 deletions

View File

@@ -18432,9 +18432,16 @@ Partial Class Compras_Compras
End If
End If
If DrPS("CvePSCargo").ToString <> "" Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
CveTipoPS = 2
End If
Try
If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
CveTipoPS = 2
End If
Catch ex As Exception
End Try
Dim DecimalesPermitidos = 6

View File

@@ -416,7 +416,7 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>5.35332cm</Width>
<Width>7.35332cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.8cm</Width>
@@ -424,9 +424,6 @@
<TablixColumn>
<Width>1.8cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.99576cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.8cm</Width>
</TablixColumn>
@@ -549,41 +546,6 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox13">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>METODO</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
<Color>White</Color>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>#008204</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox31">
@@ -727,7 +689,7 @@
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.6cm</Height>
<Height>0.44125cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
@@ -825,38 +787,6 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="MetodoDePagoDR">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!MetodoDePagoDR.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>MetodoDePagoDR</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="MonedaDR">
@@ -902,10 +832,13 @@
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<Format>0.00;(0.00)</Format>
</Style>
</TextRun>
</TextRuns>
<Style />
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>NumParcialidad</rd:DefaultName>
@@ -1002,7 +935,6 @@
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
@@ -1017,8 +949,8 @@
</TablixRowHierarchy>
<DataSetName>DataSet2</DataSetName>
<Top>4.62704cm</Top>
<Height>1.09cm</Height>
<Width>20.5314cm</Width>
<Height>0.93125cm</Height>
<Width>20.53564cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
@@ -1693,7 +1625,7 @@
</TablixMembers>
</TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName>
<Top>6.16489cm</Top>
<Top>5.84739cm</Top>
<Height>1.69cm</Height>
<Width>20.5314cm</Width>
<ZIndex>2</ZIndex>
@@ -2115,11 +2047,6 @@
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!UUIDPago.Value</Value>
<Style>
@@ -2133,9 +2060,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Top>8.45084cm</Top>
<Height>3.43104cm</Height>
<Width>16.51969cm</Width>
<Top>7.94284cm</Top>
<Height>3.30199cm</Height>
<Width>16.51971cm</Width>
<ZIndex>5</ZIndex>
<Style>
<Border>
@@ -2162,7 +2089,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>8.18625cm</Top>
<Top>7.67825cm</Top>
<Height>0.0882cm</Height>
<Width>20.53564cm</Width>
<ZIndex>6</ZIndex>
@@ -2181,7 +2108,7 @@
<Source>External</Source>
<Value>=Parameters!QR.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>3.3271in</Top>
<Top>3.1271in</Top>
<Left>6.51771in</Left>
<Height>1.3in</Height>
<Width>1.5in</Width>
@@ -2207,8 +2134,8 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>12.02854cm</Top>
<Height>0.0882cm</Height>
<Top>11.36179cm</Top>
<Height>0.11466cm</Height>
<Width>20.5314cm</Width>
<ZIndex>8</ZIndex>
<Style>
@@ -2223,7 +2150,7 @@
</Style>
</Textbox>
</ReportItems>
<Height>12.29313cm</Height>
<Height>11.47645cm</Height>
<Style />
</Body>
<Width>20.53564cm</Width>
@@ -2478,7 +2405,7 @@
</Style>
</PageHeader>
<PageFooter>
<Height>0.84667cm</Height>
<Height>0.41981cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
@@ -2502,7 +2429,6 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox35</rd:DefaultName>
<Top>0.21343cm</Top>
<Left>17.09769cm</Left>
<Height>0.41981cm</Height>
<Width>2.94979cm</Width>
@@ -2549,7 +2475,6 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox29</rd:DefaultName>
<Top>0.21343cm</Top>
<Left>0.31132cm</Left>
<Height>0.41981cm</Height>
<Width>6.8491cm</Width>
@@ -2598,7 +2523,6 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName>
<Top>0.21343cm</Top>
<Left>9.1611cm</Left>
<Height>0.41981cm</Height>
<Width>6.02198cm</Width>

View File

@@ -2716,12 +2716,6 @@
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Ing. </Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>Ing. Hector Manuel Diaz Young</Value>
<Style>

View File

@@ -1113,6 +1113,8 @@ Partial Class General_SaldosIniciales
Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal
If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorCompras = True
If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
@@ -1211,7 +1213,7 @@ Partial Class General_SaldosIniciales
Dim DtClientes = New DataTable
'Dim ExisteVenta As Boolean = False
'Dim Contador As Integer = 0
DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa)
DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1)
Dim NoEncontrados As Integer = 0
Dim Encontrados As Integer = 0
Dim StrRFCNoencontrados As New StringBuilder
@@ -1220,6 +1222,7 @@ Partial Class General_SaldosIniciales
Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero
Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero
If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True
' If Not CveSucursal > 0 Then Alert("No se encontró la sucursal.", TipoMensaje.MsgError) : ErrorVentas = True
If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorVentas = True
@@ -1253,6 +1256,8 @@ Partial Class General_SaldosIniciales
Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString.ToDecimal, 4), 0)
Dim PedidoContrato As String = If(dt.Columns.Contains("Pedido"), Row("Pedido").ToString, "")
GuardaLog(Sucursal + "-" + Row("Folio").ToString)
'Temporalmente SE BORRARA
Dim Transaccion As String = "" ' Row("Transaccion2").ToString
@@ -1300,7 +1305,7 @@ Partial Class General_SaldosIniciales
0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero, CveSubProyectoEjecucion:=Sucursal.ToEntero,
CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS,
ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal) Then
ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal, PedidoContrato:=PedidoContrato) Then
ErrorVentas = True
Exit For
End If

View File

@@ -670,6 +670,10 @@
<asp:TextBox runat="server" ID="TxtSerie" ClientIDMode="Static" Width="200px" />
<asp:RequiredFieldValidator ID="RFVSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCESerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerie" Width="300px"></ajax:ValidatorCalloutExtender>
<asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ClientValidationFunction="TamanioSerie"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener un minimo de 6 caracteres." ValidationGroup="GrpAgregaSerie" />
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
<td width="80px" runat="server" id="TdCaducidad1">Fecha Caducidad:</td>
<td runat="server" id="TdCaducidad2">
@@ -1109,6 +1113,17 @@
}
}
function TamanioSerie(source, arguments) {
if (arguments.Value.trim().length >= 6) {
arguments.IsValid = true;
} else {
arguments.IsValid = false;
}
}
</script>
</asp:Content>

View File

@@ -340,17 +340,12 @@
<asp:HiddenField ID="HfCveUM" Value="" runat="server"/>
<div class="form-group form-md-line-input input-iconright" id="DivSerieEdit" runat="server">
<asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px" ClientIDMode="Static" ValidationGroup="GrpAgregaSerie" ></asp:TextBox>
<asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px" ClientIDMode="Static" ValidationGroup="GrpSerie"></asp:TextBox>
<label for="<%= TxtSerieLote.ClientID.ToString()%>">Serie:</label>
<asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerieLote" Display="Dynamic" ClientValidationFunction="TamanioSerie"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener un minimo de 6 caracteres." ValidationGroup="GrpAgregaSerie" />
<asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerieLote" Display="None" ClientValidationFunction="TamanioSerie"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener un minimo de 6 caracteres." />
<ajax:ValidatorCalloutExtender ID="VACOE1231" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px" ></ajax:ValidatorCalloutExtender>
</div>
<div class="form-group form-md-line-input input-iconright" id="DivLoteEdit" runat="server">
<asp:TextBox ID="TxtLoteEdit" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
@@ -372,10 +367,10 @@
</div>
<div class="modal-footer">
<asp:Button ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpAgregaSerie" CausesValidation="true" Text="Guardar" />
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<ContentTemplate>
<asp:Button ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" CausesValidation="true" ValidationGroup="GrpSerie" Text="Guardar" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>