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:
RPimienta
2022-03-22 19:06:07 -07:00
parent 123c85ec1c 2f2d8093fd
commit 32899257b6
17 changed files with 716 additions and 224 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
App_Code/ClsClientes.vb
View File

@@ -32,6 +32,7 @@ Public Class ClsClientes
Public Property CveCliente As Integer Public Property CveCliente As Integer
Public Property Nombre As String Public Property Nombre As String
Public Property RegimenSociedad As String
Public Property NombreComercial As String Public Property NombreComercial As String
Public Property Direccion As String Public Property Direccion As String
Public Property NoExt As String Public Property NoExt As String
@@ -289,6 +290,7 @@ Public Class ClsClientes
If Data.Rows.Count > 0 Then If Data.Rows.Count > 0 Then
_CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero _CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero
_Nombre = Data.Rows(0)("Nombre").ToString _Nombre = Data.Rows(0)("Nombre").ToString
_RegimenSociedad = Data.Rows(0)("RegimenSociedad").ToString
_NombreComercial = Data.Rows(0)("NombreComercial").ToString _NombreComercial = Data.Rows(0)("NombreComercial").ToString
_Codigo = Data.Rows(0)("Codigo").ToString _Codigo = Data.Rows(0)("Codigo").ToString
_Direccion = Data.Rows(0)("Direccion").ToString _Direccion = Data.Rows(0)("Direccion").ToString
@@ -576,7 +578,7 @@ Public Class ClsClientes
Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False, Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0) As Boolean Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -719,6 +721,9 @@ Public Class ClsClientes
.Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
.Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -766,7 +771,7 @@ Public Class ClsClientes
Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0) As Boolean Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -925,6 +930,8 @@ Public Class ClsClientes
.Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
.Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

18
App_Code/Timbres.vb
View File

@@ -124,6 +124,8 @@ Public Class Timbres
Timbre.Receptor.RFC = drT("DestinatarioRFC").ToString Timbre.Receptor.RFC = drT("DestinatarioRFC").ToString
Timbre.Receptor.Nombre = drT("DestinatarioNombre").ToString Timbre.Receptor.Nombre = drT("DestinatarioNombre").ToString
Timbre.Receptor.DomicilioFiscalReceptor = drT("DirDesCP").ToString
Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString
CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero
FechaSalida = drT("FechaEntrega").ToString.ToDateTime FechaSalida = drT("FechaEntrega").ToString.ToDateTime
@@ -182,18 +184,6 @@ Public Class Timbres
CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2)
End If End If
If drT("ClaveTipoRemolque1").ToString <> "" Then
Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")}
CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1)
End If
If drT("ClaveTipoRemolque2").ToString <> "" Then
Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")}
CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2)
End If
Dim DomOrigen As CFDICartaPorteDomicilio = Nothing Dim DomOrigen As CFDICartaPorteDomicilio = Nothing
DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString, DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString,
.Colonia = drT("DirOriClaveSATColonia").ToString, .Colonia = drT("DirOriClaveSATColonia").ToString,
@@ -283,7 +273,7 @@ Public Class Timbres
.ClaveUnidad = drr("SATClaveUM").ToString, .ClaveUnidad = drr("SATClaveUM").ToString,
.Unidad = drr("UM").ToString, .Unidad = drr("UM").ToString,
.Dimensiones = drr("Dimensiones").ToString, .Dimensiones = drr("Dimensiones").ToString,
.PesoenKg = drr("PesoKg").ToString.ToDecimal, .PesoenKg = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal,
.MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""), .MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""),
.ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString, .ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
.Embalaje = drr("ClaveEmbalaje").ToString, .Embalaje = drr("ClaveEmbalaje").ToString,
@@ -294,7 +284,7 @@ Public Class Timbres
.UUIDComercioExt = "" .UUIDComercioExt = ""
} }
Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal} Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal}
conceptoCarta.DetalleMercancia = DetalleMercancia conceptoCarta.DetalleMercancia = DetalleMercancia
Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"} Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"}

18
Bancos/FluctuacionCambiaria.aspx
View File

@@ -240,7 +240,8 @@
<div class="col-md-2" style="text-align: right!important"> <div class="col-md-2" style="text-align: right!important">
<asp:Button Text="Generar Proveedores" runat="server" ID="BtnGeneraCompras" Visible="false" OnClick="BtnGeneraCompras_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarCompras" /> <asp:Button Text="Generar Proveedores" runat="server" ID="BtnGeneraCompras" Visible="false" OnClick="BtnGeneraCompras_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarCompras" />
<asp:HiddenField ID="HdnProveedorCvePrePoliza" runat="server" /> <asp:HiddenField ID="HdnProveedorCvePrePoliza" runat="server" />
<asp:Button ID="BtnProveedoresRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnProveedoresRemove_Click" class="btn btn-primary" /></div> <asp:HyperLink ID="HplProveedorLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
<asp:Button ID="BtnProveedoresRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnProveedoresRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" /></div>
</div> </div>
<br /> <br />
<asp:GridView ID="GvProveedores" Width="99%" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvProveedores" Width="99%" runat="server" AutoGenerateColumns="False"
@@ -341,7 +342,8 @@
<div class="col-md-2" style="text-align: right!important"> <div class="col-md-2" style="text-align: right!important">
<asp:Button Text="Generar Proveedores Ant" runat="server" ID="BtnGeneraComprasAnt" Visible="false" OnClick="BtnGeneraComprasAnt_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarComprasAnt" /> <asp:Button Text="Generar Proveedores Ant" runat="server" ID="BtnGeneraComprasAnt" Visible="false" OnClick="BtnGeneraComprasAnt_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarComprasAnt" />
<asp:HiddenField ID="HdnProveedorAntCvePrePoliza" runat="server" /> <asp:HiddenField ID="HdnProveedorAntCvePrePoliza" runat="server" />
<asp:Button ID="BtnProveedoresAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnProveedoresAntRemove_Click" class="btn btn-primary" /></div> <asp:HyperLink ID="HplProveedorAntLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
<asp:Button ID="BtnProveedoresAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnProveedoresAntRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" /></div>
</div> </div>
<br /> <br />
<asp:GridView ID="GvProveedoresAnt" Width="99%" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvProveedoresAnt" Width="99%" runat="server" AutoGenerateColumns="False"
@@ -448,7 +450,8 @@
<div class="col-md-3" style="text-align: right!important"> <div class="col-md-3" style="text-align: right!important">
<asp:Button Text="Generar Ventas" runat="server" ID="BtnGeneraVentas" Visible="false" OnClick="BtnGeneraVentas_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentas" /> <asp:Button Text="Generar Ventas" runat="server" ID="BtnGeneraVentas" Visible="false" OnClick="BtnGeneraVentas_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentas" />
<asp:HiddenField ID="HdnClienteCvePrePoliza" runat="server" /> <asp:HiddenField ID="HdnClienteCvePrePoliza" runat="server" />
<asp:Button ID="BtnClientesRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnClientesRemove_Click" class="btn btn-primary" /></div> <asp:HyperLink ID="HplClientesLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
<asp:Button ID="BtnClientesRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnClientesRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" /></div>
</div> </div>
@@ -558,7 +561,8 @@
<div class="col-md-3" style="text-align: right!important"> <div class="col-md-3" style="text-align: right!important">
<asp:Button Text="Generar Clientes Anticipos" runat="server" ID="BtnClientesAnticipos" Visible="false" OnClick="BtnClientesAnticipos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentasAnt" /> <asp:Button Text="Generar Clientes Anticipos" runat="server" ID="BtnClientesAnticipos" Visible="false" OnClick="BtnClientesAnticipos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentasAnt" />
<asp:HiddenField ID="HdnClienteAntCvePrePoliza" runat="server" /> <asp:HiddenField ID="HdnClienteAntCvePrePoliza" runat="server" />
<asp:Button ID="BtnClientesAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnClientesAntRemove_Click" class="btn btn-primary" /></div> <asp:HyperLink ID="HplClientesAntLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
<asp:Button ID="BtnClientesAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnClientesAntRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" /></div>
</div> </div>
@@ -610,7 +614,8 @@
<div class="col-md-3" style="text-align: right!important"> <div class="col-md-3" style="text-align: right!important">
<asp:Button Text="Generar Acreedores" runat="server" ID="BtnGeneraAcreedores" Visible="false" OnClick="BtnGeneraAcreedores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedores" /> <asp:Button Text="Generar Acreedores" runat="server" ID="BtnGeneraAcreedores" Visible="false" OnClick="BtnGeneraAcreedores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedores" />
<asp:HiddenField ID="HdnAcreedorCvePrePoliza" runat="server" /> <asp:HiddenField ID="HdnAcreedorCvePrePoliza" runat="server" />
<asp:Button ID="BtnAcreedoresRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresRemove_Click" class="btn btn-primary" /> <asp:HyperLink ID="HplAcreedorLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
<asp:Button ID="BtnAcreedoresRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" />
</div> </div>
</div> </div>
@@ -659,7 +664,8 @@
<div class="col-md-3" style="text-align: right!important"> <div class="col-md-3" style="text-align: right!important">
<asp:Button Text="Generar Acreedores Ant" runat="server" ID="BtnGeneraAcreedoresAnt" Visible="false" OnClick="BtnGeneraAcreedoresAnt_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedoresAnt" /> <asp:Button Text="Generar Acreedores Ant" runat="server" ID="BtnGeneraAcreedoresAnt" Visible="false" OnClick="BtnGeneraAcreedoresAnt_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedoresAnt" />
<asp:HiddenField ID="HdnAcreedorAntCvePrePoliza" runat="server" /> <asp:HiddenField ID="HdnAcreedorAntCvePrePoliza" runat="server" />
<asp:Button ID="BtnAcreedoresAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresAntRemove_Click" class="btn btn-primary" /> <asp:HyperLink ID="HplAcreedorAntLiga" runat="server" Text="Ver Póliza" CssClass="Texto" Visible="false" />
<asp:Button ID="BtnAcreedoresAntRemove" runat="server" Text="Eliminar" Visible="false" OnClick="BtnAcreedoresAntRemove_Click" class="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="Está seguro de eliminar?" data-btn-ok-label="si" />
</div> </div>
</div> </div>

