diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 955f487b8..d5c7b5237 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -317,7 +317,7 @@ Public Class ClsVentas Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0, Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, - Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False) As Boolean + Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -403,6 +403,7 @@ Public Class ClsVentas .Add("@DiasCredito", SqlDbType.Int).Value = DiasCredito .Add("@EsDiasCreditoFijo", SqlDbType.Bit).Value = EsDiasCreditoFijo .Add("@AnticipoEspecial", SqlDbType.Bit).Value = AnticipoEspecial + .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -430,7 +431,8 @@ Public Class ClsVentas Fecha As Date, Observaciones As String, CveEmpresa As Integer, CveVenta As Integer, CveMetodoPago As Integer, FormaPago As Integer, Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1, Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, - Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, Optional RetISR As Double = -1) As Boolean + Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, + Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -460,6 +462,7 @@ Public Class ClsVentas .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra + .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje End With Try diff --git a/OC/OC.aspx b/OC/OC.aspx index b0716cdc0..c42828217 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -286,11 +286,12 @@
- + <%-- - - - + --%> + + <%-- + --%>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 4f6b6aaae..46881c301 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -476,6 +476,7 @@ Partial Class OC Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + CargaDatosAgregarPS() 'MODALIDAD MULTIEMPRESA CveEmpresaActual = UsuarioActual.CveEmpresa @@ -754,7 +755,6 @@ Partial Class OC UPPDetalle.Update() PermisosPagina() - RegistraScript("$get('HdnWidth').value = $('#C_Tab_TabC_DivConceptosContenido').width();") End If Me.Form.DefaultButton = "" @@ -1294,7 +1294,7 @@ Partial Class OC HplCompraContabilizada.Text = "No" End If - DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) 'CARGAMOS LA SUCURSAL SI NO EXISTE SE AGREGA MATRIZ Dim CveProveedorSucursal As Integer = IIf(objOC.CveProveedorSucursal.ToEntero = -1, 0, objOC.CveProveedorSucursal.ToEntero).ToString.ToEntero @@ -1330,7 +1330,7 @@ Partial Class OC lblFolio.Text = "REQ " + objOC.Folio.ToString lblTipoPadreHijo.Text = "OC" ChkCotizacion.Visible = True - DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) If objOC.CveProveedorSucursal.ToEntero > 0 Then DivProveedorSucursal.Visible = True @@ -1494,14 +1494,14 @@ Partial Class OC 'Permisos, para cambiar el proveedor en una OC If objOC.Tipo.ToUpper = "OC" AndAlso UsuarioActual.TienePermisoProceso(111) Then DdlProveedores.Enabled = True - DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) DdlIVA.Enabled = True ImgCambiaProv.Visible = True UPProv.Update() End If If DdlProveedores.SelectedValue <> objOC.CveProveedor.ToString Then - DdlProveedores.Items.Insert(1, New ListItem(GlobalDTCompProveedores(CveEmpresaActual).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {objOC.CveProveedor}"), objOC.CveProveedor.ToString)) + 'DdlProveedores.Items.Insert(1, New ListItem(GlobalDTCompProveedores(CveEmpresaActual).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {objOC.CveProveedor}"), objOC.CveProveedor.ToString)) End If CargaCotizaciones(CveOrdenCompra) @@ -1741,9 +1741,16 @@ Partial Class OC CboUnidadMedida.DataBind() End Sub Private Sub CargaProveedores() - DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) - DdlProveedores.DataBind() - DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("metodo", "getproveedores") + Else + + GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing + DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) + DdlProveedores.DataBind() + End If + 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedorCot.DataBind() @@ -1755,7 +1762,7 @@ Partial Class OC Private Sub CargaProveedorSucursal() DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataBind() - DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) UPProv.Update() : UPPEmp.Update() End Sub Private Sub CargaEstatusOC() @@ -2614,7 +2621,7 @@ Partial Class OC If Not TieneError Then Fecha = Now CveProveedor = DdlProveedores.SelectedValue.ToEntero - ProveedorNombre = DdlProveedores.SelectedItem.Text + ProveedorNombre = DdlProveedores.SelectedText SerieFolio = $"OC: {Folio}" If DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,1) AND Diferencia <> 0 ").Rows.Count > 0 Then @@ -2952,12 +2959,12 @@ Partial Class OC End If 'AGREGA DETALLES - If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, - dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), + If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, + dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CveOrdenCompra, - CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble, - IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, - RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, + CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble, + IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, + RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then @@ -4724,7 +4731,7 @@ Partial Class OC ChkEventoPrioridad.Checked = False RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal") - CargaEventoBitacoraTemp() + CargaEventoBitacoraTemp() End Sub @@ -4880,7 +4887,7 @@ Partial Class OC Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual) Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto - Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedItem.Text)) + Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedText)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra)) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Hilo.Start(Param) @@ -4894,7 +4901,7 @@ Partial Class OC Dim DtPara As DataTable = GlobalDTUsuarios(Dr("CveUsuarioPara").ToString.ToEntero, CveEmpresaActual) Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add("Solicitud de anticipo de Orden de Compra Cancelada") 'Asunto - Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "", DdlProveedores.SelectedItem.Text)) + Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "", DdlProveedores.SelectedText)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra)) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Hilo.Start(Param) @@ -5118,7 +5125,7 @@ Partial Class OC Return CveEmpresaActual = 66 End Function - Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged + Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.selectedindexchange Dim Objeto As New ClsCompProveedores DdlProveedorSucursal.Items.Clear() @@ -5191,7 +5198,7 @@ Partial Class OC PnlUsuarioAsignado.Visible = False - RVProveedores.Enabled = False + 'RVProveedores.Enabled = False 'Si NO requiere cotizacion y el estatus siguiente es el final, If TipoOC.ToUpper = "REQ" Then @@ -5203,7 +5210,7 @@ Partial Class OC If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero.Contiene(CveEstatusFinalOK) AndAlso TipoOS = False Then BtnGuardar.Text = "Guardar y Generar OC" : uppOpciones.Update() - RVProveedores.Enabled = True + 'RVProveedores.Enabled = True If CveEmpresaActual.Contiene(13, 83, 72) Then PnlUsuarioAsignado.Visible = True @@ -5228,7 +5235,7 @@ Partial Class OC If CveEstatus <> CveEstatusFinalError Then RegistraScript("$get('divCE').style.display='';PosicionaObjeto('C_CboE','divCE'); ") End If Else - RVProveedores.Enabled = True + 'RVProveedores.Enabled = True End If @@ -5959,7 +5966,7 @@ Partial Class OC Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - Dim excelFile As ExcelFile = excelFile.Load(flatFilePath) + Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) Dim unnamed As Integer = 0 Dim cols As Integer @@ -6392,7 +6399,7 @@ Partial Class OC Dim CveProveedorPrevio As String = DdlProveedores.SelectedValue Dim CveProveedorSucursalPrevio As String = DdlProveedorSucursal.SelectedValue CargaProveedores() - DdlProveedores.SelectedValueExist(CveProveedorPrevio) + DdlProveedores.ddl.SelectedValueExist(CveProveedorPrevio) DdlProveedores_SelectedIndexChanged(DdlProveedores, EventArgs.Empty) If DdlProveedorSucursal.Visible Then DdlProveedorSucursal.SelectedValueExist(CveProveedorSucursalPrevio) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index c0a918e0c..e18481707 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -410,11 +410,11 @@
- + - + diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 92bbd2874..6fa1b3ceb 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -373,7 +373,7 @@ -
+
@@ -725,10 +725,10 @@
- - + + -
+
@@ -811,6 +811,14 @@ + + + +
+ Turno: +
+ +
@@ -2820,2408 +2828,2414 @@ -
+
-
-
-
+
+
+
- - -
-
- - Condiciones de Pago -
-
-
-
-
-
- -
-
-
- - - - - - -
-
- - - -
-
- - - - - - - + + +
+
+ + Condiciones de Pago +
+
+
+
+
+
+ +
- - - - - - - - - <%-- +
+
Forma de entrega: - - - -
Uso CFDI: - - - - - - -
Método de Pago: - - - - - -
Forma de Pago: - - - - - - -
Tipo Relación - - - -
-
-
+ + + + + +
+
+ + + +
+
+ + + + + + + + + + + + + + + + + <%----%> - - - - - - - - + + + + - - - - - - -
Forma de entrega: + + + +
Uso CFDI: + + + + + + +
Método de Pago: + + + + + +
Forma de Pago: + + + + + + +
Tipo Relación + + + +
+
+
Num. Cta. Pago:
Fecha de Pago: -
- - - - - - - - - - -
- 		- -
- -
-
- - Crédito - Contado - Terminal - -
-
- - <%-- ******************** Punto de Venta *****************************************************************************************************************************--%> - - - -
- - -
-
-
-
- -
- $ - - -
-
- - - -
-
-
- -
-
- -
- $ - - -
-
- - - -
-
- - MSI - 3M - 6M - 9M - 12M - - <%-- - --%> -
-
-
- - -
-
- -
- $ - - -
-
- - - -
-
-
-
-
- -
- $ - - -
-
- - - -
-
-
- -
-
- -
- $ - - -
-
- - - -
-
-
- - -
-
- -
- - Otros - Credito - Debito - Cheque - -
- -
- $ - - -
- -
- - - -
- -
- - Meses - 3M - 6M - 9M - 12M - -
- -
-
- - - -
-
-
-
- -
- $ - - - - - <%-- - --%> -

