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 CveCuentaDeposito As Integer = If(DdlCuentaDeposito.Items.Count > 0, DdlCuentaDeposito.SelectedValue.ToEntero, 0)
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
Select Case RBLContado.SelectedValue
@@ -1412,30 +1412,96 @@ Partial Class Bancos_PopIEVentas
If MsgError = "" Then
ObjIE.Commit()
StrMsg.Append("El Documento se guardó correctamente.<br/>")
'Alert("El Documento se guardó correctamente.", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
'07-05-2018 - Timbra Complemento de pago
Dim StrMsg As New StringBuilder
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 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 = ""
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)
StrMsg.Append($"<br/>")
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
'StrMsg.Append("El Documento se guardó correctamente.<br/>")
'If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
''07-05-2018 - Timbra Complemento de pago
'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();")