16
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -126,6 +126,9 @@ Partial Class Bancos_FluctuacionCambiaria
Dim Final As Double = GanaciaAux - PerdidaAux Dim Final As Double = GanaciaAux - PerdidaAux
HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
HplProveedorLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
HplProveedorLiga.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0
BtnProveedoresRemove.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0 BtnProveedoresRemove.Visible = HdnProveedorCvePrePoliza.Value.ToEntero > 0
BtnGeneraCompras.Visible = Not HdnProveedorCvePrePoliza.Value.ToEntero > 0 BtnGeneraCompras.Visible = Not HdnProveedorCvePrePoliza.Value.ToEntero > 0
@@ -165,6 +168,8 @@ Partial Class Bancos_FluctuacionCambiaria
HdnProveedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnProveedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
BtnProveedoresAntRemove.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0 BtnProveedoresAntRemove.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0
HplProveedorAntLiga.Visible = HdnProveedorAntCvePrePoliza.Value.ToEntero > 0
HplProveedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
BtnGeneraComprasAnt.Visible = Not HdnProveedorAntCvePrePoliza.Value.ToEntero > 0 BtnGeneraComprasAnt.Visible = Not HdnProveedorAntCvePrePoliza.Value.ToEntero > 0
IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd") IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
@@ -200,6 +205,9 @@ Partial Class Bancos_FluctuacionCambiaria
Dim Final As Double = GanaciaAux - PerdidaAux Dim Final As Double = GanaciaAux - PerdidaAux
HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
HplClientesLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
HplClientesLiga.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0
BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0 BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0
BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0 BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0
@@ -235,6 +243,8 @@ Partial Class Bancos_FluctuacionCambiaria
Dim Final As Double = GanaciaAux - PerdidaAux Dim Final As Double = GanaciaAux - PerdidaAux
HdnClienteAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnClienteAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
HplClientesAntLiga.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0
HplClientesAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
BtnClientesAntRemove.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0 BtnClientesAntRemove.Visible = HdnClienteAntCvePrePoliza.Value.ToEntero > 0
BtnClientesAnticipos.Visible = Not HdnClienteAntCvePrePoliza.Value.ToEntero > 0 BtnClientesAnticipos.Visible = Not HdnClienteAntCvePrePoliza.Value.ToEntero > 0
@@ -266,6 +276,9 @@ Partial Class Bancos_FluctuacionCambiaria
HdnAcreedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnAcreedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
BtnAcreedoresRemove.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0 BtnAcreedoresRemove.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
BtnGeneraAcreedores.Visible = Not HdnAcreedorCvePrePoliza.Value.ToEntero > 0 BtnGeneraAcreedores.Visible = Not HdnAcreedorCvePrePoliza.Value.ToEntero > 0
HplAcreedorLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
HplAcreedorLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
GvAcreedores.DataSource = ObjBancos.DtResultados GvAcreedores.DataSource = ObjBancos.DtResultados
LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
Else Else
@@ -283,6 +296,9 @@ Partial Class Bancos_FluctuacionCambiaria
HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString HdnAcreedorAntCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 BtnAcreedoresAntRemove.Visible = HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
BtnGeneraAcreedoresAnt.Visible = Not HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0 BtnGeneraAcreedoresAnt.Visible = Not HdnAcreedorAntCvePrePoliza.Value.ToEntero > 0
HplAcreedorAntLiga.Visible = HdnAcreedorCvePrePoliza.Value.ToEntero > 0
HplAcreedorAntLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
GvAcreedoresAnt.DataSource = ObjBancos.DtResultados GvAcreedoresAnt.DataSource = ObjBancos.DtResultados
LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero LblTotalAcreedoresAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
Else Else

62
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1271,6 +1271,11 @@ Partial Class PopUpVerFactura
DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String))) DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String))) DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String)))
Dim DTRelacionados As New DataTable()
DTRelacionados.Columns.Add(New DataColumn("Relacion", GetType(String)))
DTRelacionados.Columns.Add(New DataColumn("UUID", GetType(String)))
Dim XMLDoc As New XmlDocument Dim XMLDoc As New XmlDocument
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", TipoDocto, String.Format("{0}", SerieFolio), "xml") Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", TipoDocto, String.Format("{0}", SerieFolio), "xml")
Dim Archivo As New System.IO.FileInfo(Path) Dim Archivo As New System.IO.FileInfo(Path)
@@ -1449,10 +1454,59 @@ Partial Class PopUpVerFactura
End If End If
DtUbicaciones.Rows.Add(Row) DtUbicaciones.Rows.Add(Row)
Next Next
Dim nodeRelacion = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
If nodeRelacion IsNot Nothing Then
Dim RelacionCodigo As String = ValorXML(nodeRelacion, "TipoRelacion")
Dim Relacion As String = ""
Select Case RelacionCodigo
Case "01"
Relacion = "01 - Nota de crédito de los documentos relacionados"
Case "02"
Relacion = "02 - Nota de débito de los documentos relacionados"
Case "03"
Relacion = "03 - Devolución de mercancía sobre facturas o traslados previos"
Case "04"
Relacion = "04 - Sustitución de los CFDI previos"
Case "05"
Relacion = "05 - Traslados de mercancias facturados previamente"
Case "06"
Relacion = "06 - Factura generada por los traslados previos"
Case "07"
Relacion = "07 - CFDI por aplicación de anticipo"
Case "08"
Relacion = "08 - Factura generada por pagos en parcialidades"
Case "09"
Relacion = "09 - Factura generada por pagos diferidos"
End Select
Dim nodoDocumentosRealcionados = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
For Each node As XmlNode In nodoDocumentosRealcionados
Dim nRow As DataRow = DTRelacionados.NewRow
nRow("Relacion") = Relacion
Try
Dim nodoUUID = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado")
nRow("UUID") = ValorXML(nodoUUID, "UUID", "")
Catch ex As Exception
nRow("UUID") = ""
End Try
DTRelacionados.Rows.Add(nRow)
Next
End If
Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces) Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
If nodeTFD IsNot Nothing Then If nodeTFD IsNot Nothing Then
FolioFiscal = ValorXML(nodeTFD, "UUID", "") FolioFiscal = ValorXML(nodeTFD, "UUID", "")
@@ -1567,6 +1621,12 @@ Partial Class PopUpVerFactura
rds4.Value = DtOperadores rds4.Value = DtOperadores
lrds.Add(rds4) lrds.Add(rds4)
Dim rds5 As New ReportDataSource
rds5.Name = "DataSet5"
rds5.Value = DTRelacionados
lrds.Add(rds5)
ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, SerieFolio) ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, SerieFolio)
End If End If
End If End If

