This commit is contained in:
2024-01-20 18:33:25 -07:00
12 changed files with 2072 additions and 1719 deletions

View File

@@ -1419,7 +1419,7 @@ Public Class ClsVentas
Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Decimal = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1,
Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Decimal = 0, Optional PorcentajeRetIVA As Double = 0,
Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1,
Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0) As Boolean
Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0, Optional CantidadConversion As Decimal = 0) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_VentasDetalleAdd")
@@ -1453,6 +1453,7 @@ Public Class ClsVentas
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
.Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos
.Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen
.Add("@CantidadConversion", SqlDbType.Decimal).Value = CantidadConversion
End With
Try

View File

@@ -1563,7 +1563,7 @@
<Top>7.59855cm</Top>
<Left>0.06623cm</Left>
<Height>0.82958cm</Height>
<Width>20.31433cm</Width>
<Width>20.31432cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
@@ -1749,9 +1749,9 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.27425cm</Top>
<Left>0.06623cm</Left>
<Left>0.15384cm</Left>
<Height>0.5cm</Height>
<Width>8.01543in</Width>
<Width>7.93649in</Width>
<ZIndex>7</ZIndex>
<Style>
<Border>
@@ -4112,6 +4112,47 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox59">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Carta Porte 3.0</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.27425cm</Top>
<Left>16.42665cm</Left>
<Height>0.5cm</Height>
<Width>1.52986in</Width>
<ZIndex>19</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<BottomBorder>
<Color>Black</Color>
<Style>None</Style>
<Width>1pt</Width>
</BottomBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Height>7.00495in</Height>
<Style />
@@ -4363,7 +4404,7 @@
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
<Line Name="Line1">
<Top>0.03519cm</Top>
<Top>0.03518cm</Top>
<Left>0.06623cm</Left>
<Height>0cm</Height>
<Width>20.38566cm</Width>
@@ -4393,7 +4434,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Top>0.14102cm</Top>
<Top>0.14101cm</Top>
<Left>0.71425cm</Left>
<Height>0.54708cm</Height>
<Width>1.55632cm</Width>
@@ -4427,7 +4468,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.14102cm</Top>
<Top>0.14101cm</Top>
<Left>2.27057cm</Left>
<Height>0.54708cm</Height>
<Width>4.96223cm</Width>
@@ -4462,7 +4503,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Top>0.14102cm</Top>
<Top>0.14101cm</Top>
<Left>7.33864cm</Left>
<Height>0.54708cm</Height>
<Width>2.84562cm</Width>
@@ -4497,7 +4538,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.14102cm</Top>
<Top>0.14101cm</Top>
<Left>10.18425cm</Left>
<Height>0.54708cm</Height>
<Width>4.68641cm</Width>
@@ -4531,7 +4572,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.14455cm</Top>
<Top>0.14454cm</Top>
<Left>14.99343cm</Left>
<Height>0.54708cm</Height>
<Width>4.04906cm</Width>
@@ -4563,7 +4604,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.6881cm</Top>
<Top>0.68809cm</Top>
<Left>0.71425cm</Left>
<Height>0.54708cm</Height>
<Width>6.21751cm</Width>

View File

@@ -4846,6 +4846,30 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_CartaPorteVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_PesoBrutoVehicular">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_QRCCP">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="Logo">

File diff suppressed because it is too large Load Diff

View File

