From 2850323a4448aec3fc079e7e3b704431fb2f9734 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 29 Jan 2025 12:08:35 -0700 Subject: [PATCH] PopIE Ventas igualar --- Bancos/PopIEVentas.aspx.vb | 94 ++++++++++++++++++++++++++++++++------ 1 file changed, 80 insertions(+), 14 deletions(-) diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 1a8c0f482..5731c6c7d 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -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.
") - '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 {1}
", CveIE, ObjIE.Folio) + + If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros + StrMsg.AppendFormat("
Ver Póliza   ", CvePrePoliza) + Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza)) + StrMsg.Append($" Imprimir ") + End If + + '''No hay IdPoliza Aqui esta definido IdPoliza perono se genra en ninguna parte + 'If IdPoliza > 0 Then StrMsg.AppendFormat("Poliza: {1}
", 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.

Folio: {1}
", 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("

Anticipo generado correctamente.
Folio: {1}
", ObjFacturaAnt.CveVenta, ObjFacturaAnt.SerieFolio) + + ' If Not String.IsNullOrEmpty(MsgTimbrado) Then + ' Dim StrEr As String = $"
Comprobante no emitido :
{MsgTimbrado}
Por favor inténtelo de nuevo a través del botón 'Emitir' en ventas.
" + ' StrMsg.AppendFormat("
{0}
", StrEr) + ' End If + + ' Catch ex As Exception + ' GuardaLogAD(ex.ToString()) + ' StrMsg.AppendFormat("
{0}
", MsgTimbrado) + ' End Try + + 'End If + + Dim TextoComplementoPago As String = "" - - If ObjIE.Folio <> "" Then StrMsg.AppendFormat("Folio {0}
", 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($"
") TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentas, SeriesPago) StrMsg.Append($"
{TextoComplementoPago}") End If - If IdPoliza > 0 Then - StrMsg.AppendFormat("
Ver Póliza", IdPoliza) - End If - If UsuarioActual.Empresa.TipoContabilidad = 1 Then - StrMsg.AppendFormat("

Póliza: {1}
", CvePrePoliza, ObjMov.ContaFolio) - End If + + + 'StrMsg.Append("El Documento se guardó correctamente.
") + '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 {0}
", 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($"
{TextoComplementoPago}") + 'End If + + 'If IdPoliza > 0 Then + ' StrMsg.AppendFormat("
Ver Póliza", IdPoliza) + 'End If + 'If UsuarioActual.Empresa.TipoContabilidad = 1 Then + ' StrMsg.AppendFormat("

Póliza: {1}
", CvePrePoliza, ObjMov.ContaFolio) + 'End If + + Alert($"{StrMsg.ToString}
", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")