458
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -1739,7 +1739,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>6.14767in</Top> <Top>6.89767in</Top>
<Left>0.41187cm</Left> <Left>0.41187cm</Left>
<Height>3.03416cm</Height> <Height>3.03416cm</Height>
<Width>15.44579cm</Width> <Width>15.44579cm</Width>
@@ -1758,7 +1758,7 @@
<Source>External</Source> <Source>External</Source>
<Value>=Parameters!QR.Value</Value> <Value>=Parameters!QR.Value</Value>
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Top>6.03582in</Top> <Top>6.78582in</Top>
<Left>6.18415in</Left> <Left>6.18415in</Left>
<Height>1.2939in</Height> <Height>1.2939in</Height>
<Width>1.53682in</Width> <Width>1.53682in</Width>
@@ -2255,16 +2255,16 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>3.00921cm</Width> <Width>3.03118cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>8.91467cm</Width> <Width>8.93664cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.35479cm</Width> <Width>2.37676cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.95015cm</Width> <Width>2.97212cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -2618,7 +2618,7 @@
<TablixMember> <TablixMember>
<Group Name="GPO5" /> <Group Name="GPO5" />
<TablixHeader> <TablixHeader>
<Size>1.86551cm</Size> <Size>1.88748cm</Size>
<CellContents> <CellContents>
<Textbox Name="Cantidad5"> <Textbox Name="Cantidad5">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
@@ -2673,10 +2673,10 @@
<RepeatColumnHeaders>true</RepeatColumnHeaders> <RepeatColumnHeaders>true</RepeatColumnHeaders>
<FixedColumnHeaders>true</FixedColumnHeaders> <FixedColumnHeaders>true</FixedColumnHeaders>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>11.84512cm</Top> <Top>13.75012cm</Top>
<Left>0.33883cm</Left> <Left>0.33883cm</Left>
<Height>1.12062cm</Height> <Height>1.12062cm</Height>
<Width>19.09433cm</Width> <Width>19.20418cm</Width>
<ZIndex>13</ZIndex> <ZIndex>13</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2705,8 +2705,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>11.25504cm</Top> <Top>13.16004cm</Top>
<Left>0.16633in</Left> <Left>0.16845in</Left>
<Height>0.5cm</Height> <Height>0.5cm</Height>
<Width>7.52776in</Width> <Width>7.52776in</Width>
<ZIndex>14</ZIndex> <ZIndex>14</ZIndex>
@@ -2742,7 +2742,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>5.221in</Top> <Top>5.971in</Top>
<Left>6.37477in</Left> <Left>6.37477in</Left>
<Height>0.60856cm</Height> <Height>0.60856cm</Height>
<Width>1.30108in</Width> <Width>1.30108in</Width>
@@ -2781,7 +2781,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>13.26133cm</Top> <Top>15.16633cm</Top>
<Left>5.24863in</Left> <Left>5.24863in</Left>
<Height>0.60856cm</Height> <Height>0.60856cm</Height>
<Width>1.12683in</Width> <Width>1.12683in</Width>
@@ -2819,7 +2819,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>5.46059in</Top> <Top>6.21059in</Top>
<Left>6.37685in</Left> <Left>6.37685in</Left>
<Height>0.60856cm</Height> <Height>0.60856cm</Height>
<Width>1.30108in</Width> <Width>1.30108in</Width>
@@ -2861,7 +2861,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>13.86988cm</Top> <Top>15.77488cm</Top>
<Left>5.25071in</Left> <Left>5.25071in</Left>
<Height>0.60856cm</Height> <Height>0.60856cm</Height>
<Width>1.12683in</Width> <Width>1.12683in</Width>
@@ -2899,7 +2899,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>5.70018in</Top> <Top>6.45018in</Top>
<Left>6.37893in</Left> <Left>6.37893in</Left>
<Height>0.60856cm</Height> <Height>0.60856cm</Height>
<Width>1.30108in</Width> <Width>1.30108in</Width>
@@ -2938,7 +2938,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>14.47843cm</Top> <Top>16.38343cm</Top>
<Left>5.25279in</Left> <Left>5.25279in</Left>
<Height>0.60856cm</Height> <Height>0.60856cm</Height>
<Width>1.12614in</Width> <Width>1.12614in</Width>
@@ -3097,7 +3097,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox25</rd:DefaultName> <rd:DefaultName>Textbox25</rd:DefaultName>
<Top>13.26133cm</Top> <Top>15.16633cm</Top>
<Left>0.42248cm</Left> <Left>0.42248cm</Left>
<Height>2.35375cm</Height> <Height>2.35375cm</Height>
<Width>12.73266cm</Width> <Width>12.73266cm</Width>
@@ -3234,11 +3234,396 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Rectangle Name="Rectangle1">
<ReportItems>
<Tablix Name="Tablix7">
<TablixCorner>
<TablixCornerRows>
<TablixCornerRow>
<TablixCornerCell>
<CellContents>
<Textbox Name="Textbox62">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>RELACIÓN</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<Color>White</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox62</rd:DefaultName>
<Style>
<Border>
<Color>#4f81bd</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>#4f81bd</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCornerCell>
<TablixCornerCell>
<CellContents>
<Textbox Name="Textbox69">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>UUID</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<Color>White</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox69</rd:DefaultName>
<Style>
<Border>
<Color>#4f81bd</Color>
<Style>Solid</Style>
</Border>
<TopBorder>
<Style>Solid</Style>
</TopBorder>
<BackgroundColor>#4f81bd</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCornerCell>
</TablixCornerRow>
</TablixCornerRows>
</TablixCorner>
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>0.90553cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
<TablixRow>
<Height>0.6cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="UM6">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>UM</rd:DefaultName>
<Style>
<Border>
<Color>#4f81bd</Color>
<Style>Solid</Style>
</Border>
<TopBorder>
<Style>None</Style>
</TopBorder>
<LeftBorder>
<Style>None</Style>
</LeftBorder>
<RightBorder>
<Style>Solid</Style>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows>
</TablixBody>
<TablixColumnHierarchy>
<TablixMembers>
<TablixMember>
<TablixHeader>
<Size>0.52062cm</Size>
<CellContents>
<Textbox Name="Textbox45">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<Color>White</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox40</rd:DefaultName>
<Style>
<Border>
<Color>#4f81bd</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>#4f81bd</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
</TablixMember>
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
<TablixMembers>
<TablixMember>
<Group Name="Relacion">
<GroupExpressions>
<GroupExpression>=Fields!Relacion.Value</GroupExpression>
</GroupExpressions>
</Group>
<SortExpressions>
<SortExpression>
<Value>=Fields!Relacion.Value</Value>
</SortExpression>
</SortExpressions>
<TablixHeader>
<Size>9.19562cm</Size>
<CellContents>
<Textbox Name="Relacion">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Relacion.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Relacion</rd:DefaultName>
<Style>
<Border>
<Color>#4f81bd</Color>
<Style>Solid</Style>
<Width>2pt</Width>
</Border>
<TopBorder>
<Style>None</Style>
</TopBorder>
<BottomBorder>
<Width>1pt</Width>
</BottomBorder>
<LeftBorder>
<Width>1pt</Width>
</LeftBorder>
<RightBorder>
<Style>None</Style>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
<TablixMembers>
<TablixMember>
<Group Name="UUID">
<GroupExpressions>
<GroupExpression>=Fields!UUID.Value</GroupExpression>
</GroupExpressions>
</Group>
<SortExpressions>
<SortExpression>
<Value>=Fields!UUID.Value</Value>
</SortExpression>
</SortExpressions>
<TablixHeader>
<Size>8.99524cm</Size>
<CellContents>
<Textbox Name="UUID">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!UUID.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>UUID</rd:DefaultName>
<Style>
<Border>
<Color>#4f81bd</Color>
<Style>Solid</Style>
<Width>2pt</Width>
</Border>
<TopBorder>
<Style>None</Style>
</TopBorder>
<BottomBorder>
<Width>1pt</Width>
</BottomBorder>
<LeftBorder>
<Style>None</Style>
<Width>1pt</Width>
</LeftBorder>
<RightBorder>
<Style>None</Style>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
<TablixMembers>
<TablixMember />
</TablixMembers>
</TablixMember>
</TablixMembers>
</TablixMember>
</TablixMembers>
</TablixRowHierarchy>
<RepeatColumnHeaders>true</RepeatColumnHeaders>
<FixedColumnHeaders>true</FixedColumnHeaders>
<DataSetName>DataSet5</DataSetName>
<Top>0.50301cm</Top>
<Left>0.08761cm</Left>
<Height>1.12062cm</Height>
<Width>19.0964cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Tablix>
<Textbox Name="Textbox56">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>FOLIOS RELACIONADOS</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Left>0.02618cm</Left>
<Height>0.5cm</Height>
<Width>7.52776in</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Color>White</Color>
<Style>Solid</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>11.30856cm</Top>
<Left>0.31265cm</Left>
<Height>1.71919cm</Height>
<Width>19.23572cm</Width>
<ZIndex>24</ZIndex>
<Visibility>
<Hidden>=IIf(CountRows("DataSet5") = 0, True, False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Rectangle>
</ReportItems> </ReportItems>
<Height>7.34222in</Height> <Height>8.09222in</Height>
<Style /> <Style />
</Body> </Body>
<Width>7.82545in</Width> <Width>7.72749in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>3.02245cm</Height> <Height>3.02245cm</Height>
@@ -3488,7 +3873,7 @@
<Top>0.03525cm</Top> <Top>0.03525cm</Top>
<Left>0.64802cm</Left> <Left>0.64802cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>19.22862cm</Width> <Width>18.9798cm</Width>
<Style> <Style>
<Border> <Border>
<Style>Solid</Style> <Style>Solid</Style>
@@ -3653,10 +4038,10 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName> <rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.17636cm</Top> <Top>0.14461cm</Top>
<Left>15.0542cm</Left> <Left>14.9272cm</Left>
<Height>0.54708cm</Height> <Height>0.54708cm</Height>
<Width>4.8023cm</Width> <Width>4.70062cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -3863,6 +4248,30 @@
<rd:TableAdapterName /> <rd:TableAdapterName />
</rd:DataSetInfo> </rd:DataSetInfo>
</DataSet> </DataSet>
<DataSet Name="DataSet5">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Relacion">
<DataField>Relacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="UUID">
<DataField>UUID</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets> </DataSets>
<ReportParameters> <ReportParameters>
<ReportParameter Name="NombreEmpresa"> <ReportParameter Name="NombreEmpresa">
@@ -4116,6 +4525,7 @@
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<Language>es-MX</Language> <Language>es-MX</Language>
<ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID> <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
</Report> </Report>

78
Inicio.aspx
View File

@@ -500,7 +500,7 @@
<div class="portlet-title"> <div class="portlet-title">
<div class="caption"> <div class="caption">
<i class="fa fa-file-text-o font-red-sunglo"></i> <i class="fa fa-file-text-o font-red-sunglo"></i>
<span class="caption-subject font-red-sunglo bold uppercase">Documentos</span> <span class="caption-subject font-red-sunglo bold uppercase" style="font-style:normal" >Documentos</span>
</div> </div>
<div class="tools"> <div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
@@ -509,7 +509,7 @@
<a href="javascript:;" class="remove" data-original-title="" title=""></a> <a href="javascript:;" class="remove" data-original-title="" title=""></a>
</div> </div>
</div> </div>
<div class="portlet-body"> <div class="portlet-body" style="font-style:normal;font-weight:bold">
@@ -518,30 +518,26 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc1" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="AMERICA.pdf"><i class="fa fa-download" aria-hidden="true"></i> AMERICA.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc1" NavigateUrl="~/Documentacion/140/AMERICA.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> AMERICA</asp:HyperLink>
<asp:HyperLink ID="LnkDoc1" NavigateUrl="~/Documentacion/140/AMERICA.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> AMERICA.pdf</asp:HyperLink>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc2" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="CRONOS.pdf"><i class="fa fa-download" aria-hidden="true"></i> CRONOS.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc2" NavigateUrl="~/Documentacion/140/CRONOS.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> CRONOS</asp:HyperLink>
<asp:HyperLink ID="LnkDoc2" NavigateUrl="~/Documentacion/140/CRONOS.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> CRONOS.pdf</asp:HyperLink>
</div> </div>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc3" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="DIENER.pdf"><i class="fa fa-download" aria-hidden="true"></i> DIENER.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc3" NavigateUrl="~/Documentacion/140/DIENER.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> DIENER</asp:HyperLink>
<asp:HyperLink ID="LnkDoc3" NavigateUrl="~/Documentacion/140/DIENER.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> DIENER.pdf</asp:HyperLink>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc4" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="FULLPOWER.pdf"><i class="fa fa-download" aria-hidden="true"></i> FULL POWER.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc4" NavigateUrl="~/Documentacion/140/FULLPOWER.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> FULL POWER</asp:HyperLink>
<asp:HyperLink ID="LnkDoc4" NavigateUrl="~/Documentacion/140/FULLPOWER.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> FULL POWER.pdf</asp:HyperLink>
</div> </div>
</div> </div>
</div> </div>
@@ -549,15 +545,13 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc5" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHAGM.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH AGM.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc5" NavigateUrl="~/Documentacion/140/LTHAGM.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH AGM</asp:HyperLink>
<asp:HyperLink ID="LnkDoc5" NavigateUrl="~/Documentacion/140/LTHAGM.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH AGM.pdf</asp:HyperLink>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc6" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHESPECIALES.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH ESPECIALES.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc6" NavigateUrl="~/Documentacion/140/LTHESPECIALES.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH ESPECIALES</asp:HyperLink>
<asp:HyperLink ID="LnkDoc6" NavigateUrl="~/Documentacion/140/LTHESPECIALES.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH ESPECIALES.pdf</asp:HyperLink>
</div> </div>
</div> </div>
</div> </div>
@@ -565,14 +559,12 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc7" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHHEAVYDUTY.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH HEAVY DUTY.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc7" NavigateUrl="~/Documentacion/140/LTHHEAVYDUTY.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH HEAVY DUTY</asp:HyperLink>
<asp:HyperLink ID="LnkDoc7" NavigateUrl="~/Documentacion/140/LTHHEAVYDUTY.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH HEAVY DUTY.pdf</asp:HyperLink>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc8" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHHI-TEC.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH HI-TEC.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc8" NavigateUrl="~/Documentacion/140/LTHHI-TEC.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH HI-TEC</asp:HyperLink>
<asp:HyperLink ID="LnkDoc8" NavigateUrl="~/Documentacion/140/LTHHI-TEC.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH HI-TEC.pdf</asp:HyperLink>
</div> </div>
</div> </div>
</div> </div>
@@ -580,52 +572,32 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc9" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHSUV-VAN-MINIVAN.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH SUV-VAN-MINIVAN.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc9" NavigateUrl="~/Documentacion/140/LTHSUV-VAN-MINIVAN.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH SUV-VAN-MINIVAN</asp:HyperLink>
<asp:HyperLink ID="LnkDoc9" NavigateUrl="~/Documentacion/140/LTHSUV-VAN-MINIVAN.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH SUV-VAN-MINIVAN.pdf</asp:HyperLink>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc10" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHTAXI.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH TAXI.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc10" NavigateUrl="~/Documentacion/140/LTHTAXI.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH TAXI</asp:HyperLink>
<asp:HyperLink ID="LnkDoc10" NavigateUrl="~/Documentacion/140/LTHTAXI.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH TAXI.pdf</asp:HyperLink>
</div> </div>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc11" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTH.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTH.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc11" NavigateUrl="~/Documentacion/140/LTH.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH</asp:HyperLink>
<asp:HyperLink ID="LnkDoc11" NavigateUrl="~/Documentacion/140/LTH.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTH.pdf</asp:HyperLink>
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="well well-sm"> <div class="well well-sm">
<%--<asp:LinkButton ID="LnkDoc12" runat="server" OnClick="LnkDecargaDoc_Click" NombreArchivo="LTHAGM.pdf"><i class="fa fa-download" aria-hidden="true"></i> LTHAGM.pdf</asp:LinkButton>--%> <asp:HyperLink ID="LnkDoc12" NavigateUrl="~/Documentacion/140/LTHAGM.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTHAGM</asp:HyperLink>
<asp:HyperLink ID="LnkDoc12" NavigateUrl="~/Documentacion/140/LTHAGM.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTHAGM.pdf</asp:HyperLink>
</div> </div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
<Triggers>
<%-- <asp:PostBackTrigger ControlID="LnkDoc1" />
<asp:PostBackTrigger ControlID="LnkDoc2" />
<asp:PostBackTrigger ControlID="LnkDoc3" />
<asp:PostBackTrigger ControlID="LnkDoc4" />
<asp:PostBackTrigger ControlID="LnkDoc5" />
<asp:PostBackTrigger ControlID="LnkDoc6" />
<asp:PostBackTrigger ControlID="LnkDoc7" />
<asp:PostBackTrigger ControlID="LnkDoc8" />
<asp:PostBackTrigger ControlID="LnkDoc9" />
<asp:PostBackTrigger ControlID="LnkDoc10" />
<asp:PostBackTrigger ControlID="LnkDoc11" />
<asp:PostBackTrigger ControlID="LnkDoc12" />--%>
</Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>

47
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -295,9 +295,6 @@ Partial Class Inventarios_EntradasSalidas
If Not IsPostBack Then If Not IsPostBack Then
If UsuarioActual.CveUsuario = 100 AndAlso IfNull(Request("Regenera"), "").ToString = "1" Then If UsuarioActual.CveUsuario = 100 AndAlso IfNull(Request("Regenera"), "").ToString = "1" Then
RegeneraRM(Request("CveMovimiento").ToString.ToEntero, 119) RegeneraRM(Request("CveMovimiento").ToString.ToEntero, 119)
Exit Sub Exit Sub
@@ -337,7 +334,6 @@ Partial Class Inventarios_EntradasSalidas
divGuia.Visible = True divGuia.Visible = True
End Select End Select
If Request("CveMovimiento") IsNot Nothing AndAlso Request("CveMovimiento").ToString.ToEntero > 0 Then If Request("CveMovimiento") IsNot Nothing AndAlso Request("CveMovimiento").ToString.ToEntero > 0 Then
If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 140 Then If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 140 Then
LnkGenerarVirtual.Visible = True LnkGenerarVirtual.Visible = True
@@ -371,6 +367,11 @@ Partial Class Inventarios_EntradasSalidas
ActivaConsumoInterno() ActivaConsumoInterno()
End If End If
If Request("CveEntregaAlmacen") IsNot Nothing AndAlso Request("CveEntregaAlmacen").ToString.ToEntero > 0 Then
CargaDatosEntregaAlmacen(Request("CveEntregaAlmacen").ToString.ToEntero)
End If
'BLOQUEA PERMISOS 'BLOQUEA PERMISOS
BtnGuardar.Enabled = PermiteGuardar() BtnGuardar.Enabled = PermiteGuardar()
BtnEliminar.Enabled = PermiteEliminar() BtnEliminar.Enabled = PermiteEliminar()
@@ -549,16 +550,13 @@ Partial Class Inventarios_EntradasSalidas
'Llenar el dropdownlist de almacén 'Llenar el dropdownlist de almacén
If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 AndAlso Not IfNull(Request("CveEntregaAlmacen"), -1).ToString.ToEntero > 0 Then
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
'ElseIf UsuarioActual.CveUsuario.Contiene(1) Then 'ElseIf UsuarioActual.CveUsuario.Contiene(1) Then
' DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11) or CveAlmacen = 651e") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) ' DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11) or CveAlmacen = 651e") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
End If End If
DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)")
@@ -574,7 +572,7 @@ Partial Class Inventarios_EntradasSalidas
DdlAlmacenInventarioFisico.DataBind() DdlAlmacenInventarioFisico.DataBind()
DdlAlmacenCambioVigencias.DataBind() DdlAlmacenCambioVigencias.DataBind()
If IsNothing(Request("CveMovimiento")) Then If IsNothing(Request("CveMovimiento")) And IsNothing(Request("CveEntregaAlmacen")) Then
DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
DdlAlmacen_SelectedIndexChanged(DdlAlmacen, EventArgs.Empty) DdlAlmacen_SelectedIndexChanged(DdlAlmacen, EventArgs.Empty)
End If End If
@@ -660,8 +658,6 @@ Partial Class Inventarios_EntradasSalidas
GvM.Columns(8).Visible = False GvM.Columns(8).Visible = False
End If End If
If Mov.GetMovimientos(tCveMovimiento, pCveConcepto, pFolio, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then If Mov.GetMovimientos(tCveMovimiento, pCveConcepto, pFolio, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
CveMovimiento = Mov.CveMovimiento CveMovimiento = Mov.CveMovimiento
@@ -672,7 +668,6 @@ Partial Class Inventarios_EntradasSalidas
Folio = Mov.Folio Folio = Mov.Folio
Dim drM As DataRow = DtMov.Rows(0) Dim drM As DataRow = DtMov.Rows(0)
If DtMov.Rows(0)("CveConcepto").ToString.ToEntero = 2 Then If DtMov.Rows(0)("CveConcepto").ToString.ToEntero = 2 Then
HplTraspaso.Visible = True HplTraspaso.Visible = True
HplTraspaso.NavigateUrl = $"/Inventarios/TraspasoAlmacen.aspx?CveEntrada={DtMov.Rows(0)("CveMovimiento").ToString}" HplTraspaso.NavigateUrl = $"/Inventarios/TraspasoAlmacen.aspx?CveEntrada={DtMov.Rows(0)("CveMovimiento").ToString}"
@@ -1048,6 +1043,32 @@ Partial Class Inventarios_EntradasSalidas
End Sub End Sub
Private Sub CargaDatosEntregaAlmacen(CveEntregaAlmacen As Integer)
'RECARGA ALMACENES SOLO DE recepcion de usados
DdlAlmacen.Items.Clear()
DdlAlmacen.DataBind()
Dim dttA As DataTable = Nothing
dttA = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,22,27)")
DdlAlmacen.DataSource = dttA
DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacen.DataBind()
DdlAlmacen.SelectedIndex = 1 'toma el primer renglón
Dim ObjGenerales As New ClsGenerales()
If (ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen)) Then
For Each dr As DataRow In ObjGenerales.DtResultados.Rows
AddNew(dr("CvePS").ToString.ToEntero, dr("CodigoPS").ToString, dr("CveUnidadMedida").ToString.ToEntero, dr("Abreviatura").ToString, dr("Cantidad").ToString.ToDecimal,
0, "", "", "", "", "E", "", MinFecha, 0, "")
Next
End If
ObjGenerales.Dispose()
End Sub
Private Sub BloqueaEdicionEncabezado() Private Sub BloqueaEdicionEncabezado()
@@ -1923,7 +1944,7 @@ Partial Class Inventarios_EntradasSalidas
If Not ErrorAC And Not ErrorMovInv Then If Not ErrorAC And Not ErrorMovInv Then
Dim Msg As New StringBuilder Dim Msg As New StringBuilder
Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b>{0}</b>", ObjInventario.Folio) Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b><a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a></b>", ObjInventario.Folio, ObjInventario.CveMovimiento)
Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
If RetornoVirtual IsNot Nothing Then If RetornoVirtual IsNot Nothing Then

42
Inventarios/EntregaAlmacenRuta.aspx
View File

@@ -12,6 +12,19 @@
.MultiLineTextBox { .MultiLineTextBox {
resize: none; resize: none;
} }
.truncate {
width: 300px;
white-space: nowrap;
overflow: hidden;
text-overflow: ellipsis;
}
.tooltip-inner {
max-width: 750px !important;
font-size: 14px;
}
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
@@ -343,7 +356,7 @@
<asp:GridView ID="gvR" runat="server" AutoGenerateColumns="False" OnRowDataBound="gvR_RowDataBound" <asp:GridView ID="gvR" runat="server" AutoGenerateColumns="False" OnRowDataBound="gvR_RowDataBound"
DataKeyNames="CveEntregaAlmacen,Orden,CveDireccionOrigen,CveSubProyecto,Estatus,CveTimbre" DataKeyNames="CveEntregaAlmacen,Orden,CveDireccionOrigen,CveSubProyecto,Estatus,CveTimbre"
EmptyDataText="No se encontraron registros" ToolTip="Listado de recolecciones" EmptyDataText="No se encontraron registros"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true" data-sort="true"
data-freezerows="1" data-freezerows="1"
@@ -355,22 +368,29 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%--<asp:BoundField HeaderText="SerieFolio" DataField="Serie Folio" HeaderStyle-Width="150px" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />--%> <%--<asp:BoundField HeaderText="SerieFolio" DataField="Serie Folio" HeaderStyle-Width="150px" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />--%>
<asp:TemplateField HeaderText="Fecha" ItemStyle-Width="10%" HeaderStyle-Width="10%"> <asp:TemplateField HeaderText="Fecha Límite" ItemStyle-Width="80px" HeaderStyle-Width="80px">
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LblFechaEntrega" runat="server" Text='<%# Eval("FechaEntrega", "{0:dd/MM/yyyy}") %>'></asp:Literal> &nbsp;<asp:Literal ID="LblFechaEntrega" runat="server" Text='<%# Eval("FechaLimite", "{0:dd/MM/yyyy}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Folio" ItemStyle-Width="10%" HeaderStyle-Width="10%"> <asp:TemplateField HeaderText="Centro" ItemStyle-Width="10%" HeaderStyle-Width="10%">
<ItemTemplate>
&nbsp;<asp:Literal ID="LblCC" runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Folio" ItemStyle-Width="5%" HeaderStyle-Width="5%">
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("FolioReferencia") %>'></asp:Literal> &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("FolioReferencia") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cliente"> <asp:TemplateField HeaderText="Cliente">
<ItemTemplate> <ItemTemplate>
<div class="truncate" style="width: 150px;">
&nbsp;<asp:Literal ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal> &nbsp;<asp:Literal ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
</div>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Contacto" > <asp:TemplateField HeaderText="Sucursal" >
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LblContacto" runat="server" Text='<%# Eval("Contacto") %>'></asp:Literal> &nbsp;<asp:Literal ID="LblContacto" runat="server" Text='<%# Eval("Contacto") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -380,14 +400,20 @@
&nbsp;<asp:Literal ID="LblRef" runat="server" Text='<%# Eval("Referencia") %>'></asp:Literal> &nbsp;<asp:Literal ID="LblRef" runat="server" Text='<%# Eval("Referencia") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Dirección" DataField="Direccion" /> <asp:TemplateField HeaderText="Dirección" >
<ItemTemplate>
<div class="truncate" style="width: 150px;">
&nbsp;<asp:Literal ID="LblDir" runat="server" Text='<%# Eval("Direccion") %>'></asp:Literal>
</div>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Opciones"> <asp:TemplateField HeaderText="">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkGvDatosRecoleccionEditar" runat="server" Visible="false" OnClick="LnkGvDatosRecoleccionEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-xs blue" Text="<i class='fa fa-pencil'></i>" /> <asp:LinkButton ID="LnkGvDatosRecoleccionEditar" runat="server" Visible="false" OnClick="LnkGvDatosRecoleccionEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-xs blue" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkGvDatosRecoleccionEliminar" runat="server" Visible="false" CssClass="btn btn-circle btn-xs red" OnClick="LnkGvDatosRecoleccionEliminar_Click" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la recolección?" data-btn-ok-label="si"></asp:LinkButton> <asp:LinkButton ID="LnkGvDatosRecoleccionEliminar" runat="server" Visible="false" CssClass="btn btn-circle btn-xs red" OnClick="LnkGvDatosRecoleccionEliminar_Click" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la recolección?" data-btn-ok-label="si"></asp:LinkButton>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="160px" HorizontalAlign="Center"></ItemStyle> <ItemStyle Width="100px" HorizontalAlign="Center"></ItemStyle>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>

