diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ddd289dc0..7c52cd248 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9717,12 +9717,12 @@ Public Class ClsPaginas 'Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 1) If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=Pago.CveVentaNC, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True Else 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=Pago.CveVentaNC, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True End If End If If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' N O T A D E C R E D I T O @@ -9832,6 +9832,7 @@ Public Class ClsPaginas Public Property CveMonedaPago As Integer = 1 Public Property TCPago As Decimal = 1 Public Property CveVentaAmortizacion As Integer = 0 + Public Property CveVentaNC As Integer = -1 Public Property OtroGastoIngreso As Decimal = 0 'Public Property CveConceptoPago As Integer = -1 'no definido de inicio Public Property CveCreditoDetalle As Integer = -1 diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 26e98bffa..65862b025 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3547,6 +3547,7 @@ Namespace Modelos PagoAnt.CveMonedaPago = CveMonedaAnticipo PagoAnt.TipoPago = "A" PagoAnt.Fecha = ObjFactura.Fecha + PagoAnt.CveVentaNC = ObjFactura.CveVenta PagoAnt.CveVentaAmortizacion = RowAnticipo("CveVenta").ToString().ToEntero() PagoAnt.TCPago = RowAnticipo("TipoCambioPago").ToString().ToDecimal() PagoAnt.AplicaTraslado = False diff --git a/Empresas/Grales/Formatos/RepAlmacen.rdlc b/Empresas/Grales/Formatos/RepAlmacen.rdlc index 4359d05d5..9704c6726 100644 --- a/Empresas/Grales/Formatos/RepAlmacen.rdlc +++ b/Empresas/Grales/Formatos/RepAlmacen.rdlc @@ -1,735 +1,5 @@  - - - - - - - - - - - true - true - - - - - Almacén - - - - - - - Textbox28 - - - - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - Tipo Almacén - - - - - - - Textbox6 - - - - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - - - - 5cm - - - 5cm - - - - - 0.3751cm - - - - - true - - - - - =Fields!Existencia.Value - - - - - - - Existencia - - - =IIF(Fields!Almacen.Value="Total","#67809F","White") - 2pt - 2pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Total.Value - - - - - - - Total - - - =IIF(Fields!Almacen.Value="Total","#67809F","White") - 2pt - 2pt - 1pt - 1pt - - - - - - - - - - - - - 0.3751cm - - - true - true - - - - - Existencia - - - - - - - Textbox3 - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - 0.3751cm - - - true - true - - - - - Total - - - - - - - Textbox40 - - - Gray - 2pt - 2pt - 2pt - 1pt - - - - - - - - - - - - - =Fields!Almacen.Value - - - - 5cm - - - true - - - - - =Fields!Almacen.Value - - - - - - =IIF(Fields!Almacen.Value="Total","#67809F","White") - 2pt - 2pt - 1pt - 1pt - - - - - - - - 5cm - - - true - true - - - - - =Fields!TipoAlmacen.Value - - - - - - =IIF(Fields!Almacen.Value="Total","#67809F","White") - 2pt - 2pt - 1pt - 1pt - - - - - - - - - - DataSet1 - 0.38751in - 0.7502cm - 20cm - - - - - - true - true - - - - - =Parameters!Filtros.Value - HTML - - - - - - - Filtros - 0.20788cm - 0.6cm - 20cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.81828in - - - - - - - Textbox1 - 0.18521cm - 5cm - 0.6cm - 10cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE DE ALMACENES - - - - - - - - - - - - - - - - Textbox2 - 1.10271cm - 5cm - 0.52945cm - 10cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 1.63216cm - 5cm - 2 - - - - - - - - - - - 0.94391cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.06cm - 15cm - 0.68085cm - 5cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - Textbox10 - 0.06cm - 7.16958cm - 0.68085cm - 2.83042cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!ExecutionTime - - - - - - - Textbox11 - 0.06cm - 10cm - 0.68085cm - 5cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - 0in - 0cm - 19.26933cm - 5 - - - - - - true - true - - - - - IMPRESO EN SIG, Rep. Almacén - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox28 + + + + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + Tipo Almacén + + + + + + + Textbox6 + + + + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + + + + 5cm + + + 5cm + + + + + 0.3751cm + + + + + true + + + + + =Fields!Existencia.Value + + + + + + + Existencia + + + =IIF(Fields!Gpo.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!Total.Value + + + + + + + Total + + + =IIF(Fields!Gpo.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + + + + + + 0.3751cm + + + true + true + + + + + Existencia + + + + + + + Textbox3 + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + 0.3751cm + + + true + true + + + + + Total + + + + + + + Textbox40 + + + Gray + 2pt + 2pt + 2pt + 1pt + + + + + + + + + + + + + =Fields!Gpo.Value + + + + 5cm + + + true + + + + + =Fields!Gpo.Value + + + + + + =IIF(Fields!Gpo.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + 5cm + + + true + true + + + + + =Fields!TipoAlmacen.Value + + + + + + =IIF(Fields!Gpo.Value="Total","#67809F","White") + 2pt + 2pt + 1pt + 1pt + + + + + + + + + + DataSet1 + 0.38751in + 0.7502cm + 20cm + + + + + + true + true + + + + + =Parameters!Filtros.Value + HTML + + + + + + + Filtros + 0.20788cm + 0.6cm + 20cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.81828in + + + + + + + Textbox1 + 0.18521cm + 5cm + 0.6cm + 10cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE ALMACENES + + + + + + + + + + + + + + + + Textbox2 + 1.10271cm + 5cm + 0.52945cm + 10cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 1.63216cm + 5cm + 2 + + + + + + + + + + + 0.94391cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.06cm + 15cm + 0.68085cm + 5cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + Textbox10 + 0.06cm + 7.16958cm + 0.68085cm + 2.83042cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox11 + 0.06cm + 10cm + 0.68085cm + 5cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + 0cm + 19.26933cm + 5 + + + + + + true + true + + + + + IMPRESO EN SIG, Rep. Almacén + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm +