+
+
+
-
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index a97e39a4d..1f0d383e7 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -11328,8 +11328,8 @@ Partial Class Compras_Compras
End If
e.Row.FCCheckBox("cbInv").Enabled = False
End If
- 'que no sea recepcion alamcen adelatnado. DdlOCVinculaInv
- If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then
+ 'que no sea recepcion alamcen adelantado. DdlOCVinculaInv
+ If (UsuarioActual.Empresa.Funcionalidad(567) = "1" OrElse UsuarioActual.TienePermisoProceso(121)) AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then
If e.Row.FCDropDownList("ddlEAlmacen").Items.Count > 1 Then
e.Row.FCDropDownList("ddlEAlmacen").SelectedIndex = 1
e.Row.FCCheckBox("cbInv").Checked = True
@@ -11462,12 +11462,10 @@ Partial Class Compras_Compras
e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataBind()
'que no sea recepcion almacen adelantado. DdlOCVinculaInv
- If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then
+ If (UsuarioActual.Empresa.Funcionalidad(567) = "1" OrElse UsuarioActual.TienePermisoProceso(121)) AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then
If e.Row.FCDropDownList("ddlAlmacen").Items.Count > 1 Then
e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1
e.Row.FCCheckBox("cbAll").Checked = True
- cbAll_CheckedChanged(e.Row.FCCheckBox("cbAll"), Nothing)
- ddlAlmacen_SelectedIndexChanged(e.Row.FCDropDownList("ddlAlmacen"), Nothing)
End If
End If
End If
@@ -14893,7 +14891,7 @@ Partial Class Compras_Compras
End If
Next
If TextoErrorOC <> "" Then
- Alert($"Las siguientes Ordenes de Compra no se pudieron vincular automaticamente:
{TextoErrorOC}
Sera necesario vincular de manera manual mediante busqueda (lupia).", TipoMensaje.MsgAdvertencia)
+ Alert($"Las siguientes Ordenes de Compra no se pudieron vincular automaticamente:
{TextoErrorOC}
Sera necesario vincular de manera manual mediante busqueda (lupita).", TipoMensaje.MsgAdvertencia)
TxtOC.Text = ""
Exit Sub
End If
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 5ad5f3e85..ad5b9c958 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -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))
diff --git a/Empresas/189/Formatos/Entradas.rdlc b/Empresas/189/Formatos/Entradas.rdlc
index 8e71cbee5..5738735b3 100644
--- a/Empresas/189/Formatos/Entradas.rdlc
+++ b/Empresas/189/Formatos/Entradas.rdlc
@@ -9,6 +9,13 @@
1f7ab5df-1d00-4763-8479-9ab750b1589a
+
+
+ System.Data.DataSet
+ /* Local Connection */
+
+ 7ef92796-1755-4a85-b80c-8c8266256a94
+
@@ -75,6 +82,94 @@
+
+
+ DsPrePoliza
+ /* Local Query */
+
+
+
+ Id
+ System.Int32
+
+
+ Fecha
+ System.DateTime
+
+
+ TipoPoliza
+ System.String
+
+
+ NombreCuenta
+ System.String
+
+
+ CodigoCuenta
+ System.String
+
+
+ Numero
+ System.Int32
+
+
+ Folio
+ System.Int32
+
+
+ Referencia
+ System.String
+
+
+ Concepto
+ System.String
+
+
+ ConceptoPoliza
+ System.String
+
+
+ TipoMovto
+ System.Int32
+
+
+ Cargos
+ System.String
+
+
+ Abonos
+ System.String
+
+
+ SegNeg
+ System.String
+
+
+ Cargo
+ System.Decimal
+
+
+ Abono
+ System.Decimal
+
+
+ Codigo
+ System.String
+
+
+ NombreUsuario
+ System.String
+
+
+
+ DataSet1
+ C:\inetpub\wwwroot\ADSistemas\Ventas.root\Reportes\DataSet1.xsd
+ DataTable1
+
+
+
+
+
@@ -121,7 +216,7 @@
CANT
@@ -174,7 +269,7 @@
U.M.
@@ -227,7 +322,7 @@
Código
@@ -280,7 +375,7 @@
Descripción
@@ -333,7 +428,7 @@
Código Prov.
@@ -386,7 +481,7 @@
Costo Unit.
@@ -439,7 +534,7 @@
Importe
@@ -483,7 +578,7 @@
- 0.43773cm
+ 0.3cm
@@ -497,7 +592,7 @@
=Fields!Cantidad.Value
@@ -532,7 +627,7 @@
=Fields!UnidadMedida.Value
@@ -566,7 +661,7 @@
=Fields!Codigo.Value
@@ -600,7 +695,7 @@
=Fields!PS.Value
@@ -632,7 +727,7 @@
=Fields!NumeroParte.Value
@@ -664,7 +759,7 @@
=Fields!PU.Value
@@ -700,7 +795,7 @@
=Fields!Total.Value
@@ -752,7 +847,7 @@
DsInventarios
0.17639cm
0.12931cm
- 0.87898cm
+ 0.74125cm
19.1693cm
@@ -900,8 +995,8 @@
Textbox8
- 3.8986cm
- 0.17882cm
+ 4.50934cm
+ 0.16513cm
0.97952cm
19.04079cm
3
@@ -925,6 +1020,7 @@
OBSERVACIONES:
@@ -933,8 +1029,8 @@
Textbox5
- 3.11339cm
- 0.18166cm
+ 3.79469cm
+ 0.16513cm
0.60882cm
3.98167cm
4
@@ -948,14 +1044,634 @@
2pt
+
+
+
+
+ 1.96503cm
+
+
+ 5.43562cm
+
+
+ 7.7925cm
+
+
+ 1.85371cm
+
+
+ 2.07009cm
+
+
+
+
+ 0.44125cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Cuenta
+
+
+
+
+
+
+ Textbox3
+
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+
+ LightGrey
+
+ #e36c09
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Descripción
+
+
+
+
+
+
+ Textbox6
+
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+
+ LightGrey
+
+ #e36c09
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Concepto
+
+
+
+
+
+
+ Textbox13
+
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+
+ LightGrey
+
+ #e36c09
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Cargos
+
+
+
+
+
+
+ Textbox16
+
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+
+ LightGrey
+
+ #e36c09
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Abonos
+
+
+
+
+
+
+ Textbox23
+
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+ 1pt
+
+
+ LightGrey
+
+
+ LightGrey
+
+ #e36c09
+
+
+
+
+
+
+
+ 0.3cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!CodigoCuenta.Value
+
+
+
+
+
+
+ CodigoCuenta
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!NombreCuenta.Value
+
+
+
+
+
+
+ NombreCuenta
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Concepto.Value
+
+
+
+
+
+
+ Concepto
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cargo.Value
+
+
+
+
+
+
+ Cargos
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Abono.Value
+
+
+
+
+
+
+ Abonos
+
+
+
+
+
+
+
+
+
+ 0.43773cm
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox28
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox29
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox30
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Sum(Fields!Cargo.Value)
+
+
+
+
+
+
+ Textbox32
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Sum(Fields!Abono.Value)
+
+
+
+
+
+
+ Textbox37
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+
+ Before
+
+
+
+ DsPrePoliza
+ 2.33687cm
+ 0.18166cm
+ 1.17898cm
+ 19.11695cm
+ 5
+
+
+
+
- 1.94921in
+ 2.16097in