Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git
This commit is contained in:
Antonio Gonzalez
@@ -449,7 +449,6 @@ Namespace Modelos
|
|||||||
Private Sub IniciaValoresVentas(Optional EsCancelacion As Boolean = False)
|
Private Sub IniciaValoresVentas(Optional EsCancelacion As Boolean = False)
|
||||||
If CveVenta > 0 AndAlso CveEmpresa > 0 Then
|
If CveVenta > 0 AndAlso CveEmpresa > 0 Then
|
||||||
Me.DtAnticipos = New DataTable()
|
Me.DtAnticipos = New DataTable()
|
||||||
Me.DtAntNCVinculadas = New DataTable()
|
|
||||||
Me.DtPagos = New DataTable()
|
Me.DtPagos = New DataTable()
|
||||||
Me.DtRemisiones = New DataTable()
|
Me.DtRemisiones = New DataTable()
|
||||||
Me.DtInventario = New DataTable()
|
Me.DtInventario = New DataTable()
|
||||||
@@ -483,7 +482,7 @@ Namespace Modelos
|
|||||||
If TipoDocto.Contiene("Ing", "Ant", "Rem") Then
|
If TipoDocto.Contiene("Ing", "Ant", "Rem") Then
|
||||||
'carga as notas de credito vinculadas
|
'carga as notas de credito vinculadas
|
||||||
If ObjVentas.GetVentasAntNC(CveVenta, -1) Then
|
If ObjVentas.GetVentasAntNC(CveVenta, -1) Then
|
||||||
Me.DtAntNCVinculadas = ObjVentas.DtResultados.Copy()
|
Me.DtAnticipos = ObjVentas.DtResultados.Copy()
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -493,7 +492,7 @@ Namespace Modelos
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
If TipoDocto.Contiene("Ant") AndAlso EsCancelacion Then
|
If TipoDocto.Contiene("Ant") AndAlso EsCancelacion Then
|
||||||
EsNCAmortizacion = True
|
Me.EsNCAmortizacion = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ObjVentas.GetVentasAntNC(-1, CveVenta, AplicaAmortizacion:=EsNCAmortizacion) Then
|
If ObjVentas.GetVentasAntNC(-1, CveVenta, AplicaAmortizacion:=EsNCAmortizacion) Then
|
||||||
@@ -2418,9 +2417,18 @@ Namespace Modelos
|
|||||||
CveCuenta = ObjFactura.Cliente.CveCuentaAnticipos
|
CveCuenta = ObjFactura.Cliente.CveCuentaAnticipos
|
||||||
CveSubProyectoContabilizar = CveSubProyectoVenta
|
CveSubProyectoContabilizar = CveSubProyectoVenta
|
||||||
|
|
||||||
|
Dim CveVenta As Integer = ObjFactura.CveVenta
|
||||||
|
Dim CveVentaAmortizacion As Integer = row2("CveVenta").ToString().ToEntero
|
||||||
|
|
||||||
|
'SI ES FACTURA EN 0 Y TIENE ANTICIPOS
|
||||||
|
If (ObjFactura.Total = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(72) AndAlso ObjFactura.TipoDocto.Contiene("Ing")) AndAlso row2("TipoDocto").ToString() = "Ant" Then
|
||||||
|
CveVenta = row2("CveVenta").ToString().ToEntero
|
||||||
|
CveVentaAmortizacion = ObjFactura.CveVenta
|
||||||
|
End If
|
||||||
|
|
||||||
If importeMovimiento <> 0 Then
|
If importeMovimiento <> 0 Then
|
||||||
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1,
|
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1,
|
||||||
CveVenta:=ObjFactura.CveVenta, CveVentaAmortizacion:=row2("CveVenta").ToString().ToEntero, CveCliente:=ObjFactura.CveCliente,
|
CveVenta:=CveVenta, CveVentaAmortizacion:=CveVentaAmortizacion, CveCliente:=ObjFactura.CveCliente,
|
||||||
CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta,
|
CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta,
|
||||||
CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
|
CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
|
||||||
ErrorPrepoliza = True
|
ErrorPrepoliza = True
|
||||||
@@ -5214,7 +5222,6 @@ Namespace Modelos
|
|||||||
Public Property DtFirmas As Data.DataTable
|
Public Property DtFirmas As Data.DataTable
|
||||||
Public Property DtDesgloseImpuestos As Data.DataTable
|
Public Property DtDesgloseImpuestos As Data.DataTable
|
||||||
Public Property DtDocumentosRelacionados As Data.DataTable
|
Public Property DtDocumentosRelacionados As Data.DataTable
|
||||||
Public Property DtAntNCVinculadas As Data.DataTable
|
|
||||||
Public Property DtNCVinculadas As Data.DataTable
|
Public Property DtNCVinculadas As Data.DataTable
|
||||||
|
|
||||||
Public Property DtAnticipos As Data.DataTable
|
Public Property DtAnticipos As Data.DataTable
|
||||||
|
|||||||
@@ -1579,161 +1579,165 @@ Partial Class PV
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1)
|
Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1)
|
||||||
|
|
||||||
Dim ObjCliente As New ClsClientes()
|
Dim ObjCliente As New ClsClientes()
|
||||||
|
Try
|
||||||
|
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus, TipoCliente:=-1) Then
|
||||||
|
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||||
|
TxtCodigo.Text = ObjCliente.Codigo
|
||||||
|
|
||||||
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus, TipoCliente:=-1) Then
|
LblCliente.Text = String.Format("<a Class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente={0}"">{1}</a>", CveCliente, ObjCliente.Nombre)
|
||||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
ViewState("NombreCliente") = ObjCliente.Nombre
|
||||||
TxtCodigo.Text = ObjCliente.Codigo
|
LtlCliente.Text = ObjCliente.Nombre
|
||||||
|
ChkEnviarFactura.Checked = ObjCliente.EnviarFactura
|
||||||
LblCliente.Text = String.Format("<a Class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente={0}"">{1}</a>", CveCliente, ObjCliente.Nombre)
|
ViewState("Mail") = If(DdlTipoComprobante.SelectedValue = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
|
||||||
ViewState("NombreCliente") = ObjCliente.Nombre
|
ViewState("MailCC") = ObjCliente.NotificarA
|
||||||
LtlCliente.Text = ObjCliente.Nombre
|
LblDireccion.Text = ObjCliente.Direccion
|
||||||
ChkEnviarFactura.Checked = ObjCliente.EnviarFactura
|
LblColonia.Text = ObjCliente.Colonia
|
||||||
ViewState("Mail") = If(DdlTipoComprobante.SelectedValue = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
|
LblCiudad.Text = ObjCliente.Ciudad
|
||||||
ViewState("MailCC") = ObjCliente.NotificarA
|
LblEstado.Text = ObjCliente.Estado
|
||||||
LblDireccion.Text = ObjCliente.Direccion
|
LblCP.Text = ObjCliente.CP
|
||||||
LblColonia.Text = ObjCliente.Colonia
|
LblRFC.Text = ObjCliente.RFC
|
||||||
LblCiudad.Text = ObjCliente.Ciudad
|
LblTelefono.Text = ObjCliente.Telefono
|
||||||
LblEstado.Text = ObjCliente.Estado
|
LblRetIVA.Text = ObjCliente.RetIVA.ToString.FormatoNumero(5)
|
||||||
LblCP.Text = ObjCliente.CP
|
LblRetISR.Text = ObjCliente.RetISR.ToString.FormatoNumero(5)
|
||||||
LblRFC.Text = ObjCliente.RFC
|
ViewState("ClienteRetIVA") = ObjCliente.RetIVA / 100
|
||||||
LblTelefono.Text = ObjCliente.Telefono
|
ViewState("ClienteRetISR") = ObjCliente.RetISR / 100
|
||||||
LblRetIVA.Text = ObjCliente.RetIVA.ToString.FormatoNumero(5)
|
ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes
|
||||||
LblRetISR.Text = ObjCliente.RetISR.ToString.FormatoNumero(5)
|
If ObjCliente.RetieneIVAFletes Then
|
||||||
ViewState("ClienteRetIVA") = ObjCliente.RetIVA / 100
|
TrRetIVA.Style.Add("display", "")
|
||||||
ViewState("ClienteRetISR") = ObjCliente.RetISR / 100
|
UsuarioActual.Empresa.MostrarRetIVA = True
|
||||||
ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes
|
|
||||||
If ObjCliente.RetieneIVAFletes Then
|
|
||||||
TrRetIVA.Style.Add("display", "")
|
|
||||||
UsuarioActual.Empresa.MostrarRetIVA = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
ViewState("Vendedor") = ObjCliente.Vendedor
|
|
||||||
ViewState("CtaContable") = ObjCliente.CuentaContable
|
|
||||||
ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes
|
|
||||||
ViewState("IdCtaContMonedaExtranjera") = ObjCliente.IdCtaContMonedaExtranjera
|
|
||||||
ViewState("IdCtaContComplementaria") = ObjCliente.IdCtaContComplementaria
|
|
||||||
ViewState("IdCtaContAnticipos") = ObjCliente.IdCtaContAnticipos
|
|
||||||
ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
|
|
||||||
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
|
|
||||||
ViewState("CodCliente") = ObjCliente.Codigo
|
|
||||||
ViewState("ClienteDesglosaIEPS") = ObjCliente.DesglosaIEPS
|
|
||||||
|
|
||||||
If (Boolean.Parse(ObjCliente.DtResultados(0)("EsDistribuidor").ToString)) Then
|
|
||||||
TrEsDistribuidor.Visible = True
|
|
||||||
LbVendedor.Text = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {ObjCliente.Vendedor}")
|
|
||||||
Else
|
|
||||||
TrEsDistribuidor.Visible = False
|
|
||||||
End If
|
|
||||||
|
|
||||||
ViewState("CliNoExt") = ObjCliente.NoExt
|
|
||||||
ViewState("CliNoInt") = ObjCliente.NoInt
|
|
||||||
ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim)
|
|
||||||
ViewState("CliPais") = ObjCliente.Pais
|
|
||||||
|
|
||||||
'ViewState("NumCtaPago") = ObjCliente.NumCtaPago
|
|
||||||
EnviarCorreoCliente = ObjCliente.EnviarFactura
|
|
||||||
ChkEnviarFactura.Visible = True
|
|
||||||
ChkEnviarFactura.Checked = EnviarCorreoCliente
|
|
||||||
LblEnviarMail.Visible = True
|
|
||||||
|
|
||||||
Dim dr As DataRow = Nothing
|
|
||||||
dr = GlobalDTSubProyectos(-1).FiltroPrimero("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
||||||
If dr IsNot Nothing Then
|
|
||||||
ViewState("MatCalle") = dr("Calle")
|
|
||||||
ViewState("MatNoExt") = dr("NoExt")
|
|
||||||
ViewState("MatNoInt") = dr("NoInt")
|
|
||||||
ViewState("MatColonia") = dr("Colonia")
|
|
||||||
ViewState("MatLocalidad") = dr("Localidad")
|
|
||||||
ViewState("MatMunicipio") = dr("Municipio")
|
|
||||||
ViewState("MatEstado") = dr("Estado")
|
|
||||||
ViewState("MatPais") = dr("Pais")
|
|
||||||
ViewState("MatCP") = dr("CP")
|
|
||||||
End If
|
|
||||||
|
|
||||||
If CveVenta <= 0 Then
|
|
||||||
CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero
|
|
||||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI.ToString)
|
|
||||||
DdlMetodoPago.SelectedValueExist(ObjCliente.CveMetodoPago.ToString)
|
|
||||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33.ToString)
|
|
||||||
'DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
|
|
||||||
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
|
|
||||||
|
|
||||||
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33.ToString)
|
|
||||||
'DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
|
|
||||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
|
|
||||||
End If
|
|
||||||
TxtFechaPago.Text = (Now.AddDays(ObjCliente.PlazoCobranza)).ToShortDateString
|
|
||||||
|
|
||||||
|
|
||||||
If ObjCliente.DtResultados(0)("CveVendedor").ToString.ToEntero > 0 Then
|
|
||||||
DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString.ToEntero)
|
|
||||||
End If
|
|
||||||
|
|
||||||
If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
|
|
||||||
DdlVendedor.Enabled = False
|
|
||||||
End If
|
|
||||||
|
|
||||||
EstatusCliente = ObjCliente.Estatus
|
|
||||||
|
|
||||||
If Not EstatusCliente Then
|
|
||||||
BtnEmitirImprimir.Enabled = False
|
|
||||||
Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
|
|
||||||
Else
|
|
||||||
BtnEmitirImprimir.Enabled = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
UpFacturar.Update()
|
|
||||||
|
|
||||||
If UsuarioActual.Empresa.UsaInventarios Then
|
|
||||||
RblTipo.Items.Remove(RblTipo.Items.FindByValue("1"))
|
|
||||||
RblTipo.Items.Remove(RblTipo.Items.FindByValue("2"))
|
|
||||||
End If
|
|
||||||
UpnTools.Update()
|
|
||||||
|
|
||||||
|
|
||||||
If Not CveVenta > 0 Then
|
|
||||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
|
||||||
If UsuarioActual.TienePermisoProceso(152) Then
|
|
||||||
DdlSubProyectoDatos.SelectedValueExist(UsuarioActual.CveSubProyecto)
|
|
||||||
DdlSubProyectoDatos.Enabled = False
|
|
||||||
Else
|
|
||||||
DdlSubProyectoDatos.SelectedValueExist(ObjCliente.CveSubProyecto)
|
|
||||||
End If
|
|
||||||
'RECARGA LOS VALORES DE LA SUCURSAL
|
|
||||||
CambiaSucursal()
|
|
||||||
UpParametros.Update()
|
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
If ObjCliente.GetSucursales(CveCliente) Then
|
ViewState("Vendedor") = ObjCliente.Vendedor
|
||||||
DdlSucursalCliente.DataSource = ObjCliente.DtResultados
|
ViewState("CtaContable") = ObjCliente.CuentaContable
|
||||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes
|
||||||
trsucursalciente.Visible = True
|
ViewState("IdCtaContMonedaExtranjera") = ObjCliente.IdCtaContMonedaExtranjera
|
||||||
|
ViewState("IdCtaContComplementaria") = ObjCliente.IdCtaContComplementaria
|
||||||
|
ViewState("IdCtaContAnticipos") = ObjCliente.IdCtaContAnticipos
|
||||||
|
ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
|
||||||
|
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
|
||||||
|
ViewState("CodCliente") = ObjCliente.Codigo
|
||||||
|
ViewState("ClienteDesglosaIEPS") = ObjCliente.DesglosaIEPS
|
||||||
|
|
||||||
|
If (Boolean.Parse(ObjCliente.DtResultados(0)("EsDistribuidor").ToString)) Then
|
||||||
|
TrEsDistribuidor.Visible = True
|
||||||
|
If Not String.IsNullOrEmpty(ObjCliente.Vendedor) Then
|
||||||
|
LbVendedor.Text = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {ObjCliente.Vendedor}")
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
TrEsDistribuidor.Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
|
ViewState("CliNoExt") = ObjCliente.NoExt
|
||||||
|
ViewState("CliNoInt") = ObjCliente.NoInt
|
||||||
|
ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim)
|
||||||
|
ViewState("CliPais") = ObjCliente.Pais
|
||||||
|
|
||||||
|
'ViewState("NumCtaPago") = ObjCliente.NumCtaPago
|
||||||
|
EnviarCorreoCliente = ObjCliente.EnviarFactura
|
||||||
|
ChkEnviarFactura.Visible = True
|
||||||
|
ChkEnviarFactura.Checked = EnviarCorreoCliente
|
||||||
|
LblEnviarMail.Visible = True
|
||||||
|
|
||||||
|
Dim dr As DataRow = Nothing
|
||||||
|
dr = GlobalDTSubProyectos(-1).FiltroPrimero("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||||
|
If dr IsNot Nothing Then
|
||||||
|
ViewState("MatCalle") = dr("Calle")
|
||||||
|
ViewState("MatNoExt") = dr("NoExt")
|
||||||
|
ViewState("MatNoInt") = dr("NoInt")
|
||||||
|
ViewState("MatColonia") = dr("Colonia")
|
||||||
|
ViewState("MatLocalidad") = dr("Localidad")
|
||||||
|
ViewState("MatMunicipio") = dr("Municipio")
|
||||||
|
ViewState("MatEstado") = dr("Estado")
|
||||||
|
ViewState("MatPais") = dr("Pais")
|
||||||
|
ViewState("MatCP") = dr("CP")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If CveVenta <= 0 Then
|
||||||
|
CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero
|
||||||
|
DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI.ToString)
|
||||||
|
DdlMetodoPago.SelectedValueExist(ObjCliente.CveMetodoPago.ToString)
|
||||||
|
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33.ToString)
|
||||||
|
'DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
|
||||||
|
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
|
||||||
|
|
||||||
|
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33.ToString)
|
||||||
|
'DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
|
||||||
|
DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
|
||||||
|
End If
|
||||||
|
TxtFechaPago.Text = (Now.AddDays(ObjCliente.PlazoCobranza)).ToShortDateString
|
||||||
|
|
||||||
|
|
||||||
|
If ObjCliente.DtResultados(0)("CveVendedor").ToString.ToEntero > 0 Then
|
||||||
|
DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString.ToEntero)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
|
||||||
|
DdlVendedor.Enabled = False
|
||||||
|
End If
|
||||||
|
|
||||||
|
EstatusCliente = ObjCliente.Estatus
|
||||||
|
|
||||||
|
If Not EstatusCliente Then
|
||||||
|
BtnEmitirImprimir.Enabled = False
|
||||||
|
Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
|
||||||
|
Else
|
||||||
|
BtnEmitirImprimir.Enabled = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
UpFacturar.Update()
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.UsaInventarios Then
|
||||||
|
RblTipo.Items.Remove(RblTipo.Items.FindByValue("1"))
|
||||||
|
RblTipo.Items.Remove(RblTipo.Items.FindByValue("2"))
|
||||||
|
End If
|
||||||
|
UpnTools.Update()
|
||||||
|
|
||||||
|
|
||||||
|
If Not CveVenta > 0 Then
|
||||||
|
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||||
|
If UsuarioActual.TienePermisoProceso(152) Then
|
||||||
|
DdlSubProyectoDatos.SelectedValueExist(UsuarioActual.CveSubProyecto)
|
||||||
|
DdlSubProyectoDatos.Enabled = False
|
||||||
|
Else
|
||||||
|
DdlSubProyectoDatos.SelectedValueExist(ObjCliente.CveSubProyecto)
|
||||||
|
End If
|
||||||
|
'RECARGA LOS VALORES DE LA SUCURSAL
|
||||||
|
CambiaSucursal()
|
||||||
|
UpParametros.Update()
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ObjCliente.GetSucursales(CveCliente) Then
|
||||||
|
DdlSucursalCliente.DataSource = ObjCliente.DtResultados
|
||||||
|
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||||
|
trsucursalciente.Visible = True
|
||||||
|
Else
|
||||||
|
trsucursalciente.Visible = False
|
||||||
|
End If
|
||||||
Else
|
Else
|
||||||
trsucursalciente.Visible = False
|
trsucursalciente.Visible = False
|
||||||
|
DdlSucursalCliente.DataSource = Nothing
|
||||||
End If
|
End If
|
||||||
|
DdlSucursalCliente.DataBind()
|
||||||
|
|
||||||
|
|
||||||
|
LbAgregar.Enabled = True
|
||||||
|
UpEstatus.Update()
|
||||||
|
UpPS.Update()
|
||||||
|
UpParametros.Update()
|
||||||
|
UPCondicionesPago.Update()
|
||||||
|
UpComplementos.Update()
|
||||||
|
|
||||||
|
CargarAlmacenes()
|
||||||
|
CargaFacturasAjuste()
|
||||||
Else
|
Else
|
||||||
trsucursalciente.Visible = False
|
Alert("El cliente solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgError)
|
||||||
DdlSucursalCliente.DataSource = Nothing
|
|
||||||
End If
|
End If
|
||||||
DdlSucursalCliente.DataBind()
|
|
||||||
|
|
||||||
|
|
||||||
LbAgregar.Enabled = True
|
|
||||||
UpEstatus.Update()
|
|
||||||
UpPS.Update()
|
|
||||||
UpParametros.Update()
|
|
||||||
UPCondicionesPago.Update()
|
|
||||||
UpComplementos.Update()
|
|
||||||
|
|
||||||
CargarAlmacenes()
|
|
||||||
CargaFacturasAjuste()
|
|
||||||
Else
|
|
||||||
Alert("El cliente solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgError)
|
|
||||||
End If
|
End If
|
||||||
End If
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al asignar el cliente", ex)
|
||||||
|
End Try
|
||||||
ObjCliente.Dispose()
|
ObjCliente.Dispose()
|
||||||
UPCondicionesPago.Update()
|
UPCondicionesPago.Update()
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
@@ -7448,8 +7448,8 @@ Partial Class Ventas
|
|||||||
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
|
||||||
If gvr.RowType = DataControlRowType.DataRow Then
|
If gvr.RowType = DataControlRowType.DataRow Then
|
||||||
Dim Orden As Integer = 80
|
Dim Orden As Integer = 80
|
||||||
If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble > 0 Then
|
If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal > 0 Then
|
||||||
DR("ImpuestoLocal") = gvr.DataKey("ImpuestoLocal").ToString : DR("Importe") = gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble : DR("Orden") = Orden : DR("Porcentaje") = gvr.DataKey("Porcentaje").ToString : DR("TipoImpuesto") = gvr.DataKey("TipoImpuesto").ToString : DR("IdCtaContable") = gvr.DataKey("IdCtaContable").ToString.ToEntero : TmpDTImpuestos.Rows.Add(DR)
|
DR("ImpuestoLocal") = gvr.DataKey("ImpuestoLocal").ToString : DR("Importe") = gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal.RoundSQL(2) : DR("Orden") = Orden : DR("Porcentaje") = gvr.DataKey("Porcentaje").ToString : DR("TipoImpuesto") = gvr.DataKey("TipoImpuesto").ToString : DR("IdCtaContable") = gvr.DataKey("IdCtaContable").ToString.ToEntero : TmpDTImpuestos.Rows.Add(DR)
|
||||||
DR = TmpDTImpuestos.NewRow()
|
DR = TmpDTImpuestos.NewRow()
|
||||||
Orden = Orden + 1
|
Orden = Orden + 1
|
||||||
End If
|
End If
|
||||||
@@ -8270,7 +8270,12 @@ Partial Class Ventas
|
|||||||
|
|
||||||
For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto = 1").Rows
|
For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto = 1").Rows
|
||||||
If DrImpuestosLocales("Importe").ToString.ToDecimal > 0 Then
|
If DrImpuestosLocales("Importe").ToString.ToDecimal > 0 Then
|
||||||
Dim ret As New CFDIRetencionesLocales With {.TasaRetencion = DrImpuestosLocales("Porcentaje").ToString.ToDecimal, .ImpuestoLocalRetenido = DrImpuestosLocales("ImpuestoLocal").ToString, .Importe = DrImpuestosLocales("Importe").ToString.ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1))}
|
Dim ret As New CFDIRetencionesLocales With
|
||||||
|
{
|
||||||
|
.TasaRetencion = DrImpuestosLocales("Porcentaje").ToString.ToDecimal,
|
||||||
|
.ImpuestoLocalRetenido = DrImpuestosLocales("ImpuestoLocal").ToString,
|
||||||
|
.Importe = DrImpuestosLocales("Importe").ToString.ToDecimal(If(ObjFactura.ConvertirPesos, ObjFactura.TipoCambio, 1)).RoundSQL(2)
|
||||||
|
}
|
||||||
ObjFactura.Timbre.RetencionesLocales.Add(ret)
|
ObjFactura.Timbre.RetencionesLocales.Add(ret)
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
@@ -18433,39 +18438,44 @@ Partial Class Ventas
|
|||||||
'Else
|
'Else
|
||||||
|
|
||||||
'End If
|
'End If
|
||||||
|
|
||||||
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs", "RNC") Then
|
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs", "RNC") Then
|
||||||
Dim sb As New StringBuilder()
|
|
||||||
sb.Append("La factura se encuentra en el siguiente estatus del SAT:<br/>")
|
|
||||||
|
|
||||||
Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
|
'SI ES PRODUCCION VERIFICA EL ESTATUS ANTE EL SAT
|
||||||
Dim RFCReceptor As String = LblRFC.Text.Trim
|
If UsuarioActual.Empresa.FacturaProduccion AndAlso Not FolioFiscal.Contains("test") Then
|
||||||
Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
|
Dim sb As New StringBuilder()
|
||||||
If Vigencia IsNot Nothing Then
|
sb.Append("La factura se encuentra en el siguiente estatus del SAT:<br/>")
|
||||||
If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
|
|
||||||
Alert("Esta factura no es cancelable.", TipoMensaje.MsgAdvertencia)
|
Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
|
||||||
Exit Sub
|
Dim RFCReceptor As String = LblRFC.Text.Trim
|
||||||
End If
|
Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
|
||||||
If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
|
If Vigencia IsNot Nothing Then
|
||||||
If Not String.IsNullOrEmpty(FolioFiscal) Then
|
If Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
|
||||||
Alert("No se pudo encontrar el estatus de la factura en el SAT.", TipoMensaje.MsgAdvertencia)
|
Alert("Esta factura no es cancelable.", TipoMensaje.MsgAdvertencia)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
sb.Append("<b>No encontrado</b> <br/>")
|
If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
|
||||||
|
If Not String.IsNullOrEmpty(FolioFiscal) Then
|
||||||
|
Alert("No se pudo encontrar el estatus de la factura en el SAT.", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
sb.Append("<b>No encontrado</b> <br/>")
|
||||||
|
Else
|
||||||
|
sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
|
||||||
|
End If
|
||||||
Else
|
Else
|
||||||
sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
|
sb.Append("<b>No encontrado</b> <br/>")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
sb.Append("Está seguro de cancelar el documento?.")
|
||||||
|
|
||||||
|
LblCancelarDocumento.Text = sb.ToString()
|
||||||
|
|
||||||
|
RegistraScript("$('#ModalCancelarDocumento').modal();")
|
||||||
|
UpCancelarDocumento.Update()
|
||||||
Else
|
Else
|
||||||
sb.Append("<b>No encontrado</b> <br/>")
|
CancelarDocumento()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
sb.Append("Está seguro de cancelar el documento?.")
|
|
||||||
|
|
||||||
LblCancelarDocumento.Text = sb.ToString()
|
|
||||||
|
|
||||||
RegistraScript("$('#ModalCancelarDocumento').modal();")
|
|
||||||
UpCancelarDocumento.Update()
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
CancelarDocumento()
|
CancelarDocumento()
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -15,6 +15,8 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
|
<Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
|
||||||
</StartupServices>
|
</StartupServices>
|
||||||
</VisualWebDeveloper>
|
</VisualWebDeveloper>
|
||||||
Reference in New Issue
Block a user