@@ -89,6 +89,10 @@
<DataField>CodigoAlterno</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PSAlterno">
<DataField>PSAlterno</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DsInventarios</rd:DataSetName>
@@ -367,7 +371,7 @@
<Value>=Fields!Cantidad.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<Format>#,0.00</Format>
<Format>#,0</Format>
<Language>es-MX</Language>
</Style>
</TextRun>
@@ -388,24 +392,19 @@
<PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Codigo">
<Textbox Name="PSAlterno">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!PS.Value</Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Value>=Fields!PSAlterno.Value</Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
@@ -416,7 +415,7 @@
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Codigo</rd:DefaultName>
<rd:DefaultName>PSAlterno</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
@@ -533,6 +532,177 @@
</TablixCell>
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.17667cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox32">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>8pt</FontSize>
<Language>es-MX</Language>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<VerticalAlign>Bottom</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox37">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox37</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<VerticalAlign>Bottom</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox39">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox39</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<VerticalAlign>Bottom</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox40">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox40</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<VerticalAlign>Bottom</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox41">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox41</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<VerticalAlign>Bottom</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.25604cm</Height>
<TablixCells>
@@ -578,6 +748,12 @@
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>CATALOGO </Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Fields!Codigo.Value</Value>
<Style>
@@ -750,7 +926,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Fabricante </Value>
<Value>FABRICANTE </Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
@@ -927,7 +1103,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Lote </Value>
<Value>LOTE </Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
@@ -1104,7 +1280,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Caducidad </Value>
<Value>CADUCIDAD </Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
@@ -1775,6 +1951,7 @@
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixMember>
<TablixMember>
@@ -1791,7 +1968,7 @@
<DataSetName>DsInventarios</DataSetName>
<Top>0.14111cm</Top>
<Left>0.10068cm</Left>
<Height>2.97953cm</Height>
<Height>3.1562cm</Height>
<Width>25.45761cm</Width>
<Style>
<Border>
@@ -1800,7 +1977,7 @@
</Style>
</Tablix>
</ReportItems>
<Height>1.29815in</Height>
<Height>1.46482in</Height>
<Style />
</Body>
<Width>10.19535in</Width>
@@ -2641,6 +2818,7 @@ CIUDAD DE MEXICO</Value>
</Style>
</Textbox>
<Line Name="Line5">
<Top>0cm</Top>
<Left>0.13678cm</Left>
<Height>0cm</Height>
<Width>20.28859cm</Width>
@@ -2652,6 +2830,7 @@ CIUDAD DE MEXICO</Value>
</Style>
</Line>
<Line Name="Line4">
<Top>0cm</Top>
<Left>0.13678cm</Left>
<Height>0cm</Height>
<Width>25.72414cm</Width>

View File

@@ -86,10 +86,10 @@
</div>
<div class="tools">
<asp:Button ID="BtnBuscar" runat="server" Text="Buscar" OnClick="BtnBuscar_Click" ValidationGroup="GrpBuscar" class="btn btn-primary" />
</div>
</div>
<div class="portlet-body" style="display: none;">
<div class="portlet-body" style="display: none;">
</div>
</div>
</asp:Panel>
@@ -315,16 +315,16 @@
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Ventas por surtir</span>
<code style="font-family: Menlo,Monaco,Consolas,'Courier New',monospace; font-size: 10px">
<asp:Literal Text="" runat="server" ID="LtActualizado" />
</code>
&nbsp
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Ventas por surtir</span>
<code style="font-family: Menlo,Monaco,Consolas,'Courier New',monospace; font-size: 10px">
<asp:Literal Text="" runat="server" ID="LtActualizado" />
</code>
&nbsp
</div>
<div class="actions">
<div class="btn-group">
@@ -333,7 +333,7 @@
<div class="tools">
<asp:Panel runat="server" DefaultButton="BtnConsultarPendientes">
<input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GVPendientes.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 70px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GVPendientes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
&nbsp
@@ -545,7 +545,15 @@
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
<asp:HyperLinkField HeaderText="Producto o Servicio" Target="_blank" DataTextField="CodigoPS" DataNavigateUrlFields="CvePS" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" ItemStyle-HorizontalAlign="Left" />
<%-- <asp:HyperLinkField HeaderText="Producto o Servicio" Target="_blank" DataTextField="CodigoPS" DataNavigateUrlFields="CvePS" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" ItemStyle-HorizontalAlign="Left" />--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>
<asp:Literal ID="LtlHeaderPS" Text="Producto o Servicio" runat="server"></asp:Literal>
</HeaderTemplate>
<ItemTemplate>
<asp:HyperLink ID="HplPS" runat="server" Target="_blank" Text='<%# Eval("CodigoPS", "{0}") %>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Observación" DataField="ObservacionesDetalle" ItemStyle-Width="7.5%" />
<asp:TemplateField HeaderText="Sección" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">

