Edicion de remision en el punto de venta
This commit is contained in:
@@ -14,6 +14,7 @@ Imports System.Net
|
||||
Imports System.IO.Compression
|
||||
Imports System.Text
|
||||
Imports System.Net.Http
|
||||
Imports System.Collections.Generic
|
||||
|
||||
Namespace Modelos
|
||||
|
||||
@@ -539,7 +540,64 @@ Namespace Modelos
|
||||
Public Property CveEstatus As Integer
|
||||
|
||||
End Class
|
||||
Public Function RegenerarPrePolizas(Optional TransaccionCompartida As SqlClient.SqlTransaction = Nothing, Optional ObjACTransac As ClsContPAQi = Nothing) As Boolean
|
||||
Dim ErrorPrePolizas As Boolean = False
|
||||
|
||||
Dim ObjVentas As ClsVentas = Nothing
|
||||
If TransaccionCompartida IsNot Nothing Then
|
||||
ObjVentas = New ClsVentas(TransaccionCompartida)
|
||||
Else
|
||||
ObjVentas = New ClsVentas()
|
||||
ObjVentas.IniciaTransacSQL()
|
||||
End If
|
||||
|
||||
Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
|
||||
Dim ObjBancos As New ClsBancos(ObjVentas.IniciaTransacSQL())
|
||||
Dim ObjEventos As New ClsOIEventos(ObjVentas.IniciaTransacSQL())
|
||||
Dim ObjAC As ClsContPAQi = Nothing
|
||||
|
||||
If ObjACTransac Is Nothing Then
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
|
||||
End If
|
||||
Else
|
||||
ObjAC = ObjACTransac
|
||||
End If
|
||||
|
||||
ErrorPrePolizas = Not RegeneracionPolizas(Me, ObjVentas, ObjAC, ObjConta, ObjBancos, ObjEventos)
|
||||
|
||||
If TransaccionCompartida Is Nothing Then
|
||||
ObjVentas.Commit()
|
||||
ObjVentas.Dispose()
|
||||
ObjBancos.Dispose()
|
||||
ObjEventos.Dispose()
|
||||
End If
|
||||
|
||||
If ObjACTransac Is Nothing Then
|
||||
If ObjAC IsNot Nothing Then
|
||||
ObjAC.Commit()
|
||||
ObjAC.Dispose()
|
||||
End If
|
||||
End If
|
||||
|
||||
Return Not ErrorPrePolizas
|
||||
End Function
|
||||
Private Function RegeneracionPolizas(ObjFactura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjAC As ClsContPAQi, ByRef ObjConta As ClsContabilidad, ObjBancos As ClsBancos, ObjEventos As ClsOIEventos) As Boolean
|
||||
Dim ErrorPrePolizas As Boolean = False
|
||||
|
||||
'REMOVEMOS LOS CONCEPTOS DE LA PREPOLIZA
|
||||
ErrorPrePolizas = Not ObjConta.RemovePrePolizasDetalle(ObjFactura.CvePrePoliza, -1, ObjFactura.CveVenta, 2)
|
||||
|
||||
'VUELVE A GENERAR LAS PREPOLIZAS
|
||||
If Not ErrorPrePolizas Then
|
||||
ErrorPrePolizas = ProcesoPrepolizas(ObjFactura, ObjConta, -1, ObjFactura.DtDetalle, ObjAC, ValorMultiplicador:=1, ObjBancos:=ObjBancos, ObjVentas:=ObjVentas, ObjEventos:=ObjEventos, DtRemisionesRelacionadas:=New DataTable, SeCancelaRemisionProceso:=False,
|
||||
CancelarRemisiones:=False, ListaRemisionesCancelar:=New List(Of Integer))
|
||||
End If
|
||||
|
||||
If Not ErrorPrePolizas Then ErrorPrePolizas = GuardarVentaImpuestosLocales(ObjFactura, ObjVentas, ObjConta, 1)
|
||||
|
||||
Return Not ErrorPrePolizas
|
||||
End Function
|
||||
Public Function EmitirFactura(Optional Timbrar As Boolean = True, Optional Transac As SqlClient.SqlTransaction = Nothing, Optional ObjContPaqTransac As ClsContPAQi = Nothing) As MMensajeFactura
|
||||
Dim Retorno As New MMensajeFactura()
|
||||
|
||||
@@ -1059,7 +1117,7 @@ Namespace Modelos
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, Optional GetBytes As Boolean = true) As Byte()
|
||||
Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, Optional GetBytes As Boolean = True) As Byte()
|
||||
Dim Url = New Uri(String.Format("http://{0}:{1}/Compras/PopUpVerFactura.aspx?P={2}", HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
|
||||
Dim File As Byte() = Nothing
|
||||
Try
|
||||
|
||||
@@ -621,7 +621,8 @@
|
||||
<th runat="server" visible="false" id="nomostrar2"></th>
|
||||
</tr>
|
||||
</table>
|
||||
<asp:GridView ID="GvPS" GridLines="None" runat="server" data-tableheader="#tbps" ShowHeader="true" AutoGenerateColumns="False" DataKeyNames="Consec,CvePS,Total, IEPS, CveClasificacion,CveUM,CveProyecto,CveSubProyecto,TipoDocto,PS,Obs,Cantidad,PU,Descuento,IVA,CantidadInventario,CantidadFacturadaRem" CssClass="table table-striped table-advance table-hover Widthall Sortable mysmallbtn ScrollAD" Style="min-width: 980px;">
|
||||
<asp:GridView ID="GvPS" GridLines="None" runat="server" data-tableheader="#tbps" ShowHeader="true" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveVentaDetalle,Consec,CvePS,Total, IEPS, CveClasificacion,CveUM,CveProyecto,CveSubProyecto,TipoDocto,PS,Obs,Cantidad,PU,Descuento,IVA,CantidadInventario,CantidadFacturadaRem,EsCargo" CssClass="table table-striped table-advance table-hover Widthall Sortable mysmallbtn ScrollAD" Style="min-width: 980px;">
|
||||
<Columns>
|
||||
<%--0--%>
|
||||
<asp:TemplateField ItemStyle-Font-Size="6pt">
|
||||
@@ -1331,12 +1332,18 @@
|
||||
</div>
|
||||
<div class="portlet-body formnombottom">
|
||||
<table border="0" align="center">
|
||||
<tr>
|
||||
<tr id="TrEmitir" runat="server">
|
||||
<td>
|
||||
<asp:Button ID="BtnEmitirImprimir" runat="server" Text="Emitir e Imprimir" Style="width: 170px; padding-right: 30px;" CssClass="btn btn-primary" ValidationGroup="GrpEmitirImprimir" />
|
||||
<i class=" fa-print fa " style="margin-left: -30px; margin-top: 10px; color: white;"></i>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Button ID="BtnEditarRemision" runat="server" Text="Actualizar Remision" CssClass="btn myventasbutton btn-primary" Visible="false" />
|
||||
<asp:Button ID="BtnPermisoEditarRemision" runat="server" Text="Editar Remision" CssClass="btn myventasbutton btn-primary" Visible="false" />
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
@@ -2673,7 +2680,7 @@
|
||||
<asp:TextBox ID="TxtAnioVehiculo" runat="server" Height="100%" Width="100%" CssClass="form-control" CausesValidation="true" MaxLength="500"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class ="row">
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<label>Tipo Servicio:</label>
|
||||
<br />
|
||||
@@ -2807,7 +2814,7 @@
|
||||
<a href="javascript;" class="collapse" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" style="display:none;">
|
||||
<div class="row" style="display: none;">
|
||||
<div class="col-md-12">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlFacturas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="SerieFolio" DataValueField="CveVenta" OnSelectedIndexChanged="DdlFacturas_SelectedIndexChanged" Width="100%" AutoPostBack="true">
|
||||
@@ -2818,7 +2825,7 @@
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-5">
|
||||
<div >
|
||||
<div>
|
||||
<label for="<%= DdlDistribuidor.ClientID.ToString()%>">Distribuidor:</label><br />
|
||||
<ADS:Dropdownlost ID="DdlDistribuidor" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
|
||||
</div>
|
||||
@@ -2827,8 +2834,7 @@
|
||||
<div class="row">
|
||||
<div class="col-md-9">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<ADS:DropDownLost ID="DdlPSAjuste" CssStyle="width: 100%;" CssClass=" form-control input-sm DdlPS" IncluyeTodos="false" CssClassDdl="select2me form-control" runat="server" CausesValidation="true" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange="DdlPSAjuste_selectedindexchange" >
|
||||
</ADS:DropDownLost>
|
||||
<ADS:Dropdownlost ID="DdlPSAjuste" CssStyle="width: 100%;" CssClass=" form-control input-sm DdlPS" IncluyeTodos="false" CssClassDdl="select2me form-control" runat="server" CausesValidation="true" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange="DdlPSAjuste_selectedindexchange"></ADS:Dropdownlost>
|
||||
<asp:HiddenField ID="HdnPSAjusteMarca" ClientIDMode="Static" runat="server" Value="-1" />
|
||||
<asp:HiddenField ID="HdnPSAjusteClasificacion" ClientIDMode="Static" runat="server" Value="-1" />
|
||||
<label for="<%= DdlPSAjuste.ClientID.ToString()%>">Producto/Servicio a Recibir:</label>
|
||||
@@ -2876,7 +2882,7 @@
|
||||
<div class="col-md-8">
|
||||
<div id="DivCodEnsamble" runat="server" class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCodEnsamble" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<asp:CustomValidator id="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ClientValidationFunction="ValidarCodigoEnsamble" 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" />
|
||||
<asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ClientValidationFunction="ValidarCodigoEnsamble" 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" />
|
||||
<label for="<%= TxtCodEnsamble.ClientID.ToString()%>">Cod.Ensamble:</label>
|
||||
</div>
|
||||
</div>
|
||||
@@ -2895,7 +2901,7 @@
|
||||
<div class="col-md-8">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCodLinea" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<asp:CustomValidator id="CVCodLinea" runat="server" ControlToValidate="TxtCodLinea" ClientValidationFunction="ValidarCodigoLinea" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Linea''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
|
||||
<asp:CustomValidator ID="CVCodLinea" runat="server" ControlToValidate="TxtCodLinea" ClientValidationFunction="ValidarCodigoLinea" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Linea''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
|
||||
<label for="<%= TxtCodLinea.ClientID.ToString()%>">Cod.Linea:</label>
|
||||
</div>
|
||||
</div>
|
||||
@@ -2917,8 +2923,8 @@
|
||||
<div class="col-md-8">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCodInspeccion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<asp:CustomValidator id="CVCodInspeccion" runat="server" ControlToValidate="TxtCodInspeccion" ClientValidationFunction="ValidarCodigoInspeccion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Inspección''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
|
||||
<%-- <asp:RegularExpressionValidator ID="REVCodInspeccion" runat="server" ControlToValidate="TxtCodInspeccion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod. Inspección''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" ValidationExpression="^[A-L][0-9][1-9A-Z][A-HJ-M]$"></asp:RegularExpressionValidator>--%>
|
||||
<asp:CustomValidator ID="CVCodInspeccion" runat="server" ControlToValidate="TxtCodInspeccion" ClientValidationFunction="ValidarCodigoInspeccion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Inspección''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
|
||||
<%-- <asp:RegularExpressionValidator ID="REVCodInspeccion" runat="server" ControlToValidate="TxtCodInspeccion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod. Inspección''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" ValidationExpression="^[A-L][0-9][1-9A-Z][A-HJ-M]$"></asp:RegularExpressionValidator>--%>
|
||||
<%--<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>
|
||||
@@ -2963,7 +2969,7 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" style="margin-top:17px;">
|
||||
<div class="row" style="margin-top: 17px;">
|
||||
<div class="col-md-2">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPoliza" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||
|
||||
@@ -566,6 +566,14 @@ Partial Class PV
|
||||
ViewState("Index") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property CveVentaDetalle As Integer
|
||||
Get
|
||||
Return ViewState("CveVentaDetalle").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveVentaDetalle") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private ReadOnly Property AplicarVentaFacturada As Boolean
|
||||
Get
|
||||
@@ -722,6 +730,14 @@ Partial Class PV
|
||||
ViewState("TmpDTMetodosPago") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property DTBCIUsados As DataTable
|
||||
Get
|
||||
Return If(IsNothing(ViewState("DTBCIUsados")), Nothing, CType(ViewState("DTBCIUsados"), DataTable))
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTBCIUsados") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
@@ -1002,6 +1018,7 @@ Partial Class PV
|
||||
ViewState("ClienteRetIVA") = 0
|
||||
ViewState("ClienteRetISR") = 0
|
||||
ViewState("EnviarCorreoCliente") = False
|
||||
CveVentaDetalle = -1
|
||||
EstablecioFolio = False
|
||||
EstatusCliente = False
|
||||
RemisionesLista = New List(Of Integer)
|
||||
@@ -1112,6 +1129,12 @@ Partial Class PV
|
||||
HdnCveCliente.Value = "-1"
|
||||
End If
|
||||
|
||||
'CARGA VENTA
|
||||
If Request("CveVenta") IsNot Nothing Then
|
||||
ViewState("CveVenta") = Request("CveVenta").ToString().ToEntero()
|
||||
CargaVenta()
|
||||
End If
|
||||
|
||||
'CARGA PARA FACTURAR
|
||||
ViewState("CveRemision") = IfNull(Request("CveRemision").ToEntero, 0)
|
||||
ViewState("CveCotizacion") = IfNull(Request("CveCotizacion").ToEntero, 0)
|
||||
@@ -1191,6 +1214,650 @@ Partial Class PV
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function CargaVenta() As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
'CARGA PARA FACTURACION
|
||||
Dim CveRemision As Integer = IfNull(ViewState("CveRemision"), 0).ToString.ToEntero
|
||||
Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString.ToEntero
|
||||
Dim CveVenta As Integer = Me.CveVenta
|
||||
CveVenta = If(CveRemision > 0, CveRemision, CveVenta)
|
||||
CveVenta = If(CveCotizacion > 0, CveCotizacion, CveVenta)
|
||||
CveVenta = If(CvePedido > 0, CvePedido, CveVenta)
|
||||
Dim SerieFolioPadre As String
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
Try
|
||||
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
||||
Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Rows(0)
|
||||
Dim CveCliente As Integer = DbRowVenta("CveCliente").ToString.ToEntero
|
||||
|
||||
Dim ObjUsados As New ClsVentas
|
||||
Dim DtUsados As DataTable = Nothing
|
||||
If ObjUsados.GetVentasUsados(CveVenta, DdlSubProyectoDatos.SelectedValue.ToEntero(), DbRowVenta("Fecha").ToString.ToDateTime, UsuarioActual.CveEmpresa) Then
|
||||
DtUsados = ObjUsados.DtResultados
|
||||
End If
|
||||
ObjUsados.Dispose()
|
||||
|
||||
'Me.CveEstatusFacturaPadre = DbRowVenta("CveEstatusFacturaPadre").ToString.ToEntero
|
||||
'CargaEncabezado
|
||||
DdlTipoComprobante.SelectedValue = DbRowVenta("TipoDocto").ToString
|
||||
|
||||
'contado 0, credito 1, terminal 2
|
||||
If ObjVentas.DtResultados(0)("CondicionesPago").ToString.ToEntero = 1 Then
|
||||
RBLPago.SelectedValue = "1"
|
||||
RBLPago_SelectedIndexChanged(Nothing, Nothing)
|
||||
UPCondicionesPago.Update()
|
||||
ElseIf ObjVentas.DtResultados(0)("CondicionesPago").ToString.ToEntero = 0 Then
|
||||
RBLPago.SelectedValue = "2"
|
||||
RBLPago.Items(0).Enabled = False
|
||||
RBLPago_SelectedIndexChanged(Nothing, Nothing)
|
||||
UPCondicionesPago.Update()
|
||||
Else
|
||||
DdlCuentasTerminal.SelectedValue = DbRowVenta("CveCuentaTerminal").ToString
|
||||
RBLPago.SelectedValue = "3"
|
||||
RBLPago.Items(0).Enabled = False
|
||||
RBLPago_SelectedIndexChanged(Nothing, Nothing)
|
||||
UPCondicionesPago.Update()
|
||||
End If
|
||||
|
||||
'CargaDetalle
|
||||
If ObjVentas.GetVentaDetalle(CveVenta) Then
|
||||
TmpDT = ObjVentas.DtResultados.Copy()
|
||||
TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
|
||||
TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
|
||||
TmpDT.Columns.Add("ConsecPSPadre", GetType(Integer))
|
||||
GvPS.DataSource = TmpDT
|
||||
GvPS.DataBind()
|
||||
|
||||
End If
|
||||
|
||||
'ESCONDE ACCIONES
|
||||
UpnTools.Update()
|
||||
|
||||
HdnCveCliente.Value = CveCliente.ToString
|
||||
ViewState("CveCliente") = CveCliente
|
||||
ViewState("CveEmpresaCRM") = DbRowVenta("CveEmpresaCRM").ToString.ToEntero
|
||||
ViewState("CveAcercamientoCRM") = DbRowVenta("CveAcercamientoCRM").ToString.ToEntero
|
||||
Entrega = DbRowVenta("Entrega").ToString
|
||||
Vigencia = DbRowVenta("Vigencia").ToString.ToDate.ToShortDateString
|
||||
HplSaldoAuxiliar.Text = DbRowVenta("Saldo").ToString.FormatoNumero(2)
|
||||
If Not HplSaldoAuxiliar.Text.ToDouble > 0 Then
|
||||
HplSaldoAuxiliar.Visible = False
|
||||
End If
|
||||
HdnPagado.Value = DbRowVenta("Pagado").ToString
|
||||
TxtTotal.Text = DbRowVenta("Total").ToString.FormatoNumero(2)
|
||||
HdnVentaSaldo.Value = (SaldoVenta).ToString
|
||||
CvePrePoliza = DbRowVenta("CvePrePoliza").ToString.ToEntero
|
||||
CveVentaFacturada = DbRowVenta("CveVentaFacturada").ToString.ToEntero
|
||||
|
||||
DdlMoneda.SelectedValue = DbRowVenta("CveMoneda").ToString
|
||||
CambiaMoneda()
|
||||
|
||||
If CveCliente > 0 Then
|
||||
CargaCliente(CveCliente, -1) 'Estatus activo, se requiere para cargar una factura en la que el cliente a sido eliminado
|
||||
End If
|
||||
|
||||
ViewState("CveAlmacenTransitorio") = DbRowVenta("CveAlmacenTraspasoDestino").ToString.ToEntero
|
||||
DevolucionAlmacen = DbRowVenta("EsDevolucionVenta").ToString.ToEntero
|
||||
|
||||
'sino esta cargada la información del metodo de pago que le corresponde, la recarga para que se le pueda asignar
|
||||
If DdlMetodoPago33.SelectedValue <> DbRowVenta("CveMetodoPago33").ToString Then
|
||||
CargaFormaPago(DbRowVenta("CveMetodoPago33").ToString.ToEntero)
|
||||
End If
|
||||
DdlMetodoPago33.SelectedValueExist(DbRowVenta("CveMetodoPago33").ToString)
|
||||
DdlFormaPago33.SelectedValueExist(DbRowVenta("CveFormaPago33").ToString.ToEntero)
|
||||
|
||||
If DdlFormaPago33.SelectedValue <> DbRowVenta("CveFormaPago33").ToString And DbRowVenta("CveFormaPago33").ToString <> "" Then
|
||||
'sino está seleccionada la asginada la debe de cargar
|
||||
Dim Nombre As String = GlobalDTVtaFormaPago().FiltroPrimeroValor("FormaPagoSAT", String.Format("CveFormaPago={0}", DbRowVenta("CveFormaPago33")))
|
||||
DdlFormaPago33.Items.Add(New ListItem(Nombre, DbRowVenta("CveFormaPago33").ToString))
|
||||
DdlFormaPago33.SelectedValueExist(DbRowVenta("CveFormaPago33").ToString.ToEntero)
|
||||
End If
|
||||
|
||||
DdlUsoCFDI.SelectedValueExist(DbRowVenta("CveUsoCFDI").ToString)
|
||||
|
||||
If DbRowVenta("CveTipoRelacion").ToString.ToEntero > 0 Then
|
||||
TrTipoRelacion.Visible = True
|
||||
DdlTiposRelacion.SelectedValueExist(DbRowVenta("CveTipoRelacion").ToString.ToEntero)
|
||||
HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString
|
||||
End If
|
||||
|
||||
ViewState("FolioFiscal") = DbRowVenta("FolioFiscal").ToString
|
||||
LblSerie.Text = DbRowVenta("Serie").ToString
|
||||
ViewState("Serie") = DbRowVenta("Serie").ToString
|
||||
ViewState("Folio") = DbRowVenta("Folio").ToString.ToEntero
|
||||
TxtFolio.Text = DbRowVenta("Folio").ToString
|
||||
LblFolioFiscal.Text = DbRowVenta("FolioFiscal").ToString
|
||||
TxtFecha.Text = DbRowVenta("Fecha").ToString
|
||||
TxtSubTotal.Text = DbRowVenta("SubTotal").ToString.FormatoNumero(2)
|
||||
LblDescuentos.Text = DbRowVenta("Descuento").ToString.FormatoNumero(2)
|
||||
LblAmortizacion.Text = DbRowVenta("Amortizacion").ToString.FormatoNumero(2)
|
||||
TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2)
|
||||
TxtIVA.Text = DbRowVenta("IVA").ToString.FormatoNumero(2)
|
||||
TxtRetIVA.Text = DbRowVenta("RetIVA").ToString.FormatoNumero(2)
|
||||
If TxtRetIVA.Text.ToDecimal() > 0 Then
|
||||
TrRetIVA.Style.Add("display", "")
|
||||
UsuarioActual.Empresa.MostrarRetIVA = True
|
||||
If TmpDT IsNot Nothing Then
|
||||
Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
|
||||
LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
|
||||
End If
|
||||
|
||||
End If
|
||||
TxtRetISR.Text = DbRowVenta("RetISR").ToString.FormatoNumero(2)
|
||||
TxtIEPS.Text = DbRowVenta("IEPS").ToString.FormatoNumero(2)
|
||||
TrIEPS.Visible = TxtIEPS.Text.ToDouble > 0
|
||||
TxtTotal.Text = DbRowVenta("Total").ToString.FormatoNumero(2)
|
||||
HdnTotalVenta.Value = DbRowVenta("Total").ToString.FormatoNumero(2)
|
||||
TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString
|
||||
TxtObsFact.Text = DbRowVenta("Observaciones").ToString
|
||||
LblUsuario.Text = DbRowVenta("Nombre").ToString
|
||||
LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString
|
||||
LblMail.Text = DbRowVenta("EnvioMail").ToString
|
||||
TxtFechaPago.Text = DbRowVenta("FechaVencimiento").ToString
|
||||
TxtFechaVencimientoCotizacion.Text = Vigencia
|
||||
HdnIVAOriginal.Value = TxtIVA.Text
|
||||
DdlTiposRelacion.SelectedValueExist(DbRowVenta("CveTipoRelacion"))
|
||||
|
||||
If DbRowVenta("CveTipoRelacion").ToString.ToEntero > 0 Then
|
||||
TrTipoRelacion2.Visible = True
|
||||
LblTipoRelacion.Text = DbRowVenta("TipoRelacion").ToString
|
||||
HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString
|
||||
End If
|
||||
|
||||
|
||||
'Envio Direccion
|
||||
If DbRowVenta("CveDireccionEnvio").ToString.ToEntero > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString IsNot Nothing Then
|
||||
ChkDireccionEnvio.Checked = True
|
||||
DdlDireccionEnvio.SelectedValueExist(DbRowVenta("CveDireccionEnvio").ToString.ToEntero)
|
||||
DdlDireccionEnvio.Enabled = False
|
||||
ChkDireccionEnvio.Enabled = False
|
||||
DdlDireccionEnvio.Visible = True
|
||||
trDireccionEnvio.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
TxtTipoCambio.Text = DbRowVenta("TipoCambio").ToString
|
||||
|
||||
ViewState("SelloCancelacion") = DbRowVenta("SelloCancelacion").ToString
|
||||
ViewState("FechaCancelacion") = DbRowVenta("FechaCancelacion").ToString.ToDateTime
|
||||
TxtAtencionA.Text = DbRowVenta("AtencionA").ToString
|
||||
TxtTelefonoGenerico.Text = DbRowVenta("TelefonoGenerico").ToString
|
||||
CveVentaPadre = DbRowVenta("CveVentaPadre").ToString.ToEntero
|
||||
SerieFolioPadre = DbRowVenta("SerieFolioPadre").ToString
|
||||
|
||||
If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
|
||||
DdlVendedor.Enabled = False
|
||||
End If
|
||||
|
||||
If CveVentaPadre > 0 Then
|
||||
If IsNothing(Request("CveDevolucion")) AndAlso IsNumeric(Request("CveDevolucion")) Then
|
||||
DdlNCFactura.Visible = True
|
||||
Else
|
||||
DdlNCFactura.Visible = False
|
||||
End If
|
||||
trNCFactura.Visible = True
|
||||
LblSerieFolioPadre.Visible = True
|
||||
LblSerieFolioPadre.Text = String.Format("<a Class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"" target=""_blank"">{1}</a>", CveVentaPadre, SerieFolioPadre)
|
||||
|
||||
End If
|
||||
|
||||
DdlSucursalCliente.SelectedValueExist(DbRowVenta("CveClienteSucursal").ToString)
|
||||
|
||||
If DdlSubProyectoDatos.Items.Count = 0 Then
|
||||
DdlSubProyectoDatos.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString, DbRowVenta("SubProyecto").ToString)
|
||||
CargarAlmacenes()
|
||||
|
||||
|
||||
CargaClienteSucursal(DbRowVenta("CveClienteSucursal").ToString.ToEntero)
|
||||
|
||||
If DbRowVenta("CveContrato").ToString.ToEntero > 0 Then
|
||||
CveContrato = DbRowVenta("CveContrato").ToString.ToEntero
|
||||
End If
|
||||
|
||||
IdPoliza = DbRowVenta("IdPoliza").ToString.ToEntero
|
||||
|
||||
'Carga si es Contabilizada
|
||||
If IdPoliza > 0 Then
|
||||
HLContabilizada.Text = "Si"
|
||||
HLContabilizada.NavigateUrl = $"/Contabilidad/RegPoliza.aspx?IdPoliza={DbRowVenta("IdPoliza")}"
|
||||
trContabilizada.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
If DbRowVenta("IdPolizaCancelacion").ToString.ToEntero > 0 Then
|
||||
HPLContaCancelacion.Text = "Cancelación"
|
||||
HPLContaCancelacion.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", DbRowVenta("IdPolizaCancelacion"))
|
||||
trContabilizada.Visible = True
|
||||
End If
|
||||
|
||||
'CARGA IMPUESTOS LOCALES
|
||||
If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
|
||||
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
||||
TrOtros.Visible = True
|
||||
TmpDTImpuestos = ObjVentas.DtResultados
|
||||
GvImpuestosLocales2.DataSource = ObjVentas.DtResultados
|
||||
GvImpuestosLocales2.DataBind()
|
||||
|
||||
GvImpuestosLocales2.Enabled = False
|
||||
GvImpuestosLocales2.Visible = True
|
||||
End If
|
||||
End If
|
||||
|
||||
DdlVendedor.SelectedValue = DbRowVenta("CveVendedor").ToString
|
||||
DdlTipoComprobante.Enabled = False
|
||||
'TxtDocto.Enabled = False
|
||||
DeshabilitarEdicion()
|
||||
|
||||
'CargaLeyendasFiscales
|
||||
ViewState("VentaFolio") = If(LblSerie.Text.Trim.Length = 0, TxtFolio.Text.Trim, LblSerie.Text.Trim & "-" & TxtFolio.Text.Trim)
|
||||
|
||||
CalculaTotalesVenta(False)
|
||||
|
||||
tdVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
|
||||
tdFechaVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
|
||||
|
||||
If DbRowVenta("TipoDocto").ToString = "Rem" Then
|
||||
|
||||
For Each Gvr As GridViewRow In GvPS.Rows
|
||||
Gvr.FCLinkButton("imgE").Visible = False
|
||||
Gvr.FCLinkButton("imgD").Visible = False
|
||||
Next
|
||||
|
||||
'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
|
||||
If TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad") Then
|
||||
TrEmitir.Visible = False
|
||||
BtnPermisoEditarRemision.Visible = True
|
||||
'ACTIVA CONVERSION DE MONEDA
|
||||
If DdlMoneda.SelectedValue.ToEntero = 1 Then
|
||||
TrConversionDolares.Visible = True
|
||||
ChkConvertirDolares.Enabled = True
|
||||
TxtTipoCambioDlls.Enabled = True
|
||||
Else
|
||||
TrConversionTipoCambio.Visible = True
|
||||
ChkConvertirDoctoPesos.Enabled = True
|
||||
TxtTipoCambio.Enabled = True
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa = 48 Then
|
||||
TxtFecha.AutoPostBack = True
|
||||
End If
|
||||
|
||||
UpPS.Update()
|
||||
UpContado.Update()
|
||||
UpEstatus.Update()
|
||||
Retorno = True
|
||||
|
||||
Else
|
||||
ViewState("CveVenta") = -1
|
||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al cargar la venta", ex)
|
||||
End Try
|
||||
ObjVentas.Dispose()
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
#Region "E D I T A R - R E M I S I O N"
|
||||
Private Sub DeshabilitarEdicion()
|
||||
'PORLET CLIENTE
|
||||
'DESACTIVA CAMBIO DE CLIENTE
|
||||
HlCliente.Attributes.Remove("class")
|
||||
HlCliente.Attributes.Add("class", "Texto disabled")
|
||||
TxtCodigo.ReadOnly = True
|
||||
ChkEnviarFactura.Enabled = False
|
||||
ChkDireccionEnvio.Enabled = False
|
||||
TxtAtencionA.Enabled = False
|
||||
TxtFechaVencimientoCotizacion.Enabled = False
|
||||
|
||||
TxtCantidad.Enabled = False
|
||||
DdlClasificacion.Enabled = False
|
||||
|
||||
DdlPS.Enabled = False
|
||||
TxtObsPS.Enabled = False
|
||||
TxtPrecio.Enabled = False
|
||||
ImgDescPU.Attributes.Clear()
|
||||
ImgDescTotal.Attributes.Clear()
|
||||
LbAgregar.Enabled = False
|
||||
DdlCuentasTerminal.Enabled = False
|
||||
|
||||
For Each Row As GridViewRow In GvPS.Rows
|
||||
Row.FCLiteral("LtlConsecutivo").Text = (Row.RowIndex + 1).ToString()
|
||||
Next
|
||||
GvPS.Columns(ColumnaEditar).HeaderText = ""
|
||||
GvPS.Columns(ColumnaEliminar).HeaderText = ""
|
||||
'GvPS.Columns(ColumnaEliminar).Visible = False
|
||||
|
||||
TxtObsFact.Enabled = False
|
||||
TxtMotivoDescuento.Enabled = False
|
||||
'GvLeyendasFiscales.Enabled = False
|
||||
TxtSubTotal.ReadOnly = True
|
||||
TxtIVA.ReadOnly = True
|
||||
TxtRetIVA.ReadOnly = True
|
||||
TxtRetISR.ReadOnly = True
|
||||
TxtIEPS.ReadOnly = True
|
||||
TxtTotal.ReadOnly = True
|
||||
|
||||
'Sección Detalle
|
||||
DdlMoneda.Enabled = False
|
||||
'DdlSucursalEjecucion.Enabled = False
|
||||
'DdlSucursalCobranza.Enabled = False
|
||||
DdlVendedor.Enabled = False
|
||||
DdlSucursalCliente.Enabled = False
|
||||
|
||||
ChkConvertirDoctoPesos.Enabled = False
|
||||
ChkConvertirDolares.Enabled = False
|
||||
TxtTipoCambio.Enabled = False
|
||||
TxtTipoCambioDlls.Enabled = False
|
||||
|
||||
'Condiciones de Pago
|
||||
RBLPago.Enabled = False
|
||||
DdlFormaPago33.Enabled = False
|
||||
DdlUsoCFDI.Enabled = False
|
||||
DdlMetodoPago33.Enabled = False
|
||||
'TxtNumCtaPago.Enabled = False
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Then
|
||||
TxtFechaPago.ReadOnly = Not UsuarioActual.TienePermisoProceso(260)
|
||||
Else
|
||||
TxtFechaPago.ReadOnly = False
|
||||
End If
|
||||
|
||||
imgCalendario.Enabled = False
|
||||
|
||||
BtnEmitirImprimir.Visible = False
|
||||
End Sub
|
||||
Private Sub HabilitarEdicion()
|
||||
TxtCodigo.ReadOnly = False
|
||||
ChkEnviarFactura.Enabled = True
|
||||
ChkDireccionEnvio.Enabled = True
|
||||
TxtAtencionA.Enabled = True
|
||||
TxtFechaVencimientoCotizacion.Enabled = True
|
||||
|
||||
TxtCantidad.Enabled = True
|
||||
DdlClasificacion.Enabled = True
|
||||
|
||||
DdlPS.Enabled = True
|
||||
TxtObsPS.Enabled = True
|
||||
TxtPrecio.Enabled = True
|
||||
ImgDescPU.Attributes.Clear()
|
||||
ImgDescTotal.Attributes.Clear()
|
||||
LbAgregar.Enabled = True
|
||||
DdlCuentasTerminal.Enabled = True
|
||||
|
||||
For Each Row As GridViewRow In GvPS.Rows
|
||||
Row.FCLiteral("LtlConsecutivo").Text = (Row.RowIndex + 1).ToString()
|
||||
Next
|
||||
GvPS.Columns(ColumnaEditar).HeaderText = ""
|
||||
GvPS.Columns(ColumnaEliminar).HeaderText = ""
|
||||
|
||||
TxtObsFact.Enabled = True
|
||||
TxtMotivoDescuento.Enabled = True
|
||||
TxtSubTotal.ReadOnly = False
|
||||
TxtIVA.ReadOnly = False
|
||||
TxtRetIVA.ReadOnly = False
|
||||
TxtRetISR.ReadOnly = False
|
||||
TxtIEPS.ReadOnly = False
|
||||
TxtTotal.ReadOnly = False
|
||||
|
||||
'Sección Detalle
|
||||
DdlMoneda.Enabled = True
|
||||
DdlVendedor.Enabled = True
|
||||
DdlSucursalCliente.Enabled = True
|
||||
|
||||
ChkConvertirDoctoPesos.Enabled = True
|
||||
ChkConvertirDolares.Enabled = True
|
||||
TxtTipoCambio.Enabled = True
|
||||
TxtTipoCambioDlls.Enabled = True
|
||||
|
||||
'Condiciones de Pago
|
||||
RBLPago.Enabled = True
|
||||
DdlFormaPago33.Enabled = True
|
||||
DdlUsoCFDI.Enabled = True
|
||||
DdlMetodoPago33.Enabled = True
|
||||
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Then
|
||||
TxtFechaPago.ReadOnly = Not UsuarioActual.TienePermisoProceso(260)
|
||||
Else
|
||||
TxtFechaPago.ReadOnly = False
|
||||
End If
|
||||
|
||||
imgCalendario.Enabled = True
|
||||
End Sub
|
||||
Private Sub BtnPermisoEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnPermisoEditarRemision.Click
|
||||
HabilitarEdicion()
|
||||
BtnPermisoEditarRemision.Visible = False
|
||||
BtnEditarRemision.Visible = True
|
||||
TxtObsFact.Enabled = True
|
||||
DdlUsoCFDI.Enabled = True
|
||||
DdlMetodoPago33.Enabled = True
|
||||
DdlFormaPago33.Enabled = True
|
||||
UPCondicionesPago.Update()
|
||||
RBLPago.Enabled = True
|
||||
|
||||
ViewState("CveClienteAnterior") = CveCliente
|
||||
|
||||
'SI EL DETALLE NO TIENE MOVIMIENTOS DE INVENTARIO ES VISIBLE
|
||||
Dim CantidadFacturadaRemision = 0.0
|
||||
For Each Gvr As GridViewRow In GvPS.Rows
|
||||
Gvr.FCLinkButton("imgE").Visible = Not Gvr.DataKey("CantidadFacturadaRem").ToString.ToDouble > 0 AndAlso Gvr.DataKey("EsCargo") = "True"
|
||||
Gvr.FCLinkButton("imgD").Visible = Not Gvr.DataKey("CantidadInventario").ToString.ToDouble > 0 AndAlso Gvr.DataKey("EsCargo") = "True"
|
||||
CantidadFacturadaRemision += Gvr.DataKey("CantidadFacturadaRem").ToString.ToDouble
|
||||
Next
|
||||
|
||||
'ACTIVA CAMBIO DE CLIENTE - SI NO TIENE NADA FACTURADO
|
||||
If Not CantidadFacturadaRemision > 0 AndAlso UsuarioActual.TienePermisoProceso(284) Then
|
||||
HlCliente.Attributes.Remove("class")
|
||||
HlCliente.Attributes.Add("class", "Texto")
|
||||
TxtCodigo.ReadOnly = False
|
||||
End If
|
||||
|
||||
TxtCantidad.Enabled = True
|
||||
DdlClasificacion.Enabled = True
|
||||
DdlPS.Enabled = True
|
||||
TxtObsPS.Enabled = True
|
||||
TxtPrecio.Enabled = True
|
||||
LbAgregar.Enabled = True
|
||||
ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
|
||||
LblSubTotal1.Text = TxtSubTotal.Text
|
||||
LblAmort.Text = TxtSubTotal.Text
|
||||
|
||||
UpPS.Update()
|
||||
UpCliente.Update()
|
||||
UPObservaciones.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnEditarRemision.Click
|
||||
Dim OcurrioError As Boolean = False
|
||||
|
||||
CreaObjetosVenta()
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
ObjVentas.IniciaTransacSQL()
|
||||
|
||||
Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
|
||||
Dim ObjBancos As New ClsBancos(ObjVentas.IniciaTransacSQL())
|
||||
Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())
|
||||
Dim ObjAC As ClsContPAQi = Nothing
|
||||
|
||||
Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero
|
||||
Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble
|
||||
Try
|
||||
'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS
|
||||
If DdlMoneda.SelectedValue.ToEntero <> 2 AndAlso ChkConvertirDolares.Checked Then
|
||||
|
||||
For Each Row As DataRow In TmpDT.Rows
|
||||
Row("PU") = Math.Round(Row("PU").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, 6)
|
||||
Row("Total") = Math.Round(Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, NumeroDecimales)
|
||||
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, NumeroDecimales)
|
||||
Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Next
|
||||
|
||||
Dim ImpuestosLocales As Double = 0
|
||||
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
||||
If gvr.RowType = DataControlRowType.DataRow Then
|
||||
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TxtTipoCambioDlls.Text.Trim.ToDecimal).FormatoNumero
|
||||
ImpuestosLocales += Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
End If
|
||||
Next
|
||||
|
||||
TxtSubTotal.Text = TmpDT.SUM("Total").ToDecimal.FormatoNumero
|
||||
LblDescuentos.Text = TmpDT.SUM("Descuento").ToDecimal.FormatoNumero
|
||||
LblAmortizacion.Text = Math.Round(LblAmortizacion.Text.Trim.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales).FormatoNumero
|
||||
TxtIVA.Text = TmpDT.SUM("ImporteIVA").ToDecimal.FormatoNumero
|
||||
TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal.FormatoNumero
|
||||
TxtRetISR.Text = TmpDT.SUM("ImporteRetISR").ToDecimal.FormatoNumero
|
||||
TxtIEPS.Text = TmpDT.SUM("ImporteIEPS").ToDecimal.FormatoNumero
|
||||
TxtTotal.Text = (TxtSubTotal.Text.ToDecimal - LblDescuentos.Text.ToDecimal - LblAmortizacion.Text.ToDecimal + TxtIVA.Text.ToDecimal + TxtIEPS.Text.ToDecimal - TxtRetIVA.Text.ToDecimal - TxtRetISR.Text.ToDecimal - ImpuestosLocales).ToDecimal.FormatoNumero
|
||||
|
||||
TipoCambio = TxtTipoCambioDlls.Text.Trim.ToDecimal
|
||||
Moneda = 2
|
||||
End If
|
||||
|
||||
'CONVERTIR REMISION - TIPO MONEDA -PESO A DOLARES
|
||||
If DdlMoneda.SelectedValue.ToEntero <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then
|
||||
Dim Importe As Decimal
|
||||
Dim TCC As Decimal = TxtTipoCambio.Text.Trim.ToDecimal
|
||||
For Each Row As DataRow In TmpDT.Rows
|
||||
Row("PU") = Math.Round(Row("PU").ToString.ToDecimal * TCC, 6)
|
||||
Row("Total") = Math.Round(Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, NumeroDecimales)
|
||||
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal, NumeroDecimales)
|
||||
Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDecimal * TCC, NumeroDecimales)
|
||||
Importe = Row("Total").ToString.ToDecimal - Row("Descuento").ToString.ToDecimal
|
||||
Row("ImporteIEPS") = Math.Round(Importe * Row("PorcentajeIEPS").ToString.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteIVA") = Math.Round(Importe * Row("PorcentajeIVA").ToString.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteRetIVA") = Math.Round(Importe * Row("PorcentajeRetIVA").ToString.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteRetISR") = Math.Round(Importe * Row("PorcentajeRetISR").ToString.ToDecimal, NumeroDecimales)
|
||||
Next
|
||||
|
||||
Dim ImpuestosLocales As Double = 0
|
||||
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
||||
If gvr.RowType = DataControlRowType.DataRow Then
|
||||
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TxtTipoCambio.Text.Trim.ToDecimal).FormatoNumero
|
||||
ImpuestosLocales += Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
End If
|
||||
Next
|
||||
|
||||
TxtSubTotal.Text = TmpDT.SUM("Total").ToDecimal.FormatoNumero
|
||||
LblDescuentos.Text = TmpDT.SUM("Descuento").ToDecimal.FormatoNumero
|
||||
LblAmortizacion.Text = Math.Round(LblAmortizacion.Text.Trim.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales).FormatoNumero
|
||||
TxtIVA.Text = TmpDT.SUM("ImporteIVA").ToDecimal.FormatoNumero
|
||||
TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal.FormatoNumero
|
||||
TxtRetISR.Text = TmpDT.SUM("ImporteRetISR").ToDecimal.FormatoNumero
|
||||
TxtIEPS.Text = TmpDT.SUM("ImporteIEPS").ToDecimal.FormatoNumero
|
||||
TxtTotal.Text = (TxtSubTotal.Text.ToDecimal - LblDescuentos.Text.ToDecimal - LblAmortizacion.Text.ToDecimal + TxtIVA.Text.ToDecimal + TxtIEPS.Text.ToDecimal - TxtRetIVA.Text.ToDecimal - TxtRetISR.Text.ToDecimal - ImpuestosLocales).ToDecimal.FormatoNumero
|
||||
|
||||
|
||||
TipoCambio = 1
|
||||
Moneda = 1
|
||||
End If
|
||||
|
||||
'Actualizo los parametros de la venta
|
||||
If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
|
||||
UsuarioActual.CveEmpresa, CveVenta, 0, 0,
|
||||
Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
|
||||
PedidoContrato:="", AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero,
|
||||
CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
|
||||
OrdenCompra:="", RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=0) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
|
||||
'Cargo de nueva cuenta el detalle de Ventas (Conceptos)
|
||||
If Not OcurrioError Then
|
||||
Dim index As Integer = 0
|
||||
For Each Row As DataRow In TmpDT.Rows
|
||||
Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero()
|
||||
If CveVentaDetalle > 0 Then
|
||||
If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal(), Row("ImporteIEPS").ToString.ToDecimal(), Row("Obs").ToString, UsuarioActual.CveUsuario) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
Else
|
||||
If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero,
|
||||
Row("PU").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString.ToDouble, Math.Round((Row("Total").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6),
|
||||
Row("Obs").ToString, Row("Descuento").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero, PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal, IEPS:=Row("ImporteIEPS").ToString.ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString,
|
||||
CveVentaDetallePadre:=Row("CveVentaDetalle").ToString.ToEntero, CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CvePromocionDetalle:=If(DtPromociones IsNot Nothing, DtPromociones.FiltroPrimeroValor("CvePromocionDetalle", $"CvePS={Row("CvePS").ToString}").ToEntero, -1),
|
||||
ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDouble, CuentaPredial:=Row("CuentaPredial").ToString) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
Else
|
||||
TmpDT.Rows(index)("CveVentaDetalle") = ObjVentas.CveVentaDetalle
|
||||
End If
|
||||
End If
|
||||
index = index + 1
|
||||
Next
|
||||
End If
|
||||
|
||||
ObjFactura.DtDetalle = TmpDT
|
||||
|
||||
'ELIMINA LOS DETALLES
|
||||
If Not OcurrioError Then
|
||||
Dim DtEliminados As New DataTable
|
||||
If ObjVentas.GetVentaDetalle(CveVenta) Then
|
||||
DtEliminados = ObjVentas.DtResultados.FiltraParametros("", "", {"CveVentaDetalle"})
|
||||
For Each Dr1 As DataRow In DtEliminados.Rows
|
||||
If TmpDT.FiltraParametros($"CveVentaDetalle = {Dr1("CveVentaDetalle")}").Rows.Count = 0 Then
|
||||
If Not ObjVentas.RemoveVentasDetalle(CveVenta, Dr1("CveVentaDetalle").ToString.ToEntero) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
OcurrioError = True
|
||||
End If
|
||||
End If
|
||||
|
||||
'OcurrioError = ProcesoPrepolizas(ObjConta, ObjFactura, -1, TmpDT, ObjAC, 1, ObjBancos, ObjVentas)
|
||||
|
||||
'Actualizo impuestos locales
|
||||
If Not OcurrioError Then
|
||||
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
||||
If gvr.RowType = DataControlRowType.DataRow Then
|
||||
If Not ObjVentas.UpdateVentaImpuestoLocales(CveVenta, gvr.DataKey("CveImpuestoLocal").ToString.ToEntero, gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
'REGENERAR LOS SALDOS
|
||||
If Not OcurrioError Then
|
||||
OcurrioError = Not ObjFactura.RegenerarPrePolizas(ObjVentas.IniciaTransacSQL(), ObjAC)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
OcurrioError = True
|
||||
OnError("Ocurrió un error al actualizar la remisión", ex)
|
||||
End Try
|
||||
|
||||
If OcurrioError Then
|
||||
ObjVentas.RollBack()
|
||||
Alert("Ocurrió un error al guardar los cambios. Por favor intente de nuevo.", TipoMensaje.MsgError)
|
||||
Else
|
||||
ObjVentas.Commit()
|
||||
If ObjAC IsNot Nothing Then ObjAC.Commit()
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:="BtnRefrescarPagina();")
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
ObjConta.Dispose()
|
||||
ObjBancos.Dispose()
|
||||
If ObjAC IsNot Nothing Then ObjAC.Dispose()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "PUNTO DE VENTA"
|
||||
Private Sub CargaCorteCaja()
|
||||
'Checar si hay un Turno Abierto
|
||||
@@ -1474,9 +2141,17 @@ Partial Class PV
|
||||
|
||||
'CargaDetalle
|
||||
If ObjVentas.GetVentaDetalle(CveVenta) Then
|
||||
TmpDT = ObjVentas.DtResultados
|
||||
GvPS.DataSource = ObjVentas.DtResultados
|
||||
TmpDT = ObjVentas.DtResultados.Copy()
|
||||
TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
|
||||
TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
|
||||
|
||||
GvPS.DataSource = TmpDT
|
||||
GvPS.DataBind()
|
||||
|
||||
For Each Gvr As GridViewRow In GvPS.Rows
|
||||
Gvr.FCLinkButton("imgE").Visible = False
|
||||
Gvr.FCLinkButton("imgD").Visible = False
|
||||
Next
|
||||
End If
|
||||
|
||||
'Carga Totales
|
||||
@@ -1706,6 +2381,9 @@ Partial Class PV
|
||||
CambiaSucursal()
|
||||
UpParametros.Update()
|
||||
End If
|
||||
Else
|
||||
CargaFormatoSucursal()
|
||||
UpParametros.Update()
|
||||
End If
|
||||
|
||||
If ObjCliente.GetSucursales(CveCliente) Then
|
||||
@@ -2344,15 +3022,15 @@ Partial Class PV
|
||||
Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV))
|
||||
Next
|
||||
|
||||
Dim facBytes = DescargarFactura(Retorno.CveVenta, UsuarioActual.CveEmpresa)
|
||||
ImprimirbytesPDF(facBytes, ObjFactura.SerieFolio)
|
||||
'Dim facBytes = DescargarFactura(Retorno.CveVenta, UsuarioActual.CveEmpresa)
|
||||
'ImprimirbytesPDF(facBytes, ObjFactura.SerieFolio)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, Optional GetBytes As Boolean = True) As Byte()
|
||||
Dim Url = New Uri(String.Format("http://{0}:{1}/Compras/PopUpVerFactura.aspx?P={2}", HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
|
||||
Dim Url = New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
|
||||
Dim File As Byte() = Nothing
|
||||
Try
|
||||
Using httpClient = New HttpClient()
|
||||
@@ -2377,7 +3055,14 @@ Partial Class PV
|
||||
#Region "OBJETO VENTA"
|
||||
|
||||
Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False)
|
||||
|
||||
If Me.CveVenta > 0 Then
|
||||
ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
|
||||
Else
|
||||
ObjFactura = New Modelos.Factura(UsuarioActual)
|
||||
ObjFactura.CvePrePoliza = -1
|
||||
End If
|
||||
|
||||
ObjFactura.CveUsuario = UsuarioActual.CveUsuario
|
||||
ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
|
||||
ObjFactura.TipoCambio = TxtTipoCambio.Text.Trim.ToDecimal
|
||||
@@ -2393,7 +3078,6 @@ Partial Class PV
|
||||
'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
|
||||
ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
|
||||
ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second)
|
||||
ObjFactura.CvePrePoliza = -1
|
||||
ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero
|
||||
ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text
|
||||
ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}")
|
||||
@@ -2801,6 +3485,7 @@ Partial Class PV
|
||||
TxtDescuento.Text = FormatoNumero(0, 2)
|
||||
TxtPrecio.Text = ""
|
||||
|
||||
Try
|
||||
If CvePSParametro > 0 Then
|
||||
Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
|
||||
|
||||
@@ -2868,7 +3553,7 @@ Partial Class PV
|
||||
LblTotalPS.Text = "0.00"
|
||||
End If
|
||||
|
||||
HdnIVAPS.Value = If(drPS("IVA").ToString = "-1", ViewState("IVA"), drPS("IVA").ToString).ToString
|
||||
HdnIVAPS.Value = If(drPS("IVA").ToString = "-1", SubProyectoPorcentajeIVA.ToString(), drPS("IVA").ToString).ToString
|
||||
HdnIVARetAPS.Value = drPS("RetIVA").ToString
|
||||
HdnAsientoContable.Value = drPS("AsientoContableVentas").ToString
|
||||
HdnCtaContable.Value = drPS("IdCtaContVentas").ToString
|
||||
@@ -2906,6 +3591,9 @@ Partial Class PV
|
||||
DdlUnidadMedida.SelectedValue = "-1"
|
||||
DdlUnidadMedida.DataBind()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al cambiar el producto", ex)
|
||||
End Try
|
||||
|
||||
UpClasificacion.Update()
|
||||
UpPS.Update()
|
||||
@@ -3339,6 +4027,7 @@ Partial Class PV
|
||||
Row = TmpDT.NewRow()
|
||||
ElseIf Modalidad = "U" Then
|
||||
Dim Contador As Integer = 0
|
||||
If CveVentaDetalle <= 0 Then
|
||||
For Each Dr As DataRow In TmpDT.Rows
|
||||
If Dr("Consec").ToString.ToEntero = Index Then
|
||||
Exit For
|
||||
@@ -3346,6 +4035,9 @@ Partial Class PV
|
||||
Contador = Contador + 1
|
||||
Next
|
||||
Row = TmpDT.Rows(Contador)
|
||||
Else
|
||||
Row = TmpDT.Select($"CveVentaDetalle={CveVentaDetalle}")(0)
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim TotalCalculableImpuestos As Decimal = 0
|
||||
@@ -3738,6 +4430,8 @@ Partial Class PV
|
||||
Modalidad = "U"
|
||||
Index = GvRow.DataKey("Consec").ToEntero
|
||||
ConsecutivoVenta = GvRow.DataKey("Consec").ToEntero
|
||||
CveVentaDetalle = GvRow.DataKey("CveVentaDetalle").ToEntero
|
||||
|
||||
LnkAgregarPS.Text = "Actualizar"
|
||||
DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
|
||||
CargaPS(DdlClasificacion.SelectedValue.ToEntero, DdlPS)
|
||||
@@ -3756,7 +4450,9 @@ Partial Class PV
|
||||
LblTotalPS.Text = GvRow.DataKey("Total")
|
||||
ChkAgregar.Checked = False
|
||||
divagregrarotrops.Visible = False
|
||||
If CveVenta <= 0 Then
|
||||
Ajuste()
|
||||
End If
|
||||
AddPolizaVirtual(DdlPS.SelectedValue.ToEntero())
|
||||
UpVenta.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddVenta"), "EdicionVenta")
|
||||
@@ -3771,19 +4467,28 @@ Partial Class PV
|
||||
LimpiaAgregar()
|
||||
UpVenta.Update()
|
||||
Else
|
||||
If Me.CveVentaDetalle > 0 Then
|
||||
For Each Gvr As GridViewRow In GvPS.Rows
|
||||
Gvr.FCLinkButton("imgE").Visible = Not Gvr.DataKey("CantidadFacturadaRem").ToString.ToDouble > 0 AndAlso Gvr.DataKey("EsCargo") = "True"
|
||||
Gvr.FCLinkButton("imgD").Visible = Not Gvr.DataKey("CantidadInventario").ToString.ToDouble > 0 AndAlso Gvr.DataKey("EsCargo") = "True"
|
||||
Next
|
||||
End If
|
||||
UpVenta.Update()
|
||||
RegistraScript("$('#DivAddVenta').modal('hide');")
|
||||
End If
|
||||
End If
|
||||
Me.CveVentaDetalle = -1
|
||||
End Sub
|
||||
Private Function AgregarPS() As Boolean
|
||||
Dim CveVentaDetalle As Integer = Me.CveVentaDetalle
|
||||
|
||||
Dim EsCargo As Boolean = False
|
||||
If CveVentaDetalle > 0 Then
|
||||
EsCargo = CBool(TmpDT.FiltroPrimeroValor("EsCargo", $"CveVentaDetalle={CveVentaDetalle}"))
|
||||
End If
|
||||
|
||||
'SELECCIONA EL PS DEPENDIENDO LA MODALIDAD (CODIGO BARRAS - DDL)
|
||||
Dim CvePS = -1
|
||||
'If DIVCod.Visible Then
|
||||
' CvePS = HdnCvePS.Value.ToEntero
|
||||
'Else
|
||||
CvePS = DdlPS.SelectedValue.ToEntero
|
||||
'End If
|
||||
Dim CvePS = DdlPS.SelectedValue.ToEntero
|
||||
|
||||
If ValidaAgregarPS(CvePS, DdlUnidadMedida.SelectedValue.ToEntero, TxtPrecio.Text.Trim.ToDouble, HdnTipoPS.Value.ToEntero, TxtCantidad.Text.ToDecimal) Then
|
||||
|
||||
@@ -3799,17 +4504,19 @@ Partial Class PV
|
||||
Dim CveProyecto As Integer = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("CveProyecto").ToString.ToEntero
|
||||
Dim Proyecto As String = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("Proyecto").ToString
|
||||
|
||||
|
||||
Dim Consec = AgregarProductoServicio(TxtCantidad.Text.ToDecimal, DdlUnidadMedida.SelectedValue.ToEntero, DdlUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text,
|
||||
CvePS, "", TxtObsPS.Text.Trim, If(CvePSAmortizacion > 0, TxtPrecio.Text.Trim.ToDecimal * -1, TxtPrecio.Text.Trim.ToDecimal), Descuento,
|
||||
CveProyecto, Proyecto, DdlSubProyectoDatos.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedItem.Text,
|
||||
SerieLote:="", TiempoEntrega:="", CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS)
|
||||
SerieLote:="", TiempoEntrega:="", CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS, CveVentaDetalle:=CveVentaDetalle, EsCargo:=EsCargo)
|
||||
|
||||
If CveVentaDetalle <= 0 AndAlso Not EsCargo Then
|
||||
Dim ListaPSCargo = CalculaUsados(Consec)
|
||||
If ListaPSCargo.Count > 0 Then
|
||||
CalculaRecepcionUsados(GvRecepcionUsados, CvePS, ListaPSCargo)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
@@ -5040,7 +5747,8 @@ Partial Class PV
|
||||
Private Sub CargaBCIAjuste()
|
||||
Dim ObjGral As New ClsGenerales
|
||||
If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
|
||||
DdlBCIAjuste.DataSource = ObjGral.DtResultados
|
||||
DTBCIUsados = ObjGral.DtResultados.Copy()
|
||||
DdlBCIAjuste.DataSource = DTBCIUsados
|
||||
End If
|
||||
ObjGral.Dispose()
|
||||
DdlBCIAjuste.DataBind()
|
||||
@@ -5065,6 +5773,8 @@ Partial Class PV
|
||||
Dim DtTamanios = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo > 0")
|
||||
|
||||
CargaModelos()
|
||||
CargaBCIAjuste()
|
||||
|
||||
GvRecepcionUsados.DataSource = DtTamanios
|
||||
GvRecepcionUsadosModal.DataSource = DtTamanios
|
||||
|
||||
@@ -5073,13 +5783,13 @@ Partial Class PV
|
||||
DdlTipoUso.DataBind()
|
||||
DdlTipoDefecto.DataBind()
|
||||
DdlFacturas.DataBind()
|
||||
|
||||
GvRecepcionUsados.DataBind()
|
||||
GvRecepcionUsadosModal.DataBind()
|
||||
|
||||
CreaDTmpDTAjustes()
|
||||
CreaDTmpDTRecepcionUsados()
|
||||
CreaDTmpDTPolizaVirtual()
|
||||
CargaBCIAjuste()
|
||||
DdlDistribuidor.setEsWebService(True)
|
||||
DivChkAjuste.Visible = True
|
||||
End Sub
|
||||
@@ -5095,16 +5805,8 @@ Partial Class PV
|
||||
|
||||
Protected Sub GvRecepcionUsados_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvRecepcionUsados.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
Dim ObjGral As New ClsGenerales
|
||||
If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
|
||||
e.Row.FCDropDownList("DdlBCIUsado").DataSource = ObjGral.DtResultados.FiltraParametros(String.Format("CveTamaño = {0}", e.Row.DataKey("CveTamaño")))
|
||||
End If
|
||||
'DdlBCIUsado.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
'DdlBCIUsado.SelectedValueExist(-1)
|
||||
e.Row.FCDropDownList("DdlBCIUsado").DataSource = DTBCIUsados.FiltraParametros(String.Format("CveTamaño = {0}", e.Row.DataKey("CveTamaño")))
|
||||
e.Row.FCDropDownList("DdlBCIUsado").DataBind()
|
||||
'e.Row.FCDropDownList("DdlBCIUsado").SelectedValue = e.Row.DBCampo("CveBCIUsado")
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user