--CyC, Soportes, formato de econo

App_Code/ClsPaginas.vb

@@ -9728,14 +9728,20 @@ Public Class ClsPaginas
         If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' N O T A   D E   C R E D I T O 
             Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
             Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, Pago.CveMonedaPago, True, 2)
+
+            Dim CveClienteAplicacion As Integer = VentaActual.CveCliente
+            If Pago.CveClienteNC > 0 Then
+                CveClienteAplicacion = Pago.CveClienteNC
+            End If
+
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=CveClienteAplicacion, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
                 ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, ConPrePNC.CveConceptoComplementario, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, ConPrePNC.CveConceptoComplementario, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=CveClienteAplicacion, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=CveClienteAplicacion, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
             End If
         End If
         If Pago.TipoPago = "I" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' I N G R E S O S   X   C O M P R O B A R 
@@ -9841,6 +9847,7 @@ Public Class ClsPaginas
         Public Property Referencia As String
         Public Property CveConceptoPago As Integer = -1
         Public Property CveClientePago As Integer = -1
+        Public Property CveClienteNC As Integer = -1
         Public Property ImporteFluctuacionAdicional As Decimal = 0
         Public Property ValorMultiplicador As Decimal = 1
         Public Property AplicaConceptoImpuestoPendiente As Boolean = False

App_Code/ClsVentas.vb

@@ -183,6 +183,25 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
+    Public Function GetMovimientosDepositoCaja(CveVenta As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MovimientosDepositoVentaGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los datos de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function AgroOrdenProduccionUpvta(cveVenta As Int32, cveUsuario As Int32, cveEmpresa As Int32, CveOrdenProduccion As Int32) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_AGRO_OrdenProduccionUpvta", CommandType.StoredProcedure)

Ventas/PVCobranza.aspx.vb

@@ -956,15 +956,15 @@ Partial Class Ventas_PVCobranza
                             If SeTimbro Then
                                 Dim xml = String.Format("<ul><li><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", respFactura.CveVenta, "XML", respFactura.SerieFolio, respFactura.Factura.TipoDocto)))
                                 msBuild.AppendFormat("{0}", xml)
+
+                                Dim pdf = String.Format("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", respFactura.CveVenta)))
+                                msBuild.AppendFormat("{0}", pdf)
                             Else
                                 If Not String.IsNullOrEmpty(MsgTimbrado) Then
                                     msBuild.AppendFormat("<br/>{0}<br/>", MsgTimbrado)
                                 End If
                             End If
 
-                            Dim pdf = String.Format("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", respFactura.CveVenta)))
-                            msBuild.AppendFormat("{0}", pdf)
-
                             If respFactura.Factura.Inv_CveMovimiento > 0 Then
                                 msBuild.AppendFormat("<b><a target='_blank' class='Texto' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Movimiento de Almacén</a></b><br/>", respFactura.Factura.Inv_CveMovimiento)
                             End If
@@ -1004,12 +1004,11 @@ Partial Class Ventas_PVCobranza
                                     If SeTimbroNC Then
                                         Dim xml = String.Format("<ul><li><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", respNC.CveVenta, "XML", respNC.SerieFolio, respNC.Factura.TipoDocto)))
                                         msBuild.AppendFormat("{0}", xml)
+
+                                        Dim pdfNC = String.Format("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", respNC.CveVenta)))
+                                        msBuild.AppendFormat("{0}", pdfNC)
                                     End If
 
-                                    Dim pdfNC = String.Format("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", respNC.CveVenta)))
-                                    msBuild.AppendFormat("{0}", pdfNC)
-
-
                                     If respNC IsNot Nothing AndAlso respNC.Factura IsNot Nothing AndAlso respNC.Factura.DtAnticiposAplicados IsNot Nothing Then
                                         For Each dr As DataRow In respNC.Factura.DtAnticiposAplicados.Rows
                                             msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}",
@@ -1618,9 +1617,13 @@ Partial Class Ventas_PVCobranza
         If CveBancoCuenta > 0 Then
             Dim CveIEPago As Integer = 0
             Dim ErrorConta As Boolean
+
             If String.IsNullOrEmpty(Obs) Then
-                Obs = VentaActual.SerieFolio
+                Obs = $"Folio: {VentaActual.SerieFolio}"
+            Else
+                Obs = $"{Obs}. Folio: {VentaActual.SerieFolio}"
             End If
+
             CveIEPago = ObjIE.AddBancos_IE(CveBancoCuenta, Metodo, Fecha, "-1", VentaActual.ClienteNombre, ImporteBancos, 1, 1, Obs, "", False, True, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=tCveCorte, CveAutorizacion:=CveAutorizacion, CveSubProyecto:=CveSubProyecto)
             If CveIEPago > 0 Then
                 Dim tImportePago As Decimal = If(ImporteBancos > ImporteAbonoVenta, ImporteAbonoVenta, ImporteBancos) 'toma el importe menor para la factura

Ventas/Ventas.aspx.vb

@@ -6024,7 +6024,7 @@ Partial Class Ventas
 
                         'ACTIVA EDITAR
                         'SOLO LA PUEDE EDITAR CON PROCESO | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
-                        If UsuarioActual.TienePermisoProceso(202) And TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad") Then
+                        If (UsuarioActual.TienePermisoProceso(202) OrElse UsuarioActual.TienePermisoProceso(302)) And TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad") Then
                             BtnPermisoEditarRemision.Visible = True
                         End If
 
@@ -6182,7 +6182,7 @@ Partial Class Ventas
                         End If
                     End If
 
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ped") Then BtnPermisoEditarRemision.Visible = True
                     If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
 
                     'OCULTAR BOTON DE EDICION SI SE FACTURA COTIZACION DESDE URL
@@ -15921,6 +15921,7 @@ Partial Class Ventas
                                             Pago.TipoPago = "NC"
                                             Pago.CveClientePago = ObjFactura.CveCliente
                                             Pago.Referencia = Referencia
+                                            Pago.CveClienteNC = row2.DataKey("CveCliente").ToString().ToEntero()
 
                                             ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaRef, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=True)
 
@@ -27148,12 +27149,24 @@ Partial Class Ventas
             SbCondiciones.Append("<br><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-La remisión está relacionada con otra factura.</b>")
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+        If Extra.Trim().Length > 0 Then
-            DivCanRem.Visible = False
+            SbCondiciones.AppendFormat("<br><b>*{0}</b>", Extra)
         End If
 
-        If Extra.Length > 0 Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-            SbCondiciones.AppendFormat("<br><b>*{0}</b>", Extra)
+            DivCanRem.Visible = False
+            If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
+                Using ObjVentas As New ClsVentas
+                    If ObjVentas.GetMovimientosDepositoCaja(Me.CveVenta, UsuarioActual.CveEmpresa) Then
+                        If ObjVentas.DtResultados.Rows.Count > 0 Then
+                            SbCondiciones.Append("<br><br><span style='color: red;font-size: medium;'><b>*No se puede cancelar debido a que tiene un deposito.</b></span>")
+                            BtnCancelarDocumento.Visible = False
+                        End If
+                    Else
+                        BtnCancelarDocumento.Visible = False
+                    End If
+                End Using
+            End If
         End If
 
         LbCancelarDescripcion.Text = SbCondiciones.ToString()