View File

@@ -434,16 +434,16 @@ Partial Class Inventarios_EntregaAlmacen
CveVentaAD = -1
If UsuarioActual.CveUsuario <> 100 Then
Exit Sub
End If
'If UsuarioActual.CveUsuario <> 100 Then
' Exit Sub
'End If
If Not IsNothing(Request("CveVenta")) AndAlso IsNumeric(Request("CveVenta")) Then
CveVentaAD = Request("CveVenta").ToEntero()
CargaVentaPorSurtir(Request("CveVenta").ToEntero())
LbSurtida.Visible = True
LbSurtida.Text = "SOLO MODO VISUAL"
BtnGuardar.Visible = False
'LbSurtida.Visible = True
'LbSurtida.Text = "SOLO MODO VISUAL"
'BtnGuardar.Visible = False
End If
End Sub
@@ -1015,9 +1015,31 @@ Partial Class Inventarios_EntregaAlmacen
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.Header Then
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
If DtDatos IsNot Nothing Then
If DtDatos.MAX("EsPaquete") = "True" Then
e.Row.FCLiteral("LtlHeaderPS").Text = "Paquete"
Else
e.Row.FCLiteral("LtlHeaderPS").Text = "Producto"
End If
End If
End If
End If
If e.Row.RowType = DataControlRowType.DataRow Then
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
If e.Row.DBCampo("EsPaquete") = "True" Then
e.Row.FCHyperLink("HplPS").NavigateUrl = $"/Inventarios/PaquetesArmadoDesarmado.aspx?CvePS={e.Row.DBCampo("CvePS")}&Cantidad={e.Row.DBCampo("CantidadF")}"
Else
e.Row.FCHyperLink("HplPS").NavigateUrl = $"/Ventas/ProductosServicios.aspx?CvePS={e.Row.DBCampo("CvePS")}"
End If
Else
e.Row.FCHyperLink("HplPS").NavigateUrl = $"/Ventas/ProductosServicios.aspx?CvePS={e.Row.DBCampo("CvePS")}"
End If
'código temporal
Dim AplicaSerie As Boolean = CBool(e.Row.DBCampo("AplicaSerie"))

View File

@@ -130,6 +130,15 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
InicializaValores()
If Request("CvePS") IsNot Nothing Then
DdlPaqueteArmado.SelectedValueExist(Request("CvePS").ToString())
End If
If Request("Cantidad") IsNot Nothing Then
TxtCantidadArmado.Text = Request("Cantidad").ToString()
End If
End If
End Sub

View File

