diff --git a/Contabilidad2/RepAnexoCatalogo.aspx b/Contabilidad2/RepAnexoCatalogo.aspx
index 0fad8f8d2..26ea0ee59 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx
+++ b/Contabilidad2/RepAnexoCatalogo.aspx
@@ -42,7 +42,7 @@
Cuenta
-
+
diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb
index 0a1b31544..14d6a8d8c 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -159,23 +159,7 @@ Partial Class AC2_RepAnexoCatalogo
End Sub
#Region "CARGA DATOS Y GRID"
- 'Public Function WSCuentas() As String
- ' Dim Str As New StringBuilder
- ' Dim i As Integer = 0
- ' Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1")
- ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-
- ' For Each dr As DataRow In dt.Rows
- ' i += 1
- ' Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("CveCuenta"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", ""))
- ' Next
-
- ' End If
-
-
- ' Return Str.ToString
- 'End Function
Private Sub CargaTipoCuentas()
'Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjTipoCuenta As New ClsContabilidad
diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx
index fc12ba75c..57d34487d 100644
--- a/Contabilidad2/RepAnexoCatalogoAnual.aspx
+++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx
@@ -96,7 +96,7 @@
Cuenta:
-
+
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx
index d459f114b..07d55441a 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx
@@ -56,7 +56,7 @@
Cuenta
-
+
diff --git a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
index 856c8d68f..f137102a7 100644
--- a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
@@ -145,23 +145,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
End Sub
#Region "CARGA DATOS Y GRID"
- 'Public Function WSCuentas() As String
- ' Dim Str As New StringBuilder
- ' Dim i As Integer = 0
- ' Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1")
- ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-
- ' For Each dr As DataRow In dt.Rows
- ' i += 1
- ' Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("CveCuenta"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", ""))
- ' Next
-
- ' End If
-
-
- ' Return Str.ToString
- 'End Function
Private Sub CargaTipoCuentas()
'Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjTipoCuenta As New ClsContabilidad
diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
index 04022a204..353caed37 100644
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
@@ -52,7 +52,7 @@
Cuenta:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Ventas/RepEntregasEcommerce.aspx.vb b/Ventas/RepEntregasEcommerce.aspx.vb
new file mode 100644
index 000000000..69b071605
--- /dev/null
+++ b/Ventas/RepEntregasEcommerce.aspx.vb
@@ -0,0 +1,139 @@
+Imports System.Data
+Imports Extensiones
+Imports iText.Barcodes.Dmcode
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Ventas_RepEntregasEcommerce
+ Inherits ClsPaginas
+
+ Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+ If Not Page.IsPostBack Then
+ CargaCombos()
+ CargaDatos()
+
+ End If
+ End Sub
+
+ Private Sub CargaCombos()
+ txtFechaI.Text = NowADS.AddDays(-3).ToShortDateString
+ txtFechaF.Text = NowADS.ToShortDateString
+ End Sub
+
+ Private Sub CargaDatos()
+
+ Dim FechaI, FechaF As Date
+ If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text.Trim.ToDate Else FechaI = MinFecha
+ If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text.Trim.ToDate Else FechaF = MaxFecha
+ Dim Obj As New ClsVentas
+ If Obj.GetEntregasEcommerce(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
+ GvD.DataSource = Obj.DtResultados
+ End If
+ Obj.Dispose()
+ GvD.DataBind()
+ UPDatos.Update()
+ End Sub
+
+
+ Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+ CargaDatos()
+ End Sub
+
+
+
+
+#Region " I M P R I M I R P D F"
+ Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+ Dim EsVisibleColPagoProveedor As Boolean = False
+
+ If GvD.Columns(10).Visible Then
+ EsVisibleColPagoProveedor = True
+ GvD.Columns(10).Visible = False
+ End If
+
+ GenerarPDFpp("Excel")
+
+ End Sub
+ Protected Sub LnkPDF_Click(sender As Object, e As EventArgs) Handles LnkPDF.Click
+ GenerarPDFpp()
+ End Sub
+
+ Protected Sub LnkPDFSubProyecto_Click(sender As Object, e As EventArgs)
+ GenerarPDFpp(AgrupadoPorSubProyecto:=True)
+ End Sub
+ Protected Sub LnkExcelSubProyecto_Click(sender As Object, e As EventArgs)
+ Dim EsVisibleColPagoProveedor As Boolean = False
+
+ If GvD.Columns(10).Visible Then
+ EsVisibleColPagoProveedor = True
+ GvD.Columns(10).Visible = False
+ End If
+
+ GenerarPDFpp("Excel", True)
+
+ If EsVisibleColPagoProveedor Then
+ GvD.Columns(10).Visible = True
+ End If
+ End Sub
+
+ Private Sub GenerarPDFpp(Optional Formato As String = "PDF", Optional AgrupadoPorSubProyecto As Boolean = False)
+
+ Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
+
+ 'OBTENEMOS LOS DATOS
+
+ Dim DTpp As DataTable = Nothing
+
+
+ If DTpp.Rows.Count > 0 Then
+ Dim dr As DataRow = DTpp.Rows(0)
+ Dim params As New List(Of ReportParameter)
+ Dim Filtros As New StringBuilder
+ Filtros.Append("Filtros ")
+ Dim ExistenFechas As Boolean = False
+
+ If txtFechaI.Text.Trim.Length > 0 Then
+ Filtros.Append($" Fecha Inicio: {txtFechaI.Text.Trim}")
+ ExistenFechas = True
+ End If
+
+
+ If txtFechaF.Text.Trim.Length > 0 Then
+ Filtros.Append($" Fecha Fin: {txtFechaF.Text.Trim}")
+ ExistenFechas = True
+ End If
+
+
+ If ExistenFechas Then
+ params.Add(New ReportParameter("AgrupadoPor", Filtros.ToString))
+ End If
+
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ ' params.Add(New ReportParameter("FechaInicio", FI))
+ ' params.Add(New ReportParameter("FechaFin", FF))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
+ ' params.Add(New ReportParameter("AgrupadoPor", $"{Programo} {Proveedor} {Registro} {Responsable} {Clasificacion} {Moneda} {Estatus} {SubProyecto} {FechaIn} {FechaFn}{FVI}{FVF}"))
+
+
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+ ImprimirPDF("Empresas/Grales/Formatos/RepPagoProveedores.rdlc", DTpp, params, "ReportePagoProveedores", Formato)
+ Else
+ Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)
+ End If
+
+
+ End Sub
+
+ Private Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ If e.Row.DBCampo("CvePS") = "" Then e.Row.CssClass = "SubTotales"
+ End If
+ End Sub
+
+
+#End Region
+
+
+
+End Class
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 112dd042c..3225d63be 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -9,7 +9,7 @@
padding: 0px 5px;
}
- .nolineheight {ChkRequiereTecnico
+ .nolineheight {
line-height: 1;
}
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ae1336765..bb4362b74 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4754,6 +4754,7 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
Me.CveLineaAdicionalVenta = DbRowVenta("CveLineaAdicional").ToString().ToEntero()
End If
+ TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString()
'CargaEncabezado
If Not (CveRemision > 0 Or CveCotizacion > 0) Then
@@ -4859,10 +4860,8 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(163) = "1" Then
TrDescripcionVenta.Visible = True
- TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString()
End If
-
HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
Case "Egs"
HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
@@ -9475,7 +9474,7 @@ Partial Class Ventas
End If
If DivAlmacen.Visible AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Dev") AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then
- Alert("Tiene que seleccionar un almacén para la salida de almacén", TipoMensaje.MsgAdvertencia)
+ Alert("Seleccione el almacén del cual saldrán los productos.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
@@ -19453,8 +19452,6 @@ Partial Class Ventas
End Sub
Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged
- Dim ObjClientes As New ClsClientes()
-
Dim Nombre As String = "-1"
Dim Codigo As String = "-1"
Dim NombreCorto As String = "-1"
@@ -19465,6 +19462,7 @@ Partial Class Ventas
If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim
If Codigo <> "-1" Then
+ Dim ObjClientes As New ClsClientes()
If ObjClientes.GetClientes(-1, Nombre, Codigo, NombreCorto, RFC, Telefono, Mail, -1, UsuarioActual.CveEmpresa, TipoCliente:=-1) Then
If ObjClientes.DtResultados.Rows.Count > 0 Then
If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not ObjClientes.CveCliente.Contiene(10450, 10460, 10458) Then
@@ -21564,8 +21562,6 @@ Partial Class Ventas
Dim DrProducto As DataRow = Nothing
If TxtCantidad.Text.Trim.ToDouble <= 0 Then TxtCantidad.Text = "1"
- Dim SerieL As String = ""
- Dim CodigoBarras As String = ""
Dim CvePS As Integer
'LIMPIA "PROPIEDAD"
@@ -21582,7 +21578,7 @@ Partial Class Ventas
If Existencia - ExistenciaActual > 0 Then
If CvePS > 0 Then
- DrProducto = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+ DrProducto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
If DrProducto IsNot Nothing Then
HdnCvePS.Value = CvePS.ToString()
TxtCantidad.Text = "1"
@@ -21598,17 +21594,16 @@ Partial Class Ventas
End If
End If
-
'BUSCA POR CODIGO DE BARRAS
- If Not CvePS > 0 Then
- CodigoBarras = TxtCodigoBarras.Text.Trim()
- DrProducto = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}'")
+ If Not CvePS > 0 AndAlso TxtCodigoBarras.Text.Trim() <> "" Then
+
+ DrProducto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text.Trim()}'")
If DrProducto IsNot Nothing Then
- If DrProducto("Inv_CveMetodoInventario").ToString() = "5" Then 'si es serie
+ If DrProducto("Inv_CveMetodoInventario").ToString() = "5" OrElse DrProducto("AplicaSerie").ToString = "True" Then 'si es serie
TxtCodigoSerie.Focus()
Exit Sub
Else
- CvePS = DrProducto("CvePS").ToString().ToEntero()
+ CvePS = DrProducto("CvePS").ToString.ToEntero()
HdnCvePS.Value = CvePS.ToString()
End If
Else
@@ -21627,8 +21622,9 @@ Partial Class Ventas
DdlPSIndexChange(CvePS, DdlPS)
If Not TxtCantidad.Text.ToDouble > 0 Then TxtCantidad.Text = "1"
TxtPrecio.Focus()
+ TxtPrecio.Text = "11"
RegistraScript($"$('#{TxtPrecio.ClientID}').select();")
-
+ UpPS.Update()
'LO DE ABAJO YA NO SE USA - ES VIEJO
Exit Sub
@@ -21843,6 +21839,10 @@ Partial Class Ventas
DivTransferencia.Visible = False
End If
TxtImporteContado.Text = TxtTotal.Text
+ 'SI ES MODALIDAD COBRANZA, NO MOSTRAR
+ If (UsuarioActual.Empresa.Funcionalidad(109) = "1") Then
+ DivContado.Visible = False
+ End If
End If
TxtFechaPago.Text = NowADS().ToShortDateString
'SI ES CONTADO EL METODO DE PAGO DEBE SER PUE
@@ -35788,11 +35788,11 @@ Partial Class Ventas
If CveOsDetalle > 0 Then
'MENSAJE PRINCIPAL
- Dim MensajeAlertOS As New StringBuilder
- MensajeAlertOS.AppendFormat(String.Format(" La Orden de Servicio: {0} se generó correctamente.
", ObjOrdenServicio.Folio))
+ 'Dim MensajeAlertOS As New StringBuilder
+ MensajeAlert.AppendFormat(String.Format(" La Orden de Servicio: {0} se generó correctamente. ", ObjOrdenServicio.Folio))
MensajeAlert.AppendFormat("
", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS)))
- Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
- Alert(MensajeAlertOS.ToString, TipoMensaje.MsgInformacion, Liga)
+ 'Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
+ 'Alert(MensajeAlertOS.ToString, TipoMensaje.MsgInformacion, Liga)
Else
errorList.Add("Se presento un error al guardar la el detalle de la orden de servicio.")
Errores = True