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:
JPerez
2025-07-08 01:43:16 -07:00
parent 282b31b4eb 61ff3a67fb
commit 86d72c797e
15 changed files with 205 additions and 157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsContabilidad.vb
View File

@@ -293,7 +293,7 @@ Public Class ClsContabilidad
Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1,
Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1,
Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional ImporteME As Decimal = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Conta_PrePolizasDetalleUpdate") DataAdapter("PA_Conta_PrePolizasDetalleUpdate")
@@ -319,6 +319,7 @@ Public Class ClsContabilidad
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@CveIE", SqlDbType.Int).Value = CveIE .Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@ImporteME", SqlDbType.Money).Value = ImporteME.RoundSQL(3)
End With End With
Try Try

18
App_Code/ClsExportaciones.vb
View File

@@ -143,9 +143,10 @@ Public Class ClsExportaciones
Public Function AddExportacion(CveSubProyecto As Integer, NumeroPedimento As String, FechaPedimento As Date, CveVenta As Integer, TipoCambio As Decimal, TipoExportacion As Integer, Public Function AddExportacion(CveSubProyecto As Integer, NumeroPedimento As String, FechaPedimento As Date, CveVenta As Integer, TipoCambio As Decimal, TipoExportacion As Integer,
CveExportacionEstatus As Integer, CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer, CveAgente As Integer, CveExportacionEstatus As Integer, CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer, CveAgente As Integer,
ClaveAduana As Integer, CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer, Sello1 As String, Sello2 As String, Sello3 As String, ClaveAduana As Integer, DescripcionContenedor As String, CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer, Sello1 As String,
SCAC As String, CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador As Integer, CveDirConsignatario As Integer, Sello2 As String, Sello3 As String, SCAC As String, CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador As Integer,
CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean, EsExportacion As Boolean) As Integer CveDirImportador As Integer, CveDirConsignatario As Integer, CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer,
ITN As String, Vinculacion As Boolean, EsExportacion As Boolean) As Integer
Dim Retorno As Integer = -1 Dim Retorno As Integer = -1
DataAdapter("PA_Exp_ExportacionesAdd") DataAdapter("PA_Exp_ExportacionesAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -161,6 +162,7 @@ Public Class ClsExportaciones
.Add("@CveClienteConsignatario", SqlDbType.Int).Value = CveClienteConsignatario .Add("@CveClienteConsignatario", SqlDbType.Int).Value = CveClienteConsignatario
.Add("@CveAgente", SqlDbType.Int).Value = CveAgente .Add("@CveAgente", SqlDbType.Int).Value = CveAgente
.Add("@ClaveAduana", SqlDbType.Int).Value = ClaveAduana .Add("@ClaveAduana", SqlDbType.Int).Value = ClaveAduana
.Add("@DescripcionContenedor", SqlDbType.VarChar).Value = DescripcionContenedor
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@MedioTransporte", SqlDbType.Int).Value = MedioTransporte .Add("@MedioTransporte", SqlDbType.Int).Value = MedioTransporte
.Add("@TipoContenedor", SqlDbType.Int).Value = TipoContenedor .Add("@TipoContenedor", SqlDbType.Int).Value = TipoContenedor
@@ -173,6 +175,7 @@ Public Class ClsExportaciones
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveDirExportador", SqlDbType.Int).Value = CveDirExportador .Add("@CveDirExportador", SqlDbType.Int).Value = CveDirExportador
.Add("@CveDirImportador", SqlDbType.Int).Value = CveDirImportador
.Add("@CveDirConsignatario", SqlDbType.Int).Value = CveDirConsignatario .Add("@CveDirConsignatario", SqlDbType.Int).Value = CveDirConsignatario
.Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm .Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm
.Add("@Notas", SqlDbType.VarChar).Value = Notas .Add("@Notas", SqlDbType.VarChar).Value = Notas
@@ -196,9 +199,10 @@ Public Class ClsExportaciones
Public Function UpdateExportacion(CveExportacion As Integer, CveSubProyecto As Integer, NumeroPedimento As String, FechaPedimento As Date, CveVenta As Integer, TipoCambio As Decimal, Public Function UpdateExportacion(CveExportacion As Integer, CveSubProyecto As Integer, NumeroPedimento As String, FechaPedimento As Date, CveVenta As Integer, TipoCambio As Decimal,
TipoExportacion As Integer, CveExportacionEstatus As Integer, CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer, TipoExportacion As Integer, CveExportacionEstatus As Integer, CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer,
CveAgente As Integer, ClaveAduana As Integer, CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer, Sello1 As String, Sello2 As String, CveAgente As Integer, ClaveAduana As Integer, DescripcionContenedor As String, CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer,
Sello3 As String, SCAC As String, CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador As Integer, Sello1 As String, Sello2 As String, Sello3 As String, SCAC As String, CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer,
CveDirConsignatario As Integer, CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean) As Boolean CveDirExportador As Integer, CveDirImportador As Integer, CveDirConsignatario As Integer, CveIncoterm As Integer, Notas As String, CvePedimento As Integer,
CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Exp_ExportacionesUpdate") DataAdapter("PA_Exp_ExportacionesUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -215,6 +219,7 @@ Public Class ClsExportaciones
.Add("@CveClienteConsignatario", SqlDbType.Int).Value = CveClienteConsignatario .Add("@CveClienteConsignatario", SqlDbType.Int).Value = CveClienteConsignatario
.Add("@CveAgente", SqlDbType.Int).Value = CveAgente .Add("@CveAgente", SqlDbType.Int).Value = CveAgente
.Add("@ClaveAduana", SqlDbType.Int).Value = ClaveAduana .Add("@ClaveAduana", SqlDbType.Int).Value = ClaveAduana
.Add("@DescripcionContenedor", SqlDbType.VarChar).Value = DescripcionContenedor
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@MedioTransporte", SqlDbType.Int).Value = MedioTransporte .Add("@MedioTransporte", SqlDbType.Int).Value = MedioTransporte
.Add("@TipoContenedor", SqlDbType.Int).Value = TipoContenedor .Add("@TipoContenedor", SqlDbType.Int).Value = TipoContenedor
@@ -227,6 +232,7 @@ Public Class ClsExportaciones
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveDirExportador", SqlDbType.Int).Value = CveDirExportador .Add("@CveDirExportador", SqlDbType.Int).Value = CveDirExportador
.Add("@CveDirImportador", SqlDbType.Int).Value = CveDirImportador
.Add("@CveDirConsignatario", SqlDbType.Int).Value = CveDirConsignatario .Add("@CveDirConsignatario", SqlDbType.Int).Value = CveDirConsignatario
.Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm .Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm
.Add("@Notas", SqlDbType.VarChar).Value = Notas .Add("@Notas", SqlDbType.VarChar).Value = Notas

9
Bancos/PagoAcreedor.aspx.cs
View File

@@ -242,11 +242,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransaccion.SelectedValue.ToEntero(), TxtFechaDocumento.Text.Trim().ToDate(), TxtFolio.Text.Trim(), DdlProveedores.SelectedText.ToString(), ImporteBanco.ToString().ToDouble(), CveMonedaPago, CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransaccion.SelectedValue.ToEntero(), TxtFechaDocumento.Text.Trim().ToDate(), TxtFolio.Text.Trim(), DdlProveedores.SelectedText.ToString(), ImporteBanco.ToString().ToDouble(), CveMonedaPago,
TCPago.ToString().ToDouble(), TxtObservaciones.Text.Trim(), "", ChkAbonoCuenta.Checked, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); TCPago.ToString().ToDouble(), TxtObservaciones.Text.Trim(), "", ChkAbonoCuenta.Checked, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
if (CveIE > 0) if (CveIE > 0)
{ {
decimal Importe; decimal Importe;
decimal ImporteMN; decimal ImporteMN;
decimal ImporteComision; decimal ImporteComision;
@@ -286,6 +283,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
if (tCveMoneda > 1 && gvr.DataKey("FechaDocumento").ToDate() < TxtFechaDocumento.Text.ToDate().FirstDayOfMonth()) if (tCveMoneda > 1 && gvr.DataKey("FechaDocumento").ToDate() < TxtFechaDocumento.Text.ToDate().FirstDayOfMonth())
{ {
TC = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDate().AddMonths(-1).LastDayOfMonth()).ToDecimal();//obtengo el TC del mes anterior del pago TC = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDate().AddMonths(-1).LastDayOfMonth()).ToDecimal();//obtengo el TC del mes anterior del pago
CveConceptoContablePago = 384;
} }
ImporteBancosMN = (Importe * TCPago).RoundSQL(); ImporteBancosMN = (Importe * TCPago).RoundSQL();
ImporteAcreedorMN = (Importe * TC).RoundSQL(); ImporteAcreedorMN = (Importe * TC).RoundSQL();
@@ -323,6 +321,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
ImporteComision = ImporteComision.RoundSQL(); ImporteComision = ImporteComision.RoundSQL();
AcumImporteMN += ImporteMN; AcumImporteMN += ImporteMN;
if (tCveMoneda > 1 ) { CveConceptoContablePago = 384; }
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, ImporteMN, CveConceptoContablePago, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, ImporteMN, CveConceptoContablePago, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
{ {
MsgError = "No se pudo insertar concepto de pago acreedor"; MsgError = "No se pudo insertar concepto de pago acreedor";
@@ -619,10 +619,9 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
MsgError = "No se pudo insertar concepto de bancos"; MsgError = "No se pudo insertar concepto de bancos";
} }
if (CveMoneda != 1) if (CveMoneda != 1)
{ {
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteMN, CveConceptoContablePrestamo, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteMN, 383, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero()))
{ {
MsgError = "No se pudo insertar concepto de acreedor"; MsgError = "No se pudo insertar concepto de acreedor";
} }

4
Contabilidad/ContabilidadElectronica.aspx.vb
View File

@@ -186,7 +186,7 @@ Partial Class Contabilidad_ContabilidadElectronica
Dim Archivopfx As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX }" Dim Archivopfx As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX }"
Dim Clavepfx As String = UsuarioActual.Empresa.FielPassword Dim Clavepfx As String = UsuarioActual.Empresa.FielPassword
Dim xsltPath As String Dim xsltPath As String = ""
Select Case Opcion Select Case Opcion
Case 1 Case 1
xsltPath = $"{AppDomain.CurrentDomain.BaseDirectory}Temp\CatalogoCuentas_1_3.xslt" xsltPath = $"{AppDomain.CurrentDomain.BaseDirectory}Temp\CatalogoCuentas_1_3.xslt"
@@ -265,7 +265,7 @@ Partial Class Contabilidad_ContabilidadElectronica
Dim DtCuentas As New DataTable Dim DtCuentas As New DataTable
If UsuarioActual.Empresa.TipoContabilidad = 1 Then If UsuarioActual.Empresa.TipoContabilidad = 1 Then
Dim objconta As New ClsContabilidad Dim objconta As New ClsContabilidad
If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then If objconta.GetBalanzaComprobacion(FechaI, FechaF, 5, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
DtCuentas = objconta.DtResultados DtCuentas = objconta.DtResultados
End If End If
objconta.Dispose() objconta.Dispose()

53
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -1173,33 +1173,44 @@ Partial Class ContabilidadC_RegPrePolizaS
If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
If CBool(row.DataKey("Modificado")) Then If CBool(row.DataKey("Modificado")) Then
contador = contador + 1 contador = contador + 1
Dim tImporteME As Decimal = 0
If CBool(row.DataKey("EsMonedaExtranjera")) Then tImporteME = row.DataKey("ImporteME").ToDecimal
Dim ImporteIE As Decimal = If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal) Dim ImporteIE As Decimal = If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal)
If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL) Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"), Dim tCveMoneda As Integer = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveMoneda", $"CveCuenta = {row.DataKey("ContadoCuenta")}").ToEntero
row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "", CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"),
False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) row.DataKey("ContadoBeneficiario"), ImporteIE, tCveMoneda, row.DataKey("TC").ToDecimal, row.DataKey("ContadoObservaciones"), "",
If CveIEAgregado < 0 Then False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
'MsgError = "No se pudo registrar movimiento bancario" If CveIEAgregado < 0 Then
'MsgError = "No se pudo registrar movimiento bancario"
OcurrioError = True
Exit For
End If
End If
If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
-1, If(row.DataKey("Cargo").ToDecimal <> 0, False, True),
If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero,
CveProveedor:=row.DataKey("CveProveedor").ToEntero,
CveCompra:=row.DataKey("CveCompra").ToEntero,
CveCliente:=row.DataKey("CveCliente").ToEntero,
CveVenta:=row.DataKey("CveVenta").ToEntero,
CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
CvePersonal:=row.DataKey("CvePersonal").ToEntero,
Referencia:=row.FCLiteral("TxtRef").Text,
TipoCambio:=row.DataKey("TC").ToDecimal,
CveActivoFijo:=row.DataKey("CveActivoFijo").ToEntero,
CveCuenta:=row.DataKey("CveCuenta").ToEntero,
ImporteME:=tImporteME,
CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
OcurrioError = True OcurrioError = True
Exit For Exit For
End If End If
End If End If
If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, Else
-1, If(row.DataKey("Cargo").ToDecimal <> 0, False, True),
If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text,
TipoCambio:=row.DataKey("TC").ToDecimal, CveActivoFijo:=row.DataKey("CveActivoFijo").ToEntero,
CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
OcurrioError = True
Exit For
End If
End If
Else
contador = contador + 1 contador = contador + 1
Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal) Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal)

