AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2019-10-26 14:00:31 -07:00
parent a282ce8aef caa2e382c6
commit 8e0be4fa52
15 changed files with 11484 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
Compras/PopUpVerFactura.aspx.vb
View File

@@ -890,6 +890,7 @@ Partial Class PopUpVerFactura
Vta.Cliente.Mail = dtVentas(0)("Mail").ToString Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
Vta.RefDocto = dtVentas(0)("Ref").ToString Vta.RefDocto = dtVentas(0)("Ref").ToString
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
Vta.Version = dtVentas(0)("Version").ToString Vta.Version = dtVentas(0)("Version").ToString
Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString
@@ -2991,34 +2992,24 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("LogoPath", "")) params.Add(New ReportParameter("LogoPath", ""))
End If End If
If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
TmpDTOS = ObjOS.DtResultados
End If
If ObjOS.GetDetalleMateriales(-1, CveOS) Then
TmpDTMaterialesOS = ObjOS.DtResultados
End If
Dim lrds As New List(Of ReportDataSource)
Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
lrds.Add(rds)
lrds.Add(rds2)
ObjOS.Dispose()
ImprimirPDF("Empresas/Grales/Formatos/OrdenServicio.rdlc", lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
Else
Dim lrds As New List(Of ReportDataSource)
Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
lrds.Add(rds)
lrds.Add(rds2)
ObjOS.Dispose()
ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
End If End If
If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
TmpDTOS = ObjOS.DtResultados
End If
If ObjOS.GetDetalleMateriales(-1, CveOS) Then
TmpDTMaterialesOS = ObjOS.DtResultados
End If
Dim lrds As New List(Of ReportDataSource)
Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
lrds.Add(rds)
lrds.Add(rds2)
ObjOS.Dispose()
ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
End Sub End Sub
Private Sub CreaDT() Private Sub CreaDT()
TmpDTOS = New DataTable TmpDTOS = New DataTable

20
Compras/RepComprasPrecios.aspx
View File

@@ -83,9 +83,9 @@
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<li> <%-- <li>
<asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton> <asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li> </li>--%>
<li> <li>
<asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton> <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
</li> </li>
@@ -141,18 +141,17 @@
</div> </div>
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="True" EmptyDataText="No se encontró información" <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
data-sort="true" Style="text-align: center;" GridLines="None" ShowHeader="true" DataKeyNames="CvePS">
<Columns> <Columns>
<%-- <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left"> <%-- <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="HplREQ" runat="server" Text='<%# Eval("PS") %>'></asp:Literal> <asp:Literal ID="HplREQ" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>--%>
<asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right"> <%-- <asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="HplOC" runat="server" Text='<%# Eval("UltCompra", "{0:N2}") %>'></asp:Literal> <asp:Literal ID="HplOC" runat="server" Text='<%# Eval("UltCompra", "{0:N2}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -163,11 +162,10 @@
<asp:Literal ID="HplOC2" runat="server" Text='<%# Eval("PrecioLista", "{0:N2}") %>'></asp:Literal> <asp:Literal ID="HplOC2" runat="server" Text='<%# Eval("PrecioLista", "{0:N2}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField>--%> </asp:TemplateField>--%>
</Columns> </Columns>
<HeaderStyle CssClass="Titulos" /> <%-- <HeaderStyle CssClass="Titulos" />
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" /> <AlternatingRowStyle CssClass="TextoAlterno" />--%>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

70
Compras/RepComprasPrecios.aspx.vb
View File

@@ -22,7 +22,7 @@ Partial Class RepComprasPrecios
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
CargaProveedor() CargaProveedor()
CargaDatos() 'CargaDatos()
End If End If
End Sub End Sub
@@ -45,6 +45,8 @@ Partial Class RepComprasPrecios
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
'GvDatos.Columns(1).ItemStyle.Width = New Unit("500px")
GvDatos.HeaderRow.Cells(0).Visible = False GvDatos.HeaderRow.Cells(0).Visible = False
e.Row.Cells(0).Visible = False e.Row.Cells(0).Visible = False
@@ -70,15 +72,6 @@ Partial Class RepComprasPrecios
End If End If
Next Next
'Cuando es titulo
'If e.Row.DBCampo("PS").ToString.Trim = "" Then
' e.Row.CssClass = "Totales"
' e.Row.Cells(0).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
' e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
' e.Row.Cells(3).Text = String.Format("Almacen Destino: {0} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
'End If
End If End If
End Sub End Sub
#End Region #End Region
@@ -93,41 +86,36 @@ Partial Class RepComprasPrecios
#End Region #End Region
#Region "IMPRESION" #Region "IMPRESION"
Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click 'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
Imprime("PDF") ' Imprime("PDF")
End Sub 'End Sub
Private Sub Imprime(Formato As String) Private Sub Imprime(Formato As String)
'If DtInventarios IsNot Nothing Then If DtCompras IsNot Nothing Then
' Dim StrFiltro As New StringBuilder Dim StrFiltro As New StringBuilder
' If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString) If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedItem.Text)
' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString) GvDatos.ExportToExcelG("RepComprasPrecios.xlsx", "Reporte de Precios de Compras", UsuarioActual, StrFiltro.ToString, 100, 200)
' If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text) 'Dim StrFiltro As New StringBuilder
' If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
' If ChkRecibido.Checked Then StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>Si") Else StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>No")
' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) 'If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Proveedor:</b> {0}", DdlProveedor.SelectedItem.Text)
' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim FechaI, FechaF As String 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
' FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
' Dim params As New List(Of ReportParameter)
' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) 'Dim params As New List(Of ReportParameter)
' params.Add(New ReportParameter("FechaInicio", FechaI)) 'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
' params.Add(New ReportParameter("FechaFin", FechaF)) 'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) 'params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
' params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) 'If Imagen.Exists Then
' If Imagen.Exists Then ' params.Add(New ReportParameter("LogoPath", logouri))
' params.Add(New ReportParameter("LogoPath", logouri)) 'Else
' Else ' params.Add(New ReportParameter("LogoPath", ""))
' params.Add(New ReportParameter("LogoPath", "")) 'End If
' End If 'ImprimirPDF("Empresas/Grales/Formatos/RepComprasPrecios.rdlc", DtCompras, params, String.Format("RepComprasPrecios-{0}", Now.ToDateTime.ToShortDateString), Formato)
' ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato) Else
'Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
' Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If
'End If
End Sub End Sub
#End Region #End Region
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -137,4 +125,6 @@ Partial Class RepComprasPrecios
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
Imprime("Excel") Imprime("Excel")
End Sub End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
End Class End Class

