AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Gdiaz

Browse Source
This commit is contained in:
rakcsle
2024-12-31 09:03:20 -07:00
parent 87d65f555c
commit 0a260d42bc
8 changed files with 854 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/Compras.aspx.vb
View File

@@ -14893,7 +14893,7 @@ Partial Class Compras_Compras
End If
Next
If TextoErrorOC <> "" Then
Alert($"Las siguientes Ordenes de Compra no se pudieron vincular automaticamente: <br/>{TextoErrorOC} <br/><br/> Sera necesario vincular de manera manual mediante busqueda (lupia).", TipoMensaje.MsgAdvertencia)
Alert($"Las siguientes Ordenes de Compra no se pudieron vincular automaticamente: <br/>{TextoErrorOC} <br/><br/> Sera necesario vincular de manera manual mediante busqueda (lupita).", TipoMensaje.MsgAdvertencia)
TxtOC.Text = ""
Exit Sub
End If

34
Compras/PopUpVerFactura.aspx.vb
View File

@@ -30,6 +30,17 @@ Partial Class PopUpVerFactura
ViewState("DtDetalle") = value
End Set
End Property
Public Property DTPrePoliza() As DataTable
Get
Return DirectCast(IfNull(ViewState("DTPrePoliza"), New DataTable, ViewState("DTPrePoliza")), DataTable)
End Get
Set(value As DataTable)
ViewState("DTPrePoliza") = value
End Set
End Property
Public Property Opcion As String
Get
Return CType(ViewState("Opcion"), String)
@@ -2776,6 +2787,7 @@ Partial Class PopUpVerFactura
Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga
Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
Dim Ruta As String = ""
@@ -2921,6 +2933,18 @@ Partial Class PopUpVerFactura
keys(0) = DtMovimientos.Columns("No")
DtMovimientos.PrimaryKey = keys
End If
If CvePrePoliza > 0 Then
Dim objConta As New ClsContabilidad
If objConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso objConta.DtResultados.Rows.Count > 0 Then
'DtDetalle = objConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
DTPrePoliza = objConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
End If
objConta.Dispose()
End If
End If
End If
@@ -3080,13 +3104,16 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Observaciones", Observaciones))
If UsuarioActual.CveEmpresa.Contiene(186, 189, 193, 189) Then
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
Else
DTPrePoliza = Nothing
End If
If UsuarioActual.CveEmpresa.Contiene(72, 80, 193) Then
If UsuarioActual.CveEmpresa.Contiene(72, 80, 193, 186, 189, 193, 189) Then
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))
@@ -3105,7 +3132,8 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios", DtDatos2:=DTPrePoliza, RDSName2:="DsPrePoliza")
ElseIf UsuarioActual.CveEmpresa = 140 Then
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))