43
Contabilidad/RepBalanzaComprobacion.aspx
View File

@@ -136,15 +136,10 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<br /> <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px" align="left;">
<div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px" align="left;">
<input type="text" id="TxtBusquedaIndicadores" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <input type="text" id="TxtBusquedaIndicadores" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
<div class="row"> <div class="row">
@@ -153,27 +148,25 @@
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" <asp:GridView ID="GvDatos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound"> runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvDatos_RowDataBound">
<Columns> <Columns>
<asp:TemplateField HeaderText="Nivel" > <asp:TemplateField HeaderText="Nivel" >
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblNivelSAT" runat="server" Text='<%# Eval("Nivel")%>'></asp:Label> <asp:Label ID="LblNivelSAT" runat="server" Text='<%# Eval("Nivel")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="20px" /> <ItemStyle Width="20px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left" HeaderStyle-Width ="125px">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label> <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="180" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label> <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="320" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField HeaderStyle-Width ="170px">
<HeaderTemplate> <HeaderTemplate>
<table width="100%"> <table width="100%">
<tr> <tr>
@@ -186,23 +179,23 @@
</table> </table>
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbSaldoInicial" Style="padding-right: 75px;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label> <asp:Label ID="LbSaldoInicial" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cargos"> <asp:TemplateField HeaderText="Cargos" HeaderStyle-Width ="140px">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label> <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Abonos"> <asp:TemplateField HeaderText="Abonos" HeaderStyle-Width ="140px">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label> <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField HeaderStyle-Width ="170px">
<HeaderTemplate> <HeaderTemplate>
<table width="100%"> <table width="100%">
<tr> <tr>
@@ -218,13 +211,13 @@
<asp:HyperLink ID="HLSaldoActual" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLSaldoActual" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<asp:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label> <asp:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Diferencia" Visible="false"> <asp:TemplateField HeaderText="Diferencia" Visible="false" HeaderStyle-Width ="100px">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="Lbdif" runat="server" Text='<%# Eval("diferenciaSAT", "{0:N2}")%>'></asp:Literal> <asp:Literal ID="Lbdif" runat="server" Text='<%# Eval("diferenciaSAT", "{0:N2}")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="100" HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
<HeaderStyle Font-Bold="true" HorizontalAlign="Center" /> <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />

8
Contabilidad/RepBalanzaComprobacion.aspx.vb
View File

@@ -180,7 +180,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
RegistraScript("Enable();") RegistraScript("Enable();")
End Sub End Sub
Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor") = "1" OrElse e.Row.DBCampo("CtaMayor") = "3" OrElse e.Row.DBCampo("CtaMayor") = "4" Then If e.Row.DBCampo("CtaMayor") = "1" OrElse e.Row.DBCampo("CtaMayor") = "3" OrElse e.Row.DBCampo("CtaMayor") = "4" Then
@@ -189,9 +189,11 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
'Acomoda Deudor y Acreedor 'Acomoda Deudor y Acreedor
If e.Row.DBCampo("CveTipo") = "0" Then If e.Row.DBCampo("CveTipo") = "0" Then
'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} ", e.Row.DBCampo("SaldoInicial").FormatoNumero) e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} ", e.Row.DBCampo("SaldoInicial").FormatoNumero)
e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right") e.Row.FCLabel("LbSaldoInicial").Style.Add("padding-right", "65px")
e.Row.FCLabel("LbSaldoActual").Text = " " e.Row.FCLabel("LbSaldoActual").Text = " "
e.Row.FCLabel("LbSaldoActual").Style.Add("padding-right", "65px")
End If End If
'Colorea NEGATIVOS 'Colorea NEGATIVOS

17
Export/ExpDetalle.aspx
View File

@@ -25,6 +25,8 @@
<div style="display: flex; align-items: center; gap: 10px; width: 100%;"> <div style="display: flex; align-items: center; gap: 10px; width: 100%;">
<div class="form-group form-md-line-input input-iconright" style="width: 200px;"> <div class="form-group form-md-line-input input-iconright" style="width: 200px;">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVSubP" runat="server" ControlToValidate="DdlSubProyecto" Display="None" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCESubP" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubP" Width="350px"></ajax:ValidatorCalloutExtender>
<label for="<%= DdlSubProyecto.ClientID.ToString()%>">Sub Proyecto:</label> <label for="<%= DdlSubProyecto.ClientID.ToString()%>">Sub Proyecto:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright" style="width: 200px;"> <div class="form-group form-md-line-input input-iconright" style="width: 200px;">
@@ -213,6 +215,14 @@
<ajax:ValidatorCalloutExtender ID="VCEDirExp" runat="server" HighlightCssClass="vco" TargetControlID="RFVDirExp" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEDirExp" runat="server" HighlightCssClass="vco" TargetControlID="RFVDirExp" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-4" Text="Clave Dir. Importador:"></asp:Label>
<div class="whitoutcol whitoutcol" style="width: 300px;">
<asp:DropDownList ID="DdlDirImp" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="Direccion" DataValueField="CveProveedorSucursal"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDirImp" runat="server" ControlToValidate="DdlDirImp" Display="None" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clave Dir. Importador''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEDirImp" runat="server" HighlightCssClass="vco" TargetControlID="RFVDirImp" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="form-group row" style="width: 100%;"> <div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-4" Text="Clave Dir. Consignatario:"></asp:Label> <asp:Label runat="server" CssClass="col-sm-4" Text="Clave Dir. Consignatario:"></asp:Label>
<div class="whitoutcol whitoutcol" style="width: 300px;"> <div class="whitoutcol whitoutcol" style="width: 300px;">
@@ -344,8 +354,9 @@
<div class="portlet-body form-horizontal form-row-sepe formnombottom" style="padding-left:8px"> <div class="portlet-body form-horizontal form-row-sepe formnombottom" style="padding-left:8px">
<div class="form-group row" style="width: 100%;"> <div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-4" Text="Descripción Contenedor:"></asp:Label> <asp:Label runat="server" CssClass="col-sm-4" Text="Descripción Contenedor:"></asp:Label>
<div class="whitoutcol whitoutcol" style="width: 300px;"> <div class="form-group form-md-line-input linewhitsize" style="width: 300px;">
<asp:DropDownList ID="DdlDescContenedor" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="" DataValueField=""></asp:DropDownList> <asp:TextBox ID="TxtDescContenedor" runat="server" CssClass="form-control input-sm" MaxLength="50" Width="100%" Text=""></asp:TextBox>
<label for="<%= TxtDescContenedor.ClientID.ToString()%>"></label>
</div> </div>
</div> </div>
<div class="form-group row" style="width: 100%;"> <div class="form-group row" style="width: 100%;">
@@ -655,7 +666,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Tasa IVA" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="Tasa IVA" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblTasaIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Label> <asp:Label ID="lblTasaIVA" runat="server" Text='<%# Eval("IVA") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Total de Empaque" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Total de Empaque" ItemStyle-HorizontalAlign="Left">