@@ -174,24 +174,25 @@
</div>
<div class="row" >
<div class="row">
<div class="col-md-2" style="margin-top: 5px" >
<div class="col-md-2" style="margin-top: 5px">
<b>Dirección:</b>
</div>
<div class="col-md-4" style="margin-top: 5px" >
<asp:TextBox ID="TxtDireccion" runat="server" MaxLength="300" CssClass="form-control" Height="25px" />
<div class="col-md-4" style="margin-top: 5px">
<asp:TextBox ID="TxtDireccion" runat="server" MaxLength="300" CssClass="form-control" Height="25px" />
</div>
<div class="col-md-2" style="margin-top: 5px" id="DVDatosAdicionalesAcum1" runat="server" visible="false" >
<div class="col-md-2" style="margin-top: 5px" id="DVDatosAdicionalesAcum1" runat="server" visible="false">
<b>Telefono:</b>
</div>
<div class="col-md-4" style="margin-top: 5px" id="DVDatosAdicionalesAcum3" runat="server" visible="false" >
<div class="col-md-4" style="margin-top: 5px" id="DVDatosAdicionalesAcum3" runat="server" visible="false">
<asp:TextBox ID="TxtTelefono" CssClass="form-control" runat="server" MaxLength="10"></asp:TextBox>
<ajax:MaskedEditExtender ID="MaskedEditExtender4" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
</div>
<div class="col-md-6" style="margin-top: 5px">
</div>
</div>
<div class="row" id="DVDatosAdicionalesAcum2" runat="server" visible="false">
@@ -239,22 +240,32 @@
</div>
<div class="row" id="DVTipoVenta" runat="server" visible="false">
<div class="col-md-2" style="margin-top: 5px">
<div class="row">
<div class="col-md-2" style="margin-top: 5px" id="DVTipoVenta1" runat="server" visible="false" >
<b>Tipo de Venta:</b>
</div>
<div class="col-md-4" style="margin-top: 5px; text-align: left">
<div class="col-md-4" style="margin-top: 5px; text-align: left" id="DVTipoVenta2" runat="server" visible="false" >
<asp:DropDownList ID="DdlTipoVenta" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="TipoVenta" DataValueField="CveTipoVenta">
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-6" style="margin-top: 5px">
<div class="col-md-2" style="margin-top: 5px" id="DVUsuarioAtendio1" runat="server">
<b>Técnico:</b>
</div>
<div class="col-md-3" style="margin-top: 5px" id="DVUsuarioAtendio2" runat="server">
<asp:DropDownList ID="DdlUsuarioAtendio" runat="server" CssClass="form-control select2me" DataTextField="Nombre" DataValueField="CveUsuario" Enabled="false"></asp:DropDownList>
</div>
<div class="col-md-1" style="margin-top: 5px" id="DVUsuarioAtendio3" runat="server" visible="false">
<asp:LinkButton runat="server" ID="LnkActualizarUsaurioAtendio" OnClick="LnkActualizarUsaurioAtendio_Click" data-toggle="confirmation" data-popout="true"
data-original-title="¿Está seguro que desea actualizar el Técnico de la factura?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>"
CssClass="btn btn-default btn-circle btn-xs" ToolTip="Actualizar Técnico" />
</div>
</div>

View File

@@ -460,8 +460,10 @@ Partial Class OS_OrdenesServicios
End If
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
DVAMedicoProcedimiento.Visible = True
DVTipoVenta.Visible = True
DVTipoVenta1.Visible = True
DVTipoVenta2.Visible = True
DvFechaRecivido1.Visible = False
DvFechaRecivido2.Visible = False
@@ -471,6 +473,11 @@ Partial Class OS_OrdenesServicios
DVEpisodioPaciente.Visible = True
If CveOS > 0 And TipoEstatus >= 3 Then
DdlUsuarioAtendio.Enabled = True
DVUsuarioAtendio3.Visible = True
End If
End If
End If
@@ -653,6 +660,7 @@ Partial Class OS_OrdenesServicios
TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero
SeFacturara = GlobalDTTipoOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SeFacturara", String.Format("CveOrdenServicioTipo = {0}", ObjOS.CveOSTipo))
CveTecnico = ObjOS.CveUsuarioAtendio
DdlUsuarioAtendio.SelectedValueExist(CveTecnico)
CargarEstatusDelUsuario(TipoEstatus)
CveVenta = ObjOS.CveVenta
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
@@ -674,7 +682,7 @@ Partial Class OS_OrdenesServicios
DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString
'If TipoEstatus = 2 Then
' LnkTecnico.Visible = True
LnkTecnico.Visible = True
'End If
If TipoEstatus = 3 Then
@@ -2897,6 +2905,12 @@ Partial Class OS_OrdenesServicios
DdlTecnico.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlTecnico.DataBind()
DdlTecnico.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlUsuarioAtendio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioAtendio.DataBind()
DdlUsuarioAtendio.Items.Insert(0, New ListItem("Sin Asignar", "-1"))
End Sub
Private Sub LnkTecnico_Click(sender As Object, e As EventArgs) Handles LnkTecnico.Click
RegistraScript(String.Format("$('#{0}').modal('show');", "DivCambiarTecnico"))
@@ -3341,4 +3355,31 @@ Partial Class OS_OrdenesServicios
End Sub
End Class
Protected Sub LnkActualizarUsaurioAtendio_Click(sender As Object, e As EventArgs)
Dim ObjOs As New ClsOS
Dim ProcesoOk As Boolean = True
If DdlUsuarioAtendio.SelectedValue.ToEntero > 0 Then
For Each GvRow As GridViewRow In GvPS.Rows
If Not ObjOs.UpdateOrdenesServiciosAsignadas(GvRow.DataKey("CveOSDetalle").ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, MinFecha, DateTime.Parse(MinFecha.ToShortDateString), UsuarioActual.CveEmpresa) Then
ProcesoOk = False
Alert($"Se presento un error al actualizar el técnico.")
Exit For
End If
Next
If ProcesoOk Then
Alert($"Técnico actualizado correctamenrte a {DdlUsuarioAtendio.SelectedItem.Text}.")
End If
Else
Alert("Debe de seleccionar un ténico para actualziar", TipoMensaje.MsgAdvertencia)
End If
ObjOs.Dispose()
End Sub
End Class