-
-
-
-
-
- -
- $ - - -

-
-
-
- - - - - - -
-
- -
- -
-
- -
-
- -
- -
-
- - - - - - - - - - - - - - -
-
- -
- - - - - <%-- **************************************************************************************************************************************************************** --%> - - <%-- Terminal --%> - - -
-
- - <%----%> - +
Fecha de Pago: +
+ + + + + + + + + +
- - - - <%-- --%> + 		+ +
Tipo Relación: -
-
- - -
-
+ + + +
+
+ + Crédito + Contado + Terminal + +
+
+ + <%-- ******************** Punto de Venta *****************************************************************************************************************************--%> + + + +
+ + +
+
+
+
+ +
+ $ + + +
+
+ + + +
+
+
+ +
+
+ +
+ $ + + +
+
+ + + +
+
+ + MSI + 3M + 6M + 9M + 12M + + <%-- + --%> +
+
+
-
- - -
-
- - Observaciones -
-
-
-
-
-
- +
+
+ +
+ $ + + +
+
+ + + +
+
+
+
+
+ +
+ $ + + +
+
+ + + +
+
+
+ +
+
+ +
+ $ + + +
+
+ + + +
+
+
+ + +
+
+ +
+ + Otros + Credito + Debito + Cheque + +
+ +
+ $ + + +
+ +
+ + + +
+ +
+ + Meses + 3M + 6M + 9M + 12M + +
+ +
+
+ + + +
+
+
+
+ +
+ $ + + + + + <%-- + --%> +

