-- se depuró/limpió la variables idctaXXX

Bancos/PopIEVentas.aspx.vb

@@ -1325,20 +1325,6 @@ Partial Class Bancos_PopIEVentas
                                     MsgError = ObjMov.MensajePolizaDescuadre
                                 End If
                             End If
-
-                            ''Conta ContPAQ
-                            'If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
-
-                            '    If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                            '        IdPoliza = ObjMov.ContaIdPoliza
-                            '        ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
-                            '    Else
-                            '        Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
-                            '    End If
-
-                            'End If
-
-
                         Else
                             MsgError = "No se pudo insertar la poliza detalle"
                         End If
@@ -1358,15 +1344,10 @@ Partial Class Bancos_PopIEVentas
             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 TextoComplementoPago As String = ""
 
-            If UsuarioActual.CveEmpresa = 119 Then
-
-                StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
-
-            End If
+            StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
 
             If RBLContado.SelectedValue = "1" And ChkComplementoPago.Checked Then
                 Dim SeriesPago As New List(Of String)
@@ -1374,9 +1355,7 @@ Partial Class Bancos_PopIEVentas
 
                 Dim CveVentas As New List(Of Integer)
                 CveVentas.Add(CveVenta)
-
                 TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentas, SeriesPago)
-
                 StrMsg.Append($"<br/>{TextoComplementoPago}")
             End If
 
@@ -1398,8 +1377,6 @@ Partial Class Bancos_PopIEVentas
         ObjMov.Dispose()
         ObjCliente.Dispose()
 
-        'CargaVenta(CveVenta)
-        'UpDatosVenta.Update()
     End Sub
 
     Private Sub LimpiarTodo()