26
Contabilidad/RegPoliza.aspx.vb
View File

@@ -1819,15 +1819,19 @@ Partial Class RegPoliza
Dim Referencia As String = Row("Referencia").ToString Dim Referencia As String = Row("Referencia").ToString
Dim Cuenta As String = Row("Código Cuenta").ToString + " - " + Row("Nombre Cuenta").ToString Dim Cuenta As String = Row("Código Cuenta").ToString + " - " + Row("Nombre Cuenta").ToString
Dim Cuenta2 = AgregaComilla(Cuenta) 'Agregar otra comilla simple adicional cuando contenga una
Dim CveCuenta As String = "" Dim CveCuenta As String = ""
If DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta & "'") IsNot Nothing Then If DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta2 & "'") IsNot Nothing Then
CveCuenta = DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta & "'")("Id").ToString CveCuenta = DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta2 & "'")("Id").ToString
End If End If
Dim SegNeg As String = Row("SegNeg").ToString Dim SegNeg As String = Row("SegNeg").ToString
Dim SegNeg2 = AgregaComilla(SegNeg) 'Agregar otra comilla simple adicional cuando contenga una
Dim IdSegNeg As String = "" Dim IdSegNeg As String = ""
If DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg & "'") IsNot Nothing Then If DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg2 & "'") IsNot Nothing Then
IdSegNeg = DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg & "'")("Id").ToString IdSegNeg = DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg2 & "'")("Id").ToString
End If End If
Dim Concepto As String = Row("Nombre/Concepto").ToString Dim Concepto As String = Row("Nombre/Concepto").ToString
@@ -1884,4 +1888,18 @@ Partial Class RegPoliza
DescargarFormato() DescargarFormato()
End Sub End Sub
Private Function AgregaComilla(str As String) As String
If str.Contains("'") Then
Dim arr = Split(str, "'")
str = ""
For i = 0 To arr.Length() - 1
If i = arr.Length - 1 Then
str += arr(i)
Else
str += arr(i) + "''"
End If
Next
End If
Return str
End Function
End Class End Class

3047
Empresas/140/Formatos/Cotizacion.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

4785
Empresas/140/Formatos/Factura.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

2955
Empresas/140/Formatos/Remision.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

495
Empresas/72/Formatos/OrdenServicio.rdlc
View File

