--cambios en cortes

Bancos/RepCortes.aspx

@@ -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>

Bancos/RepCortes.aspx.vb

@@ -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

Compras/PopUpVerFactura.aspx.vb

@@ -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)
 

Ventas/PVCobranza.aspx

@@ -321,9 +321,13 @@
                                     <div class="col-md-1"><b>Folio:</b></div>
                                     <div class="col-md-2">&nbsp;<label><asp:Literal ID="LtlFolio" runat="server"></asp:Literal></label>&nbsp;</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>
-                                    <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>
+                                        <asp:Literal ID="LtLTipoSaldo" runat="server" Text="Total:"></asp:Literal></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: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>

Ventas/PVCobranza.aspx.vb

@@ -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
+        Dim ObjIE As New ClsBancos(ObjPVenta.IniciaTransacSQL())
-            If ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, TxtCantidadIE.Text.ToDouble, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero(), NowADS()) Then
+        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