Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -4446,5 +4446,312 @@ Public Class ClsBancos
|
|||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region "N O T I F I C A C I O N E S D E P A G O P R O V E E D O R E S"
|
||||||
|
|
||||||
|
Public Function NotificacionPago(CveIENotificar As Integer, CorreoNotificarA As String, CopiaPara As String, UsuarioActual As Usuario) As Boolean
|
||||||
|
|
||||||
|
Dim RutaComprobante As String = ""
|
||||||
|
If GetBancosIE(CveIENotificar, UsuarioActual.CveEmpresa) Then
|
||||||
|
RutaComprobante = Comprobante
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Dim Body As String = GeneraCorreo(CveIENotificar, UsuarioActual)
|
||||||
|
'Dim Comprobante As String = ""
|
||||||
|
|
||||||
|
Dim File As Byte() = Nothing
|
||||||
|
|
||||||
|
|
||||||
|
'If MostrarConfirmacion Then
|
||||||
|
Return MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, RutaComprobante, File, UsuarioActual, CopiaPara)
|
||||||
|
'Else
|
||||||
|
' Dim Hilo As New Threading.Thread(Sub() MandaCorreo(CorreoNotificarA, "Notificaciones de pago", Body, RutaComprobante, File, UsuarioActual, MostrarConfirmacion, CopiaPara))
|
||||||
|
' Hilo.Start()
|
||||||
|
'End If
|
||||||
|
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function MandaCorreo(Para As String, Asunto As String, Body As String, RutaComprobante As String, File As Byte(), UsuarioActual As Usuario, CopiaPara As String) As Boolean
|
||||||
|
|
||||||
|
Dim Respuesta As Boolean = False
|
||||||
|
|
||||||
|
Try
|
||||||
|
Dim Mail As New ClsSisMail()
|
||||||
|
Para = If(Para IsNot Nothing, Para, "")
|
||||||
|
Asunto = If(Asunto IsNot Nothing, Asunto, "")
|
||||||
|
Body = If(Body IsNot Nothing, Body, "")
|
||||||
|
|
||||||
|
Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
|
||||||
|
|
||||||
|
If RutaComprobante IsNot Nothing AndAlso RutaComprobante <> "" Then
|
||||||
|
ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaComprobante})
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File IsNot Nothing Then
|
||||||
|
ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"})
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim separador As Char() = {";"c, ","c}
|
||||||
|
Dim strArray As String() = Para.Split(separador)
|
||||||
|
|
||||||
|
Para = ""
|
||||||
|
|
||||||
|
For Each sCorreo As String In strArray
|
||||||
|
If ClsSisMail.IsMailShared(sCorreo) And sCorreo.Trim.Length > 0 Then
|
||||||
|
Para = $"{Para}{sCorreo};"
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
If Para.Length > 0 Then
|
||||||
|
|
||||||
|
Para = Para.Substring(0, Para.Length - 1)
|
||||||
|
|
||||||
|
If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos, Displayname:=$"SIG Notificaciones: Pago de {UsuarioActual.Empresa.Empresa}", CCP:=CopiaPara) Then
|
||||||
|
|
||||||
|
Respuesta = True
|
||||||
|
'If MostrarConfirmacion Then
|
||||||
|
' Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
||||||
|
'End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'If MostrarConfirmacion Then
|
||||||
|
' Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
|
||||||
|
'End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrio un error al enviar el correo", ex)
|
||||||
|
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Respuesta
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function GeneraCorreo(CveIENotificar As Integer, UsuarioActual As Usuario) As String
|
||||||
|
|
||||||
|
Dim strBody As New StringBuilder
|
||||||
|
|
||||||
|
|
||||||
|
If GetBancosIE(CveIENotificar, UsuarioActual.CveEmpresa) Then
|
||||||
|
strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
|
||||||
|
strBody.Append("<head> ")
|
||||||
|
strBody.Append(" <style type=""text/css""> ")
|
||||||
|
strBody.Append(" body ")
|
||||||
|
strBody.Append(" { ")
|
||||||
|
strBody.Append(" margin:0px; ")
|
||||||
|
strBody.Append(" padding:0px 0px 0px 0px; ")
|
||||||
|
strBody.Append(" font-family: Verdana, Arial, Helvetica, sans-serif; ")
|
||||||
|
strBody.Append(" font-size: 10px; ")
|
||||||
|
strBody.Append(" background-color:#F0F0F0; ")
|
||||||
|
strBody.Append(" } ")
|
||||||
|
strBody.Append(" a.Texto ")
|
||||||
|
strBody.Append(" { ")
|
||||||
|
strBody.Append(" font-size:11px; ")
|
||||||
|
strBody.Append(" background-color:#F7F6F3; ")
|
||||||
|
strBody.Append(" text-decoration:none; ")
|
||||||
|
strBody.Append(" font-weight:bold; ")
|
||||||
|
strBody.Append(" } ")
|
||||||
|
strBody.Append(" .Texto ")
|
||||||
|
strBody.Append(" { ")
|
||||||
|
strBody.Append(" background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
|
||||||
|
strBody.Append(" } ")
|
||||||
|
strBody.Append(" .TextoAlterno ")
|
||||||
|
strBody.Append(" { ")
|
||||||
|
strBody.Append(" background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center; ")
|
||||||
|
strBody.Append(" vertical-align:middle; height:20px;")
|
||||||
|
strBody.Append(" } ")
|
||||||
|
strBody.Append(" .BarraIdentidad ")
|
||||||
|
strBody.Append(" { ")
|
||||||
|
strBody.Append(" color:#FFFFFF; ")
|
||||||
|
strBody.Append(" background:#F0F0F0; ")
|
||||||
|
strBody.Append(" font-weight:bold; ")
|
||||||
|
strBody.Append(" font-size:19px; ")
|
||||||
|
strBody.Append(" font-style:oblique; ")
|
||||||
|
strBody.Append(" } ")
|
||||||
|
strBody.Append(" .Titulos ")
|
||||||
|
strBody.Append(" { ")
|
||||||
|
strBody.Append(" background-color: Gray;")
|
||||||
|
strBody.Append(" color:White; ")
|
||||||
|
strBody.Append(" font-family:Verdana; font-size:12px; text-align:center; ")
|
||||||
|
strBody.Append(" vertical-align:middle; font-weight:bold; height:30px; ")
|
||||||
|
strBody.Append(" text-decoration:none; ")
|
||||||
|
strBody.Append(" } ")
|
||||||
|
strBody.Append(" .Verde {color: #00CC00;} ")
|
||||||
|
strBody.Append(" .Negro {color: #000000;} ")
|
||||||
|
strBody.Append(" .Rojo {color: #FF0000;} ")
|
||||||
|
strBody.Append(" </style> ")
|
||||||
|
strBody.Append("</head> ")
|
||||||
|
strBody.Append("<body> ")
|
||||||
|
strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
|
||||||
|
strBody.AppendFormat(" <fieldset>")
|
||||||
|
strBody.AppendFormat(" <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
|
||||||
|
strBody.AppendFormat(" <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
|
||||||
|
strBody.AppendFormat(" <tr>")
|
||||||
|
strBody.AppendFormat(" <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" <tr>")
|
||||||
|
strBody.AppendFormat(" <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" <tr>")
|
||||||
|
strBody.AppendFormat(" <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" <tr>")
|
||||||
|
strBody.AppendFormat(" <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" </table>")
|
||||||
|
strBody.AppendFormat(" </fieldset>")
|
||||||
|
strBody.AppendFormat("</div><br/><br/>")
|
||||||
|
|
||||||
|
strBody.AppendFormat("<div style='width: 600px'>")
|
||||||
|
strBody.AppendFormat(" <fieldset>")
|
||||||
|
strBody.AppendFormat(" <legend><b> </b></legend>")
|
||||||
|
strBody.AppendFormat(" <table class='TextoG' style='width:100%'>")
|
||||||
|
|
||||||
|
If CveTipoTransaccion = 1 Then ' cuando es cheque
|
||||||
|
strBody.Append(" <tr style=""height: 22px""> ")
|
||||||
|
strBody.Append(" <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
|
||||||
|
strBody.Append(" </tr> ")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If CveTipoTransaccion.Contiene(2, 9, 17) Then ' cuando es transf
|
||||||
|
strBody.Append(" <tr style=""height: 22px""> ")
|
||||||
|
strBody.Append(" <td>Notificación de transferencia de pago realizada.</td> ")
|
||||||
|
strBody.Append(" </tr> ")
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
strBody.Append(" <tr style=""height: 22px""> ")
|
||||||
|
strBody.AppendFormat(" <td> </td> ")
|
||||||
|
strBody.Append(" </tr> ")
|
||||||
|
strBody.Append(" </table> ")
|
||||||
|
strBody.AppendFormat(" </fieldset>")
|
||||||
|
strBody.Append(" </div> ")
|
||||||
|
|
||||||
|
|
||||||
|
strBody.AppendFormat("<div style='width: 600px'>")
|
||||||
|
strBody.AppendFormat(" <table style='width:100%'>")
|
||||||
|
strBody.AppendFormat(" <tr>")
|
||||||
|
strBody.AppendFormat(" <td style='vertical-align: top'>")
|
||||||
|
strBody.AppendFormat(" <fieldset>")
|
||||||
|
strBody.AppendFormat(" <legend>Beneficiario:<b>{0}</b> </legend>", PagueseA)
|
||||||
|
strBody.AppendFormat(" <table width='100%'>")
|
||||||
|
strBody.AppendFormat(" <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
|
||||||
|
strBody.AppendFormat(" <th scope='col' style='width:150px;'></th>")
|
||||||
|
strBody.AppendFormat(" <th scope='col' style='width:450px;'></th>")
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" <tr class='Texto'>")
|
||||||
|
strBody.AppendFormat(" <td>Movimiento:</td>")
|
||||||
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", TipoTransaccion)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" <tr class='Texto'>")
|
||||||
|
strBody.AppendFormat(" <td>Banco:</td>")
|
||||||
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", Banco)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" <tr class='Texto'>")
|
||||||
|
strBody.AppendFormat(" <td>Cuenta:</td>")
|
||||||
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", NumCuenta)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
If CuentaDepositado.ToString <> "" Then
|
||||||
|
strBody.AppendFormat(" <tr class='Texto'>")
|
||||||
|
strBody.AppendFormat(" <td>Cuenta Destino:</td>")
|
||||||
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", CuentaDepositado)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
End If
|
||||||
|
|
||||||
|
strBody.AppendFormat(" <tr class='Texto'>")
|
||||||
|
strBody.AppendFormat(" <td>Fecha:</td>")
|
||||||
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", FechaDocumento.ToString("dd/MM/yyyy"))
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" <tr class='Texto'>")
|
||||||
|
strBody.AppendFormat(" <td>Importe:</td>")
|
||||||
|
strBody.AppendFormat(" <td style='text-align: left'>$ {0} {1}</td>", Importe.FormatoNumero, Moneda)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" <tr class='Texto'>")
|
||||||
|
strBody.AppendFormat(" <td>Observaciones:</td>")
|
||||||
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", Observaciones)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" <tr class='Texto'>")
|
||||||
|
strBody.AppendFormat(" <td colspan='2'>")
|
||||||
|
strBody.AppendFormat(" <hr />")
|
||||||
|
strBody.AppendFormat(" </td>")
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" </table>")
|
||||||
|
strBody.AppendFormat(" </fieldset>")
|
||||||
|
strBody.AppendFormat(" </td>")
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" </table>")
|
||||||
|
strBody.AppendFormat("</div>")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'MOVIMIENTOS CHEQUE
|
||||||
|
If GetBancosIEMovimientos(CveIENotificar, UsuarioActual.CveEmpresa) Then
|
||||||
|
Dim Textov33 As String = ""
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
|
||||||
|
Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
strBody.AppendFormat("<div style='width: 1000px'>")
|
||||||
|
strBody.AppendFormat(" <table style='width:1000px'>")
|
||||||
|
strBody.AppendFormat(" <tr>")
|
||||||
|
strBody.AppendFormat(" <td style='vertical-align: top'>")
|
||||||
|
strBody.AppendFormat(" <fieldset>")
|
||||||
|
strBody.AppendFormat(" <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
|
||||||
|
strBody.AppendFormat(" <table width='1000px'>")
|
||||||
|
strBody.AppendFormat(" <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
|
||||||
|
strBody.AppendFormat(" <th scope='col' style='width: 10%'>Fecha</th>")
|
||||||
|
strBody.AppendFormat(" <th scope='col' style='width: 20%'>Factura</th>")
|
||||||
|
strBody.AppendFormat(" <th scope='col' style='width: 20%'>Importe ($)</th>")
|
||||||
|
strBody.AppendFormat(" <th scope='col' style='width: 40%'>Folio Fiscal</th>")
|
||||||
|
strBody.AppendFormat(" <th scope='col' style='width: 15%'>NC Aplicadas</th>")
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
|
||||||
|
|
||||||
|
For Each dr As DataRow In DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
|
||||||
|
strBody.AppendFormat(" <tr class='Texto'>")
|
||||||
|
strBody.AppendFormat(" <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
|
||||||
|
strBody.AppendFormat(" <td>{0}</td>", dr("SerieFolio").ToString)
|
||||||
|
strBody.AppendFormat(" <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
|
||||||
|
strBody.AppendFormat(" <td>{0}</td>", dr("FolioFiscal"))
|
||||||
|
strBody.AppendFormat(" <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
strBody.AppendFormat(" <tr class='Texto'>")
|
||||||
|
strBody.AppendFormat(" <td colspan='5'>")
|
||||||
|
strBody.AppendFormat(" <hr />")
|
||||||
|
strBody.AppendFormat(" </td>")
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" </table>")
|
||||||
|
strBody.AppendFormat(" </fieldset>")
|
||||||
|
strBody.AppendFormat(" </td>")
|
||||||
|
strBody.AppendFormat(" </tr>")
|
||||||
|
strBody.AppendFormat(" </table>")
|
||||||
|
strBody.AppendFormat("</div>")
|
||||||
|
End If
|
||||||
|
|
||||||
|
strBody.Append(" <div> Favor de no responder a este correo. </div> ")
|
||||||
|
|
||||||
|
strBody.Append("</body></html>")
|
||||||
|
End If
|
||||||
|
|
||||||
|
'objIE.Dispose()
|
||||||
|
Return strBody.ToString
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -460,7 +460,8 @@ Public Class ClsVentas
|
|||||||
Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1,
|
Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1,
|
||||||
Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
|
Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
|
||||||
Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
|
Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
|
||||||
Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean
|
Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveVendedor As Integer = -1, Optional ObsAlm As String = "", Optional FormaPaqueteria As Integer = -1,
|
||||||
|
Optional CorreoNot As String = "-1") As Boolean
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
DataAdapter("PA_Vta_VentasUpdate")
|
DataAdapter("PA_Vta_VentasUpdate")
|
||||||
|
|
||||||
@@ -491,6 +492,10 @@ Public Class ClsVentas
|
|||||||
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
|
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
|
||||||
.Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra
|
.Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra
|
||||||
.Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
|
.Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
|
||||||
|
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
|
||||||
|
.Add("@ObservacionesAlm", SqlDbType.NVarChar).Value = ObsAlm
|
||||||
|
.Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
|
||||||
|
.Add("@CorreoNotificacion", SqlDbType.NVarChar).Value = CorreoNot
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|||||||
151
Bancos/IE.aspx
151
Bancos/IE.aspx
@@ -441,6 +441,115 @@
|
|||||||
|
|
||||||
<hr />
|
<hr />
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<div class="portlet light xspadding bordered " runat="server" id="DVDevolucion" visible="false">
|
||||||
|
<div class="portlet-title">
|
||||||
|
<div class="caption font-green">
|
||||||
|
<i class="icon-pin font-green"></i>
|
||||||
|
<span class="caption-subject bold uppercase">Notas de Crédito</span>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="tools">
|
||||||
|
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||||
|
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
|
||||||
|
<a href="javascript:;" class="remove" data-original-title="" title=""></a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="actions">
|
||||||
|
<div class="btn-group">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="portlet-body ">
|
||||||
|
|
||||||
|
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-6">
|
||||||
|
|
||||||
|
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpGvNotas" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<asp:GridView ID="GvA" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Notas de Crédito" DataKeyNames="CveCompra,Saldo,SerieFolio,Fecha"
|
||||||
|
CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None" BorderColor="#D3D3D3" BorderWidth="1">
|
||||||
|
<Columns>
|
||||||
|
<asp:TemplateField ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Center">
|
||||||
|
|
||||||
|
<HeaderTemplate>
|
||||||
|
<input type="checkbox" class="form-check-input" id="ChkSelector" onclick="SelectorNotas(this)">
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:CheckBox ID="Chk" runat="server" CssClass="CssSelector" onclick="FCSumaTotalesNotas()" />
|
||||||
|
</ItemTemplate>
|
||||||
|
|
||||||
|
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField ItemStyle-Width="100px" HeaderText="NC">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:HyperLink ID="HplFactura" runat="server" CssClass="Texto" Text='<%# Eval("SerieFolio")%>' NavigateUrl='<%# If(Eval("CveCompra").ToString <> "0", Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}"), If(Eval("CveIE").ToString <> "0", Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}"), ""))%>'></asp:HyperLink>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField HeaderText="Fecha">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField HeaderText="Original" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}")%>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField Visible="False" HeaderText="Abonar">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Image ID="ImgAbonar" runat="server" ImageUrl="~/Imagenes/Money_add.png" AlternateText="Registrar Pago/Abono" Style="cursor: pointer;" Visible="False" />
|
||||||
|
<%-- Visible='<%# Eval("CveCompra").ToString <> "" andalso CDbl(Eval("Saldo")) > 0%>' />--%>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
<asp:TemplateField HeaderText="Devolución" ItemStyle-HorizontalAlign="Center" Visible="false" ItemStyle-Width="50px">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:HyperLink ID="HLDevolverDinero" Visible="false" NavigateUrl="#" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-usd'></i>" runat="server" />
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
|
||||||
|
</Columns>
|
||||||
|
<RowStyle CssClass="Texto" />
|
||||||
|
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||||
|
<HeaderStyle CssClass="Titulos" />
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</asp:GridView>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<div id="ModalUpload" class="modal ADS fade" role="dialog">
|
<div id="ModalUpload" class="modal ADS fade" role="dialog">
|
||||||
<div class="modal-dialog">
|
<div class="modal-dialog">
|
||||||
|
|
||||||
@@ -873,6 +982,8 @@
|
|||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<table border="0" cellpadding="0" cellspacing="0" width="100%">
|
<table border="0" cellpadding="0" cellspacing="0" width="100%">
|
||||||
<tr>
|
<tr>
|
||||||
<td align="center">
|
<td align="center">
|
||||||
@@ -1163,6 +1274,7 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
<%-- COMPLEMENTOS PAGO --%>
|
<%-- COMPLEMENTOS PAGO --%>
|
||||||
|
|
||||||
<div id="ModalComplementoPagos" class="modal ADS fade" role="dialog">
|
<div id="ModalComplementoPagos" class="modal ADS fade" role="dialog">
|
||||||
<asp:UpdatePanel ID="UpComplementoPagos" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="UpComplementoPagos" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
@@ -1571,5 +1683,44 @@
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
function SelectorNotas(Chk) {
|
||||||
|
|
||||||
|
$(`.CssSelector input[type=checkbox]`).each(function () {
|
||||||
|
$(this).prop('checked', Chk.checked);
|
||||||
|
});
|
||||||
|
|
||||||
|
FCSumaTotalesNotas()
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
function FCSumaTotalesNotas() {
|
||||||
|
var Total = 0.0;
|
||||||
|
|
||||||
|
$(`.CssSelector input[type=checkbox]`).each(function () {
|
||||||
|
if ($(this).is(":checked")) {
|
||||||
|
Total += parseFloat($(this).attr("data-saldo"));
|
||||||
|
}
|
||||||
|
});
|
||||||
|
|
||||||
|
|
||||||
|
if (Total > 0) {
|
||||||
|
|
||||||
|
$(`#TxtImporte`).val(Total);
|
||||||
|
|
||||||
|
FormatoMoneda( $get("TxtImporte"));
|
||||||
|
|
||||||
|
} else {
|
||||||
|
$(`#TxtImporte`).val("");
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
function DeshabilitarTxt(){
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
</script>
|
</script>
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
|
|||||||
@@ -148,7 +148,14 @@ Partial Class Bancos_IE
|
|||||||
End Property
|
End Property
|
||||||
Private Property SerieFolioDeCDin As String
|
Private Property SerieFolioDeCDin As String
|
||||||
Get
|
Get
|
||||||
Return ViewState("SerieFolioDeCDin").ToString
|
|
||||||
|
If ViewState("SerieFolioDeCDin") Is Nothing Then
|
||||||
|
Return ""
|
||||||
|
Else
|
||||||
|
Return ViewState("SerieFolioDeCDin").ToString
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
End Get
|
End Get
|
||||||
Set(value As String)
|
Set(value As String)
|
||||||
ViewState("SerieFolioDeCDin") = value
|
ViewState("SerieFolioDeCDin") = value
|
||||||
@@ -438,7 +445,12 @@ Partial Class Bancos_IE
|
|||||||
End Property
|
End Property
|
||||||
Private Property CveCorte As Integer
|
Private Property CveCorte As Integer
|
||||||
Get
|
Get
|
||||||
Return IfNull(ViewState("CveCorte"), -1, ViewState("CveCorte").ToString().ToString()).ToString().ToEntero()
|
If ViewState("CveCorte") Is Nothing Then
|
||||||
|
Return -1
|
||||||
|
Else
|
||||||
|
Return ViewState("CveCorte").ToString().ToEntero()
|
||||||
|
End If
|
||||||
|
|
||||||
End Get
|
End Get
|
||||||
Set(value As Integer)
|
Set(value As Integer)
|
||||||
ViewState("CveCorte") = value
|
ViewState("CveCorte") = value
|
||||||
@@ -446,6 +458,21 @@ Partial Class Bancos_IE
|
|||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Private Property Masivonotas As Boolean
|
||||||
|
Get
|
||||||
|
|
||||||
|
If ViewState("Masivonotas") Is Nothing Then
|
||||||
|
Return False
|
||||||
|
Else
|
||||||
|
Return Boolean.Parse(ViewState("Masivonotas").ToString)
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
ViewState("Masivonotas") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
#Region "CANCELACIÓN COMPLEMENTO MODAL V2"
|
#Region "CANCELACIÓN COMPLEMENTO MODAL V2"
|
||||||
|
|
||||||
Property CveComplementoPagoCancelar As Integer
|
Property CveComplementoPagoCancelar As Integer
|
||||||
@@ -572,6 +599,8 @@ Partial Class Bancos_IE
|
|||||||
'Guarda el modo actual de la pagina
|
'Guarda el modo actual de la pagina
|
||||||
Opcion = If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "-1")
|
Opcion = If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "-1")
|
||||||
|
|
||||||
|
Masivonotas = If(Request("Masivo") IsNot Nothing, True, False)
|
||||||
|
|
||||||
Session("FileUpload") = ""
|
Session("FileUpload") = ""
|
||||||
TRCveIE.Visible = False
|
TRCveIE.Visible = False
|
||||||
|
|
||||||
@@ -604,6 +633,18 @@ Partial Class Bancos_IE
|
|||||||
CargaProveedor(CveProveedor, "-1")
|
CargaProveedor(CveProveedor, "-1")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion") = "DevDinC" AndAlso Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
|
||||||
|
If Masivonotas Then
|
||||||
|
'CargaNotas()
|
||||||
|
DVDevolucion.Visible = True
|
||||||
|
HdnCveProveedor.Value = Request("CveProveedor")
|
||||||
|
DivOtrosIngresosEgresos.Visible = False
|
||||||
|
End If
|
||||||
|
TxtImporte.Attributes.Add("onkeypress", "javascript: return false;")
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
|
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
|
||||||
LblPagueseA.Text = ""
|
LblPagueseA.Text = ""
|
||||||
LblPagueseA.Visible = False
|
LblPagueseA.Visible = False
|
||||||
@@ -1225,6 +1266,7 @@ Partial Class Bancos_IE
|
|||||||
Dim EsDevolucion As Boolean = False
|
Dim EsDevolucion As Boolean = False
|
||||||
|
|
||||||
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion") = "DevDinC" Then
|
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion") = "DevDinC" Then
|
||||||
|
CveIE = -1
|
||||||
EsDevolucion = True
|
EsDevolucion = True
|
||||||
RBL.SelectedValue = "P"
|
RBL.SelectedValue = "P"
|
||||||
RBL.Enabled = False
|
RBL.Enabled = False
|
||||||
@@ -1237,6 +1279,8 @@ Partial Class Bancos_IE
|
|||||||
DdlProveedores.SelectedValue = ObjProveedor.CveProveedor.ToString
|
DdlProveedores.SelectedValue = ObjProveedor.CveProveedor.ToString
|
||||||
DivOtrosIngresosEgresos.Visible = True
|
DivOtrosIngresosEgresos.Visible = True
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Select Case RBL.SelectedValue
|
Select Case RBL.SelectedValue
|
||||||
@@ -1289,6 +1333,78 @@ Partial Class Bancos_IE
|
|||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub CargaNotas(CvemonedaInterna As Integer)
|
||||||
|
Dim ObjMovtos As New ClsMovimientos()
|
||||||
|
|
||||||
|
If CvemonedaInterna > 0 Then
|
||||||
|
If ObjMovtos.GetAnticiposProveedor(CveProveedor, -1, CvemonedaInterna, -1) AndAlso ObjMovtos.DtResultados.FiltraParametros("TipoDocto = 'NC'").Rows.Count > 0 Then
|
||||||
|
GvA.DataSource = ObjMovtos.DtResultados.FiltraParametros("TipoDocto = 'NC' and Saldo > 0 and CveCompra > 0")
|
||||||
|
|
||||||
|
Else
|
||||||
|
GvA.DataSource = Nothing
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
GvA.DataSource = Nothing
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
ObjMovtos.Dispose()
|
||||||
|
|
||||||
|
|
||||||
|
GvA.DataBind()
|
||||||
|
UpGvNotas.Update()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub GvAH_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvA.RowDataBound
|
||||||
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
|
|
||||||
|
If e.Row.RowIndex = 0 Then 'e.Row.BackColor = Drawing.Color.LightGray
|
||||||
|
|
||||||
|
e.Row.Cells(1).Width = Unit.Pixel(120)
|
||||||
|
e.Row.Cells(2).Width = Unit.Pixel(100)
|
||||||
|
e.Row.Cells(3).Width = Unit.Pixel(100)
|
||||||
|
e.Row.Cells(4).Width = Unit.Pixel(100)
|
||||||
|
End If
|
||||||
|
|
||||||
|
'If e.Row.DBCampo("TipoDocto") = "Egsc" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
|
||||||
|
' e.Row.CssClass = "Totales TextCenter"
|
||||||
|
' e.Row.Cells(1).Text = "Egreso Por Comprobar"
|
||||||
|
'End If
|
||||||
|
|
||||||
|
'If e.Row.DBCampo("TipoDocto") = "Ant" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
|
||||||
|
' e.Row.CssClass = "Totales TextCenter"
|
||||||
|
' e.Row.Cells(1).Text = "Anticipos"
|
||||||
|
'End If
|
||||||
|
|
||||||
|
If e.Row.DBCampo("TipoDocto") = "NC" AndAlso e.Row.DataKey("CveCompra").ToString.ToEntero > 0 Then
|
||||||
|
e.Row.FCCheckBox("Chk").InputAttributes.Add("data-saldo", e.Row.DataKey("Saldo"))
|
||||||
|
End If
|
||||||
|
|
||||||
|
'If e.Row.DBCampo("TipoDocto") = "DEV" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
|
||||||
|
' e.Row.CssClass = "Totales TextCenter"
|
||||||
|
' e.Row.Cells(0).Text = "Devolución"
|
||||||
|
'End If
|
||||||
|
|
||||||
|
'If e.Row.DBCampo("CveProveedor") = "" Then
|
||||||
|
' e.Row.BackColor = Drawing.Color.LightGray
|
||||||
|
'End If
|
||||||
|
|
||||||
|
'If UsuarioActual.TienePermisoProceso(273) Then
|
||||||
|
' If CType(sender, GridView).ID = "GvA" And e.Row.DBCampo("CveCompra").ToEntero > 0 And e.Row.DBCampo("TipoDocto") = "NC" Then
|
||||||
|
' Dim Parametros = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}")
|
||||||
|
' e.Row.FCHyperLink("HLDevolverDinero").Visible = True
|
||||||
|
' e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinC&P={Parametros}"
|
||||||
|
' End If
|
||||||
|
'End If
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#Region " CARGA CLIENTE "
|
#Region " CARGA CLIENTE "
|
||||||
Protected Sub DdlCliente_selectedindexchange(sender As Object, e As EventArgs)
|
Protected Sub DdlCliente_selectedindexchange(sender As Object, e As EventArgs)
|
||||||
HdnCveCliente.Value = DdlCliente.SelectedValue
|
HdnCveCliente.Value = DdlCliente.SelectedValue
|
||||||
@@ -1445,6 +1561,15 @@ Partial Class Bancos_IE
|
|||||||
Banco.Dispose()
|
Banco.Dispose()
|
||||||
TxtFolio.Text = Folio.ToString
|
TxtFolio.Text = Folio.ToString
|
||||||
|
|
||||||
|
Dim drI As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
|
||||||
|
|
||||||
|
If drI IsNot Nothing Then
|
||||||
|
CargaNotas(drI("CveMoneda").ToString.ToEntero)
|
||||||
|
Else
|
||||||
|
CargaNotas(-1)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
TxtFolio.Text = ""
|
TxtFolio.Text = ""
|
||||||
End If
|
End If
|
||||||
@@ -1676,7 +1801,7 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
If Opcion = "DevDinC" AndAlso Request("P") IsNot Nothing AndAlso Request("P").Length > 0 Then
|
If Opcion = "DevDinC" AndAlso Request("P") IsNot Nothing AndAlso Request("P").Length > 0 Or Opcion = "DevDinC" AndAlso Masivonotas Then
|
||||||
DdlTipoTransaccion.DataSource = dt.FiltraParametros("Tipo = 'Ing' ")
|
DdlTipoTransaccion.DataSource = dt.FiltraParametros("Tipo = 'Ing' ")
|
||||||
Else
|
Else
|
||||||
DdlTipoTransaccion.DataSource = dt
|
DdlTipoTransaccion.DataSource = dt
|
||||||
@@ -2864,20 +2989,7 @@ Partial Class Bancos_IE
|
|||||||
Dim TCCompra As Decimal = 1
|
Dim TCCompra As Decimal = 1
|
||||||
Dim TCDocumento As Decimal = 1
|
Dim TCDocumento As Decimal = 1
|
||||||
|
|
||||||
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
|
||||||
|
|
||||||
TCCompra = GlobalTipoCambio(FechaCompra).ToDecimal
|
|
||||||
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
|
|
||||||
|
|
||||||
If TCCompra <= 0 Then
|
|
||||||
Alert("No se pudo obtener el tipo de cambio de la nota de crédito.", TipoMensaje.MsgAdvertencia)
|
|
||||||
End If
|
|
||||||
|
|
||||||
If TCCompra <= 0 Then
|
|
||||||
Alert("No se pudo obtener el tipo de cambio del documentpo.", TipoMensaje.MsgAdvertencia)
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -2889,207 +3001,498 @@ Partial Class Bancos_IE
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
'BANCOS COMPLEMENTARIA
|
If Masivonotas Then
|
||||||
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
|
||||||
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
|
|
||||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
|
|
||||||
MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
'OTROS INGRESOS/EGRESOS
|
For Each GvRow As GridViewRow In GvA.Rows
|
||||||
If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then
|
If GvRow.RowType = DataControlRowType.DataRow AndAlso GvRow.FCCheckBox("Chk").Checked Then
|
||||||
Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal
|
|
||||||
Dim TipoMovtoIE As Boolean = False
|
|
||||||
Dim CveConcIE As Integer = 78
|
|
||||||
If Impo > 0 Then
|
|
||||||
TipoMovtoIE = True
|
|
||||||
Impo = Math.Abs(Impo)
|
|
||||||
CveConcIE = 78
|
|
||||||
IdCtaContableAplicar = UsuarioActual.Empresa.IdCuentaOtrosIngresos
|
|
||||||
Else
|
|
||||||
TipoMovtoIE = False
|
|
||||||
Impo = Math.Abs(Impo)
|
|
||||||
CveConcIE = 211
|
|
||||||
IdCtaContableAplicar = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
|
Dim FechaCompraNota As Date = GvRow.DataKey("Fecha").ToDate
|
||||||
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
|
||||||
Exit Select
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
'CANCELA NC
|
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||||
IdCtaContableAplicar = IDCtaBeneficiario
|
|
||||||
ImporteAplicar = ImporteAplicar - TxtOtrosIngresosEgresos.Text.ToDecimal
|
|
||||||
ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
|
|
||||||
|
|
||||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
|
TCCompra = GlobalTipoCambio(FechaCompraNota).ToDecimal
|
||||||
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
|
||||||
Exit Select
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
If TCCompra <= 0 Then
|
||||||
|
Alert("No se pudo obtener el tipo de cambio de la nota de crédito.", TipoMensaje.MsgAdvertencia)
|
||||||
|
End If
|
||||||
|
|
||||||
'NC COMPLEMENTARIA
|
If TCDocumento <= 0 Then
|
||||||
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
Alert("No se pudo obtener el tipo de cambio del documentpo.", TipoMensaje.MsgAdvertencia)
|
||||||
|
|
||||||
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
|
|
||||||
|
|
||||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
|
|
||||||
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
If TCCompra <> TCDocumento Then
|
|
||||||
|
|
||||||
Dim DiferenciaTC As Decimal = TCCompra - TCDocumento
|
|
||||||
|
|
||||||
Dim DiferenciaImportes As Decimal = Math.Abs((ImporteAplicar * TCCompra) - (ImporteAplicar * TCDocumento))
|
|
||||||
|
|
||||||
If DiferenciaTC < 0 Then
|
|
||||||
'64
|
|
||||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
|
|
||||||
MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria"
|
|
||||||
Exit Select
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
'65
|
|
||||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
|
|
||||||
MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria"
|
|
||||||
Exit Select
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
'IMPUESTOS
|
|
||||||
|
|
||||||
Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6)
|
|
||||||
Dim CveConceptoContableAplciar = -1
|
|
||||||
Dim TipoMovtoAplicar = False
|
|
||||||
|
|
||||||
|
|
||||||
Dim ObjCompras As New ClsCompras()
|
|
||||||
If ObjCompras.GetCompras(CveCompraDeCDin, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
|
||||||
|
|
||||||
Dim dr As DataRow = ObjCompras.DtResultados.Rows(0)
|
|
||||||
If dr IsNot Nothing Then
|
|
||||||
|
|
||||||
Dim CveMonedaDev As Integer = dr("CveMoneda").ToString.ToEntero
|
|
||||||
Dim TotalCompraDev As Decimal = dr("Total").ToString.ToDecimal
|
|
||||||
|
|
||||||
Dim IVADev As Decimal = dr("IVA").ToString.ToDecimal
|
|
||||||
Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal
|
|
||||||
PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal
|
|
||||||
|
|
||||||
Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
|
|
||||||
Dim CveCuentaIVAxAcreditarDevDinC = 0
|
|
||||||
Dim CveCuentaIVAAcreditableDevDinC = 0
|
|
||||||
Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
|
||||||
Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
|
||||||
|
|
||||||
|
|
||||||
Dim IVADevMN As Decimal = 0
|
|
||||||
Dim IEPSDevMN As Decimal = 0
|
|
||||||
|
|
||||||
|
|
||||||
Dim PorcentajeDevolucion As Decimal = ((TxtImporte.Text.ToDecimal * 100D / TotalCompraDev) / 100).RoundSQL(2)
|
|
||||||
|
|
||||||
IVADev = Math.Round(IVADev * PorcentajeDevolucion, 2)
|
|
||||||
IEPSDev = Math.Round(IEPSDev * PorcentajeDevolucion, 2)
|
|
||||||
|
|
||||||
Dim CveCuentaDevolucionIMPUESTOS As Integer = -1
|
|
||||||
Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
|
|
||||||
|
|
||||||
|
|
||||||
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
|
||||||
IVADevMN = IVADev
|
|
||||||
IEPSDevMN = IEPSDev
|
|
||||||
Else
|
|
||||||
IVADevMN = (IVADev * If(CveMonedaDev = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL(2)
|
|
||||||
IEPSDevMN = (IEPSDev * If(CveMonedaDev = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL(2)
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
Dim ErrorDevolucionImpuestos As Boolean = False
|
|
||||||
|
|
||||||
If IVADev > 0 Then
|
|
||||||
|
|
||||||
CveCuentaDevolucionIMPUESTOS = CveCuentaIVAxAcreditarDevDinC
|
|
||||||
IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC
|
|
||||||
|
|
||||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAplicar, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
|
||||||
|
|
||||||
CveCuentaDevolucionIMPUESTOS = CveCuentaIVAAcreditableDevDinC
|
|
||||||
IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
|
|
||||||
|
|
||||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
|
||||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
|
||||||
ErrorDevolucionImpuestos = True
|
|
||||||
End If
|
End If
|
||||||
Else
|
|
||||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
|
||||||
ErrorDevolucionImpuestos = True
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
If IEPSDev > 0 Then
|
|
||||||
'Dim ObjContabilidad As New ClsContabilidad
|
|
||||||
If ObjMov.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
|
|
||||||
Try
|
|
||||||
CveCuentaDevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero
|
|
||||||
IdCtaIVADevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
|
||||||
|
|
||||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, -IEPSDev, ReferenciaAplicar, 25, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
ImporteAplicar = GvRow.DataKey("Saldo").ToDecimal
|
||||||
|
ImporteAplicarME = ImporteAplicar
|
||||||
|
|
||||||
If ObjMov.GetRetCuenta(26, UsuarioActual.CveEmpresa) Then
|
|
||||||
|
'CONSIDERA COMPLEMENTARIA
|
||||||
|
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||||
|
ImporteAplicarMN = ImporteAplicar
|
||||||
|
Else
|
||||||
|
ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||||
|
|
||||||
|
TCCompra = GlobalTipoCambio(GvRow.DataKey("Fecha").ToDate).ToDecimal
|
||||||
|
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
|
||||||
|
|
||||||
|
If TCCompra <= 0 Then
|
||||||
|
Alert("No se pudo obtener el tipo de cambio de la nota de crédito.", TipoMensaje.MsgAdvertencia)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If TCDocumento <= 0 Then
|
||||||
|
Alert("No se pudo obtener el tipo de cambio del documentpo.", TipoMensaje.MsgAdvertencia)
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {ImporteAplicar} NC:{GvRow.DataKey("SerieFolio")}"
|
||||||
|
|
||||||
|
CveCompraDeCDin = GvRow.DataKey("CveCompra").ToEntero
|
||||||
|
|
||||||
|
''
|
||||||
|
|
||||||
|
'BANCOS COMPLEMENTARIA
|
||||||
|
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||||
|
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
|
||||||
|
MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
''OTROS INGRESOS/EGRESOS
|
||||||
|
'If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then
|
||||||
|
' Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal
|
||||||
|
' Dim TipoMovtoIE As Boolean = False
|
||||||
|
' Dim CveConcIE As Integer = 78
|
||||||
|
' If Impo > 0 Then
|
||||||
|
' TipoMovtoIE = True
|
||||||
|
' Impo = Math.Abs(Impo)
|
||||||
|
' CveConcIE = 78
|
||||||
|
' IdCtaContableAplicar = UsuarioActual.Empresa.IdCuentaOtrosIngresos
|
||||||
|
' Else
|
||||||
|
' TipoMovtoIE = False
|
||||||
|
' Impo = Math.Abs(Impo)
|
||||||
|
' CveConcIE = 211
|
||||||
|
' IdCtaContableAplicar = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
|
||||||
|
' End If
|
||||||
|
|
||||||
|
|
||||||
|
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
|
||||||
|
' MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||||
|
' Exit Select
|
||||||
|
' End If
|
||||||
|
'End If
|
||||||
|
|
||||||
|
'CANCELA NC
|
||||||
|
IdCtaContableAplicar = IDCtaBeneficiario
|
||||||
|
ImporteAplicar = ImporteAplicar '- TxtOtrosIngresosEgresos.Text.ToDecimal
|
||||||
|
ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
|
||||||
|
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||||
|
Exit Select
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'NC COMPLEMENTARIA
|
||||||
|
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||||
|
|
||||||
|
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
|
||||||
|
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
If TCCompra <> TCDocumento Then
|
||||||
|
|
||||||
|
Dim DiferenciaTC As Decimal = TCCompra - TCDocumento
|
||||||
|
|
||||||
|
Dim DiferenciaImportes As Decimal = Math.Abs((ImporteAplicar * TCCompra) - (ImporteAplicar * TCDocumento))
|
||||||
|
|
||||||
|
If DiferenciaTC < 0 Then
|
||||||
|
'64
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria"
|
||||||
|
Exit Select
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
'65
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria"
|
||||||
|
Exit Select
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
'IMPUESTOS
|
||||||
|
|
||||||
|
Dim PorcentajePagoDevDin = (ImporteAplicar / ImporteAplicar).RoundSQL(6)
|
||||||
|
Dim CveConceptoContableAplciar = -1
|
||||||
|
'Dim TipoMovtoAplicar = False
|
||||||
|
|
||||||
|
|
||||||
|
Dim ObjCompras As New ClsCompras()
|
||||||
|
If ObjCompras.GetCompras(CveCompraDeCDin, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
||||||
|
|
||||||
|
Dim dr As DataRow = ObjCompras.DtResultados.Rows(0)
|
||||||
|
If dr IsNot Nothing Then
|
||||||
|
|
||||||
|
Dim CveMonedaDev As Integer = dr("CveMoneda").ToString.ToEntero
|
||||||
|
Dim TotalCompraDev As Decimal = dr("Total").ToString.ToDecimal
|
||||||
|
|
||||||
|
Dim IVADev As Decimal = dr("IVA").ToString.ToDecimal
|
||||||
|
Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal
|
||||||
|
PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal
|
||||||
|
|
||||||
|
Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
|
||||||
|
Dim CveCuentaIVAxAcreditarDevDinC = 0
|
||||||
|
Dim CveCuentaIVAAcreditableDevDinC = 0
|
||||||
|
Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
||||||
|
Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||||
|
|
||||||
|
|
||||||
|
Dim IVADevMN As Decimal = 0
|
||||||
|
Dim IEPSDevMN As Decimal = 0
|
||||||
|
|
||||||
|
|
||||||
|
Dim PorcentajeDevolucion As Decimal = ((ImporteAplicar * 100D / TotalCompraDev) / 100).RoundSQL(2)
|
||||||
|
|
||||||
|
IVADev = Math.Round(IVADev * PorcentajeDevolucion, 2)
|
||||||
|
IEPSDev = Math.Round(IEPSDev * PorcentajeDevolucion, 2)
|
||||||
|
|
||||||
|
Dim CveCuentaDevolucionIMPUESTOS As Integer = -1
|
||||||
|
Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
|
||||||
|
|
||||||
|
|
||||||
|
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||||
|
IVADevMN = IVADev
|
||||||
|
IEPSDevMN = IEPSDev
|
||||||
|
Else
|
||||||
|
IVADevMN = (IVADev * If(CveMonedaDev = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL(2)
|
||||||
|
IEPSDevMN = (IEPSDev * If(CveMonedaDev = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL(2)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Dim ErrorDevolucionImpuestos As Boolean = False
|
||||||
|
|
||||||
|
If IVADev > 0 Then
|
||||||
|
|
||||||
|
CveCuentaDevolucionIMPUESTOS = CveCuentaIVAxAcreditarDevDinC
|
||||||
|
IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC
|
||||||
|
|
||||||
|
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
||||||
|
|
||||||
|
CveCuentaDevolucionIMPUESTOS = CveCuentaIVAAcreditableDevDinC
|
||||||
|
IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
|
||||||
|
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||||
|
ErrorDevolucionImpuestos = True
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||||
|
ErrorDevolucionImpuestos = True
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If IEPSDev > 0 Then
|
||||||
|
'Dim ObjContabilidad As New ClsContabilidad
|
||||||
|
If ObjMov.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
|
||||||
Try
|
Try
|
||||||
CveCuentaDevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditableSIG").ToString.ToEntero
|
CveCuentaDevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero
|
||||||
IdCtaIVADevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
IdCtaIVADevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
||||||
|
|
||||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, -IEPSDev, ReferenciaAplicar, 26, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IEPSDev, ReferenciaAplicar, 25, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
||||||
|
|
||||||
|
If ObjMov.GetRetCuenta(26, UsuarioActual.CveEmpresa) Then
|
||||||
|
Try
|
||||||
|
CveCuentaDevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditableSIG").ToString.ToEntero
|
||||||
|
IdCtaIVADevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
||||||
|
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IEPSDev, ReferenciaAplicar, 26, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||||
|
ErrorDevolucionImpuestos = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
Alert("Se presento un error al obtener las cuentas de IEPS acreditable.")
|
||||||
|
ErrorDevolucionImpuestos = True
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||||
ErrorDevolucionImpuestos = True
|
ErrorDevolucionImpuestos = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
Alert("Se presento un error al obtener las cuentas de IEPS acreditable.")
|
Alert("Se presento un error al obtener las cuentas de IEPS acreditable.")
|
||||||
ErrorDevolucionImpuestos = True
|
ErrorDevolucionImpuestos = True
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
|
||||||
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
|
||||||
ErrorDevolucionImpuestos = True
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Catch ex As Exception
|
If ErrorDevolucionImpuestos Then
|
||||||
Alert("Se presento un error al obtener las cuentas de IEPS acreditable.")
|
MsgError = MsgError & " Error en devolución compra."
|
||||||
ErrorDevolucionImpuestos = True
|
End If
|
||||||
End Try
|
|
||||||
|
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
''
|
||||||
|
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Else
|
||||||
|
|
||||||
|
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||||
|
|
||||||
|
TCCompra = GlobalTipoCambio(FechaCompra).ToDecimal
|
||||||
|
TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
|
||||||
|
|
||||||
|
If TCCompra <= 0 Then
|
||||||
|
Alert("No se pudo obtener el tipo de cambio de la nota de crédito.", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ErrorDevolucionImpuestos Then
|
If TCDocumento <= 0 Then
|
||||||
MsgError = MsgError & " Error en devolución compra."
|
Alert("No se pudo obtener el tipo de cambio del documentpo.", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
'BANCOS COMPLEMENTARIA
|
||||||
|
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||||
|
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
|
||||||
|
MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
'OTROS INGRESOS/EGRESOS
|
||||||
|
If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then
|
||||||
|
Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal
|
||||||
|
Dim TipoMovtoIE As Boolean = False
|
||||||
|
Dim CveConcIE As Integer = 78
|
||||||
|
If Impo > 0 Then
|
||||||
|
TipoMovtoIE = True
|
||||||
|
Impo = Math.Abs(Impo)
|
||||||
|
CveConcIE = 78
|
||||||
|
IdCtaContableAplicar = UsuarioActual.Empresa.IdCuentaOtrosIngresos
|
||||||
|
Else
|
||||||
|
TipoMovtoIE = False
|
||||||
|
Impo = Math.Abs(Impo)
|
||||||
|
CveConcIE = 211
|
||||||
|
IdCtaContableAplicar = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||||
|
Exit Select
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
'CANCELA NC
|
||||||
|
IdCtaContableAplicar = IDCtaBeneficiario
|
||||||
|
ImporteAplicar = ImporteAplicar - TxtOtrosIngresosEgresos.Text.ToDecimal
|
||||||
|
ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
|
||||||
|
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 18, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=(ImporteAplicarMN), ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
|
||||||
|
Exit Select
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'NC COMPLEMENTARIA
|
||||||
|
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||||
|
|
||||||
|
ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
|
||||||
|
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
If TCCompra <> TCDocumento Then
|
||||||
|
|
||||||
|
Dim DiferenciaTC As Decimal = TCCompra - TCDocumento
|
||||||
|
|
||||||
|
Dim DiferenciaImportes As Decimal = Math.Abs((ImporteAplicar * TCCompra) - (ImporteAplicar * TCDocumento))
|
||||||
|
|
||||||
|
If DiferenciaTC < 0 Then
|
||||||
|
'64
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria"
|
||||||
|
Exit Select
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
'65
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria"
|
||||||
|
Exit Select
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
'IMPUESTOS
|
||||||
|
|
||||||
|
Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6)
|
||||||
|
Dim CveConceptoContableAplciar = -1
|
||||||
|
'Dim TipoMovtoAplicar = False
|
||||||
|
|
||||||
|
|
||||||
|
Dim ObjCompras As New ClsCompras()
|
||||||
|
If ObjCompras.GetCompras(CveCompraDeCDin, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
||||||
|
|
||||||
|
Dim dr As DataRow = ObjCompras.DtResultados.Rows(0)
|
||||||
|
If dr IsNot Nothing Then
|
||||||
|
|
||||||
|
Dim CveMonedaDev As Integer = dr("CveMoneda").ToString.ToEntero
|
||||||
|
Dim TotalCompraDev As Decimal = dr("Total").ToString.ToDecimal
|
||||||
|
|
||||||
|
Dim IVADev As Decimal = dr("IVA").ToString.ToDecimal
|
||||||
|
Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal
|
||||||
|
PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal
|
||||||
|
|
||||||
|
Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
|
||||||
|
Dim CveCuentaIVAxAcreditarDevDinC = 0
|
||||||
|
Dim CveCuentaIVAAcreditableDevDinC = 0
|
||||||
|
Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
||||||
|
Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||||
|
|
||||||
|
|
||||||
|
Dim IVADevMN As Decimal = 0
|
||||||
|
Dim IEPSDevMN As Decimal = 0
|
||||||
|
|
||||||
|
|
||||||
|
Dim PorcentajeDevolucion As Decimal = ((TxtImporte.Text.ToDecimal * 100D / TotalCompraDev) / 100).RoundSQL(2)
|
||||||
|
|
||||||
|
IVADev = Math.Round(IVADev * PorcentajeDevolucion, 2)
|
||||||
|
IEPSDev = Math.Round(IEPSDev * PorcentajeDevolucion, 2)
|
||||||
|
|
||||||
|
Dim CveCuentaDevolucionIMPUESTOS As Integer = -1
|
||||||
|
Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
|
||||||
|
|
||||||
|
|
||||||
|
If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||||
|
IVADevMN = IVADev
|
||||||
|
IEPSDevMN = IEPSDev
|
||||||
|
Else
|
||||||
|
IVADevMN = (IVADev * If(CveMonedaDev = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL(2)
|
||||||
|
IEPSDevMN = (IEPSDev * If(CveMonedaDev = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL(2)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Dim ErrorDevolucionImpuestos As Boolean = False
|
||||||
|
|
||||||
|
If IVADev > 0 Then
|
||||||
|
|
||||||
|
CveCuentaDevolucionIMPUESTOS = CveCuentaIVAxAcreditarDevDinC
|
||||||
|
IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC
|
||||||
|
|
||||||
|
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
||||||
|
|
||||||
|
CveCuentaDevolucionIMPUESTOS = CveCuentaIVAAcreditableDevDinC
|
||||||
|
IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
|
||||||
|
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||||
|
ErrorDevolucionImpuestos = True
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||||
|
ErrorDevolucionImpuestos = True
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If IEPSDev > 0 Then
|
||||||
|
'Dim ObjContabilidad As New ClsContabilidad
|
||||||
|
If ObjMov.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
|
||||||
|
Try
|
||||||
|
CveCuentaDevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero
|
||||||
|
IdCtaIVADevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
||||||
|
|
||||||
|
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IEPSDev, ReferenciaAplicar, 25, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
||||||
|
|
||||||
|
If ObjMov.GetRetCuenta(26, UsuarioActual.CveEmpresa) Then
|
||||||
|
Try
|
||||||
|
CveCuentaDevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditableSIG").ToString.ToEntero
|
||||||
|
IdCtaIVADevolucionIMPUESTOS = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
||||||
|
|
||||||
|
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IEPSDev, ReferenciaAplicar, 26, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IEPSDevMN, ImporteME:=-IEPSDev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución "
|
||||||
|
ErrorDevolucionImpuestos = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
Alert("Se presento un error al obtener las cuentas de IEPS acreditable.")
|
||||||
|
ErrorDevolucionImpuestos = True
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
|
||||||
|
ErrorDevolucionImpuestos = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
Alert("Se presento un error al obtener las cuentas de IEPS acreditable.")
|
||||||
|
ErrorDevolucionImpuestos = True
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ErrorDevolucionImpuestos Then
|
||||||
|
MsgError = MsgError & " Error en devolución compra."
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
''''''''''''''''''''''''''''''''''''''''''''''
|
||||||
|
|
||||||
Case "EGSCREDITO"
|
Case "EGSCREDITO"
|
||||||
|
|
||||||
@@ -3276,7 +3679,7 @@ Partial Class Bancos_IE
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'Notificación de Pago
|
'Notificación de Pago
|
||||||
If TxtNotificarA.Text.Trim <> "" Then
|
If TxtNotificarA.Text.Trim <> "" And MsgError = "" Then
|
||||||
NotificacionPago(CveIE, TxtNotificarA.Text.Trim)
|
NotificacionPago(CveIE, TxtNotificarA.Text.Trim)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -5335,6 +5738,11 @@ Partial Class Bancos_IE
|
|||||||
TxtImporteLetra.Text = UrlParametros("SALDO").ToString.ToDouble.Texto2Letras(UrlParametros("CVEMONEDA").ToString.ToEntero)
|
TxtImporteLetra.Text = UrlParametros("SALDO").ToString.ToDouble.Texto2Letras(UrlParametros("CVEMONEDA").ToString.ToEntero)
|
||||||
|
|
||||||
CargaProveedor(CveProveedor, "-1")
|
CargaProveedor(CveProveedor, "-1")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
'BuscarCliente()
|
'BuscarCliente()
|
||||||
|
|
||||||
DdlMoneda.SelectedValue = UrlParametros("CVEMONEDA").ToString
|
DdlMoneda.SelectedValue = UrlParametros("CVEMONEDA").ToString
|
||||||
|
|||||||
@@ -1669,6 +1669,8 @@
|
|||||||
</tr>
|
</tr>
|
||||||
</table>--%>
|
</table>--%>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<div class="portlet light xspadding bordered ">
|
<div class="portlet light xspadding bordered ">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
@@ -1734,6 +1736,12 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<br />
|
<br />
|
||||||
|
<div class="row">
|
||||||
|
<div class="pull-right">
|
||||||
|
<asp:HyperLink ID="HplAbonarMasivoNotas" Visible="False" runat="server" CssClass="Texto" NavigateUrl="#" ToolTip="Devolución múltiple">Devolución múltiple <img src="/Imagenes/Money_Add.png" alt="Pagar múltiples facturas" /></asp:HyperLink>  
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
<div class="portlet light xspadding bordered ">
|
<div class="portlet light xspadding bordered ">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
@@ -1816,6 +1824,7 @@
|
|||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="portlet light xspadding bordered ">
|
<div class="portlet light xspadding bordered ">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
|
|||||||
@@ -828,6 +828,8 @@ Partial Class Compras_Proveedores
|
|||||||
|
|
||||||
HplAbonarMasivo.NavigateUrl = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&Serie={1}&CveMoneda={2}", CveProveedor, Serie, CveMoneda)
|
HplAbonarMasivo.NavigateUrl = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&Serie={1}&CveMoneda={2}", CveProveedor, Serie, CveMoneda)
|
||||||
|
|
||||||
|
HplAbonarMasivoNotas.NavigateUrl = String.Format("/Bancos/IE.aspx?OPCION=DevDinC&CveProveedor={0}&Masivo={1}", CveProveedor, 1)
|
||||||
|
|
||||||
TxtCorreoCobranza.Text = ObjProveedor.CorreoCobranza
|
TxtCorreoCobranza.Text = ObjProveedor.CorreoCobranza
|
||||||
LblUsuarioPortalCliente.Text = ObjProveedor.CorreoCobranza
|
LblUsuarioPortalCliente.Text = ObjProveedor.CorreoCobranza
|
||||||
LblUsuarioPortalCliente.Attributes("style") = "font-weight: bold;"
|
LblUsuarioPortalCliente.Attributes("style") = "font-weight: bold;"
|
||||||
@@ -1112,6 +1114,14 @@ Partial Class Compras_Proveedores
|
|||||||
DtAntNCH = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
|
DtAntNCH = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
|
||||||
GvAH.DataSource = DtAntNCH
|
GvAH.DataSource = DtAntNCH
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
' e.Row.DBCampo("TipoDocto") = "NC"
|
||||||
|
If ObjMovtos.DtResultados.FiltraParametros("TipoDocto = 'NC'").Rows.Count > 0 And UsuarioActual.TienePermisoProceso(273) Then
|
||||||
|
HplAbonarMasivoNotas.Visible = True
|
||||||
|
UpAnticipos.Update()
|
||||||
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
GvA.DataSource = Nothing
|
GvA.DataSource = Nothing
|
||||||
GvAH.DataSource = Nothing
|
GvAH.DataSource = Nothing
|
||||||
|
|||||||
@@ -216,18 +216,38 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="portlet-body">
|
<div class="portlet-body">
|
||||||
<asp:GridView ID="GvDatosArmado" DataKeyNames="Cantidad,CvePS,CveUM,Consec,Inv_CveMetodoInventario" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
|
<asp:GridView ID="GvDatosArmado" DataKeyNames="Cantidad,CvePS,CveUM,Consec,Inv_CveMetodoInventario,AplicaSeccion,AplicaSerie,AplicaCaducidad,AplicaLote" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
|
||||||
<Columns>
|
<Columns>
|
||||||
<asp:BoundField HeaderText="Cant. Necesaria" DataField="Cantidad" ItemStyle-Width="15%" DataFormatString="{0:###,###,###,##0.##}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="Cant. Necesaria" DataField="Cantidad" ItemStyle-Width="15%" DataFormatString="{0:###,###,###,##0.##}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:BoundField HeaderText="Cant. Disponible" DataField="CantidadDisponible2" ItemStyle-Width="15%" DataFormatString="{0:###,###,###,##0.##}" ItemStyle-HorizontalAlign="Right" />
|
<asp:BoundField HeaderText="Cant. Disponible" DataField="CantidadDisponible2" ItemStyle-Width="15%" DataFormatString="{0:###,###,###,##0.##}" ItemStyle-HorizontalAlign="Right" />
|
||||||
<asp:BoundField HeaderText="Producto/Servicio" DataField="CodigoPS" ItemStyle-Width="40%" />
|
<asp:BoundField HeaderText="Producto/Servicio" DataField="CodigoPS" ItemStyle-Width="40%" />
|
||||||
<asp:BoundField HeaderText="Unidad Medida" DataField="UnidadMedida" ItemStyle-Width="20%" />
|
<asp:BoundField HeaderText="Unidad Medida" DataField="UnidadMedida" ItemStyle-Width="20%" />
|
||||||
<asp:TemplateField HeaderText="Serie">
|
<asp:TemplateField HeaderText="Serie Paquete">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:Button Text="Serie" ID="BtnSerie" OnClick="BtnSerie_Click" CssClass="btn btn-xs btn-primary" runat="server" Style="float: left;" />
|
<asp:Button Text="Serie" ID="BtnSerie" OnClick="BtnSerie_Click" CssClass="btn btn-xs btn-primary" runat="server" Style="float: left;" />
|
||||||
<asp:LinkButton Text="<i class='fa fa-star'></i>" ID="BtnSeriePaquete" OnClick="BtnSeriePaquete_Click" CssClass="btn btn-xs btn-primary" runat="server" Visible="false" Style="float: left;" data-toggle="tooltip" title="Seleccionar como serie del paquete" />
|
<asp:LinkButton Text="<i class='fa fa-star'></i>" ID="BtnSeriePaquete" OnClick="BtnSeriePaquete_Click" CssClass="btn btn-xs btn-primary" runat="server" Visible="false" Style="float: left;" data-toggle="tooltip" title="Seleccionar como serie del paquete" />
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField HeaderText="Sección Almacén">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" CssClass="select2me" runat="server"/>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField HeaderText="Fecha Caducidad">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:TextBox ID="TxtCaducidad" CssClass="form-control input-sm" runat="server" Width="80px" Style="text-align: right;"></asp:TextBox>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField HeaderText="Lote">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:TextBox ID="TxtLote" CssClass="form-control input-sm" runat="server" Width="80px" Style="text-align: right;"></asp:TextBox>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField HeaderText="Serie">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:TextBox ID="TxtSerie" CssClass="form-control input-sm" runat="server" Width="80px" Style="text-align: right;"></asp:TextBox>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
</Columns>
|
</Columns>
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -240,14 +240,15 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
|
|||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
Dim AplicaSerie As String = ""
|
||||||
If ErrorExistencias Then
|
If ErrorExistencias Then
|
||||||
Alert(TextoExistencias, TipoMensaje.MsgAdvertencia)
|
Alert(TextoExistencias, TipoMensaje.MsgAdvertencia)
|
||||||
Else
|
Else
|
||||||
CveTipoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteArmado.SelectedValue.ToEntero).FiltroPrimeroValor("Inv_CveMetodoInventario").ToEntero
|
AplicaSerie = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteArmado.SelectedValue.ToEntero).FiltroPrimeroValor("AplicaSerie")
|
||||||
BtnGuadarArmado.Visible = True
|
BtnGuadarArmado.Visible = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If CveTipoPS = 5 Then
|
If AplicaSerie = "True" Then
|
||||||
DivSeriesPaqueteArmado.Visible = True
|
DivSeriesPaqueteArmado.Visible = True
|
||||||
Dim Dt As New DataTable
|
Dim Dt As New DataTable
|
||||||
Dt.Columns.Add("Row", GetType(Integer))
|
Dt.Columns.Add("Row", GetType(Integer))
|
||||||
@@ -468,6 +469,9 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
|
|||||||
|
|
||||||
For Each Gvr As GridViewRow In GvDatosArmado.Rows
|
For Each Gvr As GridViewRow In GvDatosArmado.Rows
|
||||||
If Gvr.DataKey("Cantidad").ToString.ToDouble > 0 Then
|
If Gvr.DataKey("Cantidad").ToString.ToDouble > 0 Then
|
||||||
|
Dim Lote As String = If(Gvr.FCTextBox("TxtLote").Text = "", "-1", Gvr.FCTextBox("TxtLote").Text)
|
||||||
|
Dim FechaCaducidad As String = If(Gvr.FCTextBox("TxtCaducidad").Text = "", "-1", Gvr.FCTextBox("TxtCaducidad").Text)
|
||||||
|
Dim CveSeccionAlmacen As Integer = Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero()
|
||||||
If Gvr.DataKey("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then
|
If Gvr.DataKey("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then
|
||||||
For Each Dr As DataRow In DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("Consec").ToEntero)).Rows
|
For Each Dr As DataRow In DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("Consec").ToEntero)).Rows
|
||||||
If Not ObjInventario.GetExistenciasPS(Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenArmado.SelectedValue.ToEntero, FechaMovto:=Fecha.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Dr("Serie").ToString, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente)) >= 1 Then
|
If Not ObjInventario.GetExistenciasPS(Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenArmado.SelectedValue.ToEntero, FechaMovto:=Fecha.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Dr("Serie").ToString, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente)) >= 1 Then
|
||||||
@@ -476,7 +480,8 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
|
|||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, 0, -1, Serie:=Dr("Serie").ToString) Then
|
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, 0, -1,
|
||||||
|
CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then
|
||||||
MensajeError = "Ocurrió un error al guardar los detalles con serie del movimiento de salida. Por favor vuelva a intentar."
|
MensajeError = "Ocurrió un error al guardar los detalles con serie del movimiento de salida. Por favor vuelva a intentar."
|
||||||
TieneError = True
|
TieneError = True
|
||||||
Exit For
|
Exit For
|
||||||
@@ -488,7 +493,9 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.DataKey("Cantidad").ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, 0, -1) Then
|
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.DataKey("Cantidad").ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero,
|
||||||
|
Gvr.DataKey("CvePS").ToString.ToEntero, 0, -1, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote,
|
||||||
|
FechaCaducidad:=FechaCaducidad.ToDate) Then
|
||||||
MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
|
MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
|
||||||
TieneError = True
|
TieneError = True
|
||||||
Exit For
|
Exit For
|
||||||
@@ -661,44 +668,44 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
|
|||||||
'If Tipo = 1 Then
|
'If Tipo = 1 Then
|
||||||
|
|
||||||
BtnGuadarArmado.Visible = False
|
BtnGuadarArmado.Visible = False
|
||||||
DivSeriesPaqueteArmado.Visible = False
|
DivSeriesPaqueteArmado.Visible = False
|
||||||
GvDatosArmado.Columns(4).Visible = False
|
GvDatosArmado.Columns(4).Visible = False
|
||||||
|
|
||||||
LbPaqueteArmado.Text = ""
|
LbPaqueteArmado.Text = ""
|
||||||
CvePaqueteArmado = -1
|
CvePaqueteArmado = -1
|
||||||
LbCantidadArmado.Text = ""
|
LbCantidadArmado.Text = ""
|
||||||
LbAlmacenArmado.Text = ""
|
LbAlmacenArmado.Text = ""
|
||||||
CveAlmacenArmado = -1
|
CveAlmacenArmado = -1
|
||||||
LbFechaArmado.Text = ""
|
LbFechaArmado.Text = ""
|
||||||
TxtObservacionesArmado.Text = ""
|
TxtObservacionesArmado.Text = ""
|
||||||
UpGeneralesArmado.Update()
|
UpGeneralesArmado.Update()
|
||||||
|
|
||||||
GvDatosArmado.DataBind()
|
GvDatosArmado.DataBind()
|
||||||
UpDatosArmado.Update()
|
UpDatosArmado.Update()
|
||||||
UpSeriesPaqueteArmado.Update()
|
UpSeriesPaqueteArmado.Update()
|
||||||
'Else
|
'Else
|
||||||
|
|
||||||
LbPaqueteDesarmado.Text = ""
|
LbPaqueteDesarmado.Text = ""
|
||||||
CvePaqueteDesarmado = -1
|
CvePaqueteDesarmado = -1
|
||||||
LbCantidadDesarmado.Text = ""
|
LbCantidadDesarmado.Text = ""
|
||||||
LbAlmacenDesarmado.Text = ""
|
LbAlmacenDesarmado.Text = ""
|
||||||
CveAlmacenDesarmado = -1
|
CveAlmacenDesarmado = -1
|
||||||
LbFechaDesarmado.Text = ""
|
LbFechaDesarmado.Text = ""
|
||||||
TxtObservacionesDesarmado.Text = ""
|
TxtObservacionesDesarmado.Text = ""
|
||||||
UpGeneralesDesarmado.Update()
|
UpGeneralesDesarmado.Update()
|
||||||
|
|
||||||
BtnGuadarDesarmado.Visible = False
|
BtnGuadarDesarmado.Visible = False
|
||||||
TotalDesarmado.Visible = False
|
TotalDesarmado.Visible = False
|
||||||
|
|
||||||
DtSeriesDesarmado.Clear()
|
DtSeriesDesarmado.Clear()
|
||||||
GvDatosDesarmado.Columns(4).Visible = False
|
GvDatosDesarmado.Columns(4).Visible = False
|
||||||
DivSeriesPaqueteDesarmado.Visible = False
|
DivSeriesPaqueteDesarmado.Visible = False
|
||||||
GvSeriesPaqueteDesarmado.DataBind()
|
GvSeriesPaqueteDesarmado.DataBind()
|
||||||
BtnAgregarSerieDesarmado.Enabled = True
|
BtnAgregarSerieDesarmado.Enabled = True
|
||||||
|
|
||||||
LbTotalCalculado.Text = "0.00"
|
LbTotalCalculado.Text = "0.00"
|
||||||
|
|
||||||
GvDatosDesarmado.DataBind()
|
GvDatosDesarmado.DataBind()
|
||||||
UpDatosDesarmado.Update()
|
UpDatosDesarmado.Update()
|
||||||
UpSeriesPaqueteDesarmado.Update()
|
UpSeriesPaqueteDesarmado.Update()
|
||||||
|
|
||||||
@@ -730,6 +737,19 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
|
|||||||
e.Row.FCButton("BtnSerie").Visible = False
|
e.Row.FCButton("BtnSerie").Visible = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If e.Row.DataKey("AplicaSeccion") = "False" Then
|
||||||
|
e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = False
|
||||||
|
Else
|
||||||
|
e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
|
||||||
|
e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
|
||||||
|
e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||||
|
End If
|
||||||
|
|
||||||
|
e.Row.FCTextBox("TxtCaducidad").Visible = e.Row.DataKey("AplicaCaducidad") = "True"
|
||||||
|
|
||||||
|
e.Row.FCTextBox("TxtLote").Visible = e.Row.DataKey("AplicaLote") = "True"
|
||||||
|
|
||||||
|
e.Row.FCTextBox("TxtSerie").Visible = e.Row.DataKey("AplicaSerie") = "True"
|
||||||
''FUNCIONALIDAD PISTOLA DE CODIGOS
|
''FUNCIONALIDAD PISTOLA DE CODIGOS
|
||||||
'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
|
'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
|
||||||
' e.Row.FCTextBox("TbCantidadF").Enabled = False
|
' e.Row.FCTextBox("TbCantidadF").Enabled = False
|
||||||
|
|||||||
@@ -3403,6 +3403,8 @@
|
|||||||
<asp:Button ID="BtnMandaMail" runat="server" Text="MandaMail" CssClass="btn myventasbutton btn-primary" Visible="false" />
|
<asp:Button ID="BtnMandaMail" runat="server" Text="MandaMail" CssClass="btn myventasbutton btn-primary" Visible="false" />
|
||||||
<asp:Button ID="BtnCrearApartirDe" runat="server" Text="Crear a partir de" CssClass="btn myventasbutton btn-primary" Visible="false" />
|
<asp:Button ID="BtnCrearApartirDe" runat="server" Text="Crear a partir de" CssClass="btn myventasbutton btn-primary" Visible="false" />
|
||||||
|
|
||||||
|
<asp:Button ID="BtnEditar" runat="server" Text="Editar" CssClass="btn myventasbutton btn-primary" Visible="false" />
|
||||||
|
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
</table>
|
</table>
|
||||||
|
|||||||
@@ -2049,6 +2049,7 @@ Partial Class Ventas
|
|||||||
DdlSubProyectoDatos.Enabled = False
|
DdlSubProyectoDatos.Enabled = False
|
||||||
BtnEmitirImprimir.Visible = False
|
BtnEmitirImprimir.Visible = False
|
||||||
BtnCrearApartirDe.Visible = True
|
BtnCrearApartirDe.Visible = True
|
||||||
|
BtnEditar.Visible = True
|
||||||
'DdlEstatus.Enabled = True
|
'DdlEstatus.Enabled = True
|
||||||
|
|
||||||
DivFechaAnticipoCliente.Visible = True
|
DivFechaAnticipoCliente.Visible = True
|
||||||
@@ -4450,36 +4451,41 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
|
||||||
|
RblPaqueteria.SelectedValue = If(DbRowVenta("FormaPaqueteria").ToString = "", "1", DbRowVenta("FormaPaqueteria").ToString)
|
||||||
|
RblPaqueteria.Enabled = False
|
||||||
|
End If
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa = 48 Then
|
If UsuarioActual.CveEmpresa = 48 Then
|
||||||
TxtFecha.AutoPostBack = True
|
TxtFecha.AutoPostBack = True
|
||||||
End If
|
|
||||||
|
|
||||||
CargaCodigoUnico()
|
|
||||||
|
|
||||||
'SI ES COTIZACION PUEDE GENERAR UNA OC PARA MODIFICAR LOS IMPORTES
|
|
||||||
If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(583) = "1" Then
|
|
||||||
Dim DtOCGeneradas As DataTable = Nothing
|
|
||||||
If ObjVentas.GetVentasCotizacionesOC(Me.CveVenta, -1, UsuarioActual.CveEmpresa) Then
|
|
||||||
DtOCGeneradas = ObjVentas.DtResultados.Copy()
|
|
||||||
End If
|
End If
|
||||||
If DtOCGeneradas IsNot Nothing AndAlso DtOCGeneradas.Rows.Count > 0 Then
|
|
||||||
LtGenerarOC.Visible = False
|
CargaCodigoUnico()
|
||||||
Else
|
|
||||||
LtGenerarOC.Visible = True
|
'SI ES COTIZACION PUEDE GENERAR UNA OC PARA MODIFICAR LOS IMPORTES
|
||||||
|
If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(583) = "1" Then
|
||||||
|
Dim DtOCGeneradas As DataTable = Nothing
|
||||||
|
If ObjVentas.GetVentasCotizacionesOC(Me.CveVenta, -1, UsuarioActual.CveEmpresa) Then
|
||||||
|
DtOCGeneradas = ObjVentas.DtResultados.Copy()
|
||||||
|
End If
|
||||||
|
If DtOCGeneradas IsNot Nothing AndAlso DtOCGeneradas.Rows.Count > 0 Then
|
||||||
|
LtGenerarOC.Visible = False
|
||||||
|
Else
|
||||||
|
LtGenerarOC.Visible = True
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())
|
DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())
|
||||||
|
|
||||||
CargaPS(-1, DdlPS)
|
CargaPS(-1, DdlPS)
|
||||||
|
|
||||||
UpPS.Update()
|
UpPS.Update()
|
||||||
UpContado.Update()
|
UpContado.Update()
|
||||||
UpEstatus.Update()
|
UpEstatus.Update()
|
||||||
Retorno = True
|
Retorno = True
|
||||||
|
|
||||||
Else
|
Else
|
||||||
ViewState("CveVenta") = -1
|
ViewState("CveVenta") = -1
|
||||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -25965,4 +25971,48 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
ObjVentas.Dispose()
|
ObjVentas.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub BtnEditar_Click() Handles BtnEditar.Click
|
||||||
|
Dim Opcion As String = BtnEditar.Text
|
||||||
|
If Opcion = "Editar" Then
|
||||||
|
EditarHabilitarCampos()
|
||||||
|
ElseIf Opcion = "Guardar" Then
|
||||||
|
GuardarValoresEditados()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub EditarHabilitarCampos()
|
||||||
|
'Datos de emisión
|
||||||
|
DdlVendedor.Enabled = True
|
||||||
|
|
||||||
|
'Observaciones
|
||||||
|
TxtObsFact.Enabled = True
|
||||||
|
TxtOrdenCompra.Enabled = True
|
||||||
|
TxtPedidoContrato.Enabled = True
|
||||||
|
TxtObsAlmacen.Enabled = True
|
||||||
|
RblPaqueteria.Enabled = True
|
||||||
|
|
||||||
|
'Acciones
|
||||||
|
BtnEditar.Text = "Guardar"
|
||||||
|
|
||||||
|
UpParametros.Update()
|
||||||
|
UPObservaciones.Update()
|
||||||
|
UpFacturar.Update()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub GuardarValoresEditados()
|
||||||
|
Dim ObjVentas As New ClsVentas()
|
||||||
|
If ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero(),
|
||||||
|
TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, DdlMetodoPago33.SelectedValue.ToEntero, DdlFormaPago33.SelectedValue.ToEntero,
|
||||||
|
TipoDocto:=DdlTipoComprobante.SelectedValue, OrdenCompra:=TxtOrdenCompra.Text, PedidoContrato:=TxtPedidoContrato.Text, ObsAlm:=TxtObsAlmacen.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero,
|
||||||
|
CorreoNot:=TxtCorreoNotificaciones.Text) Then
|
||||||
|
CargaVenta()
|
||||||
|
BtnEditar.Text = "Editar"
|
||||||
|
Alert("Actualizado correctamente")
|
||||||
|
UpParametros.Update()
|
||||||
|
UPObservaciones.Update()
|
||||||
|
UpFacturar.Update()
|
||||||
|
End If
|
||||||
|
ObjVentas.Dispose()
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
@@ -72,6 +72,8 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user