This commit is contained in:
rakcsle
2022-02-03 08:43:32 -07:00
40 changed files with 34013 additions and 33285 deletions

View File

@@ -2041,7 +2041,7 @@ Partial Class PopUpVerFactura
If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
Vta.Timbre.CFDIRelacionados.TipoRelacion = "04"
Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Refacturación de Ingreso"
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Sustitución de los CFDI Previos"
End If
If UsuarioActual.Empresa.Funcionalidad(592) = "1" Then
@@ -3119,6 +3119,9 @@ Partial Class PopUpVerFactura
Dim params As New List(Of ReportParameter)
Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc"
If CveTipoAlmacen = 22 Then
RutaFormato = "{0}Formatos\TrasladoUsado.rdlc"
End If
params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString
'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString