AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PopIE Ventas igualar

Browse Source
This commit is contained in:
rakcsle
2025-01-29 12:08:35 -07:00
parent dbfed82a21
commit 2850323a44
1 changed files with 80 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
Bancos/PopIEVentas.aspx.vb
View File

@@ -1208,7 +1208,7 @@ Partial Class Bancos_PopIEVentas
Dim ConceptoPoliza As String = String.Format("{0} {1}", NombreCliente, SerieFolio) Dim ConceptoPoliza As String = String.Format("{0} {1}", NombreCliente, SerieFolio)
Dim CveCuentaDeposito As Integer = If(DdlCuentaDeposito.Items.Count > 0, DdlCuentaDeposito.SelectedValue.ToEntero, 0) Dim CveCuentaDeposito As Integer = If(DdlCuentaDeposito.Items.Count > 0, DdlCuentaDeposito.SelectedValue.ToEntero, 0)
Dim FechaDocumento As Date = FechaVenta Dim FechaDocumento As Date = FechaVenta
Dim StrMsg As New StringBuilder 'Dim StrMsg As New StringBuilder
'Saca moneda en que se va a pagar segun metodo de pago 'Saca moneda en que se va a pagar segun metodo de pago
Select Case RBLContado.SelectedValue Select Case RBLContado.SelectedValue
@@ -1412,30 +1412,96 @@ Partial Class Bancos_PopIEVentas
If MsgError = "" Then If MsgError = "" Then
ObjIE.Commit() ObjIE.Commit()
StrMsg.Append("El Documento se guardó correctamente.<br/>") Dim StrMsg As New StringBuilder
'Alert("El Documento se guardó correctamente.", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") StrMsg.AppendFormat("Abono Registrado Correctamente. Folio <b><a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>{1}</a></b> <br/>", CveIE, ObjIE.Folio)
If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
'07-05-2018 - Timbra Complemento de pago If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>&nbsp;&nbsp; ", CvePrePoliza)
Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
StrMsg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> <i class='fa fa-file-pdf-o' aria-hidden='true'></i> Imprimir </a>")
End If
'''No hay IdPoliza Aqui esta definido IdPoliza perono se genra en ninguna parte
'If IdPoliza > 0 Then StrMsg.AppendFormat("Poliza: <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>{1}</a> <br/>", IdPoliza, FolioPoliza)
'''No se generan NCS
'For Each RespuestaNotaCredito As RespuestaNotaCredrito In NCGeneradas
' If RespuestaNotaCredito IsNot Nothing AndAlso RespuestaNotaCredito.Respuesta IsNot Nothing Then
' Try
' Dim ObjTimbradoNC As New Timbrado
' Dim TimbroNC As Boolean = ObjTimbradoNC.TimbrarFactura(UsuarioActual, RespuestaNotaCredito.ObjFacturaNC)
' If Not TimbroNC Then
' Alert(ObjTimbradoNC.MensajeErrorCFDI, TipoMensaje.MsgError)
' End If
' ObjTimbradoNC = Nothing
' Catch ex As Exception
' OnError("Ocurrió un error al timbrar la NC.", ex)
' End Try
' StrMsg.AppendFormat("Nota de crédito generada correctamente.<br/><br/> Folio: <a href='/Ventas/Ventas.aspx?CveVenta={0}' target='_blank' class='Texto'>{1}</a><br/>", RespuestaNotaCredito.Respuesta.CveVenta, RespuestaNotaCredito.Respuesta.SerieFolio)
' End If
'Next
'''No se genran Anticnpos
'If ObjFacturaAnt IsNot Nothing Then
' Dim MsgTimbrado As String = ""
' Try
' ObjFacturaAnt.PreparaTimbre()
' MsgTimbrado = TimbrarFactura(ObjFacturaAnt, True)
' StrMsg.AppendFormat("<br/><br/>Anticipo generado correctamente.<br/> Folio: <a href='/Ventas/Ventas.aspx?CveVenta={0}' target='_blank' class='Texto'>{1}</a><br/>", ObjFacturaAnt.CveVenta, ObjFacturaAnt.SerieFolio)
' If Not String.IsNullOrEmpty(MsgTimbrado) Then
' Dim StrEr As String = $"<div id = 'DivTipoCambioAdvertencia' class='alert alert-danger' style='padding: 5px; margin-bottom: 5px; padding-right: 25px;'><strong style = 'font-size: 20px; margin-right: 25px;' > Comprobante no emitido : </strong><br/> {MsgTimbrado}<br/>Por favor inténtelo de nuevo a través del botón 'Emitir' en ventas.</div>"
' StrMsg.AppendFormat("<br/>{0}<br/>", StrEr)
' End If
' Catch ex As Exception
' GuardaLogAD(ex.ToString())
' StrMsg.AppendFormat("<br/>{0}<br/>", MsgTimbrado)
' End Try
'End If
Dim TextoComplementoPago As String = "" Dim TextoComplementoPago As String = ""
If ObjIE.Folio <> "" Then StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
If RBLContado.SelectedValue = "1" And ChkComplementoPago.Checked Then If RBLContado.SelectedValue = "1" And ChkComplementoPago.Checked Then
Dim SeriesPago As New List(Of String) Dim SeriesPago As New List(Of String)
SeriesPago.Add(SerieFolio) SeriesPago.Add(SerieFolio)
Dim CveVentas As New List(Of Integer) Dim CveVentas As New List(Of Integer)
CveVentas.Add(CveVenta) CveVentas.Add(CveVenta)
StrMsg.Append($"<br/>")
TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentas, SeriesPago) TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentas, SeriesPago)
StrMsg.Append($"<br/>{TextoComplementoPago}") StrMsg.Append($"<br/>{TextoComplementoPago}")
End If End If
If IdPoliza > 0 Then
StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
End If 'StrMsg.Append("El Documento se guardó correctamente.<br/>")
If UsuarioActual.Empresa.TipoContabilidad = 1 Then 'If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
StrMsg.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, ObjMov.ContaFolio) ''07-05-2018 - Timbra Complemento de pago
End If 'Dim TextoComplementoPago As String = ""
'If ObjIE.Folio <> "" Then StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
'If RBLContado.SelectedValue = "1" And ChkComplementoPago.Checked Then
' Dim SeriesPago As New List(Of String)
' SeriesPago.Add(SerieFolio)
' Dim CveVentas As New List(Of Integer)
' CveVentas.Add(CveVenta)
' TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentas, SeriesPago)
' StrMsg.Append($"<br/>{TextoComplementoPago}")
'End If
'If IdPoliza > 0 Then
' StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
'End If
'If UsuarioActual.Empresa.TipoContabilidad = 1 Then
' StrMsg.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, ObjMov.ContaFolio)
'End If
Alert($"{StrMsg.ToString}<br/>", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") Alert($"{StrMsg.ToString}<br/>", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")