@@ -23,7 +23,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>3.63358cm</Top> <Top>3.63358cm</Top>
<Left>0.07cm</Left> <Left>0.11767cm</Left>
<Height>0.47364cm</Height> <Height>0.47364cm</Height>
<Width>18.64497cm</Width> <Width>18.64497cm</Width>
<Style> <Style>
@@ -78,7 +78,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>0.5338cm</Top> <Top>0.5338cm</Top>
<Left>8.84441cm</Left> <Left>8.89208cm</Left>
<Height>0.47364cm</Height> <Height>0.47364cm</Height>
<Width>4.43083cm</Width> <Width>4.43083cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -134,7 +134,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>6.93966cm</Top> <Top>6.93966cm</Top>
<Left>0.07344cm</Left> <Left>0.12111cm</Left>
<Height>0.48cm</Height> <Height>0.48cm</Height>
<Width>18.65153cm</Width> <Width>18.65153cm</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
@@ -190,7 +190,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>2.08369cm</Top> <Top>2.08369cm</Top>
<Left>8.84441cm</Left> <Left>8.89208cm</Left>
<Height>0.47364cm</Height> <Height>0.47364cm</Height>
<Width>4.43083cm</Width> <Width>4.43083cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
@@ -246,7 +246,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>0.5338cm</Top> <Top>0.5338cm</Top>
<Left>13.45163cm</Left> <Left>13.4993cm</Left>
<Height>0.47364cm</Height> <Height>0.47364cm</Height>
<Width>5.24334cm</Width> <Width>5.24334cm</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
@@ -302,7 +302,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>1.00743cm</Top> <Top>1.00743cm</Top>
<Left>13.45163cm</Left> <Left>13.4993cm</Left>
<Height>0.97042cm</Height> <Height>0.97042cm</Height>
<Width>5.26334cm</Width> <Width>5.26334cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
@@ -358,7 +358,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>2.62788cm</Top> <Top>2.62788cm</Top>
<Left>13.45163cm</Left> <Left>13.4993cm</Left>
<Height>0.89986cm</Height> <Height>0.89986cm</Height>
<Width>5.26334cm</Width> <Width>5.26334cm</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>
@@ -414,7 +414,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>2.15424cm</Top> <Top>2.15424cm</Top>
<Left>13.45163cm</Left> <Left>13.4993cm</Left>
<Height>0.47364cm</Height> <Height>0.47364cm</Height>
<Width>5.25334cm</Width> <Width>5.25334cm</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
@@ -454,7 +454,7 @@
<Value>Logo1</Value> <Value>Logo1</Value>
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Top>0.1546in</Top> <Top>0.1546in</Top>
<Left>0.07918in</Left> <Left>0.09795in</Left>
<Height>1.2065in</Height> <Height>1.2065in</Height>
<Width>1.21875in</Width> <Width>1.21875in</Width>
<ZIndex>8</ZIndex> <ZIndex>8</ZIndex>
@@ -503,7 +503,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>1.00743cm</Top> <Top>1.00743cm</Top>
<Left>3.29673cm</Left> <Left>3.3444cm</Left>
<Height>2.52032cm</Height> <Height>2.52032cm</Height>
<Width>5.37129cm</Width> <Width>5.37129cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
@@ -560,8 +560,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>9.69619cm</Top> <Top>10.0666cm</Top>
<Left>0.07cm</Left> <Left>0.13112cm</Left>
<Height>0.44775cm</Height> <Height>0.44775cm</Height>
<Width>18.65497cm</Width> <Width>18.65497cm</Width>
<ZIndex>10</ZIndex> <ZIndex>10</ZIndex>
@@ -616,8 +616,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>13.43126cm</Top> <Top>13.97806cm</Top>
<Left>0.07cm</Left> <Left>0.13112cm</Left>
<Height>0.99688cm</Height> <Height>0.99688cm</Height>
<Width>18.64497cm</Width> <Width>18.64497cm</Width>
<ZIndex>11</ZIndex> <ZIndex>11</ZIndex>
@@ -672,8 +672,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>12.95762cm</Top> <Top>13.39858cm</Top>
<Left>0.07cm</Left> <Left>0.13112cm</Left>
<Height>0.47364cm</Height> <Height>0.47364cm</Height>
<Width>18.64497cm</Width> <Width>18.64497cm</Width>
<ZIndex>12</ZIndex> <ZIndex>12</ZIndex>
@@ -744,8 +744,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>15.56836cm</Top> <Top>16.28274cm</Top>
<Left>0.20112cm</Left> <Left>0.13112cm</Left>
<Height>0.89754cm</Height> <Height>0.89754cm</Height>
<Width>6.17587cm</Width> <Width>6.17587cm</Width>
<ZIndex>13</ZIndex> <ZIndex>13</ZIndex>
@@ -816,8 +816,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>15.56836cm</Top> <Top>16.28274cm</Top>
<Left>6.67991cm</Left> <Left>6.48338cm</Left>
<Height>0.89754cm</Height> <Height>0.89754cm</Height>
<Width>6.17587cm</Width> <Width>6.17587cm</Width>
<ZIndex>14</ZIndex> <ZIndex>14</ZIndex>
@@ -873,10 +873,10 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>15.56836cm</Top> <Top>16.28274cm</Top>
<Left>13.29827cm</Left> <Left>12.96369cm</Left>
<Height>0.89754cm</Height> <Height>0.89754cm</Height>
<Width>5.28334cm</Width> <Width>5.54792cm</Width>
<ZIndex>15</ZIndex> <ZIndex>15</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -929,8 +929,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>16.4659cm</Top> <Top>17.68299cm</Top>
<Left>0.20112cm</Left> <Left>0.13112cm</Left>
<Height>0.47421cm</Height> <Height>0.47421cm</Height>
<Width>18.64497cm</Width> <Width>18.64497cm</Width>
<ZIndex>16</ZIndex> <ZIndex>16</ZIndex>
@@ -999,8 +999,8 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox165</rd:DefaultName> <rd:DefaultName>Textbox165</rd:DefaultName>
<Top>16.94011cm</Top> <Top>18.58053cm</Top>
<Left>0.20112cm</Left> <Left>0.13112cm</Left>
<Height>7.1417cm</Height> <Height>7.1417cm</Height>
<Width>17.72549cm</Width> <Width>17.72549cm</Width>
<ZIndex>17</ZIndex> <ZIndex>17</ZIndex>
@@ -1052,8 +1052,8 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Copia</rd:DefaultName> <rd:DefaultName>Copia</rd:DefaultName>
<Top>24.08181cm</Top> <Top>25.72223cm</Top>
<Left>0.20112cm</Left> <Left>0.13112cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>18.38049cm</Width> <Width>18.38049cm</Width>
<ZIndex>18</ZIndex> <ZIndex>18</ZIndex>
@@ -1466,8 +1466,8 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>4.10722cm</Top> <Top>4.10722cm</Top>
<Left>0.07cm</Left> <Left>0.11767cm</Left>
<Height>2.26772cm</Height> <Height>2.26771cm</Height>
<Width>18.62496cm</Width> <Width>18.62496cm</Width>
<ZIndex>19</ZIndex> <ZIndex>19</ZIndex>
<Style> <Style>
@@ -1525,7 +1525,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName> <rd:DefaultName>Textbox21</rd:DefaultName>
<Top>6.37494cm</Top> <Top>6.37494cm</Top>
<Left>0.07cm</Left> <Left>0.11767cm</Left>
<Height>0.49417cm</Height> <Height>0.49417cm</Height>
<Width>18.64497cm</Width> <Width>18.64497cm</Width>
<ZIndex>20</ZIndex> <ZIndex>20</ZIndex>
@@ -1712,7 +1712,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>1.00743cm</Top> <Top>1.00743cm</Top>
<Left>8.84441cm</Left> <Left>8.89208cm</Left>
<Height>0.97042cm</Height> <Height>0.97042cm</Height>
<Width>4.43082cm</Width> <Width>4.43082cm</Width>
<ZIndex>21</ZIndex> <ZIndex>21</ZIndex>
@@ -1895,7 +1895,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>2.55733cm</Top> <Top>2.55733cm</Top>
<Left>8.84441cm</Left> <Left>8.89208cm</Left>
<Height>0.97042cm</Height> <Height>0.97042cm</Height>
<Width>4.43082cm</Width> <Width>4.43082cm</Width>
<ZIndex>22</ZIndex> <ZIndex>22</ZIndex>
@@ -2106,9 +2106,9 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>7.41966cm</Top> <Top>7.41966cm</Top>
<Left>0.07344cm</Left> <Left>0.12111cm</Left>
<Height>1.09417cm</Height> <Height>1.09416cm</Height>
<Width>18.65497cm</Width> <Width>18.65498cm</Width>
<ZIndex>23</ZIndex> <ZIndex>23</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2117,113 +2117,6 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
</Style> </Style>
</Tablix> </Tablix>
<Tablix Name="Tablix3">
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>9.30904cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
<TablixRow>
<Height>0.6cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox23">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Equipo</Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox23</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<BackgroundColor>Silver</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.44125cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox29">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Equipo.Value</Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox29</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows>
</TablixBody>
<TablixColumnHierarchy>
<TablixMembers>
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
<TablixMembers>
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixRowHierarchy>
<Top>8.58438cm</Top>
<Left>0.07344cm</Left>
<Height>1.04125cm</Height>
<Width>9.30904cm</Width>
<ZIndex>24</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Tablix>
<Textbox Name="Textbox32"> <Textbox Name="Textbox32">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
@@ -2318,11 +2211,11 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName> <rd:DefaultName>Textbox32</rd:DefaultName>
<Top>10.32033cm</Top> <Top>10.5849cm</Top>
<Left>0.20112cm</Left> <Left>0.13112cm</Left>
<Height>2.63729cm</Height> <Height>2.63729cm</Height>
<Width>3.53804cm</Width> <Width>3.53804cm</Width>
<ZIndex>25</ZIndex> <ZIndex>24</ZIndex>
<Style> <Style>
<Border /> <Border />
<PaddingLeft>2pt</PaddingLeft> <PaddingLeft>2pt</PaddingLeft>
@@ -2331,11 +2224,315 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Tablix Name="Tablix4">
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>1.64066cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.82591cm</Width>
</TablixColumn>
<TablixColumn>
<Width>8.24827cm</Width>
</TablixColumn>
<TablixColumn>
<Width>6.93013cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
<TablixRow>
<Height>0.6cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox14">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Cantidad</Value>
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<BackgroundColor>Silver</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox18">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>UM</Value>
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox18</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<BackgroundColor>Silver</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox25">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Descripcion</Value>
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox25</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<BackgroundColor>Silver</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox27">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Observaciones</Value>
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox27</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<BackgroundColor>Silver</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.6cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Cantidad">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Cantidad.Value</Value>
<Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Cantidad</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="UM">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!UM.Value</Value>
<Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>UM</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="PS">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!PS.Value</Value>
<Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>PS</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Observaciones">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Observaciones.Value</Value>
<Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Observaciones</rd:DefaultName>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows>
</TablixBody>
<TablixColumnHierarchy>
<TablixMembers>
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
<TablixMembers>
<TablixMember>
<KeepWithGroup>After</KeepWithGroup>
</TablixMember>
<TablixMember>
<Group Name="Details1" />
</TablixMember>
</TablixMembers>
</TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName>
<Top>8.69021cm</Top>
<Left>0.13112cm</Left>
<Height>1.2cm</Height>
<Width>18.64497cm</Width>
<ZIndex>25</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<FontSize>7pt</FontSize>
</Style>
</Tablix>
</ReportItems> </ReportItems>
<Height>9.8435in</Height> <Height>10.79142in</Height>
<Style /> <Style />
</Body> </Body>
<Width>7.48268in</Width> <Width>7.54841in</Width>
<Page> <Page>
<PageHeight>27.94cm</PageHeight> <PageHeight>27.94cm</PageHeight>
<PageWidth>21.59cm</PageWidth> <PageWidth>21.59cm</PageWidth>