24
Inventarios/EntregaAlmacenRuta.aspx.cs
View File

@@ -11,8 +11,7 @@ using System.Text;
public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
{ {
DataTable DTGenerarDocumentos DataTable DTGenerarDocumentos
{ {
get { get {
@@ -837,15 +836,11 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
} }
//} //}
} }
} }
else else
{ {
ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa); ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa);
}
}
if (ProcesoOK) if (ProcesoOK)
{ {
@@ -877,10 +872,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
ObjGenerales.Dispose(); ObjGenerales.Dispose();
CargaDatosRecoleccion(); CargaDatosRecoleccion();
} }
#endregion #endregion
protected void LnkModalGvModalPSRecoleccionEliminar_Click(object sender, EventArgs e) protected void LnkModalGvModalPSRecoleccionEliminar_Click(object sender, EventArgs e)
@@ -889,8 +882,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
GridViewRow GvRow = (GridViewRow)LnkEliminar.NamingContainer; GridViewRow GvRow = (GridViewRow)LnkEliminar.NamingContainer;
if (CveEntregaAlmacen > 0) if (CveEntregaAlmacen > 0)
{ {
int CveEntregaAlmacenDetalleEliminar = GvRow.DataKey("CveEntregaAlmacenDetalle").ToEntero(); int CveEntregaAlmacenDetalleEliminar = GvRow.DataKey("CveEntregaAlmacenDetalle").ToEntero();
ClsGenerales ObjGenerales = new ClsGenerales(); ClsGenerales ObjGenerales = new ClsGenerales();
@@ -907,8 +899,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DTRecoleccion.Rows[DTIndex].Delete(); DTRecoleccion.Rows[DTIndex].Delete();
DTRecoleccion.AcceptChanges(); DTRecoleccion.AcceptChanges();
} }
CargaDatosRecoleccionDetallePS(); CargaDatosRecoleccionDetallePS();
} }
@@ -945,9 +936,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
LimpiarControlesPS(); LimpiarControlesPS();
CargaDatosRecoleccionDetallePS(); CargaDatosRecoleccionDetallePS();
} }
private void LimpiarControlesPS() private void LimpiarControlesPS()
{ {
TxtModalRecoleccionCantidad.Text = ""; TxtModalRecoleccionCantidad.Text = "";
@@ -1026,8 +1015,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
} }
} }
protected void gvR_RowDataBound(object sender, GridViewRowEventArgs e) protected void gvR_RowDataBound(object sender, GridViewRowEventArgs e)
{ {
if (e.Row.RowType == DataControlRowType.DataRow) if (e.Row.RowType == DataControlRowType.DataRow)

7
Inventarios/RepEntregaAlmacenRuta.aspx
View File

@@ -148,7 +148,8 @@
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" /> <asp:LinkButton ID="LnkEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Timbrar" ToolTip="Timbrar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" /> <asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Timbrar" ToolTip="Timbrar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" />
<asp:LinkButton ID="LnkCancelaTimbre" runat="server" OnClick="LnkCancelaTimbre_Click" AlternateText="Cancelar timbre" ToolTip="Cancelar timbre" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar cancelación?" data-btn-ok-label="si" /> <asp:LinkButton ID="LnkCancelaTimbre" runat="server" OnClick="LnkCancelaTimbre_Click" AlternateText="Cancelar timbre" ToolTip="Cancelar timbre" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar cancelación?" data-btn-ok-label="si" />
<asp:HyperLink ID="HplR" runat="server" visible="false" AlternateText="Registrar" ToolTip="Registrar entrada" CssClass="btn btn-circle btn-sm yellow" Text="<i class='fa fa-location-arrow'></i>" />
</ItemTemplate> </ItemTemplate>
<HeaderStyle HorizontalAlign="Left" /> <HeaderStyle HorizontalAlign="Left" />
<ItemStyle HorizontalAlign="Left" Width="75px" /> <ItemStyle HorizontalAlign="Left" Width="75px" />
@@ -156,8 +157,8 @@
<asp:TemplateField ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Center" HeaderText="Direcciones" Visible="false"> <asp:TemplateField ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Center" HeaderText="Direcciones" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEditarDirOrigen" Visible="false" runat="server" OnClick="EditDireccionOrigen_Click" AlternateText="Editar" ToolTip="Actualzar dirección Origen" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-location-arrow'></i>" /> <asp:LinkButton ID="LnkEditarDirOrigen" Visible="false" runat="server" OnClick="EditDireccionOrigen_Click" AlternateText="Editar" ToolTip="Actualizar dirección Origen" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-location-arrow'></i>" />
<asp:LinkButton ID="LnkEditarDirDestino" Visible="false" runat="server" OnClick="EditDireccionDestino_Click" AlternateText="Editar" ToolTip="Actualziar Dierccion Destino" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-location-arrow'></i>" /> <asp:LinkButton ID="LnkEditarDirDestino" Visible="false" runat="server" OnClick="EditDireccionDestino_Click" AlternateText="Editar" ToolTip="Actualizar dirección Destino" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-location-arrow'></i>" />
</ItemTemplate> </ItemTemplate>
<HeaderStyle HorizontalAlign="Center" /> <HeaderStyle HorizontalAlign="Center" />
<ItemStyle HorizontalAlign="Left" Width="50px" /> <ItemStyle HorizontalAlign="Left" Width="50px" />

58
Inventarios/RepEntregaAlmacenRuta.aspx.cs
View File

@@ -383,10 +383,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
if (GvRow.DataKey("CveCamionRemolque2").ToEntero() > 0) if (GvRow.DataKey("CveCamionRemolque2").ToEntero() > 0)
{ {
DdlRemolque2.SelectedValueExist(GvRow.DataKey("CveCamionRemolque2")); DdlRemolque2.SelectedValueExist(GvRow.DataKey("CveCamionRemolque2"));
} }
CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero(); CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero();
CveDireccionDestino = GvRow.DataKey("CveDireccionDestino").ToEntero(); CveDireccionDestino = GvRow.DataKey("CveDireccionDestino").ToEntero();
@@ -617,9 +614,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{ {
if (e.Row.RowType == DataControlRowType.DataRow) if (e.Row.RowType == DataControlRowType.DataRow)
{ {
e.Row.Cells[11].Text = ""; e.Row.Cells[11].Text = "";
LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar"); LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar");
LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar"); LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar");
LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre"); LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre");
@@ -631,18 +626,19 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
if (e.Row.DataKey("Estatus").ToEntero() == 0) if (e.Row.DataKey("Estatus").ToEntero() == 0)
{ {
LnkEditar.Visible = true; LnkEditar.Visible = true;
LnkTimbrar.Visible = true; LnkTimbrar.Visible = UsuarioActual.TienePermisoProceso(338);
} }
//if (e.Row.DataKey("TimbreTipoDocto") == "Man") if (e.Row.DataKey("Tipo") == "R" && e.Row.DataKey("Estatus") == "1")
//{ {
// e.Row.FCLinkButton("LnkEditarDirOrigen").Visible = true; e.Row.FCHyperLink("HplR").Visible = true;
// e.Row.FCLinkButton("LnkEditarDirDestino").Visible = true; e.Row.FCHyperLink("HplR").NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveEntregaAlmacen=" + e.Row.DBCampo("CveEntregaAlmacen");
//} }
if (e.Row.DataKey("Estatus").ToEntero() == 1) if (e.Row.DataKey("Estatus").ToEntero() == 1)
{ {
LnkCancelaTimbre.Visible = true; LnkCancelaTimbre.Visible = UsuarioActual.TienePermisoProceso(338);
if (bool.Parse(e.Row.DataKey("AplicaCP"))) if (bool.Parse(e.Row.DataKey("AplicaCP")))
{ {
@@ -687,15 +683,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
default: default:
e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-warning"; e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-warning";
break; break;
} }
} }
} }
private void CargaPersonalChofer() private void CargaPersonalChofer()
{ {
DdlModalChofer.Items.Clear(); DdlModalChofer.Items.Clear();
@@ -706,18 +697,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{ {
DdlModalChofer.DataSource = ObjAcar.DtResultados; DdlModalChofer.DataSource = ObjAcar.DtResultados;
} }
ObjAcar.Dispose(); ObjAcar.Dispose();
DdlModalChofer.DataBind(); DdlModalChofer.DataBind();
DdlModalChofer.Items.Insert(0, new ListItem("Seleccione Uno", "-1")); DdlModalChofer.Items.Insert(0, new ListItem("Seleccione Uno", "-1"));
UpModalEditarentrega.Update(); UpModalEditarentrega.Update();
} }
@@ -744,7 +727,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
} }
} }
} }
UpModalEditarentrega.Update(); UpModalEditarentrega.Update();
} }
@@ -779,15 +761,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
} }
} }
protected void DdlConfigAuto_SelectedIndexChanged(object sender, EventArgs e) protected void DdlConfigAuto_SelectedIndexChanged(object sender, EventArgs e)
{ {
ValidaConfiguracionVeiculo(); ValidaConfiguracionVeiculo();
} }
private void ValidaConfiguracionVeiculo()
private void ValidaConfiguracionVeiculo()
{ {
DvRemolque1.Visible = false; DvRemolque1.Visible = false;
DvRemolque2.Visible = false; DvRemolque2.Visible = false;
@@ -803,7 +781,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{ {
string Remolque = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero()}'"); string Remolque = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero()}'");
if (Remolque == "1") if (Remolque == "1")
{ {
RequiereRemolque = true; RequiereRemolque = true;
@@ -830,9 +807,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
MostrarRemolques = false; MostrarRemolques = false;
} }
if (RequiereRemolque | MostrarRemolques) if (RequiereRemolque | MostrarRemolques)
DvRemolque1.Visible = true; DvRemolque1.Visible = true;
@@ -841,7 +815,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
else else
DvConfiguracionVeiculo.Visible = true; DvConfiguracionVeiculo.Visible = true;
UpModalEditarentrega.Update(); UpModalEditarentrega.Update();
} }
@@ -858,13 +831,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2)) if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2))
DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero()}"); DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero()}");
} }
try try
{ {
DdlRemolque2.DataBind(); DdlRemolque2.DataBind();
} }
catch { } catch { }
} }
else else
DvRemolque2.Visible = false; DvRemolque2.Visible = false;
@@ -885,7 +856,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
if (RequiereRemolque & DdlRemolque1.SelectedValue.ToEntero() > 0) if (RequiereRemolque & DdlRemolque1.SelectedValue.ToEntero() > 0)
Respuesta = true; Respuesta = true;
return Respuesta; return Respuesta;
} }
@@ -900,7 +870,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1)) if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1))
DdlModalCamion.DataSource = ObjInv.DtResultados; DdlModalCamion.DataSource = ObjInv.DtResultados;
if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2)) if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2))
DdlRemolque1.DataSource = ObjInv.DtResultados; DdlRemolque1.DataSource = ObjInv.DtResultados;
} }
@@ -988,7 +957,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
CargaDirClienteColonia(); CargaDirClienteColonia();
CargaDirClienteLocalidad(); CargaDirClienteLocalidad();
} }
protected void DdlDirClienteEstado_SelectedIndexChanged(object sender, EventArgs e) protected void DdlDirClienteEstado_SelectedIndexChanged(object sender, EventArgs e)
{ {
CargaDirClienteMunicipio(); CargaDirClienteMunicipio();
@@ -1002,13 +970,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
CargaDirClienteLocalidad(); CargaDirClienteLocalidad();
} }
protected void BtnDirClienteValidar_Click(object sender, EventArgs e) protected void BtnDirClienteValidar_Click(object sender, EventArgs e)
{ {
DirClientevalidaCodigoPostal(); DirClientevalidaCodigoPostal();
} }
protected void DdlDirClienteColonia_SelectedIndexChanged(object sender, EventArgs e) protected void DdlDirClienteColonia_SelectedIndexChanged(object sender, EventArgs e)
{ {
DirClientevalidaCodigoPostal(); DirClientevalidaCodigoPostal();
@@ -1111,10 +1077,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
CargaDatos(); CargaDatos();
} }
ModalActualizaDirecciones(CveTimbre); ModalActualizaDirecciones(CveTimbre);
} }
private void LnkAgregarDireccion_Click(object sender, EventArgs e) private void LnkAgregarDireccion_Click(object sender, EventArgs e)
@@ -1127,8 +1091,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
CargaCombosDirecionesClientesSAT(); CargaCombosDirecionesClientesSAT();
TxtFechaLlegada.Text = ""; TxtFechaLlegada.Text = "";
UpModalDVDireccionEnvio.Update(); UpModalDVDireccionEnvio.Update();
RegistraScript("$('#divAddDireccionEnvio').modal('show');"); RegistraScript("$('#divAddDireccionEnvio').modal('show');");
} }

