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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2021-12-02 17:50:37 -07:00
parent 6b9dd9db98 b1067f6820
commit adc36b3eca
5 changed files with 24 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/IE.aspx.vb
View File

@@ -4690,7 +4690,7 @@ Partial Class Bancos_IE
'genera nuevo IE contrario 'genera nuevo IE contrario
If Not ErrorCancelar Then If Not ErrorCancelar Then
If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2) <= 0 Then If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
ErrorCancelar = True ErrorCancelar = True
End If End If
End If End If

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -958,7 +958,7 @@ Partial Class PopUpVerFactura
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0) Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
If Dr IsNot Nothing Then If Dr IsNot Nothing Then
SerieFolio = Dr("SerieFolio").ToString SerieFolio = Dr("SerieFolio").ToString
Telefono = Dr("ChrTelefono").ToString Telefono = Dr("Telefono").ToString
End If End If
End If End If
End If End If

6
Inventarios/RepAnomalias.aspx
View File

@@ -271,7 +271,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" /> <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" /> <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
@@ -478,9 +478,9 @@
<asp:CheckBox ID="ChkPSFaltante" runat="server" /> <asp:CheckBox ID="ChkPSFaltante" runat="server" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" /> <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" DataFormatString="&nbsp;{0}" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" /> <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />

23
Inventarios/RepAnomalias.aspx.vb
View File

@@ -87,13 +87,17 @@ Partial Class Inventarios_RepAnomalias
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
GvF.Columns(2).Visible = True 'proveedor GvF.Columns(2).Visible = True 'clasificación
GvS.Columns(2).Visible = True 'proveedor GvS.Columns(2).Visible = True 'clasificación
GvC.Columns(2).Visible = True 'proveedor GvC.Columns(2).Visible = True 'clasificación
GvF.Columns(3).Visible = True 'proveedor
GvS.Columns(3).Visible = True 'proveedor
GvC.Columns(3).Visible = True 'proveedor
GvF.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo GvF.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo
GvS.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo GvS.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo
GvC.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo GvC.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo
GvGrupos.Columns(1).Visible = True 'proveedor GvGrupos.Columns(1).Visible = True 'clasificación
GvGrupos.Columns(2).Visible = True 'proveedor
GvGrupos.Columns(15).Visible = UsuarioActual.Procesos(201) 'costo GvGrupos.Columns(15).Visible = UsuarioActual.Procesos(201) 'costo
End If End If
@@ -223,13 +227,13 @@ Partial Class Inventarios_RepAnomalias
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
GvS.DataSource = dt.FiltraParametros("Diferencia < 0") GvS.DataSource = dt.FiltraParametros("Diferencia > 0")
Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0") Dim DtS As DataTable = dt.FiltraParametros("Diferencia > 0")
BanderaSerieLoteCad(GvS, DtS) BanderaSerieLoteCad(GvS, DtS)
GvS.DataBind() GvS.DataBind()
GvF.DataSource = dt.FiltraParametros("Diferencia > 0") GvF.DataSource = dt.FiltraParametros("Diferencia < 0")
Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0") Dim DtF As DataTable = dt.FiltraParametros("Diferencia < 0")
BanderaSerieLoteCad(GvF, DtF) BanderaSerieLoteCad(GvF, DtF)
GvF.DataBind() GvF.DataBind()
@@ -862,7 +866,7 @@ Partial Class Inventarios_RepAnomalias
RangoDatosFiltro.Merged = True RangoDatosFiltro.Merged = True
RangoDatosFiltro.Style.WrapText = True RangoDatosFiltro.Style.WrapText = True
RangoDatosFiltro.Value = TextoFiltro RangoDatosFiltro.Value = TextoFiltro
RangoDatosFiltro.Style.Font.Size = 12 * 20 RangoDatosFiltro.Style.Font.Size = 11 * 20
RangoDatosFiltro.Style.Font.Name = "Calibri Light" RangoDatosFiltro.Style.Font.Name = "Calibri Light"
RangoDatosFiltro.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left RangoDatosFiltro.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
RangoDatosFiltro.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center RangoDatosFiltro.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
@@ -920,7 +924,6 @@ Partial Class Inventarios_RepAnomalias
'Else 'Else
' worksheet.Columns(I + 1).Style.NumberFormat = "#,##" ' worksheet.Columns(I + 1).Style.NumberFormat = "#,##"
'End If 'End If
worksheet.Columns(I + 1).Style.NumberFormat = "@" worksheet.Columns(I + 1).Style.NumberFormat = "@"
Try Try

8
Ventas/Ventas.aspx.vb
View File

@@ -21854,7 +21854,7 @@ Partial Class Ventas
Dim tDT As DataTable = Nothing Dim tDT As DataTable = Nothing
Dim ObjOC As New ClsOC Dim ObjOC As New ClsOC
If ObjOC.GetOCFacturacion(CveOC, UsuarioActual.CveEmpresa) Then If ObjOC.GetOCFacturacion(CveOC, UsuarioActual.CveEmpresa) Then
tDT = ObjOC.DtResultados tDT = ObjOC.DtResultados.Copy()
'tTmpDT.Columns.Add("TipoDocto", GetType(String)) 'tTmpDT.Columns.Add("TipoDocto", GetType(String))
'tTmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) 'tTmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
'tTmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal)) 'tTmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
@@ -21867,10 +21867,14 @@ Partial Class Ventas
If tDT IsNot Nothing AndAlso tDT.Rows.Count > 0 Then If tDT IsNot Nothing AndAlso tDT.Rows.Count > 0 Then
ViewState("CveCliente") = ObjOC.DtResultados.Rows(0)("CveCliente") ViewState("CveCliente") = tDT.Rows(0)("CveCliente")
HdnCveCliente.Value = CveCliente.ToString() HdnCveCliente.Value = CveCliente.ToString()
CargaCliente(CveCliente) CargaCliente(CveCliente)
If (DdlTipoComprobante.Items.FindByValue("Rem") IsNot Nothing) Then
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
End If
For Each Dr As DataRow In tDT.Rows For Each Dr As DataRow In tDT.Rows
AgregarProductoServicio(Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(), AgregarProductoServicio(Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(),