diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 3373f9526..7a14674f8 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1022,22 +1022,22 @@ Public Class ClsClientes
End Function
- Public Function GetEstados(Optional ClaveSATPais As String = "-1") As Boolean
- Dim Retorno As Boolean = False
+ 'Public Function GetEstados(Optional ClaveSATPais As String = "-1") As Boolean
+ ' Dim Retorno As Boolean = False
- DataAdapter("PA_ClientesEstadosGet")
+ ' DataAdapter("PA_ClientesEstadosGet")
- SqlAdapter.SelectCommand.Parameters.Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais
+ ' SqlAdapter.SelectCommand.Parameters.Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al obtener el los estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' Retorno = True
+ ' Catch ex As Exception
+ ' OnError("Ocurrió un error al obtener el los estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ ' End Try
- Return Retorno
- End Function
+ ' Return Retorno
+ 'End Function
@@ -1596,8 +1596,8 @@ Public Class ClsClientes
Return Retorno
End Function
- Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String,
- Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+ Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer,
+ RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer,
NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_ClientesNoFrecuenteAdd")
@@ -1610,8 +1610,8 @@ Public Class ClsClientes
.Add("@Colonia", SqlDbType.VarChar).Value = Colonia
.Add("@Localidad", SqlDbType.VarChar).Value = Localidad
.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
- .Add("@Estado", SqlDbType.VarChar).Value = Estado
- .Add("@Pais", SqlDbType.VarChar).Value = Pais
+ .Add("@CveEstado", SqlDbType.Int).Value = CveEstado
+ ' .Add("@Pais", SqlDbType.VarChar).Value = Pais
.Add("@RFC", SqlDbType.VarChar).Value = RFC
.Add("@CP", SqlDbType.VarChar).Value = CP
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index daee7399b..59d5678ba 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4468,11 +4468,11 @@ Public Class ClsVentas
Return retorno
End Function
- Public Function GetOCRelacionadas(CveVentasDetalles As String) As Boolean
+ Public Function GetOCRelacionadas(CveVenta As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Vta_OrdenCompraRelacionada", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
- .Add("@CveVentasDetalles", SqlDbType.NVarChar).Value = CveVentasDetalles
+ .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
End With
Try
SqlAdapter.Fill(Data)
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ce6ccabce..9092932ce 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1227,7 +1227,6 @@ Partial Class Compras_Compras
ClavesBorradas = New ArrayList()
TxtFecha.Text = Now.ToShortDateString
TxtFechaEjecucion.Text = Now.ToShortDateString
- ViewState("CveCompra") = "0"
ViewState("CveFactura") = "0"
ViewState("IdPoliza") = "0"
ViewState("CveCompra") = -1
@@ -10761,7 +10760,7 @@ Partial Class Compras_Compras
e.Row.FCLinkButton("ImgD").Visible = False
End If
- If e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("IEPSPSPorcentaje").ToDouble > 0 Then
+ If CveCompra <= 0 AndAlso e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("IEPSPSPorcentaje").ToDouble > 0 Then
If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=e.Row.DBCampo("CvePS").ToEntero).Rows.Count > 0 Then
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=e.Row.DBCampo("CvePS").ToEntero).Rows(0)
If DrPS IsNot Nothing Then
@@ -10773,6 +10772,11 @@ Partial Class Compras_Compras
End If
End If
+ If e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("NoDeducible") = "True" Then
+ e.Row.FCLabel("LblIVAPorcentaje").ToolTip = "IVA NO Deducible"
+ e.Row.FCLabel("LblIVAPorcentaje").ForeColor = Drawing.Color.Red
+ End If
+
'CargaPresupuestosEgresos
If UsuarioActual.Empresa.UsaAC Then
e.Row.Cells(13).Visible = True
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index a6d91ab98..d9da7cfae 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -937,27 +937,12 @@ Partial Class Clientes
Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
DdlEstadoSAT.Items.Clear()
-
- Dim ObjCliente As New ClsClientes
-
-
-
- If ObjCliente.GetEstados(ClaveSATPais) Then
- DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
- End If
-
-
-
-
- ObjCliente.Dispose()
+ DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
DdlEstadoSAT.DataBind()
- DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
- 'DdlEstadoSAT.SelectedValue = "-1"
-
+ DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
UpDatos.Update()
-
End Sub
Private Sub CargaResponsables()
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index cb0957bcf..f4435a3a5 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1297,6 +1297,14 @@
+
@@ -3293,20 +3301,7 @@
|
|
-
-
- | Ordenes de Compra Relacionadas: |
-
-
- |
-
-
-
-
-
- |
-
+
| Tipo de Entrega: |
@@ -3691,7 +3686,7 @@
@@ -7667,8 +7671,8 @@
$('#<%= TxtTelefonoCliente.ClientID %>').val('');
$('#<%= TxtCiudadCliente.ClientID %>').val('');
$('#<%= TxtLocalidadCliente.ClientID %>').val('');
- $('#<%= TxtEstadoCliente.ClientID %>').val('');
- $('#<%= TxtPaisCliente.ClientID %>').val('');
+ $('#<%= DdlSATPais.ClientID %>').val('');
+ $('#<%= DdlEstadoSAT.ClientID %>').val('');
$('#<%= TxtCorreoCliente.ClientID %>').val('');
$('#divAgregarCliente').modal();
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 65b1df597..1583f4af3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2049,7 +2049,7 @@ Partial Class Ventas
DdlSubProyectoDatos.Enabled = False
BtnEmitirImprimir.Visible = False
BtnCrearApartirDe.Visible = True
- BtnEditar.Visible = True
+ If UsuarioActual.TienePermisoProceso(302) Then BtnEditar.Visible = True
'DdlEstatus.Enabled = True
DivFechaAnticipoCliente.Visible = True
@@ -2107,8 +2107,7 @@ Partial Class Ventas
DivDevAlm.Visible = True
End If
- 'CARGA GV DE OC RELACIONADAS
- CargarOCRelacionadas()
+
End If
Else
If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then
@@ -3564,6 +3563,19 @@ Partial Class Ventas
End If
End Sub
+ Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
+
+ DdlEstadoSAT.Items.Clear()
+ DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
+
+ DdlEstadoSAT.DataBind()
+ DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+ End Sub
+ Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
+ CargaEstados(DdlSATPais.SelectedValue)
+ End Sub
+
Private Function CargaVenta() As Boolean
Dim Retorno As Boolean = False
@@ -4477,12 +4489,22 @@ Partial Class Ventas
DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())
- CargaPS(-1, DdlPS)
+ CargaPS(-1, DdlPS)
- UpPS.Update()
- UpContado.Update()
- UpEstatus.Update()
- Retorno = True
+ 'CARGA GV DE OC RELACIONADAS
+ If CveVenta > 0 AndAlso ObjVentas.GetOCRelacionadas(CveVenta) Then
+ If ObjVentas.DtResultados.Rows.Count > 0 Then
+ DivOCRelacionadas.Visible = True
+ GvOCRelacionadas.DataSource = ObjVentas.DtResultados
+
+ End If
+ End If
+ GvOCRelacionadas.DataBind()
+
+ UpPS.Update()
+ UpContado.Update()
+ UpEstatus.Update()
+ Retorno = True
Else
ViewState("CveVenta") = -1
@@ -18456,6 +18478,7 @@ Partial Class Ventas
DivBotonesAgregarCliente.Visible = False
DivFormaCliente.Visible = False
UpAgregarCliente.Update()
+ CargaEstados()
RegistraScript("showDivEC();")
End Sub
@@ -18478,8 +18501,8 @@ Partial Class Ventas
RFVColoniaC.Visible = False
RFVCiudadC.Visible = False
RFVLocalidadC.Visible = False
- RFVEstadoC.Visible = False
- RFVPaisC.Visible = False
+ RfvDdlEstadoSAT.Visible = False
+ RFVSATPais.Visible = False
DdlMetodoCliente.SelectedValueExist(1)
DdlFormaCliente.SelectedValueExist(1)
@@ -18511,8 +18534,8 @@ Partial Class Ventas
RFVColoniaC.Visible = True
RFVCiudadC.Visible = True
RFVLocalidadC.Visible = True
- RFVEstadoC.Visible = True
- RFVPaisC.Visible = True
+ RfvDdlEstadoSAT.Visible = True
+ RFVSATPais.Visible = True
DdlMetodoCliente.SelectedValueExist(-1)
DdlFormaCliente.SelectedValueExist(-1)
@@ -18535,8 +18558,8 @@ Partial Class Ventas
Dim ObjCliente As New ClsClientes
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
- TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim,
- TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
+ TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
+ TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, CvePrecioLista:=CvePrecioLista) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
RegistraScript("hideDivEC();")
@@ -21273,6 +21296,11 @@ Partial Class Ventas
Dim TempCliente As Integer = If(CveVenta <= 0, CveCliente, -1)
Dim TipoDocumento As Integer = If(CveVenta <= 0, 14, -1)
+ If CveVenta <= 0 AndAlso TempCliente <= 0 Then
+ Dim a As String = "carga de docuemntacion del cleinte, masivo, corregir"
+ a.GuardaLog()
+ End If
+
If objRH.DocumentacionElectronicaGet(-1, TempCliente, -1, UsuarioActual.CveEmpresa, TipoDocumento, CveVenta) Then
DtDocumentacionCliente = objRH.DtResultados.FiltraParametros("CveDocumentacionElectronica > 0")
DtDocumentacionCliente.Columns.Add("Accion", Type.GetType("System.String"))
@@ -25952,26 +25980,6 @@ Partial Class Ventas
'MailCls = Nothing
End Sub
- Private Sub CargarOCRelacionadas()
- Dim GridViewPSAux As GridView = GvPS
- Dim CveVentasDetalle As New StringBuilder()
- For Each vd As GridViewRow In GridViewPSAux.Rows
- Dim CveVentaDetalle As String = vd.DataKey("CveVentaDetalle")
- CveVentasDetalle.AppendFormat("{0},", CveVentaDetalle)
- Next
- Dim ObjVentas As New ClsVentas()
- If ObjVentas.GetOCRelacionadas(CveVentasDetalle.ToString) Then
- Dim OC As DataTable = ObjVentas.DtResultados
- If OC.Rows.Count > 0 Then
- trOCRelacionadasLabel.Visible = True
- trOCRelacionadas.Visible = True
- GvOCRelacionadas.DataSource = OC
- GvOCRelacionadas.DataBind()
- End If
- End If
- ObjVentas.Dispose()
- End Sub
-
Protected Sub BtnEditar_Click() Handles BtnEditar.Click
Dim Opcion As String = BtnEditar.Text
If Opcion = "Editar" Then