1
Inventarios/ResguardoMaterial.aspx
View File

@@ -476,6 +476,7 @@
<asp:GridView ID="GvMLiberacion" OnRowCreated="GvMLiberacion_RowCreated" OnRowDataBound="GvMLiberacion_RowDataBound" runat="server" GridLines="none" CssClass="table table-striped table-hover Widthall" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,CveUM,CvePS,Serie,Observaciones,PU,CveSeccionAlmacen,Lote,FechaCaducidad" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True"> <asp:GridView ID="GvMLiberacion" OnRowCreated="GvMLiberacion_RowCreated" OnRowDataBound="GvMLiberacion_RowDataBound" runat="server" GridLines="none" CssClass="table table-striped table-hover Widthall" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,CveUM,CvePS,Serie,Observaciones,PU,CveSeccionAlmacen,Lote,FechaCaducidad" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
<Columns> <Columns>
<asp:BoundField HeaderText="#" DataField="No" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField HeaderText="#" DataField="No" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Figura" DataField="Figura" ItemStyle-Width="30%" ItemStyle-HorizontalAlign="Left" Visible="false" />
<%-- <asp:BoundField HeaderText="Cant. Disponible" DataField="Cantidad" DataFormatString="{0:#,###,###.##}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" />--%> <%-- <asp:BoundField HeaderText="Cant. Disponible" DataField="Cantidad" DataFormatString="{0:#,###,###.##}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" />--%>
<asp:TemplateField HeaderText="Cant. Disponible" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="Cant. Disponible" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>