4
Inventarios/RecepcionEntrega.aspx.vb
View File

@@ -1628,7 +1628,7 @@ Partial Class Inventarios_RecepcionEntrega
'Exit Sub 'Exit Sub
Dim TieneErrorExistencia = False Dim TieneErrorExistencia = False
If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.DtResultados.Rows.Count > 0 Then
TieneErrorExistencia = True TieneErrorExistencia = True
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -2520,7 +2520,7 @@ Partial Class Inventarios_RecepcionEntrega
StrXML.Append("</conceptos>") StrXML.Append("</conceptos>")
Dim TieneErrorExistencia = False Dim TieneErrorExistencia = False
If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.DtResultados.Rows.Count > 0 Then
TieneErrorExistencia = True TieneErrorExistencia = True
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows

2
LogMail.txt
View File

File diff suppressed because one or more lines are too long

81
OC/OC.aspx
View File

@@ -855,7 +855,8 @@
<asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0"> <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn"
DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<EditItemTemplate> <EditItemTemplate>
@@ -1192,26 +1193,21 @@
<ajax:TabPanel HeaderText="Cotizaciones" runat="server" ID="tabCotizaciones" Enabled="false"> <ajax:TabPanel HeaderText="Cotizaciones" runat="server" ID="tabCotizaciones" Enabled="false">
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
</div> </div>
<div class="col-md-6" style="text-align: right!important"> <div class="col-md-6" style="text-align: right!important">
<asp:HyperLink ID="hplCargarCotExcel" Font-Size="13" CssClass="Texto" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcelCotizaciones" runat="server" Text="<i class='fa fa-file-excel-o'></i>&nbsp; Cargar Cotización"></asp:HyperLink>
&nbsp;&nbsp;
<asp:HyperLink ID="hplAgregarCotizacion" Font-Size="13" CssClass="Texto thickbox" runat="server" Text="<i class='fa fa-plus'></i>&nbsp;Agregar Cotizacion" Style="cursor: pointer;" ToolTip="Agregar Cotizacion"></asp:HyperLink> <asp:HyperLink ID="hplAgregarCotizacion" Font-Size="13" CssClass="Texto thickbox" runat="server" Text="<i class='fa fa-plus'></i>&nbsp;Agregar Cotizacion" Style="cursor: pointer;" ToolTip="Agregar Cotizacion"></asp:HyperLink>
&nbsp;&nbsp; &nbsp;&nbsp;
<asp:HyperLink ID="hplEnviarCorreo" Font-Size="13" CssClass="Texto thickbox" runat="server" Text="<i class='fa fa-envelope'></i>&nbsp;Enviar cotización por correo" Style="cursor: pointer;" ToolTip="Enviar cotización por correo"></asp:HyperLink> <asp:HyperLink ID="hplEnviarCorreo" Font-Size="13" CssClass="Texto thickbox" runat="server" Text="<i class='fa fa-envelope'></i>&nbsp;Enviar cotización por correo" Style="cursor: pointer;" ToolTip="Enviar cotización por correo"></asp:HyperLink>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
</div> </div>
</div> </div>
<asp:UpdatePanel ID="uppCotizaciones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="uppCotizaciones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="gvCotizacionesANT" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontro ninguna Cotización" Visible="false" GridLines="None" BorderWidth="0" CssClass="table table-striped table-hover table-advance Widthall"> <asp:GridView ID="gvCotizacionesANT" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontro ninguna Cotización" Visible="false" GridLines="None" BorderWidth="0" CssClass="table table-striped table-hover table-advance Widthall">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
@@ -1366,11 +1362,8 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel HeaderText="Almacen" runat="server" ID="TabAlmacen" Visible="false"> <ajax:TabPanel HeaderText="Almacen" runat="server" ID="TabAlmacen" Visible="false">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UpAlmacen" UpdateMode="Conditional" runat="server"> <asp:UpdatePanel ID="UpAlmacen" UpdateMode="Conditional" runat="server">
@@ -2548,15 +2541,63 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</div> </div>
<%--CARGA EXCEL--%>
<div id="DivCargaExcelCotizaciones" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<!-- Modal content-->
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Cargar Cotizaciones</h4>
</div>
<div class="modal-body">
<div class="row v-center">
<div class="col-md-6 v-center">
<label class="col-md-6 v-center truncate">Proveedor:</label>
<div class="col-md-6 v-center">
<asp:DropDownList ID="DdlProveedorCot" runat="server" Width="100%" CssClass="select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedorExcel" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
<div class="row">
<div class="col-md-12">
<h3>Arraste o haga click para subir el archivo Excel</h3>
</div>
</div>
<div class="row">
<div class="col-md-11" style="margin-left: 30px; margin-right: 30px;">
<asp:TextBox ID="TxtExcelCot" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
</div>
</div>
</div>
<div class="modal-footer">
<div class="row">
<div class="col-md-2" style="text-align: left">
<asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="BtnDescargarFormatoCot" OnClick="BtnDescargarFormatoCot_Click" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="BtnDescargarFormatoCot" />
</Triggers>
</asp:UpdatePanel>
</div>
<div class="col-md-10" style="text-align: right">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnCargaExcelCot" runat="server" OnClick="BtnCargaExcelCot_Click" CssClass="btn btn-success" Text="Aceptar" ValidationGroup="GrpCargarExcel"></asp:Button>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</div>
</div>
<script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script> <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="server"> <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="server">
<script src="/Metronic/assets/global/plugins/jquery.pulsate.min.js"></script> <script src="/Metronic/assets/global/plugins/jquery.pulsate.min.js"></script>

