Gdiaz imprecion PVCobranza saldo Anticipo NC

Compras/PopUpVerFactura.aspx.vb

@@ -1572,6 +1572,34 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+
+        'Boleto
+        If UrlParametros("OP").ToString = "AMORTIZACIONHIS" Then
+            'CveViajePasajero
+            Dim CVEIE As Integer = UrlParametros("CVEIE").ToString.ToEntero
+            Dim CVEVENTA As Integer = UrlParametros("CVEVENTA").ToString.ToEntero
+            Dim CVECLIENTE As Integer = UrlParametros("CVECLIENTE").ToString.ToEntero
+
+            If CVECLIENTE > 0 AndAlso (CVEIE > 0 Or CVEVENTA > 0) Then
+                ImprimirSaldosAmortizacion(CVEIE, CVEVENTA, CVECLIENTE)
+            End If
+
+        End If
+
+    End Sub
+
+    Private Sub ImprimirSaldosAmortizacion(CVEIE As Integer, CVEVENTA As Integer, CVECLIENTE As Integer)
+
+        If CVEVENTA > 0 Then
+
+
+
+        End If
+
+        If CVEIE > 0 Then
+
+        End If
+
     End Sub
 
     Private Function Parametros(Cadena As String) As Hashtable