15
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -655,6 +655,9 @@ Partial Class Inventarios_ResguardoMaterial
Alert("Tiene que seleccionar un cliente.", TipoMensaje.MsgAdvertencia) Alert("Tiene que seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Else
GvMLiberacion.Columns(1).HeaderText = If(DdlTipo.SelectedValue.ToEntero = 1, "Personal", If(DdlTipo.SelectedValue.ToEntero = 2, "Cliente", "Proveedor"))
End If End If
@@ -667,14 +670,24 @@ Partial Class Inventarios_ResguardoMaterial
DVInformacionMoviminetoLiberacion.Visible = False DVInformacionMoviminetoLiberacion.Visible = False
BtnGuardarLiberacion.Visible = False BtnGuardarLiberacion.Visible = False
GvMLiberacion.Columns(1).Visible = True
Else Else
DVInformacionMoviminetoLiberacion.Visible = True DVInformacionMoviminetoLiberacion.Visible = True
BtnGuardarLiberacion.Visible = True BtnGuardarLiberacion.Visible = True
GvMLiberacion.Columns(1).Visible = False
GvMLiberacion.Columns(1).HeaderText = ""
End If End If
UpGenerales.Update()
End If End If
UpGridLiberacion.Update()
UpGenerales.Update()
End Sub End Sub

2
SigAyuda.aspx
View File

@@ -12,7 +12,7 @@
.fa-file-word-o{ .fa-file-word-o{
color: #337ab7; color: #337ab7;
} }
.fa-3 { .fa-3 {
font-size: 1.5em; font-size: 1.5em;
} }

32
Ventas/Clientes.aspx
View File

@@ -348,13 +348,27 @@
<div id="bodydatosclientes" class="portlet-body form"> <div id="bodydatosclientes" class="portlet-body form">
<div runat="server" id="DivRazonSocial" class="form-group form-md-line-input input-iconright"> <div class="row">
<asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="150" onkeyup="fncTxt(this)"></asp:TextBox> <div class="col-md-8">
<asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <div runat="server" id="DivRazonSocial" class="form-group form-md-line-input input-iconright">
<label for="<%= TxtNombre.ClientID.ToString()%>">Razón Social:</label> <asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="150" onkeyup="fncTxt()" ClientIDMode="Static" ></asp:TextBox>
<i></i> <asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<label for="<%= TxtNombre.ClientID.ToString()%>">Razón Social:</label>
<i></i>
</div>
</div>
<div class="col-md-4">
<div runat="server" id="DVRegimenSociedad" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRegimenSociedad" CssClass="form-control " runat="server" MaxLength="50" onkeyup="fncTxt()" ClientIDMode="Static" ></asp:TextBox>
<%--<asp:RequiredFieldValidator ID="RequiredFieldValidator22" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
<label for="<%= TxtRegimenSociedad.ClientID.ToString()%>">Regimen Sociedad:</label>
<i></i>
</div>
</div>
</div> </div>
<div class="row" runat="server" id="DivPersonaFisica" visible="false"> <div class="row" runat="server" id="DivPersonaFisica" visible="false">
<div class="col-md-4 form-group form-md-line-input input-iconright"> <div class="col-md-4 form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtApellidoPaterno" CssClass="form-control " runat="server" MaxLength="150"></asp:TextBox> <asp:TextBox ID="TxtApellidoPaterno" CssClass="form-control " runat="server" MaxLength="150"></asp:TextBox>
@@ -4449,6 +4463,7 @@
<asp:BoundField DataField="Cantidad" HeaderText="Cantidad" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" /> <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
<asp:BoundField DataField="Puntos" HeaderText="Puntos" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Puntos" HeaderText="Puntos" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="AcumPuntos" HeaderText="AcumPuntos" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="ImporteCargo" HeaderText="Imp.Cargo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" /> <asp:BoundField DataField="ImporteCargo" HeaderText="Imp.Cargo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
<asp:BoundField DataField="ImporteBonificacion" HeaderText="Imp. Bonificación" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" /> <asp:BoundField DataField="ImporteBonificacion" HeaderText="Imp. Bonificación" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
<asp:BoundField DataField="ImporteCompra" HeaderText="Imp. Compra" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" /> <asp:BoundField DataField="ImporteCompra" HeaderText="Imp. Compra" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" ControlStyle-BorderWidth="150px" />
@@ -6974,9 +6989,12 @@
} }
} }
function fncTxt(t) { function fncTxt() {
let strNombre = $('#TxtNombre').val();
let strRegimenSociedad = $('#TxtRegimenSociedad').val();
$get('TxtNombreComercial').value = t.value; $get('TxtNombreComercial').value = strNombre + " " + strRegimenSociedad;
} }
function cargaddls() { function cargaddls() {

51
Ventas/Clientes.aspx.vb
View File

@@ -1492,6 +1492,7 @@ Partial Class Clientes
'Campos para Modificación 'Campos para Modificación
LtlCliente.Text = ObjClientes.Nombre LtlCliente.Text = ObjClientes.Nombre
TxtNombre.Text = ObjClientes.Nombre TxtNombre.Text = ObjClientes.Nombre
TxtRegimenSociedad.Text = ObjClientes.RegimenSociedad
TxtNombreComercial.Text = ObjClientes.NombreComercial TxtNombreComercial.Text = ObjClientes.NombreComercial
TxtCodigo.Text = ObjClientes.Codigo TxtCodigo.Text = ObjClientes.Codigo
CodigoCliente = ObjClientes.Codigo CodigoCliente = ObjClientes.Codigo
@@ -2650,7 +2651,7 @@ Partial Class Clientes
CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(), CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text) Then
ViewState("CveCliente") = ObjClientes.CveCliente ViewState("CveCliente") = ObjClientes.CveCliente
@@ -2747,7 +2748,7 @@ Partial Class Clientes
ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(), ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(),
CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text) Then
ObjClientes.LimpiaImpuestosLocales(CveCliente) ObjClientes.LimpiaImpuestosLocales(CveCliente)
@@ -7648,12 +7649,12 @@ Partial Class Clientes
RegistraScript("Download('" & baseUrl & "')") RegistraScript("Download('" & baseUrl & "')")
End Sub End Sub
#End Region #End Region
#Region "D O C U M E N T O S V E N T A S" #Region "D O C U M E N T O S V E N T A S"
Private Sub CargaDocumentosVenta(tCveCliente As Integer) Private Sub CargaDocumentosVenta(tCveCliente As Integer)
Dim objInv As New ClsEdocumentacion Dim objInv As New ClsEdocumentacion
@@ -7824,11 +7825,11 @@ Partial Class Clientes
objRH.Dispose() objRH.Dispose()
End Sub End Sub
#End Region #End Region
#Region "PERSONA FISICA" #Region "PERSONA FISICA"
Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs) Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DivModalPersonaFisica').modal();") RegistraScript("$('#DivModalPersonaFisica').modal();")
@@ -7853,9 +7854,9 @@ Partial Class Clientes
ObjCliente.Dispose() ObjCliente.Dispose()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
#End Region #End Region
#Region "USUARIOS PLATAFORMA CLIENTE - 6 " #Region "USUARIOS PLATAFORMA CLIENTE - 6 "
Protected Sub CargaUsuariosPortalCliente() Protected Sub CargaUsuariosPortalCliente()
Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios
@@ -7864,19 +7865,19 @@ Partial Class Clientes
GvUsuarios.DataBind() GvUsuarios.DataBind()
End If End If
objUsuario.Dispose() objUsuario.Dispose()
End Sub End Sub
#End Region #End Region
#Region " DEVOLVER DINERO ANT/NC " #Region " DEVOLVER DINERO ANT/NC "
Private Sub InicializaDevolverDinero() Private Sub InicializaDevolverDinero()
If UsuarioActual.TienePermisoProceso(247) Then If UsuarioActual.TienePermisoProceso(247) Then
GVAnticipos.Columns(6).Visible = True GVAnticipos.Columns(6).Visible = True
End If End If
End Sub End Sub
#End Region #End Region
#Region "MODAL GRAFICA/PEDIDOS" #Region "MODAL GRAFICA/PEDIDOS"
Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs) Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
If CargaDatatables() Then If CargaDatatables() Then
RegistraScript("$('#DivModalGrafica').modal('show')") RegistraScript("$('#DivModalGrafica').modal('show')")
@@ -8213,13 +8214,13 @@ Partial Class Clientes
RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55") RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55")
UPModalProd.Update() UPModalProd.Update()
End Sub End Sub
#End Region #End Region
#Region "TAB - COMPORTAMIENTO DE VENTAS" #Region "TAB - COMPORTAMIENTO DE VENTAS"
Private Sub CargaGrupo() Private Sub CargaGrupo()
DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3")) DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4")) DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4"))
@@ -8446,10 +8447,10 @@ Partial Class Clientes
CargaEventoBitacora() CargaEventoBitacora()
NombreDispositivo = "" NombreDispositivo = ""
RegistraScript("$('#DivMoverDispositivo').modal('hide');") RegistraScript("$('#DivMoverDispositivo').modal('hide');")
End Sub End Sub
#End Region #End Region
#Region "CRM" #Region "CRM"
Protected Sub CargaDatosCRM() Protected Sub CargaDatosCRM()
Dim ObjCRM = New ClsCRM() Dim ObjCRM = New ClsCRM()