190
OC/OC.aspx.vb
View File

@@ -1,5 +1,4 @@
Option Explicit On Option Explicit On
Option Strict On
Imports System.Data Imports System.Data
Imports Extensiones Imports Extensiones
@@ -176,7 +175,7 @@ Partial Class OC
End Property End Property
Private Property NumCotizacionesEvaluar As Integer Private Property NumCotizacionesEvaluar As Integer
Get Get
NumCotizacionesEvaluar = IfNull(ViewState("NumCotizacionesEvaluar"), "-1", ViewState("NumCotizacionesEvaluar")).ToString().ToEntero() NumCotizacionesEvaluar = IfNull(ViewState("NumCotizacionesEvaluar"), "0", ViewState("NumCotizacionesEvaluar")).ToString().ToEntero()
End Get End Get
Set(value As Integer) Set(value As Integer)
ViewState("NumCotizacionesEvaluar") = value ViewState("NumCotizacionesEvaluar") = value
@@ -1509,7 +1508,7 @@ Partial Class OC
'Si requiere cotizacion y el estatus siguiente es el final, desabilitar el combo del estatus 'Si requiere cotizacion y el estatus siguiente es el final, desabilitar el combo del estatus
If ChkCotizacion.Checked AndAlso objOC.CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then If UsuarioActual.Empresa.Funcionalidad(556) = "1" AndAlso ChkCotizacion.Checked AndAlso objOC.CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then
CboE.Enabled = False CboE.Enabled = False
LblMsgEstatus.Visible = True LblMsgEstatus.Visible = True
LblMsgEstatus.Text = "Cotización requerida para avanzar" LblMsgEstatus.Text = "Cotización requerida para avanzar"
@@ -1669,7 +1668,7 @@ Partial Class OC
'If ChkCotizacion.Checked AndAlso objOC.CveEstatusSiguiente = CveEstatusFinalOK AndAlso NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1 Then 'If ChkCotizacion.Checked AndAlso objOC.CveEstatusSiguiente = CveEstatusFinalOK AndAlso NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1 Then
If ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1 Then If UsuarioActual.Empresa.Funcionalidad(556) = "1" AndAlso ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1 Then
CboE.Enabled = False CboE.Enabled = False
LblMsgEstatus.Visible = True LblMsgEstatus.Visible = True
LblMsgEstatus.Text = "Cotización requerida para avanzar" LblMsgEstatus.Text = "Cotización requerida para avanzar"
@@ -1745,6 +1744,11 @@ Partial Class OC
DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
DdlProveedores.DataBind() DdlProveedores.DataBind()
DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
DdlProveedorCot.DataBind()
DdlProveedorCot.Items.Insert(0, New ListItem("Seleccione", "-1"))
UPProv.Update() : UPPEmp.Update() UPProv.Update() : UPPEmp.Update()
End Sub End Sub
@@ -2766,9 +2770,9 @@ Partial Class OC
If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
If CveConfianzaProveedor > 0 Then If CveConfianzaProveedor > 0 Then
If CveConfianzaProveedor = 1 AndAlso Me.NumCotizaciones >= 1 Then If CveConfianzaProveedor = 1 AndAlso Me.NumCotizacionesEvaluar >= 1 Then
TieneError = GeneraOrdenes(OC, Conta, ObjInventarios) TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizaciones >= 2 Then ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizacionesEvaluar >= 2 Then
TieneError = GeneraOrdenes(OC, Conta, ObjInventarios) TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
Else Else
TieneError = True TieneError = True
@@ -2878,7 +2882,7 @@ Partial Class OC
Promocion = TxtPromocion.Text.Trim Promocion = TxtPromocion.Text.Trim
Try Try
If ChkCotizacion.Checked Then If ChkCotizacion.Checked AndAlso gvCotizaciones.Rows.Count > 0 AndAlso (NumCotizacionesGanadoras > 0 OrElse Not (NumCotizacionesGanadoras <= 0 AndAlso CveConfianzaProveedor = 1)) Then
Dim CveProveedor = -1 Dim CveProveedor = -1
Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0, Porcentaje = 0.0 Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0, Porcentaje = 0.0
Dim IdPoliza = -1 Dim IdPoliza = -1
@@ -2932,6 +2936,7 @@ Partial Class OC
HuboError = True HuboError = True
Exit For Exit For
End If End If
End If End If
'AGREGA DETALLES 'AGREGA DETALLES
@@ -4174,7 +4179,7 @@ Partial Class OC
' uppOpciones.Update() ' uppOpciones.Update()
'End If 'End If
If ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then If UsuarioActual.Empresa.Funcionalidad(556) = "1" AndAlso ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then
CboE.Enabled = False CboE.Enabled = False
LblMsgEstatus.Visible = True LblMsgEstatus.Visible = True
LblMsgEstatus.Text = "Cotización requerida para avanzar" LblMsgEstatus.Text = "Cotización requerida para avanzar"
@@ -7307,4 +7312,173 @@ Partial Class OC
#End Region #End Region
#Region "C A R G A R E X C E L "
Protected Sub BtnCargaExcelCot_Click(sender As Object, e As EventArgs)
If TxtExcelCot.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcelCot.getfiles().Archivos(0)
Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
CargarArchivoCot(Directorio, file.filename)
CargaCotizaciones(CveOrdenCompra)
RegistraScript("$('#DivCargaExcelCotizaciones').modal('hide');")
Else
Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
End If
End Sub
Protected Sub BtnDescargarFormatoCot_Click(sender As Object, e As EventArgs)
'cantidad, Producto, Precio Unitario, Fecha Entrega, Observación
Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
Dim DtExcel As DataTable = (From row As GridViewRow In GvD.Rows
Join rowPS In DtPS On rowPS("CvePS").ToString().ToEntero() Equals row.DataKey("CvePS").ToEntero()
Where row.RowType = DataControlRowType.DataRow
Select New With
{
.Cantidad = row.DataKey("Cantidad"),
.Codigo = rowPS("Codigo"),
.Producto = rowPS("PSCodigo"),
.PrecioUnitario = row.DataKey("Importe").ToDecimal(),
.FechaEntrega = "",
.Observacion = row.DataKey("Observacion")
}).QueryToDataTable(True)
If DtExcel.Rows.Count < 2 Then
Alert("No hay resutados en la busqueda.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
DtExcel.TableName = "Cotización"
'DtExcel.Columns("Codigo").ColumnName = "Código"
'DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim FileExcel As New ExcelFile()
Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
{
.ColumnHeaders = True,
.StartRow = 0,
.StartColumn = 0
})
worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
Dim columnCount = worksheet.CalculateMaxUsedColumns()
For i = 0 To columnCount
worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
Next
FileExcel.Save(Response, "Cotizacion.xlsx", SaveOptions.XlsxDefault)
End Sub
Protected Sub CargarArchivoCot(Ruta As String, FileName As String)
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim dt As DataTable = Nothing
Dim ErrorArchivo = False
Try
dt = ReadExcelFile(Ruta + FileName, True)
Catch ex As Exception
ErrorArchivo = True
OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
End Try
If Not ErrorArchivo AndAlso dt IsNot Nothing Then
'cantidad, Producto, Precio Unitario, Fecha Entrega, Observación
If DdlProveedorCot.SelectedValue.ToEntero() <= 0 Then
Alert("Debe Seleccionar la lista de precios a cargar. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(0).ColumnName = "Cantidad" Then
Alert("El nombre de la tercera columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(1).ColumnName = "Codigo" Then
Alert("El nombre de la cuarta columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(2).ColumnName = "Producto" Then
Alert("El nombre de la cuarta columna debe ser 'Producto'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(3).ColumnName = "PrecioUnitario" Then
Alert("El nombre de la sexta columna debe ser 'PrecioUnitario'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(4).ColumnName = "FechaEntrega" Then
Alert("El nombre de la sexta columna debe ser 'FechaEntrega'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(5).ColumnName = "Observacion" Then
Alert("El nombre de la sexta columna debe ser 'Observacion'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
dt.TableName = "Datos"
Dim ProductosNoCargados As New StringBuilder()
Dim RowsCargados As Integer = 0
Dim RowsNoCargados As Integer = 0
Dim TieneError As Boolean = False
Dim objCotizacion As New ClsOC
objCotizacion.IniciaTransacSQL()
Try
Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
Dim DtOCDetalle As DataTable = (From row As GridViewRow In GvD.Rows
Join rowPS In DtPS On rowPS("CvePS").ToString().ToEntero() Equals row.DataKey("CvePS").ToEntero()
Where row.RowType = DataControlRowType.DataRow
Select New With
{
.CvePS = row.DataKey("CvePS").ToEntero(),
.CveUnidadMedida = rowPS("CveUnidadMedida").ToString().ToEntero(),
.CveOrdenCompraDetalle = row.DataKey("CveOrdenCompraDetalle").ToString().ToEntero(),
.Codigo = rowPS("Codigo")
}).QueryToDataTable(True)
Dim Folio As String = ""
Dim CveProveedor As Integer = DdlProveedorCot.SelectedValue.ToEntero()
If CveProveedor > 0 Then
If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, -1, Folio, TxtFecha.Text, "", DdlMoneda.SelectedValue.ToEntero, 0, UsuarioActual.CveUsuario) Then
For Each dr As DataRow In dt.Rows
Dim RowPS = DtOCDetalle.FiltroPrimero(String.Format("Codigo='{0}'", dr("Codigo").ToString()))
Dim CveOrdenCompraDetalle As Integer = RowPS("CveOrdenCompraDetalle").ToString().ToEntero()
Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero()
Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
Dim Fecha As String = If(String.IsNullOrEmpty(dr("FechaEntrega").ToString()), "", If(IsDate(dr("FechaEntrega").ToString()), dr("FechaEntrega").ToString(), ""))
TieneError = Not objCotizacion.AddCotizacionDetalle(objCotizacion.CveCotizacion, CvePS, dr("PrecioUnitario").ToString().ToDecimal(), dr("Cantidad").ToString().ToDouble, CveUnidadMedida,
dr("Cantidad").ToString().ToDouble, Fecha, dr("Observacion").ToString(), CveOrdenCompraDetalle)
If TieneError = True Then Exit For
Next
End If
Else
TieneError = False
End If
Catch ex As Exception
TieneError = True
OnError("Ocurrió un error al cargar las cotizaciones.", ex)
Finally
If TieneError Then
objCotizacion.RollBack()
Alert("Ocurrió un error al cargar las cotizaciones.")
Else
objCotizacion.Commit()
Alert("Las cotizaciones se cargaron correctamente.")
End If
objCotizacion.Dispose()
End Try
End If
End Sub
#End Region
End Class End Class

27
OS/OrdenesServicios.aspx.vb
View File

@@ -498,21 +498,21 @@ Partial Class OS_OrdenesServicios
' LnkTecnico.Visible = True ' LnkTecnico.Visible = True
'End If 'End If
'If TipoEstatus = 3 Then If TipoEstatus = 3 Then
' DisableAll() DisableAll()
' If SeFacturara = "True" Then If SeFacturara = "True" Then
' HplFacturar.Visible = True HplFacturar.Visible = True
' If ObjOS.CveCotizacion > 0 Then If ObjOS.CveCotizacion > 0 Then
' HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", ObjOS.CveCotizacion) HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", ObjOS.CveCotizacion)
' Else Else
' HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveOS={0}", CveOS) HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveOS={0}", CveOS)
' End If End If
' End If End If
'ElseIf TipoEstatus = 4 Then ElseIf TipoEstatus = 4 Then
' DisableAll() DisableAll()
'End If End If
DivCliente.Attributes.Add("class", "col-md-8") DivCliente.Attributes.Add("class", "col-md-8")
DivFolio.Visible = True DivFolio.Visible = True
@@ -2410,6 +2410,7 @@ Partial Class OS_OrdenesServicios
#Region "I M P R I M I R PDF" #Region "I M P R I M I R PDF"
Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
Dim mensajeImprimir As New StringBuilder Dim mensajeImprimir As New StringBuilder
mensajeImprimir.AppendFormat(String.Format("<br/>Descargar Orden de Servicio con Folio: <a class=""Texto"" href='/OS/OrdenesServicios.aspx?CveOS={0}'>{1}</a><br/>", CveOS, CveFolio))
mensajeImprimir.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", CveOS))) mensajeImprimir.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", CveOS)))
Alert(mensajeImprimir.ToString, TipoMensaje.MsgInformacion) Alert(mensajeImprimir.ToString, TipoMensaje.MsgInformacion)
End Sub End Sub

7
Ventas/ActualizarPrecios.aspx
View File

@@ -229,11 +229,11 @@
</div> </div>
</div> </div>
<asp:GridView ID="gvSucursal" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSubProyecto" EmptyDataText="No se encontraron Sucursales" ToolTip="Listado de Sucursales habilitadas para Productos o Servicios" <asp:GridView ID="gvSucursal" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSubProyecto" EmptyDataText="No se encontraron Sucursales" ToolTip="Listado de Sucursales habilitadas para Productos o Servicios"
CssClass="table table-striped table-smallpadding table-advance table-hover Widthall" Style="text-align: center;" GridLines="None"> CssClass="table table-striped table-smallpadding table-advance table-hover Widthall" OnRowDataBound="gvSucursal_RowDataBound" Style="text-align: center;" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>
<asp:CheckBox ID="chkSucursal" runat="server" Checked='<%# Eval("Activo") %>' CssClass="CsMCheckGvSucursal" /> <asp:CheckBox ID="chkSucursal" runat="server" Checked="false" CssClass="CsMCheckGvSucursal" />
<asp:HiddenField ID="hdnEnBD" runat="server" Value='<%# If (IsDBNull(Eval("CvePS")),0,1) %>' /> <asp:HiddenField ID="hdnEnBD" runat="server" Value='<%# If (IsDBNull(Eval("CvePS")),0,1) %>' />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -415,6 +415,9 @@
$('.CsMCheckGvSucursal').find('input[type=checkbox]').prop('checked', false); $('.CsMCheckGvSucursal').find('input[type=checkbox]').prop('checked', false);
} }
} }
function FncSeleccionaChk(chk) {
chk.checked = true;
}

9
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -468,7 +468,12 @@ Partial Class Ventas_ActualizarPrecios
End While End While
Return dataTable Return dataTable
End Function End Function
#End Region #End Region
Protected Sub gvSucursal_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID))
End If
End Sub
End Class End Class