View File

@@ -5,6 +5,11 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
<style>
.v-center {
display: flex;
align-items: center;
}
.btn-xs {
padding: 0px 5px;
}
@@ -2568,35 +2573,28 @@
</div>
<div class="portlet-body">
<div class="rowpadding">
<asp:UpdatePanel ID="UpComercioExterior" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<label class="col-md-2 form-group form-md-line-input">Tipo Operación:</label>
<div class="col-md-4 form-group form-md-line-input">
<label class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">Tipo Operación:</label>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:Label ID="LblTipoOperacion" runat="server"></asp:Label>
</div>
<label class="col-md-2 form-group form-md-line-input">Clave Pedimento:</label>
<div class="col-md-4 form-group form-md-line-input">
<label class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">Clave Pedimento:</label>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:Label ID="LblClavePedimento" runat="server"></asp:Label>
</div>
</div>
<div class="row">
<div class="col-md-2 form-group form-md-line-input col-md-offset-3">
<div class="col-md-2 form-group form-md-line-input v-venter">
<label>Incoterm:</label>
</div>
<div class="col-md-4 form-group form-md-line-input col-md-offset-3">
<div class="col-md-4 form-group form-md-line-input v-venter" style="margin-top: 0px; padding-top: 0px;">
<asp:DropDownList ID="DdlIncoterm" CssClass="form-control select2me" AppendDataBoundItems="true" Width="100%" runat="server" DataTextField="ClaveSATIncotermDescripcion" DataValueField="CveIncoterm">
</asp:DropDownList>
</div>
</div>
<div class="row">
<%-- <label class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">Motivo Traslado:</label>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:DropDownList ID="DdlSATMotivoTraslado" Width="100%" runat="server" CssClass="select2me" DataTextField="ClaveSATMotivoTrasladoDescripcion" DataValueField="CveMotivoTraslado"></asp:DropDownList>
</div>--%>
<label class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">Num Reg IdTrib:</label>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<label class="col-md-2 form-group form-md-line-input v-venter">Num Reg IdTrib:</label>
<div class="col-md-4 form-group form-md-line-input v-venter" style="margin-top: 0px; padding-top: 0px;">
<asp:TextBox ID="TxtNumRegIdTrib" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div>
</div>
@@ -2605,63 +2603,60 @@
<asp:UpdatePanel ID="UPPDestina" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-2 form-group form-md-line-input"><span>Nombre:</span></div>
<div class="col-md-4 form-group form-md-line-input">
<div class="col-md-2 form-group form-md-line-input v-venter"><span>Nombre:</span></div>
<div class="col-md-10 form-group form-md-line-input v-venter" style="margin-top: 0px; padding-top: 0px;">
<asp:TextBox ID="TxtDestinatarioNombre" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div>
</div>
<div class="row">
<div class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;"><span>Calle:</span></div>
<div class="col-md-4 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<div class="col-md-2 form-group form-md-line-input v-venter"><span>Calle:</span></div>
<div class="col-md-4 form-group form-md-line-input v-venter" style="margin-top: 0px; padding-top: 0px;">
<asp:TextBox ID="TxtComExtCalle" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div>
<div class="col-md-1 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;"><span>Núm.</span></div>
<div class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:TextBox ID="TxtComExtNumero" CssClass="form-control input-sm" runat="server" Width="55px"></asp:TextBox>
<div class="col-md-1 form-group form-md-line-input v-venter"><span>Núm.</span></div>
<div class="col-md-2 form-group form-md-line-input v-venter" style="margin-top: 0px; padding-top: 0px;">
<asp:TextBox ID="TxtComExtNumero" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div>
<div class="col-md-1 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;"><span>CP.</span></div>
<div class="col-md-2 form-group form-md-line-input" style="margin-top: 0px; padding-top: 0px; display: inline-block;">
<asp:TextBox ID="TxtComExtCP" CssClass="form-control input-sm" runat="server" Width="65px"></asp:TextBox>
<div class="col-md-1 form-group form-md-line-input v-venter"><span>CP.</span></div>
<div class="col-md-2 form-group form-md-line-input v-venter" style="margin-top: 0px; padding-top: 0px;">
<asp:TextBox ID="TxtComExtCP" CssClass="form-control input-sm" runat="server" Width="100%"></asp:TextBox>
</div>
</div>
<div class="row">
<div class="col-md-2 form-group form-md-line-input"><span>Pais:</span></div>
<div class="col-md-4 form-group form-md-line-input">
<div class="col-md-2 form-group form-md-line-input v-venter"><span>Pais:</span></div>
<div class="col-md-4 form-group form-md-line-input v-venter" style="margin-top: 0px; padding-top: 0px;">
<asp:DropDownList ID="DdlComExtPais" AutoPostBack="true" OnSelectedIndexChanged="DdlPais_SelectedIndexChanged" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATPaisDescripcion" DataValueField="CvePais"></asp:DropDownList>
<asp:TextBox ID="TxtComExtPais" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
<div class="col-md-2 form-group form-md-line-input"><span>Estado:</span></div>
<div class="col-md-4 form-group form-md-line-input">
<div class="col-md-2 form-group form-md-line-input v-venter"><span>Estado:</span></div>
<div class="col-md-4 form-group form-md-line-input v-venter" style="margin-top: 0px; padding-top: 0px;">
<asp:DropDownList ID="DdlComExtEstado" AutoPostBack="true" OnSelectedIndexChanged="DdlEstado_SelectedIndexChanged" Visible="false" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATEstadoNombreEstado" DataValueField="CveEstado"></asp:DropDownList>
<asp:TextBox ID="TxtComExtEstado" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
</div>
<div class="row">
<div class="col-md-2 form-group form-md-line-input"><span>Municipio:</span></div>
<div class="col-md-4 form-group form-md-line-input">
<div class="col-md-2 form-group form-md-line-input v-venter"><span>Municipio:</span></div>
<div class="col-md-4 form-group form-md-line-input v-venter" style="margin-top: 0px; padding-top: 0px;">
<asp:DropDownList ID="DdlComExtMunicipio" AutoPostBack="true" OnSelectedIndexChanged="DdlMunicipio_SelectedIndexChanged" Visible="false" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="ClaveSATMunicipioDescripcion" DataValueField="CveMunicipio"></asp:DropDownList>
<asp:TextBox ID="TxtComExtMunicipio" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
<div class="col-md-2 form-group form-md-line-input"><span>Colonia:</span></div>
<div class="col-md-4 form-group form-md-line-input">
<div class="col-md-2 form-group form-md-line-input v-venter"><span>Colonia:</span></div>
<div class="col-md-4 form-group form-md-line-input v-venter" style="margin-top: 0px; padding-top: 0px;">
<asp:DropDownList ID="DdlComExtColonia" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" Visible="false" runat="server" DataTextField="ClaveSATColoniaNombreAsentamiento" DataValueField="CveColonia"></asp:DropDownList>
<asp:TextBox ID="TxtComExtColonia" CssClass="form-control input-sm" runat="server" Width="100%" Visible="false"></asp:TextBox>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div class="row rowpadding">
<div class="col-md-2 form-group form-md-line-input"><span>Aplica Destinatario:</span></div>
<div class="col-md-2 form-group form-md-line-input">
<div class="col-md-2 form-group form-md-line-input v-venter"><span>Aplica Destinatario:</span></div>
<div class="col-md-4 form-group form-md-line-input v-venter">
<asp:CheckBox ID="ChkAplicaDestinatario" runat="server" CssClass="chksino" Text=" " OnCheckedChanged="ChkAplicaDestinatario_CheckedChanged" AutoPostBack="true" Checked="false" />
</div>
</div>
<div class="row rowpadding">
<div class="col-md-2 form-group form-md-line-input" id="DivLblDestino" runat="server" visible="false"><span>Destino:</span></div>
<div class="col-md-4 form-group form-md-line-input" id="DivDdlDestino" runat="server" visible="false">
<div class="col-md-2 form-group form-md-line-input v-venter" id="DivLblDestino" runat="server" visible="false"><span>Destino:</span></div>
<div class="col-md-4 form-group form-md-line-input v-venter" id="DivDdlDestino" runat="server" visible="false">
<asp:DropDownList ID="DdlDirecionDestinatario" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="DireccionEnvioContacto" DataValueField="CveDireccionEnvio"></asp:DropDownList>
</div>
</div>
@@ -2674,20 +2669,20 @@
<Columns>
<asp:TemplateField HeaderText="Cantidad">
<ItemTemplate>
<asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:#,##0.##}") %>' Width="50px"></asp:TextBox>
<asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("CantidadConversion", "{0:#,##0.##}") %>' Width="50px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="CodigoPS" HeaderText="Producto ó Servicio" />
<asp:TemplateField HeaderText="Valor Unitario">
<ItemTemplate>
<asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU") %>' Width="60px"></asp:TextBox>
<asp:TextBox ID="TxtValorUnitario" runat="server" Width="60px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="ClaveSATFraccionArancelariaDescripcion" HeaderText="Fracción Arancelaria" />
<asp:BoundField DataField="ClaveSATUnidadAduanaDescripcion" HeaderText="Unidad Aduana" />
<asp:TemplateField HeaderText="Total USD">
<ItemTemplate>
<asp:Label ID="LblTotalUSD" Text='<%# (CDbl(Eval("Cantidad").ToString) * CDbl(Eval("PU").ToString)).ToString("N2") %>' runat="server"></asp:Label>
<asp:Label ID="LblTotalUSD" runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Marca">

