diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index cc779f1fa..eeed354fd 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -4224,7 +4224,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString)) - If UsuarioActual.CveEmpresa.Contiene(189) Then + If UsuarioActual.CveEmpresa.Contiene(189, 193, 197) Then params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN A PROVEEDOR")) @@ -4256,12 +4256,17 @@ Partial Class PopUpVerFactura ObjCompra.Dispose() If Not Archivo.Exists Then - params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") + Else - ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") + If UsuarioActual.CveEmpresa.Contiene(189, 193, 197) Then + ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios", DtDatos2:=DTPrePoliza, RDSName2:="DsPrePoliza") + Else + ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") + End If + End If 'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionProveedor.rdlc", DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 0e84a3b80..05f75f787 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -265,10 +265,10 @@
- Caja Chica - Viáticos + Viáticos + Deudores
@@ -334,6 +334,7 @@ + @@ -352,7 +353,7 @@ -
+
@@ -362,7 +363,80 @@
- +
+
+ +
+ + + + + +
+ + + + + + + + + + + + Fecha + + + + + + Folio + + + + + + Saldo + +   + + + + + Saldo Abonar + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+ +
@@ -827,6 +901,134 @@ + + <%--PRORRATE INICIO--%> + + + + <%--PRORRATEO FIN--%> + + - - + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 91cba7038..609c6a24b 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -756,13 +756,24 @@ Partial Class Compras_eFacturas End Set End Property + Private Property CveMonedaFiltros As Integer + Get + If ViewState("CveMonedaFiltros") Is Nothing Then + ViewState("CveMonedaFiltros") = -1 + End If + Return ViewState("CveMonedaFiltros").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveMonedaFiltros") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then - 'EsGrupoDiaz = False ' If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False) + EsGrupoDiaz = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False) ChecandoCorreo = False @@ -816,12 +827,16 @@ Partial Class Compras_eFacturas CargaPersonalViaticos() CargaDdlRetIVA() CargaDdlRetISR() + CargaDeudores() End If Dim LblSubProyectoTemp As New Label CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoTemp, "Seleccione") LblSubProyecto.InnerText = $"{LblSubProyectoTemp.Text}:" + + InicializaDTProrrateoGasolina() + End If removeasincevent() End Sub @@ -5176,6 +5191,23 @@ Partial Class Compras_eFacturas End Property + Private Property DtDeudoresDetalle As DataTable + Get + Return CType(ViewState("DtDeudoresDetalle"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtDeudoresDetalle") = value + End Set + End Property + + Private Property DtDeudores As DataTable + Get + Return CType(ViewState("DtDeudores"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtDeudores") = value + End Set + End Property Private Sub CargaClasificacionesComprobaciones() @@ -5268,7 +5300,7 @@ Partial Class Compras_eFacturas DivPersonalReembolso.Visible = False DivCuentaCajaChicaReembolso.Visible = False - + DivDeudores.Visible = False Select Case RBLContado.SelectedValue @@ -5280,6 +5312,10 @@ Partial Class Compras_eFacturas DivCuentaCajaChicaReembolso.Visible = True RfvTxtNumeroReembolso.Enabled = True + Case "4" ' Deudores + DivDeudores.Visible = True + RfvTxtNumeroReembolso.Enabled = True + End Select UpRegistroFacturas.Update() @@ -5314,6 +5350,47 @@ Partial Class Compras_eFacturas DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) End Sub + Protected Sub CargaDeudores(Optional CveMoneda As Integer = 1) + Dim Deudores As New ClsMovimientos + DdlDeudor.Items.Clear() + + + If Deudores.GetDeudoresSaldos2(-1, UsuarioActual.CveEmpresa) Then + DtDeudores = Deudores.DtResultados.FiltraParametros($"CveProveedor > 0 AND Saldo > 0 AND CveMoneda = {CveMoneda}") + DdlDeudor.DataSource = DtDeudores + DdlDeudor.DataBind() + DdlDeudor.Items.Insert(0, New ListItem("Seleccione Deudor", "-1")) + UpDatos.Update() + CambieDeudor() + End If + + + Deudores.Dispose() + End Sub + Private Sub DdlDeudor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlDeudor.SelectedIndexChanged + CambieDeudor() + End Sub + Private Sub CambieDeudor() + Dim stringDeudor As String = DdlDeudor.SelectedItem.ToString + Dim SaldoD As Decimal = stringDeudor.Substring(stringDeudor.IndexOf("$") + 1, stringDeudor.Length - (stringDeudor.IndexOf("$") + 1)).ToDecimal + + If DdlDeudor.SelectedValue.ToEntero > 0 Then + Dim Deudores As New ClsMovimientos + Dim OpcionSaldo As Integer = 1 + + If Deudores.GetDeudoresSaldosDetalle(DdlDeudor.SelectedValue.ToEntero, CveMonedaFiltros, UsuarioActual.CveEmpresa) Then + DtDeudoresDetalle = Deudores.DtResultados.FiltraParametros("CveProveedor > 0 AND Saldo > 0") + GvDeudores.DataSource = DtDeudoresDetalle + GvDeudores.DataBind() + End If + Deudores.Dispose() + Else + GvDeudores.DataSource = Nothing + GvDeudores.DataBind() + End If + + UpDeudores.Update() + End Sub Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged @@ -5332,6 +5409,344 @@ Partial Class Compras_eFacturas ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue End Sub +#End Region + + + +#Region "PRORATEO" + + + +#Region "PRORRATEO GASOLINA" + + Protected Sub LnlMostarProrateo_Click(sender As Object, e As EventArgs) + + 'InicializaDTProrrateoGasolina() + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoProrrateoGasolina,) + GvProrrateoGasolina.Columns(0).HeaderText = LblSubProyectoProrrateoGasolina.Text + LblRiruloProrrareo.Text = $"Prorratear por { LblSubProyectoProrrateoGasolina.Text}" + + DdlSubProyectoProrrateoGasolina.Items.Clear() + DdlSubProyectoProrrateoGasolina.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=-1)) + DdlSubProyectoProrrateoGasolina.DataBind() + DdlSubProyectoProrrateoGasolina.Items.Insert(0, New ListItem("Todos", "-1")) + + 'LblTotalProrrateoGasolina.Text = TxtTotal.Text + + CargaProrratePS(-1) + + RegistraScript("$('#DVModalProrrateoGasolina').modal();") + UpModalProrrateoGasolina.Update() + UpProrratearTitulo.Update() + + End Sub + Property DTProrrateoTmp As DataTable + Get + If ViewState("DTProrrateoTmp") Is Nothing Then + ViewState("DTProrrateoTmp") = New DataTable + End If + Return DirectCast(ViewState("DTProrrateoTmp"), DataTable) + End Get + Set(value As DataTable) + ViewState("DTProrrateoTmp") = value + End Set + End Property + + Property DTProrrateo As DataTable + Get + If ViewState("DTProrrateo") Is Nothing Then + ViewState("DTProrrateo") = New DataTable + End If + Return DirectCast(ViewState("DTProrrateo"), DataTable) + End Get + Set(value As DataTable) + ViewState("DTProrrateo") = value + End Set + End Property + + Property ProrratearFacturas As Boolean + Get + If ViewState("ProrratearFacturas") Is Nothing Then + ViewState("ProrratearFacturas") = False + End If + Return Boolean.Parse(ViewState("ProrratearFacturas").ToString) + End Get + Set(value As Boolean) + ViewState("ProrratearFacturas") = value + End Set + End Property + + Private Sub InicializaDTProrrateoGasolina() + Dim TmpDTProrrateoGasolina As New DataTable + TmpDTProrrateoGasolina.Columns.Add("CvePS", GetType(Integer)) + TmpDTProrrateoGasolina.Columns.Add("CveSubProyecto", GetType(Integer)) + TmpDTProrrateoGasolina.Columns.Add("SubProyecto", GetType(String)) + TmpDTProrrateoGasolina.Columns.Add("SubTotal", GetType(Decimal)) + TmpDTProrrateoGasolina.Columns.Add("IVA", GetType(Decimal)) + TmpDTProrrateoGasolina.Columns.Add("RetIVA", GetType(Decimal)) + TmpDTProrrateoGasolina.Columns.Add("RetISR", GetType(Decimal)) + TmpDTProrrateoGasolina.Columns.Add("Total", GetType(Decimal)) + TmpDTProrrateoGasolina.Columns.Add("PorcentajeIVA", GetType(Decimal)) + TmpDTProrrateoGasolina.Columns.Add("RetISRPorcentaje", GetType(Decimal)) + TmpDTProrrateoGasolina.Columns.Add("RetIVAPorcentaje", GetType(Decimal)) + + TmpDTProrrateoGasolina.Columns.Add("CveUM", GetType(Integer)) + TmpDTProrrateoGasolina.Columns.Add("CveClasificacion", GetType(Integer)) + TmpDTProrrateoGasolina.Columns.Add("UM", GetType(String)) + TmpDTProrrateoGasolina.Columns.Add("Clasificacion", GetType(String)) + TmpDTProrrateoGasolina.Columns.Add("PS", GetType(String)) + TmpDTProrrateoGasolina.Columns.Add("Porcentaje", GetType(Decimal)) + + + DTProrrateoTmp = TmpDTProrrateoGasolina + + + End Sub + + Protected Sub LnkProrrateoGasolina_Click(sender As Object, e As EventArgs) + + 'InicializaDTProrrateoGasolina() + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoProrrateoGasolina,) + GvProrrateoGasolina.Columns(0).HeaderText = LblSubProyectoProrrateoGasolina.Text + LblRiruloProrrareo.Text = $"Prorratear por { LblSubProyectoProrrateoGasolina.Text}" + + DdlSubProyectoProrrateoGasolina.Items.Clear() + DdlSubProyectoProrrateoGasolina.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=-1)) + DdlSubProyectoProrrateoGasolina.DataBind() + DdlSubProyectoProrrateoGasolina.Items.Insert(0, New ListItem("Todos", "-1")) + + 'LblTotalProrrateoGasolina.Text = TxtTotal.Text + + CargaProrratePS(-1) + + RegistraScript("$('#DVModalProrrateoGasolina').modal();") + UpModalProrrateoGasolina.Update() + UpProrratearTitulo.Update() + + End Sub + + + Private Sub CargaProrratePS(CveClasificacion As Integer) + + DdlPSProrrateoGasolina.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + 'DdlPSProrrateoGasolina.ddlWS.Attributes.Add("data-cveclasificacion", ""-1) + DdlPSProrrateoGasolina.SelectedText = "" + DdlPSProrrateoGasolina.SelectedValue = "-1" + Else + DdlPSProrrateoGasolina.ddl.Items.Clear() + + 'DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion) + + If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then + + Dim DTTemp As New DataTable + DTTemp.Columns.Add("CvePS", GetType(Integer)) + DTTemp.Columns.Add("PSCodigo", GetType(String)) + DTTemp.Columns.Add("CveClasificacion", GetType(Integer)) + + For Each dRow As DataRow In GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).Rows + For Each drowCla As DataRow In DTClasificacionesComprobaciones.Rows + + If drowCla("CveClasificacion").ToString.ToEntero = dRow("CveClasificacion").ToString.ToEntero Then + + Dim InRow As DataRow = DTTemp.NewRow + InRow("CvePS") = dRow("CvePS").ToString.ToEntero + InRow("PSCodigo") = dRow("PSCodigo").ToString + InRow("CveClasificacion") = dRow("CveClasificacion").ToString.ToEntero + DTTemp.Rows.Add(InRow) + + End If + Next + Next + DdlPSProrrateoGasolina.DataSource = If(CveClasificacion > 0, DTTemp.FiltraParametros($"CveClasificacion = {CveClasificacion}"), DTTemp) + Else + DdlPSProrrateoGasolina.DataSource = If(CveClasificacion > 0, GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros($"CveClasificacion = {CveClasificacion}"), GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)) + End If + + DdlPSProrrateoGasolina.ddl.DataBind() + DdlPSProrrateoGasolina.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) + End If + + End Sub + + Private Sub GvProrrateoGasolinaBind() + GvProrrateoGasolina.DataSource = DTProrrateoTmp + GvProrrateoGasolina.DataBind() + UpModalProrrateoGasolina.Update() + End Sub + + Protected Sub LnkEliminarProrrateoGasolina_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + DTProrrateoTmp.Rows.RemoveAt(GvRow.RowIndex) + DTProrrateoTmp.AcceptChanges() + ProrateoCalculaRestante() + GvProrrateoGasolinaBind() + + End Sub + + + + Protected Sub LnkAgregarProrrateoGasolina_Click(sender As Object, e As EventArgs) + + Dim CvePs As Integer = DdlPSProrrateoGasolina.SelectedValue.ToEntero + + If Not CvePs > 0 Then + Alert("Debe seleccionar un producto", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim PsRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePs).FiltroPrimero("") + + If PsRow Is Nothing Then + Alert("No se encontro el producto", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim CveUM As Integer = PsRow("CveUM").ToString.ToEntero + Dim UM As String = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("UnidadMedida", $" CveUnidadMedida = {CveUM} ") + + Dim CveClasificacion As Integer = PsRow("CveClasificacion").ToString.ToEntero + Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $" CveClasificacion = {CveClasificacion} ") + + + If DdlSubProyectoProrrateoGasolina.SelectedValue.ToEntero > 0 Then + AgregarProrrateoGasolina(DdlSubProyectoProrrateoGasolina.SelectedValue.ToEntero, DdlSubProyectoProrrateoGasolina.SelectedItem.Text, CvePs, CveUM, UM, CveClasificacion, Clasificacion) + Else + DTProrrateoTmp.Rows.Clear() + + For Each item As ListItem In DdlSubProyectoProrrateoGasolina.Items + If item.Value.ToEntero > 0 Then + AgregarProrrateoGasolina(item.Value.ToEntero, item.Text, CvePs, CveUM, UM, CveClasificacion, Clasificacion) + End If + Next + End If + + TxtPrecioProrrateoGasolina.Text = "" + DdlSubProyectoProrrateoGasolina.SelectedValueExist(-1) + UpModalProrrateoGasolina.Update() + + End Sub + + + Private Sub AgregarProrrateoGasolina(CveSubProyecto As Integer, SubProyecto As String, CvePS As Integer, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String) + + ''' este prco3eso compratira todo esto se debe de llevar a la genracion de la factura por porcentaje + + Dim SubTotalOriginal As Decimal = 1 + Dim IVAOriginal As Decimal = 0D 'TxtIVA.Text.ToDecimal + Dim RetISROriginal As Decimal = 0D 'TxtRetISR.Text.ToDecimal + Dim RetIVAOriginal As Decimal = 0D 'TxtRetIVA.Text.ToDecimal + Dim TotalOriginal As Decimal = 1 + + Dim totalParcialDeseado As Decimal = TxtPrecioProrrateoGasolina.Text.ToDecimal + Dim PorcentajeCalculado As Decimal = totalParcialDeseado / TotalOriginal + + Dim subtotalParcial As Decimal = SubTotalOriginal * PorcentajeCalculado + Dim ivaParcial As Decimal = IVAOriginal * PorcentajeCalculado + Dim retIsrParcial As Decimal = RetISROriginal * PorcentajeCalculado + Dim retIvaParcial As Decimal = RetIVAOriginal * PorcentajeCalculado + + Dim nRow As DataRow = DTProrrateoTmp.NewRow + + nRow("CvePS") = DdlPSProrrateoGasolina.SelectedValue.ToEntero + nRow("CveSubProyecto") = CveSubProyecto + nRow("SubProyecto") = SubProyecto + + 'If CveFactura > 0 Then + nRow("IVA") = ivaParcial.RoundSQL(4) + nRow("RetIVA") = retIvaParcial.RoundSQL(4) + nRow("RetISR") = retIsrParcial.RoundSQL(4) + 'Else + 'nRow("IVA") = (ivaParcial / subtotalParcial).RoundSQL(4) + 'nRow("RetIVA") = (retIvaParcial / subtotalParcial).RoundSQL(4) + 'nRow("RetISR") = (retIsrParcial / subtotalParcial).RoundSQL(4) + 'End If + + nRow("SubTotal") = subtotalParcial.RoundSQL(4) + + nRow("Total") = totalParcialDeseado.RoundSQL(4) + nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial).RoundSQL(4) + nRow("Porcentaje") = TxtPrecioProrrateoGasolina.Text.ToDecimal '((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2) + + 'nRow("RetIVAPorcentaje") = (retIvaParcial / subtotalParcial).RoundSQL(4) + 'nRow("RetISRPorcentaje") = (retIsrParcial / subtotalParcial).RoundSQL(4) + + nRow("CveUM") = CveUM + nRow("UM") = UM + nRow("CveClasificacion") = CveClasificacion + nRow("Clasificacion") = Clasificacion + nRow("PS") = DdlPSProrrateoGasolina.txtText.Value + + DTProrrateoTmp.Rows.Add(nRow) + + ProrateoCalculaRestante() + GvProrrateoGasolinaBind() + End Sub + + + Function ProrateoCalculaRestante(Optional MostrarMensaje As Boolean = False) As Boolean + '''Esto no aplica por que es por factura + + Dim Acumulado As Decimal = DTProrrateoTmp.SUM("Porcentaje").RoundSQL(2) + Dim Total As Decimal = 100 'TxtTotal.Text.ToDecimal.RoundSQL(2) + Dim Respuesta As Boolean = False + + LblRestoProrrateoGasolina.Text = (Total - Acumulado).ToString("###,###,###.00") + + If Acumulado = Total Then + Respuesta = True + Else + Respuesta = False + If MostrarMensaje Then + + If Acumulado <> Total Then + Alert($"El porcentaje prorrateado es diferente de 100%, Diferencia: {(Acumulado - Total).Abs()}, Prorrateado:{Acumulado.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia) + End If + + End If + End If + + Return Respuesta + + End Function + + + + Protected Sub BtnGuardarProrrateoGasolina_Click(sender As Object, e As EventArgs) + + 'esto se debe ejecutar en cada factura seleccionada + + If Not ProrateoCalculaRestante(True) Then + Exit Sub + End If + + DTProrrateo = DTProrrateoTmp + RegistraScript("$('#DVModalProrrateoGasolina').modal('hide');") + + 'If DTProrrateoGasolina.Rows.Count > 0 Then + ' TmpDT.Rows.Clear() + ' For Each dRow As DataRow In DTProrrateoGasolina.Rows + ' AddPS(1, dRow("CveUM").ToString.ToEntero, dRow("UM").ToString, dRow("CveClasificacion").ToString.ToEntero, dRow("Clasificacion").ToString, dRow("CvePS").ToString.ToEntero, dRow("PS").ToString, 1, dRow("CveSubProyecto").ToString, dRow("SubProyecto").ToString, "", + ' "-1", "", dRow("SubTotal").ToString.ToDecimal, dRow("Total").ToString.ToDecimal, dRow("IVA").ToString.ToDecimal, dRow("RetIVA").ToString.ToDecimal, dRow("RetISR").ToString.ToDecimal, 0, 0, 0, PorcentajeIVA:=dRow("PorcentajeIVA").ToString.ToDecimal, + ' CargaXml:=True, PorcentajeRetIVA:=dRow("RetIVAPorcentaje").ToString.ToDecimal, PorcentajeRetISR:=dRow("RetISRPorcentaje").ToString.ToDecimal) + ' Next + + ' AddPS2() + ' RegistraScript("$('#DVModalProrrateoGasolina').modal('hide');") + + 'End If + + + + + End Sub + + +#End Region + #End Region Protected Sub LnkRegistarFactura_Click(sender As Object, e As EventArgs) @@ -5405,6 +5820,8 @@ Partial Class Compras_eFacturas End Sub + + End Class diff --git a/Empresas/189/Formatos/DevolucionProveedor.rdlc b/Empresas/189/Formatos/DevolucionProveedor.rdlc index 52b504801..4de2e83a8 100644 --- a/Empresas/189/Formatos/DevolucionProveedor.rdlc +++ b/Empresas/189/Formatos/DevolucionProveedor.rdlc @@ -81,7 +81,95 @@ - + + + + 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 + + + + + @@ -909,7 +997,7 @@ Textbox8 - 2.92184cm + 4.47759cm 0.13338cm 0.97952cm 21.08648cm @@ -943,7 +1031,7 @@ Textbox5 - 2.20719cm + 3.76294cm 0.13338cm 0.60882cm 3.98167cm @@ -958,8 +1046,647 @@ 2pt + + + + + 1.87234cm + + + 5.22297cm + + + 9.86336cm + + + 2.16521cm + + + 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 + + + + + + + + + + + + + true + true + + + + + =Fields!NombreCuenta.Value + + + + + + + + + + + + + true + true + + + + + =Fields!Concepto.Value + + + + + + + + + + + + + true + true + + + + + =IIf( + Fields!Cargo.Value = 0, + "", + Format(Fields!Cargo.Value, "###,###,###.00") +) + + + + + + + Cargos + + + + + + + + + + true + true + + + + + =IIf( + Fields!Abono.Value = 0, + "", + Format(Fields!Abono.Value, "###,###,###.00") +) + + + + + + + Abonos + + + + + + + + + + 0.43773cm + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + Total + + + + + + + Textbox30 + + + + + + + + + + true + true + + + + + =IIf( + Sum(Fields!Cargo.Value) = 0, + "", + Format(Sum(Fields!Cargo.Value), "###,###,###.00") +) + + + + + + + Textbox32 + + + + + + + + + + true + true + + + + + =IIf( + Sum(Fields!Abono.Value) = 0, + "", + Format(Sum(Fields!Abono.Value), "###,###,###.00") +) + + + + + + + Textbox37 + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DsPrePoliza + 2.40894cm + 0.07495cm + 1.17898cm + 21.19397cm + 5 + + + + - 1.53597in + 2.14847in