61
Export/ExpDetalle.aspx.cs
View File

@@ -87,7 +87,6 @@ public partial class Export_ExpDetalle : ClsPaginas
// Factura // Factura
ClsVentas Ventas = new ClsVentas(); ClsVentas Ventas = new ClsVentas();
// El problema es que solo se obtienen los registros donde CveUsuarioConsulta = Sis_UsuariosSubProyectos.CveUsuario en la BD
if (Ventas.GetVentas(CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, DateTime.Today.AddMonths(-1).ToString(), ModExtensiones.MaxFecha.ToString(), "-1", CveUsuarioConsulta: CveUsuario)) if (Ventas.GetVentas(CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, DateTime.Today.AddMonths(-1).ToString(), ModExtensiones.MaxFecha.ToString(), "-1", CveUsuarioConsulta: CveUsuario))
{ {
DdlVentas.Items.Clear(); DdlVentas.Items.Clear();
@@ -192,6 +191,7 @@ public partial class Export_ExpDetalle : ClsPaginas
DdlAgenteExt.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveAgenteExtranjero"); DdlAgenteExt.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveAgenteExtranjero");
DdlClaveAduana.SelectedValue = DTExportaciones.FiltroPrimeroValor("ClaveAduana"); DdlClaveAduana.SelectedValue = DTExportaciones.FiltroPrimeroValor("ClaveAduana");
TxtDescContenedor.Text = DTExportaciones.FiltroPrimeroValor("DescripcionContenedor");
DdlCompTransportista.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveProveedor"); DdlCompTransportista.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveProveedor");
DdlCompTransportista.SelectedText = DTExportaciones.FiltroPrimeroValor("Proveedor"); DdlCompTransportista.SelectedText = DTExportaciones.FiltroPrimeroValor("Proveedor");
TxtPlaca.Text = DTExportaciones.FiltroPrimeroValor("ContenedorPlaca"); TxtPlaca.Text = DTExportaciones.FiltroPrimeroValor("ContenedorPlaca");
@@ -227,6 +227,7 @@ public partial class Export_ExpDetalle : ClsPaginas
ActualizarValores(); // Se actualizan los valores que dependen de otros campos ActualizarValores(); // Se actualizan los valores que dependen de otros campos
DdlDirExp.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirExportador"); // Seleccionar las Dir DESPUÉS de llenar el dropdown DdlDirExp.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirExportador"); // Seleccionar las Dir DESPUÉS de llenar el dropdown
DdlDirImp.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirImportador");
DdlDirCon.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirConsignatario"); DdlDirCon.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirConsignatario");
CargarPartidas(); CargarPartidas();
@@ -292,6 +293,23 @@ public partial class Export_ExpDetalle : ClsPaginas
} }
} }
// Clave Dir. Importador
string CveImportador = DdlImp.SelectedValue;
if (CveImportador != "" && CveImportador != "-1")
{
string CveDirImp = DdlDirImp.Text;
DdlDirImp.Items.Clear();
DdlDirImp.DataSource = get_GlobalDTProveedorSucursales(CveImportador.ToEntero(), CveEmpresa);
DdlDirImp.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlDirImp.DataBind();
if (CveDirImp != "" && CveDirImp != "-1")
{
ListItem ItemDirImp = DdlDirImp.Items.FindByValue(CveDirImp);
if (ItemDirImp != null)
DdlDirImp.SelectedValue = CveDirImp;
}
}
// Clave Dir. Consignatario // Clave Dir. Consignatario
string CveConsignatario = DdlCon.SelectedValue; string CveConsignatario = DdlCon.SelectedValue;
if (CveConsignatario != "" && CveConsignatario != "-1") if (CveConsignatario != "" && CveConsignatario != "-1")
@@ -367,6 +385,7 @@ public partial class Export_ExpDetalle : ClsPaginas
string ITN = TxtITN.Text; string ITN = TxtITN.Text;
int CveSubProyecto = DdlSubProyecto.Text.ToEntero(); int CveSubProyecto = DdlSubProyecto.Text.ToEntero();
string NumeroPedimento = TxtNumPed.Text; string NumeroPedimento = TxtNumPed.Text;
NumeroPedimento = NumeroPedimento == "__--__--____--_______" ? "" : NumeroPedimento;
DateTime FechaPedimento = TxtFechaPedim.Text.ToDate(); DateTime FechaPedimento = TxtFechaPedim.Text.ToDate();
int CveVenta = DdlVentas.Text.ToEntero(); int CveVenta = DdlVentas.Text.ToEntero();
decimal TipoCambio = ModExtensiones.ToDecimal(TxtTipoCambio.Text); decimal TipoCambio = ModExtensiones.ToDecimal(TxtTipoCambio.Text);
@@ -374,6 +393,7 @@ public partial class Export_ExpDetalle : ClsPaginas
int CveExportacionEstatus = DdlExpEstatus.Text.ToEntero(); int CveExportacionEstatus = DdlExpEstatus.Text.ToEntero();
int CveAgente = DdlAgenteMex.Text.ToEntero(); int CveAgente = DdlAgenteMex.Text.ToEntero();
int ClaveAduana = DdlClaveAduana.Text.ToEntero(); int ClaveAduana = DdlClaveAduana.Text.ToEntero();
string DescripcionContenedor = TxtDescContenedor.Text;
int CveProveedor = DdlCompTransportista.SelectedValue.ToEntero(); int CveProveedor = DdlCompTransportista.SelectedValue.ToEntero();
int MedioTransporte = DdlMedioTran.Text.ToEntero(); int MedioTransporte = DdlMedioTran.Text.ToEntero();
int TipoContenedor = DdlTipoContenedor.Text.ToEntero(); int TipoContenedor = DdlTipoContenedor.Text.ToEntero();
@@ -386,6 +406,7 @@ public partial class Export_ExpDetalle : ClsPaginas
int CveEmpresa = UsuarioActual.CveEmpresa; int CveEmpresa = UsuarioActual.CveEmpresa;
int CveUsuario = UsuarioActual.CveUsuario; int CveUsuario = UsuarioActual.CveUsuario;
int CveDirExportador = DdlDirExp.Text.ToEntero(); int CveDirExportador = DdlDirExp.Text.ToEntero();
int CveDirImportador = DdlDirImp.Text.ToEntero();
int CveDirConsignatario = DdlDirCon.Text.ToEntero(); int CveDirConsignatario = DdlDirCon.Text.ToEntero();
bool Vinculacion = CkbVinculacion.Checked; bool Vinculacion = CkbVinculacion.Checked;
int CveIncoterm = DdlIncoterm.Text.ToEntero(); int CveIncoterm = DdlIncoterm.Text.ToEntero();
@@ -421,6 +442,7 @@ public partial class Export_ExpDetalle : ClsPaginas
CveClienteConsignatario.ToEntero(), CveClienteConsignatario.ToEntero(),
CveAgente, CveAgente,
ClaveAduana, ClaveAduana,
DescripcionContenedor,
CveProveedor, CveProveedor,
MedioTransporte, MedioTransporte,
TipoContenedor, TipoContenedor,
@@ -433,6 +455,7 @@ public partial class Export_ExpDetalle : ClsPaginas
CveEmpresa, CveEmpresa,
CveUsuario, CveUsuario,
CveDirExportador, CveDirExportador,
CveDirImportador,
CveDirConsignatario, CveDirConsignatario,
CveIncoterm, CveIncoterm,
Notas, Notas,
@@ -501,6 +524,7 @@ public partial class Export_ExpDetalle : ClsPaginas
CveClienteConsignatario.ToEntero(), CveClienteConsignatario.ToEntero(),
CveAgente, CveAgente,
ClaveAduana, ClaveAduana,
DescripcionContenedor,
CveProveedor, CveProveedor,
MedioTransporte, MedioTransporte,
TipoContenedor, TipoContenedor,
@@ -513,6 +537,7 @@ public partial class Export_ExpDetalle : ClsPaginas
CveEmpresa, CveEmpresa,
CveUsuario, CveUsuario,
CveDirExportador, CveDirExportador,
CveDirImportador,
CveDirConsignatario, CveDirConsignatario,
CveIncoterm, CveIncoterm,
Notas, Notas,
@@ -794,7 +819,26 @@ public partial class Export_ExpDetalle : ClsPaginas
string FraccionArancelaria = ""; string FraccionArancelaria = "";
string UnidadAduana = ""; string UnidadAduana = "";
string CveFraccionArancelaria = get_GlobalDTPS(CveEmpresa, CvePS).FiltroPrimeroValor("CveFraccionArancelaria"); DataTable DTPS = get_GlobalDTPS(CveEmpresa, CvePS);
string IVA = DTPS.FiltroPrimeroValor("IVA");
if (IVA == "-1")
{
if (DdlSubProyecto.Text != "-1")
{
DataTable DTSubProyectos = get_GlobalDTSubProyectosUsuarios(CveUsuario, -1, CveEmpresa, DdlSubProyecto.Text.ToEntero());
IVA = DTSubProyectos.FiltroPrimeroValor("IVA");
}
else
{
IVA = "";
}
}
if (IVA != "")
{
decimal iva_decimal = ModExtensiones.ToDecimal(IVA);
IVA = iva_decimal.ToString("N2");
}
string CveFraccionArancelaria = DTPS.FiltroPrimeroValor("CveFraccionArancelaria");
if (CveFraccionArancelaria != "" && GlobalDTFraccionArancelaria.Any()) if (CveFraccionArancelaria != "" && GlobalDTFraccionArancelaria.Any())
{ {
DataTable DTFraccArancelaria = GlobalDTFraccionArancelaria.CopyToDataTable(); DataTable DTFraccArancelaria = GlobalDTFraccionArancelaria.CopyToDataTable();
@@ -814,6 +858,7 @@ public partial class Export_ExpDetalle : ClsPaginas
PartidaRow["ClaveSATPais"] = ClaveSATPais; PartidaRow["ClaveSATPais"] = ClaveSATPais;
PartidaRow["Precio"] = Precio; PartidaRow["Precio"] = Precio;
PartidaRow["ValorTotalMXP"] = ValorTotalMXP; PartidaRow["ValorTotalMXP"] = ValorTotalMXP;
PartidaRow["IVA"] = IVA;
PartidaRow["Cantidad"] = Cantidad; PartidaRow["Cantidad"] = Cantidad;
PartidaRow["PesoUnitario"] = PesoUnitario; PartidaRow["PesoUnitario"] = PesoUnitario;
PartidaRow["PesoBruto"] = PesoBruto; PartidaRow["PesoBruto"] = PesoBruto;
@@ -837,6 +882,7 @@ public partial class Export_ExpDetalle : ClsPaginas
PartidaRow["ClaveSATPais"] = ClaveSATPais; PartidaRow["ClaveSATPais"] = ClaveSATPais;
PartidaRow["Precio"] = Precio; PartidaRow["Precio"] = Precio;
PartidaRow["ValorTotalMXP"] = ValorTotalMXP; PartidaRow["ValorTotalMXP"] = ValorTotalMXP;
PartidaRow["IVA"] = IVA;
PartidaRow["Cantidad"] = Cantidad; PartidaRow["Cantidad"] = Cantidad;
PartidaRow["PesoUnitario"] = PesoUnitario; PartidaRow["PesoUnitario"] = PesoUnitario;
PartidaRow["PesoBruto"] = PesoBruto; PartidaRow["PesoBruto"] = PesoBruto;
@@ -879,6 +925,7 @@ public partial class Export_ExpDetalle : ClsPaginas
DTTemp.Columns.Add("ClaveSATPais", typeof(string)); DTTemp.Columns.Add("ClaveSATPais", typeof(string));
DTTemp.Columns.Add("Precio", typeof(decimal)); DTTemp.Columns.Add("Precio", typeof(decimal));
DTTemp.Columns.Add("ValorTotalMXP", typeof(decimal)); DTTemp.Columns.Add("ValorTotalMXP", typeof(decimal));
DTTemp.Columns.Add("IVA", typeof(string));
DTTemp.Columns.Add("Cantidad", typeof(decimal)); DTTemp.Columns.Add("Cantidad", typeof(decimal));
DTTemp.Columns.Add("PesoUnitario", typeof(decimal)); DTTemp.Columns.Add("PesoUnitario", typeof(decimal));
DTTemp.Columns.Add("PesoBruto", typeof(decimal)); DTTemp.Columns.Add("PesoBruto", typeof(decimal));
@@ -963,8 +1010,9 @@ public partial class Export_ExpDetalle : ClsPaginas
DataRow RowExp = DTExportaciones.Rows[0]; DataRow RowExp = DTExportaciones.Rows[0];
string ClienteExportador = DTExportaciones.FiltroPrimeroValor("ClienteExportador"); string ClienteExportador = DTExportaciones.FiltroPrimeroValor("ClienteExportador");
string DirExportador = DTExportaciones.FiltroPrimeroValor("DirExportador"); string DirExportador = DTExportaciones.FiltroPrimeroValor("DirExportador");
string ClienteImortador = DTExportaciones.FiltroPrimeroValor("ClienteImportador"); string ClienteImportador = DTExportaciones.FiltroPrimeroValor("ClienteImportador");
string RFCImp = DTExportaciones.FiltroPrimeroValor("RFCImp"); string RFCImp = DTExportaciones.FiltroPrimeroValor("RFCImp");
string IMMEXimp = DTExportaciones.FiltroPrimeroValor("IMMEXimp");
string NumFactura = DTExportaciones.FiltroPrimeroValor("SerieFolio"); string NumFactura = DTExportaciones.FiltroPrimeroValor("SerieFolio");
string ClaveSATPedimento = DTExportaciones.FiltroPrimeroValor("ClaveSATPedimento"); string ClaveSATPedimento = DTExportaciones.FiltroPrimeroValor("ClaveSATPedimento");
string ITN = DTExportaciones.FiltroPrimeroValor("ITN"); string ITN = DTExportaciones.FiltroPrimeroValor("ITN");
@@ -993,6 +1041,7 @@ public partial class Export_ExpDetalle : ClsPaginas
string ClienteConsignatario = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario"); string ClienteConsignatario = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario");
string DirConsignatario = DTExportaciones.FiltroPrimeroValor("DirConsignatario"); string DirConsignatario = DTExportaciones.FiltroPrimeroValor("DirConsignatario");
string RFCCon = DTExportaciones.FiltroPrimeroValor("RFCCon"); string RFCCon = DTExportaciones.FiltroPrimeroValor("RFCCon");
string IMMEXcon = DTExportaciones.FiltroPrimeroValor("IMMEXcon");
decimal IncFletes = 0.00m; decimal IncFletes = 0.00m;
decimal IncSeguro = 0.00m; decimal IncSeguro = 0.00m;
@@ -1014,6 +1063,7 @@ public partial class Export_ExpDetalle : ClsPaginas
string ClaveAduana = DTExportaciones.FiltroPrimeroValor("ClaveSATAduanaSeccionDescripcion"); string ClaveAduana = DTExportaciones.FiltroPrimeroValor("ClaveSATAduanaSeccionDescripcion");
ClaveAduana = ClaveAduana != " - - " ? ClaveAduana : ""; ClaveAduana = ClaveAduana != " - - " ? ClaveAduana : "";
string ClaveSATIncoterm = DTExportaciones.FiltroPrimeroValor("ClaveSATIncoterm"); string ClaveSATIncoterm = DTExportaciones.FiltroPrimeroValor("ClaveSATIncoterm");
string RFCAgente = DTExportaciones.FiltroPrimeroValor("RFCAgente");
string Patente = DTExportaciones.FiltroPrimeroValor("Patente"); string Patente = DTExportaciones.FiltroPrimeroValor("Patente");
string AgenteExt = DTExportaciones.FiltroPrimeroValor("AgenteExt"); string AgenteExt = DTExportaciones.FiltroPrimeroValor("AgenteExt");
string TaxId = DTExportaciones.FiltroPrimeroValor("TaxId"); string TaxId = DTExportaciones.FiltroPrimeroValor("TaxId");
@@ -1023,8 +1073,9 @@ public partial class Export_ExpDetalle : ClsPaginas
para.Add(new ReportParameter("CveExportacion", CveExportacion.ToString())); para.Add(new ReportParameter("CveExportacion", CveExportacion.ToString()));
para.Add(new ReportParameter("ClienteExportador", ClienteExportador)); para.Add(new ReportParameter("ClienteExportador", ClienteExportador));
para.Add(new ReportParameter("DirExportador", DirExportador)); para.Add(new ReportParameter("DirExportador", DirExportador));
para.Add(new ReportParameter("ClienteImportador", ClienteImortador)); para.Add(new ReportParameter("ClienteImportador", ClienteImportador));
para.Add(new ReportParameter("RFCImp", RFCImp)); para.Add(new ReportParameter("RFCImp", RFCImp));
para.Add(new ReportParameter("IMMEXimp", IMMEXimp));
para.Add(new ReportParameter("NumFactura", NumFactura)); para.Add(new ReportParameter("NumFactura", NumFactura));
para.Add(new ReportParameter("ClaveSATPedimento", ClaveSATPedimento)); para.Add(new ReportParameter("ClaveSATPedimento", ClaveSATPedimento));
para.Add(new ReportParameter("ITN", ITN)); para.Add(new ReportParameter("ITN", ITN));
@@ -1037,6 +1088,7 @@ public partial class Export_ExpDetalle : ClsPaginas
para.Add(new ReportParameter("ClienteConsignatario", ClienteConsignatario)); para.Add(new ReportParameter("ClienteConsignatario", ClienteConsignatario));
para.Add(new ReportParameter("DirConsignatario", DirConsignatario)); para.Add(new ReportParameter("DirConsignatario", DirConsignatario));
para.Add(new ReportParameter("RFCCon", RFCCon)); para.Add(new ReportParameter("RFCCon", RFCCon));
para.Add(new ReportParameter("IMMEXcon", IMMEXcon));
ClsExportaciones Gastos = new ClsExportaciones(); ClsExportaciones Gastos = new ClsExportaciones();
if (Gastos.GetGastos(CveExportacion)) if (Gastos.GetGastos(CveExportacion))
@@ -1079,6 +1131,7 @@ public partial class Export_ExpDetalle : ClsPaginas
para.Add(new ReportParameter("CAAT", CAAT)); para.Add(new ReportParameter("CAAT", CAAT));
para.Add(new ReportParameter("ClaveAduana", ClaveAduana)); para.Add(new ReportParameter("ClaveAduana", ClaveAduana));
para.Add(new ReportParameter("ClaveSATIncoterm", ClaveSATIncoterm)); para.Add(new ReportParameter("ClaveSATIncoterm", ClaveSATIncoterm));
para.Add(new ReportParameter("RFCAgente", RFCAgente));
para.Add(new ReportParameter("Patente", Patente)); para.Add(new ReportParameter("Patente", Patente));
para.Add(new ReportParameter("AgenteExt", AgenteExt)); para.Add(new ReportParameter("AgenteExt", AgenteExt));
para.Add(new ReportParameter("TaxId", TaxId)); para.Add(new ReportParameter("TaxId", TaxId));

4
Inicio.aspx.vb
View File

@@ -143,12 +143,12 @@ Partial Class Inicio
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer() If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
MuestraAniversarioLaboral() MuestraAniversarioLaboral()
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso
(UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then (UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165, 3960) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
divsms1.Visible = True divsms1.Visible = True
txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString
txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString
If UsuarioActual.CveUsuario.Contiene(3964, 4165) Then 'diego de la concha If UsuarioActual.CveUsuario.Contiene(3964, 4165, 3960) Then 'diego de la concha
DdlSMSOpciones.SelectedValue = "2" DdlSMSOpciones.SelectedValue = "2"
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ") DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
DdlSMSVendedores.DataBind() DdlSMSVendedores.DataBind()

46
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -128,7 +128,17 @@ Partial Class Inventarios_EntregaAlmacen
End Set End Set
End Property End Property
Private Property SeleccionLoteCaducidadCombo As Boolean
Get
If ViewState("SeleccionLoteCaducidadCombo") Is Nothing Then
ViewState("SeleccionLoteCaducidadCombo") = False
End If
Return CType(ViewState("SeleccionLoteCaducidadCombo"), Boolean)
End Get
Set(value As Boolean)
ViewState("SeleccionLoteCaducidadCombo") = value
End Set
End Property
Private Property TipoEstatus As Integer Private Property TipoEstatus As Integer
Get Get
@@ -631,18 +641,13 @@ Partial Class Inventarios_EntregaAlmacen
TipoEntrega = 1 TipoEntrega = 1
BtnGuardar.Visible = True BtnGuardar.Visible = True
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,26)" Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,4, 26)"
If UsuarioActual.CveSubProyecto = 8804 Then
StrAlmacenes = "CveTipoAlmacen IN (1,2,12)"
End If
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
If ObjInventario.EntregaAlmacenGet(CveVenta, UsuarioActual.CveEmpresa, CveAlmacen) Then If ObjInventario.EntregaAlmacenGet(CveVenta, UsuarioActual.CveEmpresa, CveAlmacen) Then
If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
Dim CveVentaPadre As Integer = -1 Dim CveVentaPadre As Integer = -1
ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta) ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
ArchivoBitacoraDetalle = String.Format("{0}Temp\EntregaDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta) ArchivoBitacoraDetalle = String.Format("{0}Temp\EntregaDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
If ArchivoBitacora <> "" Then If ArchivoBitacora <> "" Then
@@ -902,6 +907,11 @@ Partial Class Inventarios_EntregaAlmacen
Case Else Case Else
Filtro = "CveConcepto = 9" Filtro = "CveConcepto = 9"
End Select End Select
'condicion especial cuando es tipo uso de material
'CveTipoVenta
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(5, 6) AndAlso TipoDocto = "Ped" Then
Filtro = "CveConcepto = 8" 'salida del almacen de consigna
End If
If ObjInventario.GetInv_Mov(CveVentaPadre, UsuarioActual.CveEmpresa) Then If ObjInventario.GetInv_Mov(CveVentaPadre, UsuarioActual.CveEmpresa) Then
DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro} " & FiltroPS) DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro} " & FiltroPS)
@@ -1064,8 +1074,6 @@ Partial Class Inventarios_EntregaAlmacen
Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True) Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True)
If DtDatos IsNot Nothing Then If DtDatos IsNot Nothing Then
Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean
If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
AplicaSerie = CBool(DtDatos.MAX("AplicaSerie")) AplicaSerie = CBool(DtDatos.MAX("AplicaSerie"))
@@ -1079,6 +1087,7 @@ Partial Class Inventarios_EntregaAlmacen
If AplicaCaducidad Then GvDatos.Columns(10).Visible = True If AplicaCaducidad Then GvDatos.Columns(10).Visible = True
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
SeleccionLoteCaducidadCombo = True
GvDatos.Columns(8).Visible = True GvDatos.Columns(8).Visible = True
GvDatos.Columns(9).Visible = False GvDatos.Columns(9).Visible = False
GvDatos.Columns(10).Visible = False GvDatos.Columns(10).Visible = False
@@ -1285,7 +1294,7 @@ Partial Class Inventarios_EntregaAlmacen
If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then
Dim ValorAsignado As String = "" Dim ValorAsignado As String = ""
Dim DtDatosDevolucion As DataTable = Nothing Dim DtDatosDevolucion As DataTable = Nothing
If GvDatos.Columns(8).Visible AndAlso EsDevolucionVenta = 1 Then If SeleccionLoteCaducidadCombo AndAlso EsDevolucionVenta = 1 Then
ValorAsignado = $"{e.Row.DBCampo("Lote").ToString}|{e.Row.DBCampo("FechaCaducidad").ToDate.ToString("dd/MM/yyyy")}" ValorAsignado = $"{e.Row.DBCampo("Lote").ToString}|{e.Row.DBCampo("FechaCaducidad").ToDate.ToString("dd/MM/yyyy")}"
DtDatosDevolucion = DtDatos.Copy() DtDatosDevolucion = DtDatos.Copy()
End If End If
@@ -1308,8 +1317,6 @@ Partial Class Inventarios_EntregaAlmacen
Dim Lote As String = ArrayCaducidad(0) Dim Lote As String = ArrayCaducidad(0)
Dim FechaCaducidad As String = ArrayCaducidad(1) Dim FechaCaducidad As String = ArrayCaducidad(1)
If AplicaLote Then If AplicaLote Then
GvRow.FCTextBox("TxtLote").Text = Lote GvRow.FCTextBox("TxtLote").Text = Lote
End If End If
@@ -1317,7 +1324,6 @@ Partial Class Inventarios_EntregaAlmacen
If AplicaCaducidad Then If AplicaCaducidad Then
GvRow.FCTextBox("TxtCaducidad").Text = FechaCaducidad GvRow.FCTextBox("TxtCaducidad").Text = FechaCaducidad
End If End If
UpDatos.Update() UpDatos.Update()
End Sub End Sub
@@ -1347,7 +1353,6 @@ Partial Class Inventarios_EntregaAlmacen
ObjInventarios.Dispose() ObjInventarios.Dispose()
End If End If
If Not String.IsNullOrEmpty(ValorAsignado) Then If Not String.IsNullOrEmpty(ValorAsignado) Then
DdlLoteFechaCaducidad.SelectedValueExist(ValorAsignado) DdlLoteFechaCaducidad.SelectedValueExist(ValorAsignado)
End If End If
@@ -1867,6 +1872,15 @@ Partial Class Inventarios_EntregaAlmacen
TdSeriePS.Visible = False TdSeriePS.Visible = False
Dim Existe As Boolean = False Dim Existe As Boolean = False
Dim PSTemp As String = "" Dim PSTemp As String = ""
'validación de impresión con CódigoQR, ej. ?CvePS=711820&Lote=220078&Fecha=04/07/2027
If TxtCodigoPS.Text.Trim.Contains("?CvePS") Then
Dim query As String = TxtCodigoPS.Text.Trim '"?CvePS=711820&Lote=220078&Fecha=04/07/2027"
Dim parsedQuery = HttpUtility.ParseQueryString(Query)
Dim tCvePS As String = parsedQuery("CvePS")
Dim tLote As String = parsedQuery("Lote")
Dim tFecha As String = parsedQuery("Fecha")
End If
For Each Gvr As GridViewRow In GvDatos.Rows For Each Gvr As GridViewRow In GvDatos.Rows
If Gvr.DataKey("CodigoBarras") = TxtCodigoPS.Text.Trim Then If Gvr.DataKey("CodigoBarras") = TxtCodigoPS.Text.Trim Then
@@ -2054,7 +2068,7 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
If CBool(Gvr.DataKey("AplicaCaducidad")) Then If CBool(Gvr.DataKey("AplicaCaducidad")) Then
If GvDatos.Columns(8).Visible Then If SeleccionLoteCaducidadCombo Then
If String.IsNullOrEmpty(Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim()) OrElse Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim() = "|" Then If String.IsNullOrEmpty(Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim()) OrElse Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim() = "|" Then
ValidaCaducidad = True ValidaCaducidad = True
End If End If
@@ -2066,7 +2080,7 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
If CBool(Gvr.DataKey("AplicaLote")) Then If CBool(Gvr.DataKey("AplicaLote")) Then
If GvDatos.Columns(8).Visible Then If SeleccionLoteCaducidadCombo Then
If String.IsNullOrEmpty(Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim()) OrElse Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim() = "|" Then If String.IsNullOrEmpty(Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim()) OrElse Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim() = "|" Then
ValidaLote = True ValidaLote = True
End If End If

