From fd05a65344ebd9403b1c446b3fc6b6e298d29ad0 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 12 Jan 2024 21:05:02 -0700 Subject: [PATCH] -- parametros en factura.ventadetallepadre --- App_Code/Modelos.vb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 2feb5e7e7..df92c7193 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1449,8 +1449,10 @@ Namespace Modelos End Function Public Function AgregarPS(CvePS As Integer, Cantidad As Decimal, PU As Decimal, Descuento As Decimal, Obs As String, - Optional CveUM As Integer = -1, Optional CveProyecto As Integer = -1, Optional Proyecto As String = "", Optional CveSubProyecto As Integer = -1, - Optional SubProyecto As String = "", Optional PorcentajeIVA As Decimal = -1, Optional CuentaPredial As String = "") As Boolean + Optional CveUM As Integer = -1, Optional CveProyecto As Integer = -1, Optional Proyecto As String = "", + Optional CveSubProyecto As Integer = -1, + Optional SubProyecto As String = "", Optional PorcentajeIVA As Decimal = -1, + Optional CuentaPredial As String = "", Optional CveVentaDetallePadre As Integer = -1) As Boolean If Not CvePS > 0 Then Alert("Ocurrió un error al cargar la información del producto a agregar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError) @@ -1626,7 +1628,7 @@ Namespace Modelos Row("EntregaDirecta") = 0 'Contratos Row("CveContratoDetalle") = -1 - Row("CveVentaDetalle") = -1 + Row("CveVentaDetalle") = CveVentaDetallePadre Row("CveMovimientoDetallePedido") = -1 Row("CveOrdenCompraDetalle") = -1 Row("CveVentaDetalleRemision") = -1 @@ -2154,7 +2156,7 @@ Namespace Modelos CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal, CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia, DescripcionVenta:=factura.DescripcionVenta, - CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta) Then + CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta, FechaParaSurtir:=factura.FechaParaSurtir) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico")