diff --git a/Bancos/CatBancos.aspx.vb b/Bancos/CatBancos.aspx.vb
index 1319d2070..9a57ab193 100644
--- a/Bancos/CatBancos.aspx.vb
+++ b/Bancos/CatBancos.aspx.vb
@@ -4,54 +4,67 @@ Option Strict On
Imports System.Data
Imports System.Linq
Imports Extensiones
+Imports Microsoft.Reporting.WebForms
Partial Class Bancos_CatBancos
- Inherits ClsPaginas
+ Inherits ClsPaginas
- Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- If Not Page.IsPostBack Then
- ViewState("Orden") = ""
- CargaDatos()
- End If
- End Sub
+ Private Property DtBan As DataTable
+ Get
+ DtBan = DirectCast(ViewState("DtBan"), DataTable)
+ End Get
- Public Sub CargaDatos()
- Dim ObjBancos As New ClsBancos
- If ObjBancos.GetBancos() Then
- ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- GlobalDTBancos = ObjBancos.DtResultados
- Else
- Me.GvDatos.DataSource = Nothing
- End If
+ Set(ByVal value As DataTable)
+ ViewState("DtBan") = value
+ End Set
+ End Property
- ObjBancos.Dispose()
+ Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+ If Not Page.IsPostBack Then
+ ViewState("Orden") = ""
+ CargaDatos()
+ End If
+ End Sub
- If ViewState("Orden").ToString() <> String.Empty Then
- CargaGrid(ViewState("Orden").ToString())
- Else
- CargaGrid("")
- End If
- End Sub
+ Public Sub CargaDatos()
+ Dim ObjBancos As New ClsBancos
+ If ObjBancos.GetBancos() Then
+ ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ GlobalDTBancos = ObjBancos.DtResultados
+ Else
+ Me.GvDatos.DataSource = Nothing
+ End If
- Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
- Dim ObjBancos As New ClsBancos
- If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
- TxtBanco.Text = ""
- TxtEjecutivo.Text = ""
+ ObjBancos.Dispose()
+
+ If ViewState("Orden").ToString() <> String.Empty Then
+ CargaGrid(ViewState("Orden").ToString())
+ Else
+ CargaGrid("")
+ End If
+ End Sub
+
+ Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
+ Dim ObjBancos As New ClsBancos
+ If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+ TxtBanco.Text = ""
+ TxtEjecutivo.Text = ""
TxtTelefono.Text = ""
Alert("El nuevo Banco se guardó correctamente.", TipoMensaje.MsgInformacion)
- UpTitulos.Update()
- ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- GlobalDTBancos = ObjBancos.DtResultados
+ UpTitulos.Update()
+ ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ GlobalDTBancos = ObjBancos.DtResultados
- If ViewState("Orden").ToString() <> String.Empty Then
- CargaGrid(ViewState("Orden").ToString())
- Else
- CargaGrid("")
- End If
- End If
- ObjBancos.Dispose()
- End Sub
+ If ViewState("Orden").ToString() <> String.Empty Then
+ CargaGrid(ViewState("Orden").ToString())
+ Else
+ CargaGrid("")
+ End If
+ End If
+ ObjBancos.Dispose()
+ End Sub
#Region "G V D A T O S"
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
@@ -80,6 +93,7 @@ Partial Class Bancos_CatBancos
If ObjBancos.RemoveBancos(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTBancos = ObjBancos.DtResultados
Alert("El Banco se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -116,6 +130,7 @@ Partial Class Bancos_CatBancos
If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco) Then
GvDatos.EditIndex = -1
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTBancos = ObjBancos.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -178,4 +193,28 @@ Partial Class Bancos_CatBancos
UpDatos.Update()
End Sub
#End Region
+ Protected Sub LbPDF_Click(sender As Object, e As EventArgs)
+ Imprime("PDF")
+ End Sub
+ Protected Sub LbExcel_Click(sender As Object, e As EventArgs)
+ Imprime("Excel")
+ End Sub
+ Private Sub Imprime(Formato As String)
+
+ If DtBan IsNot Nothing AndAlso DtBan.Rows.Count > 0 Then
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ Dim params As New List(Of ReportParameter)
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+ ImprimirPDF("Empresas/Grales/Formatos/RepBancos.rdlc", DtBan, params, "Reporte Bancos", Formato)
+ Else
+ Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)
+ End If
+ End Sub
End Class
diff --git a/Bancos/CuentasBancarias.aspx b/Bancos/CuentasBancarias.aspx
index 54c0bf16e..af859f8e3 100644
--- a/Bancos/CuentasBancarias.aspx
+++ b/Bancos/CuentasBancarias.aspx
@@ -6,14 +6,17 @@
 --%>
- --%>
+
|
|
|---|
+
+
-
-
-
-
-
-
-
-
-
-
+
-
diff --git a/Sistemas/ConfiguracionEmpresa.aspx.vb b/Sistemas/ConfiguracionEmpresa.aspx.vb
index 2089a9192..9726e9958 100644
--- a/Sistemas/ConfiguracionEmpresa.aspx.vb
+++ b/Sistemas/ConfiguracionEmpresa.aspx.vb
@@ -17,7 +17,158 @@ Partial Class Sistemas_ConfiguracionEmpresa
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
+ CargaCuentasClientesSIG(DdlCtaContableClientes)
+ CargaCuentasClientesSIG(DdlCtaContableProveedores)
+ CargaCuentasClientesSIG(DdlCtaContableDeudores)
+ CargaCuentasClientesSIG(DdlCtaContableAlmacen)
+ CargaCuentasClientesSIG(DdlCtaContableCosto)
End If
End Sub
+#Region "Carga Cuentas"
+ Private Sub CargaCuentasClientesSIG(ddl As DropDownList)
+ Dim ObjContabilidad As New ClsContabilidad
+
+ If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+ ddl.Items.Clear()
+ ddl.Items.Add(New ListItem("Seleccione", "0"))
+ ddl.DataSource = ObjContabilidad.DtResultados
+ ddl.DataBind()
+ End If
+ ObjContabilidad.Dispose()
+ End Sub
+ Private Sub CargaCuentasClientesCompaq(ddl As DropDownList)
+ Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
+
+ If ObjCompaq.GetCuentas(-1, "-1", 1) Then
+ ddl.Items.Clear()
+ ddl.Items.Add(New ListItem("Seleccione", "0"))
+ ddl.DataSource = ObjCompaq.DtResultados
+ ddl.DataBind()
+ End If
+ ObjCompaq.Dispose()
+ End Sub
+
+ 'Private Sub CargaCuentasProveedoresSIG()
+ ' Dim ObjContabilidad As New ClsContabilidad
+
+ ' If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+ ' DdlCtaContableClientes.Items.Clear()
+ ' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
+ ' DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
+ ' DdlCtaContableClientes.DataBind()
+ ' End If
+ ' ObjContabilidad.Dispose()
+ 'End Sub
+ 'Private Sub CargaCuentasProveedoresCompaq()
+ ' Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
+
+ ' If ObjCompaq.GetCuentas(-1, "-1", 1) Then
+ ' DdlCtaContableClientes.Items.Clear()
+ ' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
+ ' DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
+ ' DdlCtaContableClientes.DataBind()
+ ' End If
+ ' ObjCompaq.Dispose()
+ 'End Sub
+
+ 'Private Sub CargaCuentasDeudoresSIG()
+ ' Dim ObjContabilidad As New ClsContabilidad
+
+ ' If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+ ' DdlCtaContableClientes.Items.Clear()
+ ' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
+ ' DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
+ ' DdlCtaContableClientes.DataBind()
+ ' End If
+ ' ObjContabilidad.Dispose()
+ 'End Sub
+ 'Private Sub CargaCuentassDeudoresCompaq()
+ ' Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
+
+ ' If ObjCompaq.GetCuentas(-1, "-1", 1) Then
+ ' DdlCtaContableClientes.Items.Clear()
+ ' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
+ ' DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
+ ' DdlCtaContableClientes.DataBind()
+ ' End If
+ ' ObjCompaq.Dispose()
+ 'End Sub
+
+ 'Private Sub CargaCuentasAlmacenSIG()
+ ' Dim ObjContabilidad As New ClsContabilidad
+
+ ' If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+ ' DdlCtaContableClientes.Items.Clear()
+ ' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
+ ' DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
+ ' DdlCtaContableClientes.DataBind()
+ ' End If
+ ' ObjContabilidad.Dispose()
+ 'End Sub
+ 'Private Sub CargaCuentasAlmacenCompaq()
+ ' Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
+
+ ' If ObjCompaq.GetCuentas(-1, "-1", 1) Then
+ ' DdlCtaContableClientes.Items.Clear()
+ ' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
+ ' DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
+ ' DdlCtaContableClientes.DataBind()
+ ' End If
+ ' ObjCompaq.Dispose()
+ 'End Sub
+
+ 'Private Sub CargaCuentasCostoSIG()
+ ' Dim ObjContabilidad As New ClsContabilidad
+
+ ' If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+ ' DdlCtaContableClientes.Items.Clear()
+ ' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
+ ' DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
+ ' DdlCtaContableClientes.DataBind()
+ ' End If
+ ' ObjContabilidad.Dispose()
+ 'End Sub
+ 'Private Sub CargaCuentasCostoCompaq()
+ ' Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
+
+ ' If ObjCompaq.GetCuentas(-1, "-1", 1) Then
+ ' DdlCtaContableClientes.Items.Clear()
+ ' DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
+ ' DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
+ ' DdlCtaContableClientes.DataBind()
+ ' End If
+ ' ObjCompaq.Dispose()
+ 'End Sub
+#End Region
+
+ Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
+ If RblTipo.SelectedValue = "SIG" Then
+ DvServidorConta.Visible = False
+ CargaCuentasClientesSIG(DdlCtaContableClientes)
+ CargaCuentasClientesSIG(DdlCtaContableProveedores)
+ CargaCuentasClientesSIG(DdlCtaContableDeudores)
+ CargaCuentasClientesSIG(DdlCtaContableAlmacen)
+ CargaCuentasClientesSIG(DdlCtaContableCosto)
+ Else
+ DvServidorConta.Visible = True
+ CargaCuentasClientesCompaq(DdlCtaContableClientes)
+ CargaCuentasClientesCompaq(DdlCtaContableProveedores)
+ CargaCuentasClientesCompaq(DdlCtaContableDeudores)
+ CargaCuentasClientesCompaq(DdlCtaContableAlmacen)
+ CargaCuentasClientesCompaq(DdlCtaContableCosto)
+ End If
+ End Sub
+
+ Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
+ Dim ObjEmpresas As New ClsSisEmpresas
+ ObjEmpresas.IniciaTransacSQL()
+
+ Alert("sdfsz")
+
+
+
+ ObjEmpresas.Dispose()
+
+ End Sub
End Class
diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 29036f542..ccd0a5d7e 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -1193,11 +1193,22 @@
+
+
@@ -3180,7 +3191,17 @@
var totalTransferencia = ToDouble($get("TxtImporteTransferencia").value);
var total = totalEfectivo + totalCredito + totalDebito + totalCheque + totalTransferencia;
+
+ var totalVenta = ToDouble($get('TxtTotal').value);
+
+ if (totalEfectivo > totalVenta) {
+ $get("TxtCambio").value = FormatoNumero(totalEfectivo - totalVenta);
+ } else {
+ $get("TxtCambio").value = "0.00";
+ }
+
$get("TxtImporteContado").value = total;
+
}
// ****************************************************************************************************************************************************************************
@@ -3491,9 +3512,17 @@
$('#divAgregarCliente').modal();
}
+
function hideDivEC() {
$('#divAgregarCliente').modal('hide');
}
+ function CambiaAjuste(txt, txtajuste) {
+ Recalcula();
+ if (txtajuste != null) {
+ txtajuste.value = ToDouble(txt.value)
+ }
+ }
+
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 4e27af4bd..d212cc67b 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -1032,8 +1032,8 @@ Partial Class PV
TxtFecha.Text = Now.ToShortDateString()
LblUsuario.Text = UsuarioActual.Usuario
- TxtPrecio.Attributes.Add("onKeyUp ", "Recalcula();")
TxtCantidad.Attributes.Add("onKeyUp ", "Recalcula();")
+ TxtPrecio.Attributes.Add("onKeyUp ", "Recalcula();")
ImgDescPU.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '0'; $get('LblPrecio1').style.display = ''; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = 'none'; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = ''; $get('BtnAplicarDescG').style.display = 'none'; $get('TrMotivoDescuento').style.display = '';")
'ImgDescConcepto.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '1'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = ''; $get('LblSubTotal1').style.display = 'none'; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = ''; $get('BtnAplicarDescG').style.display = 'none'; $get('TrMotivoDescuento').style.display = '';")
ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
@@ -1476,7 +1476,7 @@ Partial Class PV
HdnIVAOriginal.Value = TxtIVA.Text
'JJMQ 20160506: Se agrego para la validacion de pago de contado.
- CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
+ 'CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
DdlVendedor.Enabled = False
@@ -1967,7 +1967,7 @@ Partial Class PV
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
'JJMQ 20160506: Se agrego para la validacion de pago de contado.
- CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
+ 'CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
UpContado.Update()
End Sub
@@ -3085,7 +3085,7 @@ Partial Class PV
End If
'JJMQ 20160506: Se agrego para la validacion de pago de contado.
- CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
+ 'CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
UpContado.Update()
Else
@@ -3903,7 +3903,7 @@ Partial Class PV
HdnIVAOriginal.Value = TxtIVA.Text
'JJMQ 20160506: Se agrego para la validacion de pago de contado.
- CVImporteContado.ValueToCompare = Total.ToString
+ 'CVImporteContado.ValueToCompare = Total.ToString
Dim view As DataView = New DataView(TmpDT)
view.Sort = "Consec"
@@ -4264,6 +4264,7 @@ Partial Class PV
TxtImporteCheque.Text = "0.00"
TxtImporteTransferencia.Text = "0.00"
TxtImporteContado.Text = "0.00"
+ TxtCambio.Text = "0.00"
End Sub
Private Sub LimpiaEscondeContado()
'LIMPIA
@@ -4336,7 +4337,7 @@ Partial Class PV
'JJMQ 20160506: Validacion para no pagar de mas a peticion de I.P.
Dim abonado = DtPagos.SUM("Importe")
Dim saldo = TxtTotal.Text.Replace(",", "").ToDouble - abonado
- CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString
+ 'CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString
CargaGridContado()
UpContado.Update()
@@ -4350,7 +4351,7 @@ Partial Class PV
If total <= 0 Then Alert("No se ha ingresado importe", TipoMensaje.MsgAdvertencia) : Exit Sub
- If DtPagos.SUM("Importe").ToString.ToDecimal + total > TxtTotal.Text.ToDecimal Then
+ If (DtPagos.SUM("Importe").ToString.ToDecimal + total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then
Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor rectifique.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
@@ -4363,7 +4364,7 @@ Partial Class PV
DrEfectivo("TipoMovimiento") = "Pago en Efectivo"
DrEfectivo("CveCuenta") = DdlCuentaEfectivo.SelectedValue
DrEfectivo("Cuenta") = DdlCuentaEfectivo.SelectedItem.Text
- DrEfectivo("Importe") = TxtImporteEfectivo.Text
+ DrEfectivo("Importe") = TxtImporteEfectivo.Text.ToDecimal - TxtCambio.Text.ToDecimal
DrEfectivo("Folio") = CargaFolioContado(DdlCuentaEfectivo.SelectedValue.ToEntero, 6)
DrEfectivo("Observaciones") = ""
DrEfectivo("Tipo") = "Caja Chica"
@@ -4456,7 +4457,7 @@ Partial Class PV
'JJMQ 20160506: Validacion para no pagar de mas a peticion de I.P.
abonado = DtPagos.SUM("Importe")
saldo = TxtTotal.Text.Replace(",", "").ToDouble - abonado
- CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString
+ 'CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString
CargaGridContado()
UpContado.Update()
@@ -4873,7 +4874,7 @@ Partial Class PV
Dim ObjVenta As New ClsVentas
If ObjVenta.GetVentas(UsuarioActual.CveEmpresa, "Ing", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
DdlFacturas.DataSource = ObjVenta.DtResultados
- DdlFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1"))
End If
ObjVenta.Dispose()
DdlFacturas.DataBind()
@@ -4888,7 +4889,7 @@ Partial Class PV
End If
- DdlFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1"))
DdlTipoUso.DataSource = GlobalDTAcumTiposUso.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -4920,7 +4921,7 @@ Partial Class PV
DtPUFacturas.Rows.Clear()
If DdlFacturas.SelectedValue.ToEntero > 0 Then
- TxtPUFactura.Enabled = False
+ 'TxtPUFactura.Enabled = False
Dim ObjVenta As New ClsVentas
If ObjVenta.GetVentaDetalle(DdlFacturas.SelectedValue.ToEntero) Then
DdlPSAjuste.DataSource = ObjVenta.DtResultados
@@ -4929,8 +4930,8 @@ Partial Class PV
End If
ObjVenta.Dispose()
Else
- TxtPUFactura.Enabled = True
- TxtPUFactura.Text = ""
+ 'TxtPUFactura.Enabled = True
+ 'TxtPUFactura.Text = ""
DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
End If
DdlPSAjuste.DataBind()
@@ -4944,11 +4945,13 @@ Partial Class PV
LimpiaAjuste()
If TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.FiltraParametros($"ConsecutivoVenta = {ConsecutivoVenta}").Rows.Count > 0 Then
ModalidadAjuste = "U"
+ TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPUFactura.ClientID});")
ChkAjuste.Checked = True
DivAjuste.Visible = True
CargaAjusteDetalle()
Else
ModalidadAjuste = "A"
+ TxtPrecio.Attributes.Add("onKeyUp ", "Recalcula();")
End If
End Sub
@@ -4958,6 +4961,7 @@ Partial Class PV
TxtCodEnsamble.Text = ""
DdlTipoUso.SelectedIndex = -1
TxtCodLinea.Text = ""
+ TxtPUFactura.Text = ""
TxtFechaAjuste.Text = Now.ToShortDateString
CEEFechaAjuste.EndDate = Now
TxtCodInspeccion.Text = ""
@@ -5023,11 +5027,11 @@ Partial Class PV
End If
Contador += 1
Next
- TxtPUFactura.Text = PUFactura.FormatoNumero(2)
+ 'TxtPUFactura.Text = PUFactura.FormatoNumero(2)
End If
If Not DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso DdlFacturas.SelectedValue.ToEntero > 0 Then
- TxtPUFactura.Text = ""
+ 'TxtPUFactura.Text = ""
End If
CalculaPorcentajeAjuste()
@@ -5115,6 +5119,9 @@ Partial Class PV
'End Function
Private Sub GuardaAjuste()
+ TxtPUFactura.Text = TxtPrecio.Text
+ UpAjuste.Update()
+
Dim CargoAnterior As Double = 0
Dim CargoActual As Double = 0
If ModalidadAjuste = "A" Then
@@ -5222,9 +5229,12 @@ Partial Class PV
DivAjuste.Attributes.Add("class", "col-md-6")
DivDatosVenta.Attributes.Remove("class")
DivDatosVenta.Attributes.Add("class", "col-md-6")
+ TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPUFactura.ClientID});")
+ TxtPUFactura.Text = TxtPrecio.Text
Else
DivAjuste.Visible = False
TxtCantidad.Enabled = True
+ TxtPrecio.Attributes.Add("onKeyUp ", "Recalcula();")
DivModalVenta.Attributes.Remove("class")
DivModalVenta.Attributes.Add("class", "modal-dialog")
DivAjuste.Attributes.Remove("class")
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 29c2aca5d..a58e7234a 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -140,7 +140,7 @@
-
+
+
+
+
+
-
+
@@ -2146,7 +2149,10 @@
var initcarusel2 = initcarusel;
-
+ function ADSReady()
+ {
+ setPoscicion();
+ }
//TERMINA: ECOMMERCE
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 31ec53798..165888d40 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -216,7 +216,7 @@ Partial Class ProductosyServicios
'DivDatos.Attributes("class") = "col-md-12"
DivDdlTipo.Visible = True
- DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();")
+ 'DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();")
End If
@@ -235,16 +235,11 @@ Partial Class ProductosyServicios
If ddlMetodos.SelectedValue.ToEntero = 5 And Not UsuarioActual.TienePermisoProceso(255) Then
ddlMetodos.Enabled = False
End If
+ Dim posiciontipo As String = If(UsuarioActual.Empresa.Funcionalidad(558).ToString = "1", "$('.DIVCLASIFICACIONCONTABLE').after( $('.DIVTIPO') );", "")
+ LtlScripts.Text = $""
If Not CvePS > 0 Then MuestraPanel(True)
-
-
-
-
-
-
-
End If
End Sub
diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx
index df1d14bf3..ee9d8692e 100644
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -9,6 +9,40 @@
background-color: rgba(172, 195, 222, 0.65) !important;
}
+ .select2 .select2-selection__rendered {
+ line-height: 1;
+ color: #111;
+ }
+
+ .select2 .select2-selection--multiple {
+ box-sizing: border-box;
+ cursor: pointer;
+ display: block;
+ min-height: 20px;
+ user-select: none;
+ -webkit-user-select: none;
+ }
+
+ .select2-container--default .select2-selection--multiple .select2-selection__choice {
+ margin-top: 10px;
+ }
+
+ .select2-selection__rendered {
+ margin-top: 0px;
+ height: 25px;
+ }
+
+ .select2-selection {
+ margin-top: 0px;
+ height: 31px;
+ }
+
+ .select2-container--default.select2-container--focus .select2-selection--multiple {
+ border: none;
+ outline: 0;
+ }
+
+
#chartdiv {
width: 100%;
height: 500px;
@@ -65,7 +99,17 @@
-
+
+
+ <%--
+ --%>
Fecha Inicio:
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index 648d3cfdf..cf47e16aa 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -248,6 +248,7 @@ Partial Class Ventas_RepProductosServicios
Private Sub CargaDatos()
+ Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
Dim FechaI, FechaF, FechaIEjec, FechaFEjec As Date
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
@@ -262,7 +263,7 @@ Partial Class Ventas_RepProductosServicios
If ObjVentas.GetRepProductosServicios(DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
DdlPS.SelectedValue.ToEntero, FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente,
DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1",
- UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoComprobante.SelectedValue,
+ UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjVentas.DtResultados
DtVentas = ObjVentas.DtResultados
diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx
index 744e2616b..70da39f4f 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx
+++ b/Ventas/RepProductosServiciosDetalle.aspx
@@ -5,6 +5,39 @@