45
Nomina/RepMovtosPermanentes.aspx
View File

@@ -121,28 +121,7 @@
<asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem> <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-1 mediocol" style="max-width: 35px;">del:</label>
<div class="col-md-1" style="min-width:155px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtRpdFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 110px" runat="server"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkRpdFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtRpdFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtRpdFechaInicio" PopupButtonID="LnkRpdFechaInicio" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
</div>
</div>
<label class="col-md-1 mediocol" style="max-width: 35px;">al:</label>
<div class="col-md-1" style="min-width:155px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtRpdFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 110px" runat="server"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtRpdFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtRpdFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
</div>
</div>
<label class="col-md-1 compoonenlabel" style="max-width: 65px;">Ejercicio: </label> <label class="col-md-1 compoonenlabel" style="max-width: 65px;">Ejercicio: </label>
<div class="col-md-1"> <div class="col-md-1">
<asp:DropDownList ID="DdlEjercicios" runat="server" OnSelectedIndexChanged="DdlEjercicios_SelectedIndexChanged" AutoPostBack="true" Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList> <asp:DropDownList ID="DdlEjercicios" runat="server" OnSelectedIndexChanged="DdlEjercicios_SelectedIndexChanged" AutoPostBack="true" Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
@@ -181,6 +160,28 @@
<asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem> <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-1 mediocol" style="max-width: 35px;">del:</label>
<div class="col-md-1" style="min-width:155px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtRpdFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 110px" runat="server"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkRpdFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtRpdFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtRpdFechaInicio" PopupButtonID="LnkRpdFechaInicio" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
</div>
</div>
<label class="col-md-1 mediocol" style="max-width: 35px;">al:</label>
<div class="col-md-1" style="min-width:155px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
<asp:TextBox ID="TxtRpdFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 110px" runat="server"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtRpdFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtRpdFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
</div>
</div>
</div> </div>
</div> </div>
</div> </div>