+
+
+
+
+
+ +
+ $ + + +

+
+
+
+ + + + + + +
+
+ +
+ +
+
+ +
+
+ +
+ +
+
+ + + + + + + + + + + + + + +
+
+ +
+ + + + + <%-- **************************************************************************************************************************************************************** --%> + + <%-- Terminal --%> + + +
+
+ + <%----%> + +
+
+ + + <%-- --%> + + + + + Tipo Relación: + + + + +
+ +
-
- - - - - - - - - + + + + + + + + + + + + +
Observaciones Generales: 
-
Orden de Compra:   + + +
+ + +
+
+ + Observaciones +
+
+
+
+
+
+ +
+
+
+ + + + + + + + + - + + - - - + + - - - - - - - - -
Observaciones Generales: 
+
Orden de Compra:   - - - + +
Pedido:   +
Pedido:  
Observaciones Almacén: 
-
+
Observaciones Almacén: 
+
Kilometraje 
+
+
+ +
- - -
-
- - - - - +
+ + + + + -
-
- - Acciones -
-
-
-
-
-
- -
-
-
-
- -
- - - - - - - +
+
+ + Acciones +
+
+
+
+
+
+ +
+
+
+
+ +
+
- -
- -
+ + + + + + - - + - -
+ +
+ +
- +
+ -
- -
    -
  • - -
    • -
  • - -
    • - <%--
  • +
    + +
      +
    • + +
      • +
    • + +
      • + <%--
      • --%> -
    -
    - - +
+
+ + - - + + - - + + - - + + - - + + -
+ + + +
+ +
- - -
-
- - +
+ + + + + + + + + Folio + + + + + + Fecha + + + + + + Saldo + +   + + + + Moneda Venta + + + + + + Moneda + + + + + + Amort. Ant. + + + + + + + + + + + <%----%> + + + + -