--cambios en cortes
This commit is contained in:
@@ -81,6 +81,7 @@
|
||||
</div>
|
||||
<div class="col-md-1">
|
||||
F.I.:
|
||||
|
||||
</div>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
|
||||
@@ -98,6 +99,7 @@
|
||||
</div>
|
||||
<div class="col-md-1 ">
|
||||
F.F.:
|
||||
|
||||
</div>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
|
||||
@@ -178,6 +180,15 @@
|
||||
<asp:Literal ID="LtlNotasCredito" runat="server" Text='<%# Eval("NotasCredito", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
|
||||
<HeaderTemplate>
|
||||
<asp:Label Text="Ventas<br/>Contado" runat="server" CausesValidation="false"> </asp:Label>
|
||||
<asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlVentasContado" runat="server" Text='<%# Eval("VentasContado", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
|
||||
<HeaderTemplate>
|
||||
<asp:Label Text="Ventas<br/>Crédito" runat="server" CausesValidation="false"> </asp:Label>
|
||||
@@ -268,7 +279,15 @@
|
||||
<asp:Literal ID="LtlDevoluciones" runat="server" Text='<%# Eval("Devoluciones", "{0:#,###.##}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
|
||||
<HeaderTemplate>
|
||||
<asp:Label Text="Total<br/>Devs. RNC" runat="server" CausesValidation="false"> </asp:Label>
|
||||
<asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTotalDevRNC" runat="server" Text='<%# Eval("TotalDevRNC", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
|
||||
<HeaderTemplate>
|
||||
<asp:Label Text="Importe Inicial" runat="server" CausesValidation="false"> </asp:Label>
|
||||
@@ -296,6 +315,7 @@
|
||||
<asp:Literal ID="LtlTotalCorte" runat="server" Text='<%# Eval("TotalCorte", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%--<asp:BoundField HeaderText="CveCorte" DataField="CveCorte" />--%>
|
||||
</Columns>
|
||||
<HeaderStyle CssClass="Titulos" Font-Size="9pt" />
|
||||
<RowStyle CssClass="Texto" />
|
||||
@@ -367,12 +387,18 @@
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
|
||||
<HeaderTemplate>
|
||||
Serie - Folio
|
||||
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="LBDescripcion" runat="server" Text='<%# Eval("SerieFolio") %>' NavigateUrl='<%# Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")%>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField HeaderText="Fac.Rem.Anterior" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" >
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFacRemisionAnterior" runat="server" Text='<%# Eval("FacturaRemisionAnteriorTexto") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblTotal" Text='<%# Eval("ImportePagado", "{0:N2}") %>' runat="server"></asp:Label>
|
||||
|
||||
@@ -87,7 +87,7 @@ Partial Class Bancos_RepCortes
|
||||
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
|
||||
GvDatos.Columns(3).Visible = True
|
||||
GvDatos.Columns(4).Visible = True
|
||||
GvDatos.Columns(12).Visible = True
|
||||
GvDatos.Columns(13).Visible = True
|
||||
End If
|
||||
|
||||
GvDatos.DataSource = DtCortes
|
||||
|
||||
@@ -1602,7 +1602,14 @@ Partial Class PopUpVerFactura
|
||||
If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
|
||||
Dim lrds As New List(Of ReportDataSource)
|
||||
|
||||
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen}
|
||||
Dim DtMetodosPago = DtCortesVentasResumen.Copy()
|
||||
|
||||
'MOVER EL VENTAS CREDITO DE LA DERECHA A LA IZQUIERDA EN EL PDF
|
||||
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
|
||||
DtMetodosPago = DtCortesVentasResumen.FiltraParametros("MetodoPago <> 'Crédito'")
|
||||
End If
|
||||
|
||||
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
|
||||
lrds.Add(rds)
|
||||
Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
|
||||
lrds.Add(rds2)
|
||||
@@ -1689,6 +1696,14 @@ Partial Class PopUpVerFactura
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'")
|
||||
|
||||
Dim rowCredito = DtDatosResumen.NewRow()
|
||||
rowCredito("Columna") = "Crédito"
|
||||
rowCredito("Importe") = TotalCredito
|
||||
rowCredito("Orden") = 4
|
||||
DtDatosResumen.Rows.Add(rowCredito)
|
||||
|
||||
Dim rds3 As New ReportDataSource With {.Name = "DataSet3", .Value = DtDatosResumen.FiltraParametros("Orden > 0", "Orden")}
|
||||
lrds.Add(rds3)
|
||||
|
||||
|
||||
@@ -321,9 +321,13 @@
|
||||
<div class="col-md-1"><b>Folio:</b></div>
|
||||
<div class="col-md-2"> <label><asp:Literal ID="LtlFolio" runat="server"></asp:Literal></label> </div>
|
||||
|
||||
<div class="col-md-1"><b><asp:Literal ID="LtLTipoSaldo" runat="server" Text="Total:"></asp:Literal></b></div>
|
||||
<div class="col-md-1"><b><asp:TextBox ID="LtlSaldo" runat="server" Enabled="true" CssClass="TextBoxAsLabel" BorderStyle="None" BackColor="Transparent" ForeColor="#3c763d" Style="text-align: left"></asp:TextBox> </b></div>
|
||||
<div class="col-md-1" style="text-align:right;"><asp:LinkButton ID="LnkLiberar" runat="server" CssClass="btn btn-xs btn-success" Text="Liberar" OnClick="LnkLiberar_Click" /></div>
|
||||
<div class="col-md-1"><b>
|
||||
<asp:Literal ID="LtLTipoSaldo" runat="server" Text="Total:"></asp:Literal></b></div>
|
||||
<div class="col-md-1"><b>
|
||||
<asp:TextBox ID="LtlSaldo" runat="server" Enabled="true" CssClass="TextBoxAsLabel" BorderStyle="None" BackColor="Transparent" ForeColor="#3c763d" Style="text-align: left"></asp:TextBox>
|
||||
</b></div>
|
||||
<div class="col-md-1" style="text-align: right;">
|
||||
<asp:LinkButton ID="LnkLiberar" runat="server" CssClass="btn btn-xs btn-success" Text="Liberar" OnClick="LnkLiberar_Click" /></div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
@@ -664,15 +668,25 @@
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="col-md-4">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCantidadIE" CssClass="form-control" runat="server" Width="170px" />
|
||||
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ControlToValidate="TxtCantidadIE" Display="None" ErrorMessage="El campo <b>''Dinero''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." ValidationExpression="^([1-9]{1}[\d]{0,2}(\,[\d]{3})*(\.[\d]{0,4})?|[1-9]{1}[\d]{0,}(\.[\d]{0,4})?|0(\.[\d]{0,2})?|(\.[\d]{1,4})?)$" ValidationGroup="GprIngresoEgreso"></asp:RegularExpressionValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender8" runat="server" HighlightCssClass="vco" TargetControlID="RegularExpressionValidator1" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= TxtCantidadIE.ClientID.ToString()%>">Cantidad:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-2">
|
||||
<asp:CheckBox ID="ChkAplicaGasto" runat="server" Text="Gasto" AutoPostBack="true" OnCheckedChanged="ChkAplicaGasto_CheckedChanged" />
|
||||
</div>
|
||||
<div class="col-md-6" runat="server" visible="false" id="DivCuentaGasto">
|
||||
<asp:DropDownList ID="DdlCuentaGasto" runat="server" CssClass="form-control input-sm select2me" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<label for="<%= TxtDescripcionIE.ClientID.ToString()%>">Descripcion:</label>
|
||||
<label for="<%= TxtDescripcionIE.ClientID.ToString()%>">Descripción:</label>
|
||||
<asp:TextBox runat="server" ID="TxtDescripcionIE" CssClass="form-control" TextMode="MultiLine" Width="500px" />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -38,6 +38,10 @@ Partial Class Ventas_PVCobranza
|
||||
|
||||
Private Sub CargaFiltros()
|
||||
|
||||
If UsuarioActual.CveRol <> 1 Then
|
||||
ChkAplicaGasto.Visible = False
|
||||
End If
|
||||
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
DdlSubProyecto.DataBind()
|
||||
|
||||
@@ -64,6 +68,10 @@ Partial Class Ventas_PVCobranza
|
||||
DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", CveMon))
|
||||
DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", CveMon))
|
||||
|
||||
DdlCuentaGasto.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = 1 AND CveTipoCuenta = 1", CveMon))
|
||||
DdlCuentaGasto.DataBind()
|
||||
DdlCuentaGasto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
DtCC.Dispose()
|
||||
|
||||
DdlCuentaEfectivo.DataBind()
|
||||
@@ -581,17 +589,73 @@ Partial Class Ventas_PVCobranza
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAceptarIE_Click(sender As Object, e As EventArgs) Handles BtnAceptarIE.Click
|
||||
If TxtCantidadIE.Text.ToEntero() <= 0 Then
|
||||
Alert("La cantidad debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim TieneError As Boolean = False
|
||||
Dim ObjPVenta As New ClsPuntoVenta
|
||||
If TxtCantidadIE.Text.ToEntero() > 0 Then
|
||||
If ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, TxtCantidadIE.Text.ToDouble, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero(), NowADS()) Then
|
||||
Dim ObjIE As New ClsBancos(ObjPVenta.IniciaTransacSQL())
|
||||
Dim ObjMov As New ClsContabilidad(ObjPVenta.IniciaTransacSQL())
|
||||
Try
|
||||
Dim CveMoneda As Integer = 1
|
||||
Dim TipoCambio As Decimal = 1D
|
||||
|
||||
Dim Importe As Decimal = TxtCantidadIE.Text.ToDecimal()
|
||||
If Not ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, Importe, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero(), NowADS()) Then
|
||||
TieneError = True
|
||||
End If
|
||||
If ChkAplicaGasto.Checked Then
|
||||
|
||||
Dim CveTipoTransaccion As Integer = 2
|
||||
Dim CvePrePoliza = ObjMov.AddPrePolizas("PVCobranza/Gasto ", 23, Importe, Importe, CveMoneda, Now, "Gasto", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
'TRANSFERENCIA BANCARIA
|
||||
Dim EsAbonoEnCuenta As Boolean = False
|
||||
Dim AplicaImpuestos As Boolean = False
|
||||
Dim Folio As Long = ObjIE.GetNextFolio(DdlCuentaGasto.SelectedValue.ToEntero, CveTipoTransaccion)
|
||||
|
||||
Dim CveIE = ObjIE.AddBancos_IE(DdlCuentaGasto.SelectedValue.ToEntero, CveTipoTransaccion, Now, Folio.ToString(), "", Importe, CveMoneda,
|
||||
TipoCambio, TxtDescripcionIE.Text.Trim(), "", EsAbonoEnCuenta, AplicaImpuestos, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=Me.CveCorte)
|
||||
|
||||
Dim TipoMovimiento As Boolean = True
|
||||
|
||||
Dim Importe30 As Decimal = TxtCantidadIE.Text.ToDecimal
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe, Importe30, 30, Folio.ToString(), Folio.ToString(), CveIE:=CveIE) Then
|
||||
Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
|
||||
'TEMPORAL - Préstamo Personal/Gasto por Comprobar
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe, Importe30, 28, Folio.ToString(), Folio.ToString(), CveIE:=CveIE, CvePersonal:=UsuarioActual.CvePersonal) Then
|
||||
'If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtImporte.Text.ToDecimal, 19, Ref, Conc, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
|
||||
' TieneError = True
|
||||
'End If
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
TieneError = True
|
||||
End Try
|
||||
|
||||
If TieneError Then
|
||||
ObjPVenta.RollBack()
|
||||
Else
|
||||
ObjPVenta.Commit()
|
||||
End If
|
||||
|
||||
ObjPVenta.Dispose()
|
||||
|
||||
If Not TieneError Then
|
||||
TxtCantidadIE.Text = ""
|
||||
TxtDescripcionIE.Text = ""
|
||||
RegistraScript("$('#DivIngresoEgreso').modal('hide')", "divingresoegreso")
|
||||
Alert("El movimiento se realizó correctamente")
|
||||
UpIngresoEgreso.Update()
|
||||
End If
|
||||
End If
|
||||
ObjPVenta.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub ImpresionDirectaPDF(CveVenta As Integer)
|
||||
@@ -663,4 +727,9 @@ Partial Class Ventas_PVCobranza
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Sub ChkAplicaGasto_CheckedChanged(sender As Object, e As EventArgs)
|
||||
DivCuentaGasto.Visible = ChkAplicaGasto.Checked
|
||||
|
||||
UpIngresoEgreso.Update()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user