View File

@@ -2720,15 +2720,15 @@ Partial Class Ventas
If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
Using ObjVentas As New ClsCGame()
Using ObjCGame As New ClsCGame()
If ObjVentas.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
If ObjCGame.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
DdlSubProyectoDatos.SelectedValueExist(ObjCGame.DtResultados.Rows(0)("CveSubProyecto").ToString())
End If
If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
GvPS.DataSource = ObjVentas.DtResultados
TmpDT = ObjVentas.DtResultados
If ObjCGame.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
GvPS.DataSource = ObjCGame.DtResultados
TmpDT = ObjCGame.DtResultados
GvPS.DataBind()
End If
@@ -10127,6 +10127,40 @@ Partial Class Ventas
End If
End If
Try
ViewState("CveVenta") = ObjFactura.CveVenta
If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then
End If
End If
If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then
End If
End If
Catch ex As Exception
OnError("Ocurrió un error al actualizar el embarque", ex)
ErrorList.Add("Ocurrió un error al actualizar el embarque")
End Try
Try
ViewState("CveVenta") = ObjFactura.CveVenta
If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then
If ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveOrdenProduccion").ToEntero()) Then
End If
End If
Catch ex As Exception
OnError("Ocurrió un error al actualizar la orden de producción", ex)
ErrorList.Add("Ocurrió un error al actualizar la orden de producción")
End Try
'ContPAQ El movimiento 1 es el de Venta
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
AutoConta = AutocontaMatriz(AutoConta)
@@ -10184,36 +10218,7 @@ Partial Class Ventas
' OnError("Ocurrió un error al mandar las notificaciones de autorización", ex)
'End Try
Try
ViewState("CveVenta") = ObjFactura.CveVenta
If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then
End If
End If
If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then
End If
End If
Catch ex As Exception
OnError("Ocurrió un error al actualizar el embarque", ex)
End Try
Try
ViewState("CveVenta") = ObjFactura.CveVenta
If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then
If ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveOrdenProduccion").ToEntero()) Then
End If
End If
Catch ex As Exception
OnError("Ocurrió un error al actualizar la orden de producción", ex)
End Try
Try
Dim DirectoriArchivoXML As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto) ' System.IO.Path.Combine()
@@ -13420,7 +13425,7 @@ Partial Class Ventas
CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(), IEPS:=Row("ImporteIEPS").ToString().ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString().ToEntero(), ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDecimal,
PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal,
PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(),
CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal(), EstatusAlmacen:=EsatusAlmacen) Then
CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal(), EstatusAlmacen:=EsatusAlmacen, CantidadConversion:=Row("CantidadConversion").ToString().ToDecimal()) Then
ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
Exit For
Else
@@ -18199,7 +18204,7 @@ Partial Class Ventas
Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CuentaPredial As String = "",
Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional SeActualiza As Boolean = False, Optional CvePromocionDetalle As Integer = -1, Optional EsCargo As Boolean = False,
Optional ImporteProntoPago As Decimal = 0, Optional ByRef ObjDescuento As Modelos.VentaDescuentos = Nothing, Optional CvePrecioLista As Integer = -1, Optional PrecioLista As String = "",
Optional CveActivoFijo As Integer = -1, Optional AFDepreciacion As Decimal = 0D, Optional AFValorInicial As Decimal = 0D, Optional NumTurnos As Decimal = 0D) As Boolean
Optional CveActivoFijo As Integer = -1, Optional AFDepreciacion As Decimal = 0D, Optional AFValorInicial As Decimal = 0D, Optional NumTurnos As Decimal = 0D, Optional CantidadConversion As Decimal = 0) As Boolean
Dim Retorno As Boolean = False
Try
@@ -18458,6 +18463,16 @@ Partial Class Ventas
Row("CodigoAlterno") = DrPS("CodigoAlterno")
Row("PSAlterno") = DrPS("PSAlterno")
'SI NO SE UTILIZA LA CONVERSION, UTILIZA LA CANTIDAD
If CantidadConversion = 0 Then
If DrPS("PesoKg").ToString().ToDecimal() > 0 Then
CantidadConversion = DrPS("PesoKg").ToString().ToDecimal()
Else
CantidadConversion = Cantidad
End If
End If
Row("CantidadConversion") = CantidadConversion
If UsuarioActual.CveEmpresa.Contiene(119, 13, 83) Then
If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA
@@ -18704,7 +18719,9 @@ Partial Class Ventas
TmpDT.Columns.Add("CodigoAlterno", GetType(String))
TmpDT.Columns.Add("PSAlterno", GetType(String))
'USO PARA COMERCIO EXTERIOR
TmpDT.Columns.Add("CantidadConversion", GetType(Decimal))
TmpDT.Columns("CantidadConversion").DefaultValue = 0
End Sub
Private Sub CreaDTmpC()
DTmpC = New DataTable
@@ -29671,6 +29688,24 @@ Partial Class Ventas
Protected Sub GvComercioExterior_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
Dim CantidadConversion = CDbl(e.Row.DBCampo("CantidadConversion"))
Dim CantidadBase = CDbl(e.Row.DBCampo("Cantidad"))
Dim PUBase = CDbl(e.Row.DBCampo("PU"))
Dim TotalUSD = (CantidadBase * PUBase)
e.Row.FCLabel("LblTotalUSD").Text = TotalUSD.ToString("N2")
If CantidadConversion <> CantidadBase Then
If CantidadConversion > 0 Then
e.Row.FCTextBox("TxtValorUnitario").Text = (TotalUSD / CantidadConversion).ToString("N6")
Else
e.Row.FCTextBox("TxtValorUnitario").Text = PUBase.ToString("N2")
End If
Else
e.Row.FCTextBox("TxtValorUnitario").Text = PUBase.ToString("N2")
End If
e.Row.FCTextBox("TxtValorUnitario").Attributes.Add("onkeyup", $"CalculaTotalUSD({e.Row.FCLabel("LblTotalUSD").ClientID}, this,{e.Row.FCTextBox("TxtCantidad").ClientID});")
End If
End Sub