Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
rrene
@@ -890,6 +890,7 @@ Partial Class PopUpVerFactura
|
||||
Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
|
||||
Vta.RefDocto = dtVentas(0)("Ref").ToString
|
||||
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
|
||||
Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
|
||||
Vta.Version = dtVentas(0)("Version").ToString
|
||||
|
||||
Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString
|
||||
@@ -2991,34 +2992,24 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
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
|
||||
|
||||
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
|
||||
Private Sub CreaDT()
|
||||
TmpDTOS = New DataTable
|
||||
|
||||
@@ -83,9 +83,9 @@
|
||||
</style>
|
||||
</asp:Content>
|
||||
<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>
|
||||
</li>
|
||||
</li>--%>
|
||||
<li>
|
||||
<asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
|
||||
</li>
|
||||
@@ -141,18 +141,17 @@
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="True" EmptyDataText="No se encontró información"
|
||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
|
||||
data-sort="true" Style="text-align: center;" GridLines="None" ShowHeader="true" DataKeyNames="CvePS">
|
||||
<asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True"
|
||||
ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<%-- <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
|
||||
<%-- <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="HplREQ" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</asp:TemplateField>--%>
|
||||
|
||||
<asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
|
||||
<%-- <asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="HplOC" runat="server" Text='<%# Eval("UltCompra", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
@@ -163,11 +162,10 @@
|
||||
<asp:Literal ID="HplOC2" runat="server" Text='<%# Eval("PrecioLista", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>--%>
|
||||
|
||||
</Columns>
|
||||
<HeaderStyle CssClass="Titulos" />
|
||||
<%-- <HeaderStyle CssClass="Titulos" />
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />--%>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
@@ -22,7 +22,7 @@ Partial Class RepComprasPrecios
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaProveedor()
|
||||
CargaDatos()
|
||||
'CargaDatos()
|
||||
End If
|
||||
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
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
'GvDatos.Columns(1).ItemStyle.Width = New Unit("500px")
|
||||
|
||||
GvDatos.HeaderRow.Cells(0).Visible = False
|
||||
e.Row.Cells(0).Visible = False
|
||||
|
||||
@@ -70,15 +72,6 @@ Partial Class RepComprasPrecios
|
||||
End If
|
||||
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} Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
|
||||
'End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
@@ -93,41 +86,36 @@ Partial Class RepComprasPrecios
|
||||
#End Region
|
||||
|
||||
#Region "IMPRESION"
|
||||
Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
|
||||
Imprime("PDF")
|
||||
End Sub
|
||||
'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
|
||||
' Imprime("PDF")
|
||||
'End Sub
|
||||
Private Sub Imprime(Formato As String)
|
||||
'If DtInventarios IsNot Nothing Then
|
||||
' Dim StrFiltro As New StringBuilder
|
||||
' If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString)
|
||||
' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" <b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString)
|
||||
If DtCompras IsNot Nothing Then
|
||||
Dim StrFiltro As New StringBuilder
|
||||
If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedItem.Text)
|
||||
GvDatos.ExportToExcelG("RepComprasPrecios.xlsx", "Reporte de Precios de Compras", UsuarioActual, StrFiltro.ToString, 100, 200)
|
||||
|
||||
' If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text)
|
||||
' If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
|
||||
' If ChkRecibido.Checked Then StrFiltro.AppendFormat(" <b>Recibidos: </b>Si") Else StrFiltro.AppendFormat(" <b>Recibidos: </b>No")
|
||||
'Dim StrFiltro As New StringBuilder
|
||||
|
||||
' 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)
|
||||
'If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" <b>Proveedor:</b> {0}", DdlProveedor.SelectedItem.Text)
|
||||
|
||||
' Dim FechaI, FechaF As String
|
||||
' FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
|
||||
' FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
|
||||
'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("FechaInicio", FechaI))
|
||||
' params.Add(New ReportParameter("FechaFin", FechaF))
|
||||
' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
' params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
|
||||
' If Imagen.Exists Then
|
||||
' params.Add(New ReportParameter("LogoPath", logouri))
|
||||
' Else
|
||||
' params.Add(New ReportParameter("LogoPath", ""))
|
||||
' End If
|
||||
' ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato)
|
||||
'Else
|
||||
' Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||
'End If
|
||||
|
||||
'Dim params As New List(Of ReportParameter)
|
||||
'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
'params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
|
||||
'If Imagen.Exists Then
|
||||
' params.Add(New ReportParameter("LogoPath", logouri))
|
||||
'Else
|
||||
' params.Add(New ReportParameter("LogoPath", ""))
|
||||
'End If
|
||||
'ImprimirPDF("Empresas/Grales/Formatos/RepComprasPrecios.rdlc", DtCompras, params, String.Format("RepComprasPrecios-{0}", Now.ToDateTime.ToShortDateString), Formato)
|
||||
Else
|
||||
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
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
|
||||
Imprime("Excel")
|
||||
End Sub
|
||||
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -1819,15 +1819,19 @@ Partial Class RegPoliza
|
||||
|
||||
Dim Referencia As String = Row("Referencia").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 = ""
|
||||
If DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta & "'") IsNot Nothing Then
|
||||
CveCuenta = DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta & "'")("Id").ToString
|
||||
If DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta2 & "'") IsNot Nothing Then
|
||||
CveCuenta = DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta2 & "'")("Id").ToString
|
||||
End If
|
||||
|
||||
Dim SegNeg As String = Row("SegNeg").ToString
|
||||
Dim SegNeg2 = AgregaComilla(SegNeg) 'Agregar otra comilla simple adicional cuando contenga una
|
||||
|
||||
Dim IdSegNeg As String = ""
|
||||
If DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg & "'") IsNot Nothing Then
|
||||
IdSegNeg = DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg & "'")("Id").ToString
|
||||
If DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg2 & "'") IsNot Nothing Then
|
||||
IdSegNeg = DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg2 & "'")("Id").ToString
|
||||
End If
|
||||
|
||||
Dim Concepto As String = Row("Nombre/Concepto").ToString
|
||||
@@ -1884,4 +1888,18 @@ Partial Class RegPoliza
|
||||
DescargarFormato()
|
||||
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
|
||||
|
||||
3047
Empresas/140/Formatos/Cotizacion.rdlc
Normal file
3047
Empresas/140/Formatos/Cotizacion.rdlc
Normal file
File diff suppressed because it is too large
Load Diff
4785
Empresas/140/Formatos/Factura.rdlc
Normal file
4785
Empresas/140/Formatos/Factura.rdlc
Normal file
File diff suppressed because it is too large
Load Diff
2955
Empresas/140/Formatos/Remision.rdlc
Normal file
2955
Empresas/140/Formatos/Remision.rdlc
Normal file
File diff suppressed because it is too large
Load Diff
@@ -23,7 +23,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>3.63358cm</Top>
|
||||
<Left>0.07cm</Left>
|
||||
<Left>0.11767cm</Left>
|
||||
<Height>0.47364cm</Height>
|
||||
<Width>18.64497cm</Width>
|
||||
<Style>
|
||||
@@ -78,7 +78,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>0.5338cm</Top>
|
||||
<Left>8.84441cm</Left>
|
||||
<Left>8.89208cm</Left>
|
||||
<Height>0.47364cm</Height>
|
||||
<Width>4.43083cm</Width>
|
||||
<ZIndex>1</ZIndex>
|
||||
@@ -134,7 +134,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>6.93966cm</Top>
|
||||
<Left>0.07344cm</Left>
|
||||
<Left>0.12111cm</Left>
|
||||
<Height>0.48cm</Height>
|
||||
<Width>18.65153cm</Width>
|
||||
<ZIndex>2</ZIndex>
|
||||
@@ -190,7 +190,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>2.08369cm</Top>
|
||||
<Left>8.84441cm</Left>
|
||||
<Left>8.89208cm</Left>
|
||||
<Height>0.47364cm</Height>
|
||||
<Width>4.43083cm</Width>
|
||||
<ZIndex>3</ZIndex>
|
||||
@@ -246,7 +246,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>0.5338cm</Top>
|
||||
<Left>13.45163cm</Left>
|
||||
<Left>13.4993cm</Left>
|
||||
<Height>0.47364cm</Height>
|
||||
<Width>5.24334cm</Width>
|
||||
<ZIndex>4</ZIndex>
|
||||
@@ -302,7 +302,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>1.00743cm</Top>
|
||||
<Left>13.45163cm</Left>
|
||||
<Left>13.4993cm</Left>
|
||||
<Height>0.97042cm</Height>
|
||||
<Width>5.26334cm</Width>
|
||||
<ZIndex>5</ZIndex>
|
||||
@@ -358,7 +358,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>2.62788cm</Top>
|
||||
<Left>13.45163cm</Left>
|
||||
<Left>13.4993cm</Left>
|
||||
<Height>0.89986cm</Height>
|
||||
<Width>5.26334cm</Width>
|
||||
<ZIndex>6</ZIndex>
|
||||
@@ -414,7 +414,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>2.15424cm</Top>
|
||||
<Left>13.45163cm</Left>
|
||||
<Left>13.4993cm</Left>
|
||||
<Height>0.47364cm</Height>
|
||||
<Width>5.25334cm</Width>
|
||||
<ZIndex>7</ZIndex>
|
||||
@@ -454,7 +454,7 @@
|
||||
<Value>Logo1</Value>
|
||||
<Sizing>FitProportional</Sizing>
|
||||
<Top>0.1546in</Top>
|
||||
<Left>0.07918in</Left>
|
||||
<Left>0.09795in</Left>
|
||||
<Height>1.2065in</Height>
|
||||
<Width>1.21875in</Width>
|
||||
<ZIndex>8</ZIndex>
|
||||
@@ -503,7 +503,7 @@
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>1.00743cm</Top>
|
||||
<Left>3.29673cm</Left>
|
||||
<Left>3.3444cm</Left>
|
||||
<Height>2.52032cm</Height>
|
||||
<Width>5.37129cm</Width>
|
||||
<ZIndex>9</ZIndex>
|
||||
@@ -560,8 +560,8 @@
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>9.69619cm</Top>
|
||||
<Left>0.07cm</Left>
|
||||
<Top>10.0666cm</Top>
|
||||
<Left>0.13112cm</Left>
|
||||
<Height>0.44775cm</Height>
|
||||
<Width>18.65497cm</Width>
|
||||
<ZIndex>10</ZIndex>
|
||||
@@ -616,8 +616,8 @@
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>13.43126cm</Top>
|
||||
<Left>0.07cm</Left>
|
||||
<Top>13.97806cm</Top>
|
||||
<Left>0.13112cm</Left>
|
||||
<Height>0.99688cm</Height>
|
||||
<Width>18.64497cm</Width>
|
||||
<ZIndex>11</ZIndex>
|
||||
@@ -672,8 +672,8 @@
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>12.95762cm</Top>
|
||||
<Left>0.07cm</Left>
|
||||
<Top>13.39858cm</Top>
|
||||
<Left>0.13112cm</Left>
|
||||
<Height>0.47364cm</Height>
|
||||
<Width>18.64497cm</Width>
|
||||
<ZIndex>12</ZIndex>
|
||||
@@ -744,8 +744,8 @@
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>15.56836cm</Top>
|
||||
<Left>0.20112cm</Left>
|
||||
<Top>16.28274cm</Top>
|
||||
<Left>0.13112cm</Left>
|
||||
<Height>0.89754cm</Height>
|
||||
<Width>6.17587cm</Width>
|
||||
<ZIndex>13</ZIndex>
|
||||
@@ -816,8 +816,8 @@
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>15.56836cm</Top>
|
||||
<Left>6.67991cm</Left>
|
||||
<Top>16.28274cm</Top>
|
||||
<Left>6.48338cm</Left>
|
||||
<Height>0.89754cm</Height>
|
||||
<Width>6.17587cm</Width>
|
||||
<ZIndex>14</ZIndex>
|
||||
@@ -873,10 +873,10 @@
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>15.56836cm</Top>
|
||||
<Left>13.29827cm</Left>
|
||||
<Top>16.28274cm</Top>
|
||||
<Left>12.96369cm</Left>
|
||||
<Height>0.89754cm</Height>
|
||||
<Width>5.28334cm</Width>
|
||||
<Width>5.54792cm</Width>
|
||||
<ZIndex>15</ZIndex>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -929,8 +929,8 @@
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>16.4659cm</Top>
|
||||
<Left>0.20112cm</Left>
|
||||
<Top>17.68299cm</Top>
|
||||
<Left>0.13112cm</Left>
|
||||
<Height>0.47421cm</Height>
|
||||
<Width>18.64497cm</Width>
|
||||
<ZIndex>16</ZIndex>
|
||||
@@ -999,8 +999,8 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox165</rd:DefaultName>
|
||||
<Top>16.94011cm</Top>
|
||||
<Left>0.20112cm</Left>
|
||||
<Top>18.58053cm</Top>
|
||||
<Left>0.13112cm</Left>
|
||||
<Height>7.1417cm</Height>
|
||||
<Width>17.72549cm</Width>
|
||||
<ZIndex>17</ZIndex>
|
||||
@@ -1052,8 +1052,8 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Copia</rd:DefaultName>
|
||||
<Top>24.08181cm</Top>
|
||||
<Left>0.20112cm</Left>
|
||||
<Top>25.72223cm</Top>
|
||||
<Left>0.13112cm</Left>
|
||||
<Height>0.6cm</Height>
|
||||
<Width>18.38049cm</Width>
|
||||
<ZIndex>18</ZIndex>
|
||||
@@ -1466,8 +1466,8 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
|
||||
</TablixRowHierarchy>
|
||||
<DataSetName>DataSet1</DataSetName>
|
||||
<Top>4.10722cm</Top>
|
||||
<Left>0.07cm</Left>
|
||||
<Height>2.26772cm</Height>
|
||||
<Left>0.11767cm</Left>
|
||||
<Height>2.26771cm</Height>
|
||||
<Width>18.62496cm</Width>
|
||||
<ZIndex>19</ZIndex>
|
||||
<Style>
|
||||
@@ -1525,7 +1525,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox21</rd:DefaultName>
|
||||
<Top>6.37494cm</Top>
|
||||
<Left>0.07cm</Left>
|
||||
<Left>0.11767cm</Left>
|
||||
<Height>0.49417cm</Height>
|
||||
<Width>18.64497cm</Width>
|
||||
<ZIndex>20</ZIndex>
|
||||
@@ -1712,7 +1712,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
|
||||
</TablixRowHierarchy>
|
||||
<DataSetName>DataSet1</DataSetName>
|
||||
<Top>1.00743cm</Top>
|
||||
<Left>8.84441cm</Left>
|
||||
<Left>8.89208cm</Left>
|
||||
<Height>0.97042cm</Height>
|
||||
<Width>4.43082cm</Width>
|
||||
<ZIndex>21</ZIndex>
|
||||
@@ -1895,7 +1895,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
|
||||
</TablixRowHierarchy>
|
||||
<DataSetName>DataSet1</DataSetName>
|
||||
<Top>2.55733cm</Top>
|
||||
<Left>8.84441cm</Left>
|
||||
<Left>8.89208cm</Left>
|
||||
<Height>0.97042cm</Height>
|
||||
<Width>4.43082cm</Width>
|
||||
<ZIndex>22</ZIndex>
|
||||
@@ -2106,9 +2106,9 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
|
||||
</TablixRowHierarchy>
|
||||
<DataSetName>DataSet1</DataSetName>
|
||||
<Top>7.41966cm</Top>
|
||||
<Left>0.07344cm</Left>
|
||||
<Height>1.09417cm</Height>
|
||||
<Width>18.65497cm</Width>
|
||||
<Left>0.12111cm</Left>
|
||||
<Height>1.09416cm</Height>
|
||||
<Width>18.65498cm</Width>
|
||||
<ZIndex>23</ZIndex>
|
||||
<Style>
|
||||
<Border>
|
||||
@@ -2117,113 +2117,6 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
|
||||
<FontSize>9pt</FontSize>
|
||||
</Style>
|
||||
</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">
|
||||
<CanGrow>true</CanGrow>
|
||||
<KeepTogether>true</KeepTogether>
|
||||
@@ -2318,11 +2211,11 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox32</rd:DefaultName>
|
||||
<Top>10.32033cm</Top>
|
||||
<Left>0.20112cm</Left>
|
||||
<Top>10.5849cm</Top>
|
||||
<Left>0.13112cm</Left>
|
||||
<Height>2.63729cm</Height>
|
||||
<Width>3.53804cm</Width>
|
||||
<ZIndex>25</ZIndex>
|
||||
<ZIndex>24</ZIndex>
|
||||
<Style>
|
||||
<Border />
|
||||
<PaddingLeft>2pt</PaddingLeft>
|
||||
@@ -2331,11 +2224,315 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
|
||||
<PaddingBottom>2pt</PaddingBottom>
|
||||
</Style>
|
||||
</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>
|
||||
<Height>9.8435in</Height>
|
||||
<Height>10.79142in</Height>
|
||||
<Style />
|
||||
</Body>
|
||||
<Width>7.48268in</Width>
|
||||
<Width>7.54841in</Width>
|
||||
<Page>
|
||||
<PageHeight>27.94cm</PageHeight>
|
||||
<PageWidth>21.59cm</PageWidth>
|
||||
|
||||
@@ -1628,7 +1628,7 @@ Partial Class Inventarios_RecepcionEntrega
|
||||
'Exit Sub
|
||||
|
||||
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
|
||||
TieneErrorExistencia = True
|
||||
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
|
||||
@@ -2520,7 +2520,7 @@ Partial Class Inventarios_RecepcionEntrega
|
||||
StrXML.Append("</conceptos>")
|
||||
|
||||
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
|
||||
TieneErrorExistencia = True
|
||||
For Each Dr As DataRow In ObjInventario.DtResultados.Rows
|
||||
|
||||
File diff suppressed because one or more lines are too long
81
OC/OC.aspx
81
OC/OC.aspx
@@ -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>
|
||||
<asp:TemplateField>
|
||||
<EditItemTemplate>
|
||||
@@ -1192,26 +1193,21 @@
|
||||
|
||||
<ajax:TabPanel HeaderText="Cotizaciones" runat="server" ID="tabCotizaciones" Enabled="false">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
</div>
|
||||
<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> Cargar Cotización"></asp:HyperLink>
|
||||
|
||||
<asp:HyperLink ID="hplAgregarCotizacion" Font-Size="13" CssClass="Texto thickbox" runat="server" Text="<i class='fa fa-plus'></i> Agregar Cotizacion" Style="cursor: pointer;" ToolTip="Agregar Cotizacion"></asp:HyperLink>
|
||||
|
||||
|
||||
|
||||
<asp:HyperLink ID="hplEnviarCorreo" Font-Size="13" CssClass="Texto thickbox" runat="server" Text="<i class='fa fa-envelope'></i> Enviar cotización por correo" Style="cursor: pointer;" ToolTip="Enviar cotización por correo"></asp:HyperLink>
|
||||
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<asp:UpdatePanel ID="uppCotizaciones" runat="server" UpdateMode="Conditional">
|
||||
<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">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
@@ -1366,11 +1362,8 @@
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel HeaderText="Almacen" runat="server" ID="TabAlmacen" Visible="false">
|
||||
<ContentTemplate>
|
||||
<asp:UpdatePanel ID="UpAlmacen" UpdateMode="Conditional" runat="server">
|
||||
@@ -2548,15 +2541,63 @@
|
||||
</asp:UpdatePanel>
|
||||
</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">×</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>
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="server">
|
||||
<script src="/Metronic/assets/global/plugins/jquery.pulsate.min.js"></script>
|
||||
|
||||
190
OC/OC.aspx.vb
190
OC/OC.aspx.vb
@@ -1,5 +1,4 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
@@ -176,7 +175,7 @@ Partial Class OC
|
||||
End Property
|
||||
Private Property NumCotizacionesEvaluar As Integer
|
||||
Get
|
||||
NumCotizacionesEvaluar = IfNull(ViewState("NumCotizacionesEvaluar"), "-1", ViewState("NumCotizacionesEvaluar")).ToString().ToEntero()
|
||||
NumCotizacionesEvaluar = IfNull(ViewState("NumCotizacionesEvaluar"), "0", ViewState("NumCotizacionesEvaluar")).ToString().ToEntero()
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
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
|
||||
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
|
||||
LblMsgEstatus.Visible = True
|
||||
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 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
|
||||
LblMsgEstatus.Visible = True
|
||||
LblMsgEstatus.Text = "Cotización requerida para avanzar"
|
||||
@@ -1745,6 +1744,11 @@ Partial Class OC
|
||||
DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
|
||||
DdlProveedores.DataBind()
|
||||
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()
|
||||
End Sub
|
||||
|
||||
@@ -2766,9 +2770,9 @@ Partial Class OC
|
||||
If UsuarioActual.Empresa.Funcionalidad(565) = "1" 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)
|
||||
ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizaciones >= 2 Then
|
||||
ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizacionesEvaluar >= 2 Then
|
||||
TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
|
||||
Else
|
||||
TieneError = True
|
||||
@@ -2878,7 +2882,7 @@ Partial Class OC
|
||||
Promocion = TxtPromocion.Text.Trim
|
||||
|
||||
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 TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0, Porcentaje = 0.0
|
||||
Dim IdPoliza = -1
|
||||
@@ -2932,6 +2936,7 @@ Partial Class OC
|
||||
HuboError = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'AGREGA DETALLES
|
||||
@@ -4174,7 +4179,7 @@ Partial Class OC
|
||||
' uppOpciones.Update()
|
||||
'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
|
||||
LblMsgEstatus.Visible = True
|
||||
LblMsgEstatus.Text = "Cotización requerida para avanzar"
|
||||
@@ -7307,4 +7312,173 @@ Partial Class OC
|
||||
|
||||
#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
|
||||
|
||||
@@ -498,21 +498,21 @@ Partial Class OS_OrdenesServicios
|
||||
' LnkTecnico.Visible = True
|
||||
'End If
|
||||
|
||||
'If TipoEstatus = 3 Then
|
||||
' DisableAll()
|
||||
If TipoEstatus = 3 Then
|
||||
DisableAll()
|
||||
|
||||
' If SeFacturara = "True" Then
|
||||
' HplFacturar.Visible = True
|
||||
' If ObjOS.CveCotizacion > 0 Then
|
||||
' HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", ObjOS.CveCotizacion)
|
||||
' Else
|
||||
' HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveOS={0}", CveOS)
|
||||
' End If
|
||||
' End If
|
||||
If SeFacturara = "True" Then
|
||||
HplFacturar.Visible = True
|
||||
If ObjOS.CveCotizacion > 0 Then
|
||||
HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", ObjOS.CveCotizacion)
|
||||
Else
|
||||
HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveOS={0}", CveOS)
|
||||
End If
|
||||
End If
|
||||
|
||||
'ElseIf TipoEstatus = 4 Then
|
||||
' DisableAll()
|
||||
'End If
|
||||
ElseIf TipoEstatus = 4 Then
|
||||
DisableAll()
|
||||
End If
|
||||
|
||||
DivCliente.Attributes.Add("class", "col-md-8")
|
||||
DivFolio.Visible = True
|
||||
@@ -2410,6 +2410,7 @@ Partial Class OS_OrdenesServicios
|
||||
#Region "I M P R I M I R PDF"
|
||||
Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
|
||||
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)))
|
||||
Alert(mensajeImprimir.ToString, TipoMensaje.MsgInformacion)
|
||||
End Sub
|
||||
|
||||
@@ -229,11 +229,11 @@
|
||||
</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"
|
||||
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>
|
||||
<asp:TemplateField>
|
||||
<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) %>' />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
@@ -415,6 +415,9 @@
|
||||
$('.CsMCheckGvSucursal').find('input[type=checkbox]').prop('checked', false);
|
||||
}
|
||||
}
|
||||
function FncSeleccionaChk(chk) {
|
||||
chk.checked = true;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -468,7 +468,12 @@ Partial Class Ventas_ActualizarPrecios
|
||||
End While
|
||||
|
||||
Return dataTable
|
||||
End Function
|
||||
End Function
|
||||
#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
|
||||
Reference in New Issue
Block a user