35
Sistemas/CatRoles.aspx
View File

@@ -4,40 +4,7 @@
<link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" /> <link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<%-- <style>
.Widthall {
width: 100% !important;
}
.dataTables_scrollHeadInner {
width: 100% !important;
background-color: #dddddd;
padding-left: 0px !important;
}
.dataTables_scrollFoot {
display: none;
position: static;
}
.table-scrollable {
margin: 0px !important;
}
.dataTables_scroll {
margin-bottom: 0px;
}
.table.dataTable {
margin-top: 0px !important;
}
.dataTables_scrollBody table th {
padding: 0px !important;
padding-right: 4px !important;
padding-left: 4px !important;
}
</style>--%>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<li> <li>

13
Sistemas/CatRoles.aspx.vb
View File

@@ -4,17 +4,6 @@ Imports System.Data
Partial Class CatRoles Partial Class CatRoles
Inherits ClsPaginas Inherits ClsPaginas
Private Property DtRoles As DataTable
Get
Return CType(ViewState("DtRoles"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtRoles") = value
End Set
End Property
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
'LnkCerrar.Style.Add("cursor", "hand") 'LnkCerrar.Style.Add("cursor", "hand")
@@ -52,7 +41,7 @@ Partial Class CatRoles
Public Sub CargaDatos() Public Sub CargaDatos()
Dim Rol As New ClsSisRoles Dim Rol As New ClsSisRoles
If Rol.GetRoles(-1, UsuarioActual.CveEmpresa) Then If Rol.GetRoles(-1, UsuarioActual.CveEmpresa) Then
DtRoles = Rol.DtResultados
If Rol.GetRoles(-1, -1) Then GlobalDTRoles(-1) = Rol.DtResultados If Rol.GetRoles(-1, -1) Then GlobalDTRoles(-1) = Rol.DtResultados
GvDatos.DataSource = Rol.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GvDatos.DataSource = Rol.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GvDatos.DataBind() GvDatos.DataBind()

3
Transportes/Boletos.aspx.vb
View File

@@ -80,6 +80,8 @@ Partial Class Boletos
If Request.QueryString("CveViaje") Is Nothing And UsuarioActual.CveVendedor <> Nothing And UsuarioActual.CveVendedor <> -1 Then If Request.QueryString("CveViaje") Is Nothing And UsuarioActual.CveVendedor <> Nothing And UsuarioActual.CveVendedor <> -1 Then
Response.Redirect("/Transportes/RepViajes.aspx") Response.Redirect("/Transportes/RepViajes.aspx")
End If End If
Permisos()
AsientoSeleccionado = "" AsientoSeleccionado = ""
CveViaje = IfNull(Request("CveViaje"), "0").ToString.ToEntero CveViaje = IfNull(Request("CveViaje"), "0").ToString.ToEntero
If CveViaje > 0 Then If CveViaje > 0 Then
@@ -88,7 +90,6 @@ Partial Class Boletos
Alert("Viaje no definido") Alert("Viaje no definido")
End If End If
Permisos()
End If End If
End Sub End Sub