Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JPerez
@@ -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,
|
||||
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 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
|
||||
|
||||
DataAdapter("PA_Conta_PrePolizasDetalleUpdate")
|
||||
@@ -319,6 +319,7 @@ Public Class ClsContabilidad
|
||||
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
|
||||
.Add("@CveIE", SqlDbType.Int).Value = CveIE
|
||||
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
|
||||
.Add("@ImporteME", SqlDbType.Money).Value = ImporteME.RoundSQL(3)
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -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,
|
||||
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,
|
||||
SCAC As String, CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador 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
|
||||
ClaveAduana As Integer, DescripcionContenedor As String, CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor 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, 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, EsExportacion As Boolean) As Integer
|
||||
Dim Retorno As Integer = -1
|
||||
DataAdapter("PA_Exp_ExportacionesAdd")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
@@ -161,6 +162,7 @@ Public Class ClsExportaciones
|
||||
.Add("@CveClienteConsignatario", SqlDbType.Int).Value = CveClienteConsignatario
|
||||
.Add("@CveAgente", SqlDbType.Int).Value = CveAgente
|
||||
.Add("@ClaveAduana", SqlDbType.Int).Value = ClaveAduana
|
||||
.Add("@DescripcionContenedor", SqlDbType.VarChar).Value = DescripcionContenedor
|
||||
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||
.Add("@MedioTransporte", SqlDbType.Int).Value = MedioTransporte
|
||||
.Add("@TipoContenedor", SqlDbType.Int).Value = TipoContenedor
|
||||
@@ -173,6 +175,7 @@ Public Class ClsExportaciones
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CveDirExportador", SqlDbType.Int).Value = CveDirExportador
|
||||
.Add("@CveDirImportador", SqlDbType.Int).Value = CveDirImportador
|
||||
.Add("@CveDirConsignatario", SqlDbType.Int).Value = CveDirConsignatario
|
||||
.Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm
|
||||
.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,
|
||||
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,
|
||||
Sello3 As String, SCAC As String, CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador 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
|
||||
CveAgente As Integer, ClaveAduana As Integer, DescripcionContenedor As String, CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor 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,
|
||||
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
|
||||
DataAdapter("PA_Exp_ExportacionesUpdate")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
@@ -215,6 +219,7 @@ Public Class ClsExportaciones
|
||||
.Add("@CveClienteConsignatario", SqlDbType.Int).Value = CveClienteConsignatario
|
||||
.Add("@CveAgente", SqlDbType.Int).Value = CveAgente
|
||||
.Add("@ClaveAduana", SqlDbType.Int).Value = ClaveAduana
|
||||
.Add("@DescripcionContenedor", SqlDbType.VarChar).Value = DescripcionContenedor
|
||||
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||
.Add("@MedioTransporte", SqlDbType.Int).Value = MedioTransporte
|
||||
.Add("@TipoContenedor", SqlDbType.Int).Value = TipoContenedor
|
||||
@@ -227,6 +232,7 @@ Public Class ClsExportaciones
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CveDirExportador", SqlDbType.Int).Value = CveDirExportador
|
||||
.Add("@CveDirImportador", SqlDbType.Int).Value = CveDirImportador
|
||||
.Add("@CveDirConsignatario", SqlDbType.Int).Value = CveDirConsignatario
|
||||
.Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm
|
||||
.Add("@Notas", SqlDbType.VarChar).Value = Notas
|
||||
|
||||
@@ -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,
|
||||
TCPago.ToString().ToDouble(), TxtObservaciones.Text.Trim(), "", ChkAbonoCuenta.Checked, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
|
||||
|
||||
|
||||
|
||||
if (CveIE > 0)
|
||||
{
|
||||
|
||||
decimal Importe;
|
||||
decimal ImporteMN;
|
||||
decimal ImporteComision;
|
||||
@@ -286,6 +283,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
||||
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
|
||||
CveConceptoContablePago = 384;
|
||||
}
|
||||
ImporteBancosMN = (Importe * TCPago).RoundSQL();
|
||||
ImporteAcreedorMN = (Importe * TC).RoundSQL();
|
||||
@@ -323,6 +321,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
|
||||
ImporteComision = ImporteComision.RoundSQL();
|
||||
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()))
|
||||
{
|
||||
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";
|
||||
}
|
||||
|
||||
|
||||
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";
|
||||
}
|
||||
|
||||
@@ -186,7 +186,7 @@ Partial Class Contabilidad_ContabilidadElectronica
|
||||
Dim Archivopfx As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX }"
|
||||
Dim Clavepfx As String = UsuarioActual.Empresa.FielPassword
|
||||
|
||||
Dim xsltPath As String
|
||||
Dim xsltPath As String = ""
|
||||
Select Case Opcion
|
||||
Case 1
|
||||
xsltPath = $"{AppDomain.CurrentDomain.BaseDirectory}Temp\CatalogoCuentas_1_3.xslt"
|
||||
@@ -265,7 +265,7 @@ Partial Class Contabilidad_ContabilidadElectronica
|
||||
Dim DtCuentas As New DataTable
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
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
|
||||
End If
|
||||
objconta.Dispose()
|
||||
|
||||
@@ -1173,33 +1173,44 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
|
||||
If CBool(row.DataKey("Modificado")) Then
|
||||
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)
|
||||
|
||||
If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
|
||||
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"),
|
||||
row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
|
||||
False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
If CveIEAgregado < 0 Then
|
||||
'MsgError = "No se pudo registrar movimiento bancario"
|
||||
If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
|
||||
Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
|
||||
Dim tCveMoneda As Integer = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveMoneda", $"CveCuenta = {row.DataKey("ContadoCuenta")}").ToEntero
|
||||
CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"),
|
||||
row.DataKey("ContadoBeneficiario"), ImporteIE, tCveMoneda, row.DataKey("TC").ToDecimal, row.DataKey("ContadoObservaciones"), "",
|
||||
False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
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
|
||||
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, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Else
|
||||
contador = contador + 1
|
||||
Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal)
|
||||
|
||||
|
||||
@@ -136,15 +136,10 @@
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</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;" />
|
||||
<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 class="row">
|
||||
@@ -153,27 +148,25 @@
|
||||
<ContentTemplate>
|
||||
|
||||
<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>
|
||||
<asp:TemplateField HeaderText="Nivel" >
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblNivelSAT" runat="server" Text='<%# Eval("Nivel")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" Width="20px" />
|
||||
<ItemStyle Width="20px" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
|
||||
<asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left" HeaderStyle-Width ="125px">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" Width="180" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" Width="320" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<asp:TemplateField HeaderStyle-Width ="170px">
|
||||
<HeaderTemplate>
|
||||
<table width="100%">
|
||||
<tr>
|
||||
@@ -186,23 +179,23 @@
|
||||
</table>
|
||||
</HeaderTemplate>
|
||||
<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>
|
||||
<ItemStyle Width="120" HorizontalAlign="Right" />
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Cargos">
|
||||
<asp:TemplateField HeaderText="Cargos" HeaderStyle-Width ="140px">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="120" HorizontalAlign="Right" />
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Abonos">
|
||||
<asp:TemplateField HeaderText="Abonos" HeaderStyle-Width ="140px">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="120" HorizontalAlign="Right" />
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<asp:TemplateField HeaderStyle-Width ="170px">
|
||||
<HeaderTemplate>
|
||||
<table width="100%">
|
||||
<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:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="120" HorizontalAlign="Right" />
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Diferencia" Visible="false">
|
||||
<asp:TemplateField HeaderText="Diferencia" Visible="false" HeaderStyle-Width ="100px">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="Lbdif" runat="server" Text='<%# Eval("diferenciaSAT", "{0:N2}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="100" HorizontalAlign="Right" />
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
|
||||
|
||||
@@ -180,7 +180,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
|
||||
RegistraScript("Enable();")
|
||||
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.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
|
||||
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").Style.Remove("padding-right")
|
||||
e.Row.FCLabel("LbSaldoActual").Text = " "
|
||||
e.Row.FCLabel("LbSaldoInicial").Style.Add("padding-right", "65px")
|
||||
e.Row.FCLabel("LbSaldoActual").Text = " "
|
||||
e.Row.FCLabel("LbSaldoActual").Style.Add("padding-right", "65px")
|
||||
End If
|
||||
|
||||
'Colorea NEGATIVOS
|
||||
|
||||
@@ -25,6 +25,8 @@
|
||||
<div style="display: flex; align-items: center; gap: 10px; width: 100%;">
|
||||
<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: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>
|
||||
</div>
|
||||
<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>
|
||||
</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%;">
|
||||
<asp:Label runat="server" CssClass="col-sm-4" Text="Clave Dir. Consignatario:"></asp:Label>
|
||||
<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="form-group row" style="width: 100%;">
|
||||
<asp:Label runat="server" CssClass="col-sm-4" Text="Descripción Contenedor:"></asp:Label>
|
||||
<div class="whitoutcol whitoutcol" style="width: 300px;">
|
||||
<asp:DropDownList ID="DdlDescContenedor" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="" DataValueField=""></asp:DropDownList>
|
||||
<div class="form-group form-md-line-input linewhitsize" style="width: 300px;">
|
||||
<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 class="form-group row" style="width: 100%;">
|
||||
@@ -655,7 +666,7 @@
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Tasa IVA" ItemStyle-HorizontalAlign="Right">
|
||||
<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>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Total de Empaque" ItemStyle-HorizontalAlign="Left">
|
||||
|
||||
@@ -87,7 +87,6 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
|
||||
// Factura
|
||||
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))
|
||||
{
|
||||
DdlVentas.Items.Clear();
|
||||
@@ -192,6 +191,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
DdlAgenteExt.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveAgenteExtranjero");
|
||||
DdlClaveAduana.SelectedValue = DTExportaciones.FiltroPrimeroValor("ClaveAduana");
|
||||
|
||||
TxtDescContenedor.Text = DTExportaciones.FiltroPrimeroValor("DescripcionContenedor");
|
||||
DdlCompTransportista.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveProveedor");
|
||||
DdlCompTransportista.SelectedText = DTExportaciones.FiltroPrimeroValor("Proveedor");
|
||||
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
|
||||
DdlDirExp.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirExportador"); // Seleccionar las Dir DESPUÉS de llenar el dropdown
|
||||
DdlDirImp.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirImportador");
|
||||
DdlDirCon.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirConsignatario");
|
||||
|
||||
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
|
||||
string CveConsignatario = DdlCon.SelectedValue;
|
||||
if (CveConsignatario != "" && CveConsignatario != "-1")
|
||||
@@ -367,6 +385,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
string ITN = TxtITN.Text;
|
||||
int CveSubProyecto = DdlSubProyecto.Text.ToEntero();
|
||||
string NumeroPedimento = TxtNumPed.Text;
|
||||
NumeroPedimento = NumeroPedimento == "__--__--____--_______" ? "" : NumeroPedimento;
|
||||
DateTime FechaPedimento = TxtFechaPedim.Text.ToDate();
|
||||
int CveVenta = DdlVentas.Text.ToEntero();
|
||||
decimal TipoCambio = ModExtensiones.ToDecimal(TxtTipoCambio.Text);
|
||||
@@ -374,6 +393,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
int CveExportacionEstatus = DdlExpEstatus.Text.ToEntero();
|
||||
int CveAgente = DdlAgenteMex.Text.ToEntero();
|
||||
int ClaveAduana = DdlClaveAduana.Text.ToEntero();
|
||||
string DescripcionContenedor = TxtDescContenedor.Text;
|
||||
int CveProveedor = DdlCompTransportista.SelectedValue.ToEntero();
|
||||
int MedioTransporte = DdlMedioTran.Text.ToEntero();
|
||||
int TipoContenedor = DdlTipoContenedor.Text.ToEntero();
|
||||
@@ -386,6 +406,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
int CveEmpresa = UsuarioActual.CveEmpresa;
|
||||
int CveUsuario = UsuarioActual.CveUsuario;
|
||||
int CveDirExportador = DdlDirExp.Text.ToEntero();
|
||||
int CveDirImportador = DdlDirImp.Text.ToEntero();
|
||||
int CveDirConsignatario = DdlDirCon.Text.ToEntero();
|
||||
bool Vinculacion = CkbVinculacion.Checked;
|
||||
int CveIncoterm = DdlIncoterm.Text.ToEntero();
|
||||
@@ -421,6 +442,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
CveClienteConsignatario.ToEntero(),
|
||||
CveAgente,
|
||||
ClaveAduana,
|
||||
DescripcionContenedor,
|
||||
CveProveedor,
|
||||
MedioTransporte,
|
||||
TipoContenedor,
|
||||
@@ -433,6 +455,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
CveEmpresa,
|
||||
CveUsuario,
|
||||
CveDirExportador,
|
||||
CveDirImportador,
|
||||
CveDirConsignatario,
|
||||
CveIncoterm,
|
||||
Notas,
|
||||
@@ -501,6 +524,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
CveClienteConsignatario.ToEntero(),
|
||||
CveAgente,
|
||||
ClaveAduana,
|
||||
DescripcionContenedor,
|
||||
CveProveedor,
|
||||
MedioTransporte,
|
||||
TipoContenedor,
|
||||
@@ -513,6 +537,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
CveEmpresa,
|
||||
CveUsuario,
|
||||
CveDirExportador,
|
||||
CveDirImportador,
|
||||
CveDirConsignatario,
|
||||
CveIncoterm,
|
||||
Notas,
|
||||
@@ -794,7 +819,26 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
string FraccionArancelaria = "";
|
||||
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())
|
||||
{
|
||||
DataTable DTFraccArancelaria = GlobalDTFraccionArancelaria.CopyToDataTable();
|
||||
@@ -814,6 +858,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
PartidaRow["ClaveSATPais"] = ClaveSATPais;
|
||||
PartidaRow["Precio"] = Precio;
|
||||
PartidaRow["ValorTotalMXP"] = ValorTotalMXP;
|
||||
PartidaRow["IVA"] = IVA;
|
||||
PartidaRow["Cantidad"] = Cantidad;
|
||||
PartidaRow["PesoUnitario"] = PesoUnitario;
|
||||
PartidaRow["PesoBruto"] = PesoBruto;
|
||||
@@ -837,6 +882,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
PartidaRow["ClaveSATPais"] = ClaveSATPais;
|
||||
PartidaRow["Precio"] = Precio;
|
||||
PartidaRow["ValorTotalMXP"] = ValorTotalMXP;
|
||||
PartidaRow["IVA"] = IVA;
|
||||
PartidaRow["Cantidad"] = Cantidad;
|
||||
PartidaRow["PesoUnitario"] = PesoUnitario;
|
||||
PartidaRow["PesoBruto"] = PesoBruto;
|
||||
@@ -879,6 +925,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
DTTemp.Columns.Add("ClaveSATPais", typeof(string));
|
||||
DTTemp.Columns.Add("Precio", typeof(decimal));
|
||||
DTTemp.Columns.Add("ValorTotalMXP", typeof(decimal));
|
||||
DTTemp.Columns.Add("IVA", typeof(string));
|
||||
DTTemp.Columns.Add("Cantidad", typeof(decimal));
|
||||
DTTemp.Columns.Add("PesoUnitario", typeof(decimal));
|
||||
DTTemp.Columns.Add("PesoBruto", typeof(decimal));
|
||||
@@ -963,8 +1010,9 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
DataRow RowExp = DTExportaciones.Rows[0];
|
||||
string ClienteExportador = DTExportaciones.FiltroPrimeroValor("ClienteExportador");
|
||||
string DirExportador = DTExportaciones.FiltroPrimeroValor("DirExportador");
|
||||
string ClienteImortador = DTExportaciones.FiltroPrimeroValor("ClienteImportador");
|
||||
string ClienteImportador = DTExportaciones.FiltroPrimeroValor("ClienteImportador");
|
||||
string RFCImp = DTExportaciones.FiltroPrimeroValor("RFCImp");
|
||||
string IMMEXimp = DTExportaciones.FiltroPrimeroValor("IMMEXimp");
|
||||
string NumFactura = DTExportaciones.FiltroPrimeroValor("SerieFolio");
|
||||
string ClaveSATPedimento = DTExportaciones.FiltroPrimeroValor("ClaveSATPedimento");
|
||||
string ITN = DTExportaciones.FiltroPrimeroValor("ITN");
|
||||
@@ -993,6 +1041,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
string ClienteConsignatario = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario");
|
||||
string DirConsignatario = DTExportaciones.FiltroPrimeroValor("DirConsignatario");
|
||||
string RFCCon = DTExportaciones.FiltroPrimeroValor("RFCCon");
|
||||
string IMMEXcon = DTExportaciones.FiltroPrimeroValor("IMMEXcon");
|
||||
|
||||
decimal IncFletes = 0.00m;
|
||||
decimal IncSeguro = 0.00m;
|
||||
@@ -1014,6 +1063,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
string ClaveAduana = DTExportaciones.FiltroPrimeroValor("ClaveSATAduanaSeccionDescripcion");
|
||||
ClaveAduana = ClaveAduana != " - - " ? ClaveAduana : "";
|
||||
string ClaveSATIncoterm = DTExportaciones.FiltroPrimeroValor("ClaveSATIncoterm");
|
||||
string RFCAgente = DTExportaciones.FiltroPrimeroValor("RFCAgente");
|
||||
string Patente = DTExportaciones.FiltroPrimeroValor("Patente");
|
||||
string AgenteExt = DTExportaciones.FiltroPrimeroValor("AgenteExt");
|
||||
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("ClienteExportador", ClienteExportador));
|
||||
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("IMMEXimp", IMMEXimp));
|
||||
para.Add(new ReportParameter("NumFactura", NumFactura));
|
||||
para.Add(new ReportParameter("ClaveSATPedimento", ClaveSATPedimento));
|
||||
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("DirConsignatario", DirConsignatario));
|
||||
para.Add(new ReportParameter("RFCCon", RFCCon));
|
||||
para.Add(new ReportParameter("IMMEXcon", IMMEXcon));
|
||||
|
||||
ClsExportaciones Gastos = new ClsExportaciones();
|
||||
if (Gastos.GetGastos(CveExportacion))
|
||||
@@ -1079,6 +1131,7 @@ public partial class Export_ExpDetalle : ClsPaginas
|
||||
para.Add(new ReportParameter("CAAT", CAAT));
|
||||
para.Add(new ReportParameter("ClaveAduana", ClaveAduana));
|
||||
para.Add(new ReportParameter("ClaveSATIncoterm", ClaveSATIncoterm));
|
||||
para.Add(new ReportParameter("RFCAgente", RFCAgente));
|
||||
para.Add(new ReportParameter("Patente", Patente));
|
||||
para.Add(new ReportParameter("AgenteExt", AgenteExt));
|
||||
para.Add(new ReportParameter("TaxId", TaxId));
|
||||
|
||||
@@ -143,12 +143,12 @@ Partial Class Inicio
|
||||
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
|
||||
MuestraAniversarioLaboral()
|
||||
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
|
||||
txtFechaInicioSMS.Text = Now.FirstDayOfMonth.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"
|
||||
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
|
||||
DdlSMSVendedores.DataBind()
|
||||
|
||||
@@ -128,7 +128,17 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
End Set
|
||||
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
|
||||
Get
|
||||
@@ -631,18 +641,13 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
TipoEntrega = 1
|
||||
BtnGuardar.Visible = True
|
||||
|
||||
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,26)"
|
||||
If UsuarioActual.CveSubProyecto = 8804 Then
|
||||
StrAlmacenes = "CveTipoAlmacen IN (1,2,12)"
|
||||
End If
|
||||
|
||||
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,4, 26)"
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
|
||||
If ObjInventario.EntregaAlmacenGet(CveVenta, UsuarioActual.CveEmpresa, CveAlmacen) Then
|
||||
If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Dim CveVentaPadre As Integer = -1
|
||||
|
||||
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)
|
||||
If ArchivoBitacora <> "" Then
|
||||
@@ -902,6 +907,11 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
Case Else
|
||||
Filtro = "CveConcepto = 9"
|
||||
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
|
||||
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)
|
||||
|
||||
If DtDatos IsNot Nothing Then
|
||||
|
||||
|
||||
Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean
|
||||
If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
|
||||
AplicaSerie = CBool(DtDatos.MAX("AplicaSerie"))
|
||||
@@ -1079,6 +1087,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
If AplicaCaducidad Then GvDatos.Columns(10).Visible = True
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
|
||||
SeleccionLoteCaducidadCombo = True
|
||||
GvDatos.Columns(8).Visible = True
|
||||
GvDatos.Columns(9).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
|
||||
Dim ValorAsignado As String = ""
|
||||
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")}"
|
||||
DtDatosDevolucion = DtDatos.Copy()
|
||||
End If
|
||||
@@ -1308,8 +1317,6 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
Dim Lote As String = ArrayCaducidad(0)
|
||||
Dim FechaCaducidad As String = ArrayCaducidad(1)
|
||||
|
||||
|
||||
|
||||
If AplicaLote Then
|
||||
GvRow.FCTextBox("TxtLote").Text = Lote
|
||||
End If
|
||||
@@ -1317,7 +1324,6 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
If AplicaCaducidad Then
|
||||
GvRow.FCTextBox("TxtCaducidad").Text = FechaCaducidad
|
||||
End If
|
||||
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
@@ -1347,7 +1353,6 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
ObjInventarios.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
If Not String.IsNullOrEmpty(ValorAsignado) Then
|
||||
DdlLoteFechaCaducidad.SelectedValueExist(ValorAsignado)
|
||||
End If
|
||||
@@ -1867,6 +1872,15 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
TdSeriePS.Visible = False
|
||||
Dim Existe As Boolean = False
|
||||
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
|
||||
If Gvr.DataKey("CodigoBarras") = TxtCodigoPS.Text.Trim Then
|
||||
@@ -2054,7 +2068,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
End If
|
||||
|
||||
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
|
||||
ValidaCaducidad = True
|
||||
End If
|
||||
@@ -2066,7 +2080,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
End If
|
||||
|
||||
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
|
||||
ValidaLote = True
|
||||
End If
|
||||
|
||||
@@ -121,28 +121,7 @@
|
||||
<asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</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>
|
||||
<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>
|
||||
@@ -181,6 +160,28 @@
|
||||
<asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</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>
|
||||
|
||||
@@ -4,40 +4,7 @@
|
||||
<link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
|
||||
</asp:Content>
|
||||
<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 ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
<li>
|
||||
|
||||
@@ -4,17 +4,6 @@ Imports System.Data
|
||||
|
||||
Partial Class CatRoles
|
||||
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
|
||||
If Not Page.IsPostBack Then
|
||||
'LnkCerrar.Style.Add("cursor", "hand")
|
||||
@@ -52,7 +41,7 @@ Partial Class CatRoles
|
||||
Public Sub CargaDatos()
|
||||
Dim Rol As New ClsSisRoles
|
||||
If Rol.GetRoles(-1, UsuarioActual.CveEmpresa) Then
|
||||
DtRoles = Rol.DtResultados
|
||||
|
||||
If Rol.GetRoles(-1, -1) Then GlobalDTRoles(-1) = Rol.DtResultados
|
||||
GvDatos.DataSource = Rol.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GvDatos.DataBind()
|
||||
|
||||
@@ -80,6 +80,8 @@ Partial Class Boletos
|
||||
If Request.QueryString("CveViaje") Is Nothing And UsuarioActual.CveVendedor <> Nothing And UsuarioActual.CveVendedor <> -1 Then
|
||||
Response.Redirect("/Transportes/RepViajes.aspx")
|
||||
End If
|
||||
|
||||
Permisos()
|
||||
AsientoSeleccionado = ""
|
||||
CveViaje = IfNull(Request("CveViaje"), "0").ToString.ToEntero
|
||||
If CveViaje > 0 Then
|
||||
@@ -88,7 +90,6 @@ Partial Class Boletos
|
||||
Alert("Viaje no definido")
|
||||
End If
|
||||
|
||||
Permisos()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user