cmabio de row comisiones
This commit is contained in:
Rene Molina
2
.gitignore
vendored
2
.gitignore
vendored
@@ -259,6 +259,7 @@ paket-files/
|
||||
# JetBrains Rider
|
||||
.idea/
|
||||
*.sln.iml
|
||||
*.sln.iml
|
||||
|
||||
# CodeRush
|
||||
.cr/
|
||||
@@ -266,3 +267,4 @@ paket-files/
|
||||
# Python Tools for Visual Studio (PTVS)
|
||||
__pycache__/
|
||||
*.pyc
|
||||
/SIGGIT.sln
|
||||
|
||||
@@ -539,7 +539,9 @@ Public Class ClsVentas
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function UpdateEstatusFactura(Estatus As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveVenta As Integer, Optional IdPolizaCancelacion As Integer = -1, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0) As Boolean
|
||||
Public Function UpdateEstatusFactura(Estatus As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveVenta As Integer,
|
||||
Optional IdPolizaCancelacion As Integer = -1, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0,
|
||||
Optional CveUsuarioCambiaEstatus As Integer = -1, Optional FechaCambioEstatus As String = "-1") As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_VentasUpdateEstatus")
|
||||
@@ -553,6 +555,8 @@ Public Class ClsVentas
|
||||
.Add("@IdPolizaCancelacion", SqlDbType.Int).Value = IdPolizaCancelacion
|
||||
.Add("@CvePAC", SqlDbType.SmallInt).Value = CvePAC
|
||||
.Add("@CveEstatusRefacturacion", SqlDbType.TinyInt).Value = CveEstatusRefacturacion
|
||||
.Add("@CveUsuarioCambiaEstatus", SqlDbType.Int).Value = CveUsuarioCambiaEstatus
|
||||
.Add("@FechaCambioEstatus", SqlDbType.VarChar).Value = FechaCambioEstatus
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -1181,13 +1181,14 @@ Namespace Modelos
|
||||
'Se agregan los PS
|
||||
For Each Row As DataRow In TmpDTDetalle.Rows
|
||||
If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("CveUM").ToString.ToEntero,
|
||||
Row("PU").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("IVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("IVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
|
||||
Row("PU").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
|
||||
Row("Obs").ToString, Row("Descuento").ToString.ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero,
|
||||
TiempoEntrega:=Row("TiempoEntrega").ToString, CveVentaDetallePadre:=Row("CveVentaDetalle").ToString.ToEntero, CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero,
|
||||
CvePromocionDetalle:=If(DtPromociones IsNot Nothing, DtPromociones.FiltroPrimeroValor("CvePromocionDetalle", $"CvePS={Row("CvePS").ToString}").ToEntero, -1),
|
||||
IEPS:=Row("ImporteIEPS").ToString.ToDouble, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString.ToEntero,
|
||||
ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDouble,
|
||||
PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDouble, CuentaPredial:=Row("CuentaPredial").ToString) Then
|
||||
PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDouble, CuentaPredial:=Row("CuentaPredial").ToString,
|
||||
PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal) Then
|
||||
ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
|
||||
Exit For
|
||||
Else
|
||||
|
||||
@@ -2078,6 +2078,11 @@ Public Class Timbrado
|
||||
|
||||
cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML)
|
||||
|
||||
sw.Stop()
|
||||
swTiempo.AppendFormat("Guardado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
|
||||
swmili = sw.ElapsedMilliseconds
|
||||
sw.Start()
|
||||
|
||||
If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
|
||||
|
||||
'Actualiza Estatus Factura
|
||||
|
||||
Binary file not shown.
@@ -17,6 +17,8 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
|
||||
Select Case context.Request("metodo")
|
||||
Case "getimginstalacion"
|
||||
GetImgInstalacion(context)
|
||||
Case "EjecutarNotificaciones"
|
||||
EjecutarNotificaciones(context)
|
||||
End Select
|
||||
ElseIf context.Request.InputStream IsNot Nothing Then
|
||||
Using reader As New StreamReader(context.Request.InputStream)
|
||||
@@ -64,6 +66,14 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
|
||||
Return URLParametros
|
||||
End Function
|
||||
|
||||
Private Sub EjecutarNotificaciones(ByVal context As HttpContext)
|
||||
Dim Retorno As String = "[]"
|
||||
Using ObjGPS As New ClsSisNotificaciones
|
||||
ObjGPS.ObtenerNotificaciones()
|
||||
End Using
|
||||
context.Response.Write(Retorno)
|
||||
End Sub
|
||||
|
||||
Private Sub GetImgInstalacion(ByVal context As HttpContext)
|
||||
Dim params As String = Decripta(context.Request("r").ToString)
|
||||
Dim Parametros = Me.Parametros(params)
|
||||
|
||||
@@ -1,193 +0,0 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="SigFoxDecodeExample.aspx.vb" Inherits="Ashx_SigFoxDecodeExample" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
|
||||
<script type="text/javascript">
|
||||
|
||||
//e.g. parseSigFox('10b67dcc0006efda3d9816c2')
|
||||
|
||||
//In an attempt to make the code clearer, I will not be using ArrayBuffer
|
||||
function hex2Bytes(val) {
|
||||
|
||||
if (!val) {
|
||||
return [];
|
||||
}
|
||||
|
||||
val = val.trim();
|
||||
|
||||
if (val.startsWith('0x')) {
|
||||
val = val.substring(2); //get rid of starting '0x'
|
||||
}
|
||||
|
||||
|
||||
var numBytes = val.length / 2;
|
||||
var bytes = [];
|
||||
|
||||
|
||||
for (var i = 0; i < numBytes; i++) {
|
||||
bytes.push(parseInt(val.substring(i * 2, (i * 2) + 2), 16));
|
||||
}
|
||||
|
||||
return bytes;
|
||||
}
|
||||
|
||||
function parseLittleEndianInt32(buffer, offset) {
|
||||
return (buffer[offset + 3] << 24) +
|
||||
(buffer[offset + 2] << 16) +
|
||||
(buffer[offset + 1] << 8) +
|
||||
(buffer[offset]);
|
||||
}
|
||||
|
||||
function parseLittleEndianInt16(buffer, offset) {
|
||||
return (buffer[offset + 1] << 8) +
|
||||
(buffer[offset]);
|
||||
}
|
||||
|
||||
function parseLittleEndianInt16Bits(buffer, offset, bitOffset, bitLength) {
|
||||
var temp = parseLittleEndianInt16(buffer, offset);
|
||||
temp = temp >> bitOffset;
|
||||
var mask = 0xffff >> (16 - bitLength);
|
||||
return temp & mask;
|
||||
}
|
||||
|
||||
//e.g. 10b67dcc0006efda3d9816c2
|
||||
function parseSigFox(data) {
|
||||
var buffer = hex2Bytes(data);
|
||||
|
||||
if (!buffer) {
|
||||
return null;
|
||||
}
|
||||
|
||||
var recordType = buffer[0] & 0x0f;
|
||||
|
||||
switch (recordType) {
|
||||
case 0: //positional data
|
||||
return parsePositionalData(buffer);
|
||||
|
||||
case 1: //downlink ACK
|
||||
return parseDownlinkAck(buffer);
|
||||
|
||||
case 2: //device data
|
||||
return parseDeviceStats(buffer);
|
||||
|
||||
case 3: //extended positional data
|
||||
return parseExtendedData(buffer);
|
||||
|
||||
default:
|
||||
return null;
|
||||
}
|
||||
}
|
||||
|
||||
function parsePositionalData(buffer) {
|
||||
var flags = buffer[0] & 0xF0;
|
||||
var inTrip = (flags & 0x10) > 0;
|
||||
var lastFixFailed = (flags & 0x20) > 0;
|
||||
|
||||
var latitudeRaw = parseLittleEndianInt32(buffer, 1);
|
||||
var longitudeRaw = parseLittleEndianInt32(buffer, 5);
|
||||
var headingRaw = buffer[9];
|
||||
var speedRaw = buffer[10];
|
||||
var batteryRaw = buffer[11];
|
||||
|
||||
return {
|
||||
MessageType: 0,
|
||||
InTrip: inTrip,
|
||||
LastFixFailed: lastFixFailed,
|
||||
Latitude: latitudeRaw * 1e-7,
|
||||
Longitude: longitudeRaw * 1e-7,
|
||||
Heading: headingRaw * 2,
|
||||
SpeedKmH: speedRaw,
|
||||
BatteryVoltage: (batteryRaw * 25) / 1000.0
|
||||
};
|
||||
}
|
||||
|
||||
function parseDownlinkAck(buffer) {
|
||||
var flags = buffer[0] & 0xF0;
|
||||
var downlinkAccepted = (flags & 0x10) > 0;
|
||||
|
||||
var firmwareMajor = buffer[2];
|
||||
var firmwareMinor = buffer[3];
|
||||
|
||||
var data = [];
|
||||
for (var i = 0; i < 8; i++) {
|
||||
data.push(i + 4);
|
||||
}
|
||||
|
||||
return {
|
||||
MessageType: 1,
|
||||
DownlinkAccepted: downlinkAccepted,
|
||||
FirmwareVersion: firmwareMajor + '.' + firmwareMinor,
|
||||
DownlinkData: data
|
||||
};
|
||||
}
|
||||
|
||||
function parseDeviceStats(buffer) {
|
||||
var uptimeWeeks = parseLittleEndianInt16Bits(buffer, 0, 4, 9/*bits*/);
|
||||
var txCountRaw = parseLittleEndianInt16Bits(buffer, 1, 5, 11 /*bits*/);
|
||||
var rxCountRaw = buffer[3];
|
||||
var tripCountRaw = parseLittleEndianInt16Bits(buffer, 4, 0, 13 /*bits*/);
|
||||
var gpsSuccessRaw = parseLittleEndianInt16Bits(buffer, 5, 5, 10 /*bits*/);
|
||||
var gpsFailuresRaw = parseLittleEndianInt16Bits(buffer, 6, 7, 8 /*bits*/);
|
||||
var averageFixTime = parseLittleEndianInt16Bits(buffer, 7, 7, 9/*bits*/);
|
||||
var averageFailTime = parseLittleEndianInt16Bits(buffer, 9, 0, 9/*bits*/);
|
||||
var averageFreshenTime = parseLittleEndianInt16Bits(buffer, 10, 1, 8/*bits*/);
|
||||
var wakeupsPerTrip = buffer[11] >> 1;
|
||||
|
||||
return {
|
||||
MessageType: 2,
|
||||
UptimeWeeks: uptimeWeeks,
|
||||
TxCount: txCountRaw * 32,
|
||||
RxCount: rxCountRaw * 32,
|
||||
TripCount: tripCountRaw,
|
||||
GpsSuccessCount: gpsSuccessRaw * 32,
|
||||
GpsFailureCount: gpsFailuresRaw * 32,
|
||||
AverageFixTimeSeconds: averageFixTime,
|
||||
AverageFailTimeSeconds: averageFailTime,
|
||||
AverageFreshenTimeSeconds: averageFreshenTime,
|
||||
WakeUpsPerTrip: wakeupsPerTrip
|
||||
};
|
||||
}
|
||||
|
||||
function parseExtendedData(buffer) {
|
||||
var headingRaw = buffer[0] >> 4;
|
||||
var latitudeRaw = buffer[1] + buffer[2] * 256 + buffer[3] * 65536;
|
||||
if (latitudeRaw >= 0x800000) // 2^23
|
||||
latitudeRaw -= 0x1000000; // 2^24
|
||||
var longitudeRaw = buffer[4] + buffer[5] * 256 + buffer[6] * 65536;
|
||||
if (longitudeRaw >= 0x800000) // 2^23
|
||||
longitudeRaw -= 0x1000000; // 2^24
|
||||
var posAccRaw = buffer[7];
|
||||
var batteryRaw = buffer[8];
|
||||
var speedRaw = buffer[9] & 0x3F;
|
||||
var inTrip = (buffer[9] & 0x40) > 0;
|
||||
var lastFixFailed = (buffer[9] & 0x80) > 0;
|
||||
|
||||
return {
|
||||
MessageType: 3,
|
||||
Heading: headingRaw * 22.5,
|
||||
Latitude: (latitudeRaw * 256) / 1e7,
|
||||
Longitude: (longitudeRaw * 256) / 1e7,
|
||||
PosAccM: posAccRaw * 1,
|
||||
BatteryVoltage: (batteryRaw * 25) / 1000.0,
|
||||
SpeedKmH: speedRaw * 2.5,
|
||||
InTrip: inTrip,
|
||||
LastFixFailed: lastFixFailed
|
||||
};
|
||||
}
|
||||
|
||||
</script>
|
||||
</asp:Content>
|
||||
|
||||
@@ -1,11 +0,0 @@
|
||||
Imports System.Collections
|
||||
Partial Class Ashx_SigFoxDecodeExample
|
||||
Inherits System.Web.UI.Page
|
||||
|
||||
Public Sub Page_Load() Handles Me.Load
|
||||
Dim ObjNotificaciones As New ClsSisNotificaciones
|
||||
ObjNotificaciones.ObtenerNotificaciones()
|
||||
ObjNotificaciones.Dispose()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -307,6 +307,8 @@ Partial Class Bancos_PopIECompras
|
||||
Public Class IEMovimiento
|
||||
Public Property SubTotal As Decimal
|
||||
Public Property IVA As Decimal
|
||||
Public Property IVADeducible As Decimal
|
||||
Public Property IVANoDeducible As Decimal
|
||||
Public Property RetIVA As Decimal
|
||||
Public Property RetISR As Decimal
|
||||
Public Property Total As Decimal
|
||||
@@ -615,6 +617,8 @@ Partial Class Bancos_PopIECompras
|
||||
MovimientoPagar = New IEMovimiento
|
||||
MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
|
||||
MovimientoPagar.IVA = dr("IVA").ToString.ToDecimal
|
||||
MovimientoPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal
|
||||
MovimientoPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal
|
||||
MovimientoPagar.RetIVA = dr("RetIVA").ToString.ToDecimal
|
||||
MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal
|
||||
MovimientoPagar.Total = dr("Total").ToString.ToDecimal
|
||||
@@ -2250,16 +2254,16 @@ Partial Class Bancos_PopIECompras
|
||||
|
||||
If TotalImporte = CompraSaldo Then
|
||||
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||
ImporteMovimiento = MovimientoPagar.IVA
|
||||
ImporteMovimiento = MovimientoPagar.IVADeducible
|
||||
ImporteMX = ImporteMovimiento
|
||||
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVA)
|
||||
ImporteMovimiento = (MovimientoPagar.IVADeducible)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVA)
|
||||
ImporteMovimiento = (MovimientoPagar.IVADeducible)
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVA)
|
||||
ImporteMovimiento = (MovimientoPagar.IVADeducible)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
@@ -2273,16 +2277,92 @@ Partial Class Bancos_PopIECompras
|
||||
End If
|
||||
Else
|
||||
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||
ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
|
||||
ImporteMovimiento = MovimientoPagar.IVADeducible * PorcentajePago
|
||||
ImporteMX = ImporteMovimiento
|
||||
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
||||
ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
||||
ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
|
||||
ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
|
||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
End If
|
||||
|
||||
PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA
|
||||
Dim IdCtaIVAXAcreditar As Integer = 0
|
||||
Dim IdCtaIVAAcreditable As Integer = 0
|
||||
|
||||
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
|
||||
IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
||||
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||
End If
|
||||
|
||||
IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
|
||||
|
||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
||||
If ObjMov.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
|
||||
CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
Case 280 'Iva Acreditable No Deducible
|
||||
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
|
||||
'funcionalidad que toma el 100% del pago para acreditamiento de iva
|
||||
Dim TotalImporte As Decimal
|
||||
|
||||
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||
TotalImporte = ImportePagado.ToString.ToDecimal
|
||||
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||
TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal / tipoCambioPago, 2)
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||
TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal * tipoCambioPago, 2)
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||
TotalImporte = ImportePagado.ToString.ToDecimal
|
||||
End If
|
||||
|
||||
If TotalImporte = CompraSaldo Then
|
||||
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||
ImporteMovimiento = MovimientoPagar.IVANoDeducible
|
||||
ImporteMX = ImporteMovimiento
|
||||
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVANoDeducible)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVANoDeducible)
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVANoDeducible)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
ImporteMX = Math.Round(ImporteMX, 2)
|
||||
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
|
||||
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
Else
|
||||
ImporteMovimiento = 0
|
||||
ImporteMX = 0
|
||||
End If
|
||||
Else
|
||||
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||
ImporteMovimiento = MovimientoPagar.IVANoDeducible * PorcentajePago
|
||||
ImporteMX = ImporteMovimiento
|
||||
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||
ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago)
|
||||
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||
|
||||
@@ -2062,7 +2062,7 @@ Partial Class Bancos_PopIEVentas
|
||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
|
||||
CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
|
||||
tipoCambioVentaDiferenciaCambiaria = If(FechaVenta < FechaUltimaFluctuacion, TipoCambioFluctuacion, TipoCambioOriginal)
|
||||
Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||
Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVentaDiferenciaCambiaria)
|
||||
TimpocambioGeneral = TCImpuestos
|
||||
|
||||
Dim Diferencia As Decimal = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioVentaValuacion) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta
|
||||
@@ -2090,7 +2090,7 @@ Partial Class Bancos_PopIEVentas
|
||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
|
||||
CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
|
||||
tipoCambioVentaDiferenciaCambiaria = If(FechaVenta < FechaUltimaFluctuacion, TipoCambioFluctuacion, TipoCambioOriginal)
|
||||
Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||
Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVentaDiferenciaCambiaria)
|
||||
TimpocambioGeneral = TCImpuestos
|
||||
|
||||
|
||||
|
||||
@@ -358,7 +358,7 @@
|
||||
<asp:UpdatePanel ID="UPCompras" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvCxP" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Pagar Pendientes"
|
||||
DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IEPS,RetIVA,RetISR,Original,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA"
|
||||
DataKeyNames="CveCompra,ImporteProgramo,Saldo,SubTotal,IVA,IVADeducible,IVANoDeducible,IEPS,RetIVA,RetISR,Original,UUID,RFC,CveFactura,SerieFolio,Descripcion,CvePrePoliza,Fecha,EstatusInventario,CveProveedor,TipoCambio, CveMoneda,CveRetIVAConcepto,IVAPorPagar,IVAPorPagarDeducible,IVAPorPagarNoDeducible,IEPSPorPagar,CveRetISRConcepto,PorcentajeIVA"
|
||||
Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
|
||||
155
ClsTSoft.vb
155
ClsTSoft.vb
@@ -1,155 +0,0 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Linq
|
||||
Imports System.Web
|
||||
Imports System.Data
|
||||
Imports System.Text
|
||||
Imports Extensiones
|
||||
|
||||
Public Class ClsTSoft
|
||||
Inherits ClsClaseBase
|
||||
|
||||
Public Sub New()'(Optional adsObj As ClsClaseBase = Nothing)
|
||||
'MyBase.New(adsObj)
|
||||
End Sub
|
||||
#Region "CRUD_Remisiones"
|
||||
Public Function AddRemisiones(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicio As String, GeoFin As String, Fecha As Date) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
SqlDataAdapter("PA_GPS_RemisionesAdd")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@FolioRemision", SqlDbType.VarChar).Value = FolioRemision
|
||||
.Add("@NoEconomico", SqlDbType.VarChar).Value = NoEconomico
|
||||
.Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
|
||||
.Add("@GeoInicio", SqlDbType.VarChar).Value = GeoInicio
|
||||
.Add("@GeoFin", SqlDbType.VarChar).Value = GeoFin
|
||||
.Add("@Fecha", SqlDbType.Date).Value = Fecha
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function UpdateEstatusRemisiones(CveRemision As Integer, CveEstatus As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
SqlDataAdapter("PA_GPS_RemisionesEstatusUpdate")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveRemision", SqlDbType.Int).Value = CveRemision
|
||||
.Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function GetRemisiones(CveCliente As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
SqlDataAdapter("PA_GPS_RemisionesGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
'Public Function UpRemisiones(CveRemision As Integer, FolioRemision As String, CveDispositivo As Integer, CveEstatus As Integer, GeoInicio As String, GeoFin As String,
|
||||
' Lat As String, Lon As String) As Boolean
|
||||
' Dim strSQL As New StringBuilder()
|
||||
' Dim retorno As Boolean = False
|
||||
' strSQL.Append(" UPDATE TSoft_Remisiones Set ")
|
||||
' strSQL.Append(" FolioRemision=@FolioRemision")
|
||||
' strSQL.Append(", CveDispositivo =@CveDispositivo")
|
||||
' strSQL.Append(", CveEstatus =@CveEstatus")
|
||||
' strSQL.Append(", GeoInicio =@GeoInicio")
|
||||
' strSQL.Append(", GeoFin =@GeoFin")
|
||||
' strSQL.Append(", Lat =@Lat")
|
||||
' strSQL.Append(", Lon =@Lon")
|
||||
' strSQL.Append(" WHERE [CveRemision]=@CveRemision ")
|
||||
' DataAdapter(strSQL.ToString())
|
||||
' addParameters("@CveRemision", SqlDbType.Int, CveRemision)
|
||||
' addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision)
|
||||
' addParameters("@CveDispositivo", SqlDbType.Int, CveDispositivo)
|
||||
' addParameters("@CveEstatus", SqlDbType.Int, CveEstatus)
|
||||
' addParameters("@GeoInicio", SqlDbType.VarChar, GeoInicio)
|
||||
' addParameters("@GeoFin", SqlDbType.VarChar, GeoFin)
|
||||
' addParameters("@Lat", SqlDbType.VarChar, Lat)
|
||||
' addParameters("@Lon", SqlDbType.VarChar, Lon)
|
||||
|
||||
' retorno = RunQuery("Ocurrió un error al actualizar el Remisiones.")
|
||||
' strSQL.Clear()
|
||||
' Return retorno
|
||||
'End Function
|
||||
|
||||
Public Function RemoveRemisiones(CveRemision As Integer) As Boolean
|
||||
Dim strSQL As New StringBuilder()
|
||||
Dim retorno As Boolean = False
|
||||
strSQL.Append(" DELETE FROM TSoft_Remisiones ")
|
||||
strSQL.Append(" WHERE [CveRemision]=@CveRemision ")
|
||||
DataAdapter(strSQL.ToString())
|
||||
addParameters("@CveRemision", SqlDbType.Int, CveRemision)
|
||||
retorno = RunQuery("Ocurrió un error al eliminar el Remisiones.")
|
||||
strSQL.Clear()
|
||||
Return retorno
|
||||
End Function
|
||||
#End Region
|
||||
#Region "Otros"
|
||||
|
||||
Public Function UpEstatusRemision(FolioRemision As String, CveEstatus As Integer) As Boolean
|
||||
Dim strSQL As New StringBuilder()
|
||||
Dim retorno As Boolean = False
|
||||
strSQL.AppendLine(" BEGIN")
|
||||
strSQL.AppendLine(" DECLARE @Lat AS VARCHAR(20)=''")
|
||||
strSQL.AppendLine(" DECLARE @Lon AS VARCHAR(20)=''")
|
||||
strSQL.AppendLine(" DECLARE @CveRemision AS INT =(SELECT TOP 1 REM.CveRemision FROM TSoft_Remisiones REM WHERE FolioRemision= @FolioRemision)")
|
||||
strSQL.AppendLine(" Declare @CveDispositivo AS INT=( SELECT TOP 1 REM.CveDispositivo FROM TSoft_Remisiones REM WHERE CveRemision=@CveRemision)")
|
||||
strSQL.AppendLine(" SELECT Top 1 @Lat= Geom.Lat ,@Lon=Geom.Long FROM GPS_Posiciones WHERE CveDispositivo=@CveDispositivo ORDER BY FechaTrama")
|
||||
strSQL.AppendLine(" UPDATE TSoft_Remisiones SET CveEstatus=@CveEstatus WHERE CveRemision=@CveRemision")
|
||||
strSQL.AppendLine(" INSERT INTO [TSoft_RemisionesHistorial] ([CveRemisison], [CveEstatus], [Lat], [Lon]) VALUES (@CveRemision, @CveEstatus, @Lat, @Lon)")
|
||||
strSQL.AppendLine(" END")
|
||||
DataAdapter(strSQL.ToString())
|
||||
addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision)
|
||||
addParameters("@CveEstatus", SqlDbType.Int, CveEstatus)
|
||||
retorno = RunQuery("Ocurrió un error al agregar el Remisiones.")
|
||||
strSQL.Clear()
|
||||
Return retorno
|
||||
End Function
|
||||
Public Function GETRemisionesHistorial(FolioRemision As String, NoEconomico As String) As Boolean
|
||||
Dim strSQL As New StringBuilder()
|
||||
Dim retorno As Boolean = False
|
||||
strSQL.AppendLine(" Declare @CveDispositivo AS INT=(SELECT S_Di.CveDispositivo FROM GPS_Dispositivos AS S_Di WHERE NoEconomico=@NoEconomico AND CveCliente=183798)")
|
||||
strSQL.AppendLine(" SELECT @NoEconomico AS NoEconomico, REMHIST.Fecha,REMHIST.Lat,REMHIST.Lon,REM.FolioRemision,REMHIST.CveEstatus FROM TSoft_Remisiones REM")
|
||||
strSQL.AppendLine(" INNER JOIN TSoft_RemisionesHistorial REMHIST ON REMHIST.CveRemisison=REM.CveRemision")
|
||||
strSQL.AppendLine(" WHERE CveDispositivo=@CveDispositivo AND FolioRemision= @FolioRemision ORDER BY REMHIST.Fecha DESC")
|
||||
DataAdapter(strSQL.ToString())
|
||||
addParameters("@FolioRemision", SqlDbType.VarChar, FolioRemision)
|
||||
addParameters("@NoEconomico", SqlDbType.VarChar, NoEconomico)
|
||||
retorno = RunQuery("Ocurrió un error al agregar el Remisiones.")
|
||||
strSQL.Clear()
|
||||
Return retorno
|
||||
End Function
|
||||
#End Region
|
||||
End Class
|
||||
@@ -1,14 +0,0 @@
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Web;
|
||||
using System.Web.UI;
|
||||
using System.Web.UI.WebControls;
|
||||
|
||||
public partial class Compras_Default : ClsPaginas
|
||||
{
|
||||
protected void Page_Load(object sender, EventArgs e)
|
||||
{
|
||||
Alert(UsuarioActual.Nombre);
|
||||
}
|
||||
}
|
||||
@@ -3729,6 +3729,20 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle
|
||||
Dim GuardaNoDeducibles As Boolean = False
|
||||
If ChkEsNoDeducible.Checked Then
|
||||
For Each Row As DataRow In TmpDT.Rows
|
||||
If Row("NoDeducible").ToString = "True" Then
|
||||
GuardaNoDeducibles = True
|
||||
End If
|
||||
Next
|
||||
If GuardaNoDeducibles = False Then
|
||||
Alert("Si la compra es No Deducible, mínimo se debe registrar un producto No Deducible", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If CierrePeriodo Then
|
||||
Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -7596,6 +7610,8 @@ Partial Class Compras_Compras
|
||||
Else
|
||||
MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
|
||||
End If
|
||||
Else
|
||||
MsgAccionAceptar = "location.href =""Compras.aspx"""
|
||||
End If
|
||||
|
||||
'Simplificacion de PrePolizas
|
||||
|
||||
Binary file not shown.
@@ -117,6 +117,7 @@
|
||||
<asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Folio" ControlStyle-Width="85px" />
|
||||
<asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="%IVA" DataField="PorcentajeIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="RetIVA" DataField="RetIVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
|
||||
|
||||
@@ -1137,7 +1137,7 @@
|
||||
</Style>
|
||||
</TextRun>
|
||||
<TextRun>
|
||||
<Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de Soluciones en Telemedición JAR SA de CV, a su vencimiento el </Value>
|
||||
<Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de PAOLA CASTILLO VALENZUELA, a su vencimiento el </Value>
|
||||
<Style>
|
||||
<FontStyle>Normal</FontStyle>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
|
||||
@@ -203,7 +203,7 @@
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value>www.adsistemas.mx|facturacion@adsistemas.mx</Value>
|
||||
<Value>www.adsistemas.mx|facturacion@adssistemas.mx</Value>
|
||||
<Style>
|
||||
<FontStyle>Normal</FontStyle>
|
||||
<FontFamily>Calibri</FontFamily>
|
||||
@@ -534,6 +534,7 @@
|
||||
<TextRun>
|
||||
<Value>Nombre</Value>
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>9pt</FontSize>
|
||||
</Style>
|
||||
</TextRun>
|
||||
@@ -702,7 +703,7 @@
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value>Cuidad</Value>
|
||||
<Value>Ciudad</Value>
|
||||
<Style>
|
||||
<FontFamily>Calibri</FontFamily>
|
||||
<FontSize>9pt</FontSize>
|
||||
|
||||
@@ -3,116 +3,175 @@
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</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;
|
||||
}
|
||||
|
||||
.sinlink td a {
|
||||
pointer-events: none;
|
||||
cursor: default;
|
||||
color: black;
|
||||
font-size: small;
|
||||
}
|
||||
|
||||
.white a {
|
||||
color: white !important;
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo de Tipos de Ordenes de Servicio
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
|
||||
<asp:UpdatePanel runat="server" ID="UpAgregar">
|
||||
<ContentTemplate>
|
||||
<table class="table table-striped table-advance table-hover">
|
||||
<thead>
|
||||
<tr class="Titulos">
|
||||
<th width="250px">
|
||||
<asp:LinkButton ID="LbTipoOrdenServicio" runat="server" CausesValidation="false" Text="" CommandArgument="TipoOrdenServicio" OnClick="LbOrden_Click">
|
||||
Tipo de Orden de Servicio
|
||||
<asp:Literal ID="ImgTipoOrdenServicio" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
|
||||
</asp:LinkButton>
|
||||
</th>
|
||||
<th width="100px">
|
||||
<asp:LinkButton ID="LbEstatus" runat="server" CausesValidation="false" Text="" CommandArgument="Estatus" OnClick="LbOrden_Click">
|
||||
Estatus
|
||||
<asp:Literal ID="ImgEstatus" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
|
||||
</asp:LinkButton>
|
||||
</th>
|
||||
<th width="100px">
|
||||
<asp:LinkButton ID="LbFechaIng" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng" OnClick="LbOrden_Click">
|
||||
Fecha Ing.
|
||||
<asp:Literal ID="ImgFechaIng" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
|
||||
</asp:LinkButton>
|
||||
</th>
|
||||
<th width="100px">
|
||||
<asp:LinkButton ID="LbUsuario" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario" OnClick="LbOrden_Click">
|
||||
Usuario
|
||||
<asp:Literal ID="ImgUsuario" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
|
||||
</asp:LinkButton>
|
||||
</th>
|
||||
<th width="161px">Comandos</th>
|
||||
</tr>
|
||||
</thead>
|
||||
<tr>
|
||||
<td style="text-align: center">
|
||||
<asp:TextBox ID="TxtTipoOrdenServicio" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="234px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVTipoOrdenServicio" runat="server" ControlToValidate="TxtTipoOrdenServicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Orden de Servicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCTipoOrdenServicio" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoOrdenServicio" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td> </td>
|
||||
<td style="text-align: center">
|
||||
<asp:LinkButton ID="LbAgregar" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardar"></asp:LinkButton></td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveOrdenServicioTipo" EmptyDataText="No se encontraron Tipos de Orden Servicios Registrados" ToolTip="Listado de Tipos de Ordenes de Servicios" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipoOrdenServicio" runat="server" Text='<%# Eval("OrdenServicioTipo", "{0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:TextBox ID="TxtTipoOrdenServicio" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("OrdenServicioTipo") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVTipoOrdenServicio" runat="server" ControlToValidate="TxtTipoOrdenServicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Orden de Servicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCTipoOrdenServicio" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoOrdenServicio" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Editar">
|
||||
<EditItemTemplate>
|
||||
<center>
|
||||
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
|
||||
<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
|
||||
</center>
|
||||
</EditItemTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Eliminar">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
</asp:GridView>
|
||||
<li>
|
||||
<asp:LinkButton runat="server" ID="BtnAgregarTiposOS" data-toggle="tooltip" data-placement="left" Text="<i class='fa fa-plus'></i> Agregar Tipo de OS"></asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpGral" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
<div class="Widthall" style="text-align: right!important; margin-top: 20px!important; margin-bottom: 2px!important">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvTiposOS.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvTiposOS.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row" style="margin:5px">
|
||||
<asp:UpdatePanel ID="UPGvTiposOS" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GvTiposOS" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveOrdenServicioTipo, OrdenServicioTipo, Estatus"
|
||||
EmptyDataText="No se encontraron registros"
|
||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
|
||||
data-sort="true"
|
||||
data-freezerows="1"
|
||||
GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Tipo de Orden de Servicio">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LblTiposOS" runat="server" Text='<%# Eval("OrdenServicioTipo") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="150px">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LblPuntos" runat="server" Text='<%# Eval("Estatus")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="lblFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-Width="300px" HeaderText="Usuario">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="lblUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="ImgE" OnClick="Edit_ClickTiposOS" runat="server" AlternateText="Editar" CausesValidation="False"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" OnClick="Remove_ClickTiposOS" runat="server" AlternateText="Eliminar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
<br />
|
||||
<br />
|
||||
|
||||
<div id="DivAgregarTiposOS" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposOS" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="LtlTituloModalTiposOS" runat="server">Agregar Tipo Defecto</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtTiposOS" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtTiposOS" runat="server" ControlToValidate="TxtTiposOS" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposOS"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtTiposOS.ClientID.ToString()%>">Tipo:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
|
||||
<div ID="DivEstatus" runat="server" class="form-group form-md-line-input input-iconright" Visible="false">
|
||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnAgregarTiposOSModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposOS" />
|
||||
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content9" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
@@ -6,179 +6,165 @@ Imports System.Linq
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class OS_CatTiposOrdenesServicios
|
||||
Inherits ClsPaginas
|
||||
Inherits ClsPaginas
|
||||
|
||||
Public Property PuedeEditar As Boolean
|
||||
Get
|
||||
Return CBool(ViewState("PuedeEditar"))
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("PuedeEditar") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property CveOrdenServicioTipo As Integer
|
||||
Get
|
||||
If Not ViewState("CveOrdenServicioTipo") Is Nothing Then
|
||||
Return ViewState("CveOrdenServicioTipo").ToString.ToEntero
|
||||
Else
|
||||
Return -1
|
||||
End If
|
||||
|
||||
Public Property PuedeEliminar As Boolean
|
||||
Get
|
||||
Return CBool(ViewState("PuedeEditar"))
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("PuedeEditar") = value
|
||||
End Set
|
||||
End Property
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveOrdenServicioTipo") = value
|
||||
End Set
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
ViewState("Orden") = ""
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
End Property
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjSubTipoOrdenServicios As New ClsOS
|
||||
Private Property Actualizar As Boolean
|
||||
Get
|
||||
If Not ViewState("Actualizar") Is Nothing Then
|
||||
Return DirectCast(ViewState("Actualizar"), Boolean)
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("Actualizar") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
If Not Page.IsPostBack Then
|
||||
CargadatosGvTiposOS()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargadatosGvTiposOS()
|
||||
|
||||
Dim ObjSubTipoOrdenServicios As New ClsOS
|
||||
If ObjSubTipoOrdenServicios.GetTipoOrdenesServicios(-1) Then
|
||||
ViewState("DTTipoOrdenServicios") = ObjSubTipoOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GvTiposOS.DataSource = ObjSubTipoOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTSubTipoOrdenServicios = ObjSubTipoOrdenServicios.DtResultados
|
||||
Else
|
||||
Me.GvDatos.DataSource = Nothing
|
||||
GvTiposOS.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjSubTipoOrdenServicios.Dispose()
|
||||
ObjSubTipoOrdenServicios.Dispose()
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
GvTiposOS.DataBind()
|
||||
UpGral.Update()
|
||||
|
||||
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
||||
Dim ObjTipoOrdenServicios As New ClsOS
|
||||
If ObjTipoOrdenServicios.AddTipoOrdenServicio(TxtTipoOrdenServicio.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TxtTipoOrdenServicio.Text = ""
|
||||
Alert("El nuevo Tipo de Orden de Servicio se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpTitulos.Update()
|
||||
ViewState("DTTipoOrdenServicios") = ObjTipoOrdenServicios.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
'GlobalDTTipoOrdenServicios(-1) = ObjTipoOrdenServicios.DtResultados
|
||||
End Sub
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End If
|
||||
ObjTipoOrdenServicios.Dispose()
|
||||
End Sub
|
||||
Protected Sub BtnAgregarTiposOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarTiposOS.Click
|
||||
LtlTituloModalTiposOS.Text = "Agregar Tipo de Orden de Servicio"
|
||||
BtnAgregarTiposOSModal.Text = "Agregar"
|
||||
DivEstatus.Visible = False
|
||||
|
||||
#Region "G V D A T O S"
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(250)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(61)
|
||||
TxtTiposOS.Text = ""
|
||||
|
||||
Actualizar = False
|
||||
UpGral.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposOS"))
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAgregarTiposOSModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTiposOSModal.Click
|
||||
|
||||
Dim ObjTipoOrdenServicios As New ClsOS
|
||||
|
||||
If Not Actualizar Then
|
||||
If ObjTipoOrdenServicios.AddTipoOrdenServicio(TxtTiposOS.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
TxtTiposOS.Text = ""
|
||||
ChkEstatus.Checked = True
|
||||
|
||||
CargadatosGvTiposOS()
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposOS"), "jsHideModalTiposOS")
|
||||
'GeneraGlobalDT()
|
||||
UpGral.Update()
|
||||
|
||||
Alert("Tipo de Orden de Servicio Agregado Correctamente", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrio un error al guardar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
|
||||
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
|
||||
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
|
||||
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
|
||||
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim ObjTipoOrdenServicios As New ClsOS
|
||||
If ObjTipoOrdenServicios.RemoveTipoOrdenServicio(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTTipoOrdenServicios") = ObjTipoOrdenServicios.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
'GlobalDTTipoOrdenServicios(-1) = ObjTipoOrdenServicios.DtResultados
|
||||
Alert("El Tipo de Orden de Servicio se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ObjTipoOrdenServicios.Dispose()
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
If ObjTipoOrdenServicios.UpdateTipoOrdenServicio(TxtTiposOS.Text.Trim, False, ChkEstatus.Checked, CveOrdenServicioTipo) Then
|
||||
|
||||
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
|
||||
GvDatos.EditIndex = -1
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
TxtTiposOS.Text = ""
|
||||
ChkEstatus.Checked = True
|
||||
|
||||
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
|
||||
Dim ObjTipoOrdenServicios As New ClsOS
|
||||
Dim TipoOrdenServicio As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTipoOrdenServicio"), TextBox).Text.Trim
|
||||
Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||
Dim CveTipoOrdenServicio As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
CargadatosGvTiposOS()
|
||||
'GeneraGlobalDT()
|
||||
UpModalTiposOS.Update()
|
||||
|
||||
If ObjTipoOrdenServicios.UpdateTipoOrdenServicio(TipoOrdenServicio, False, Estatus, CveTipoOrdenServicio) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTTipoOrdenServicios") = ObjTipoOrdenServicios.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
'GlobalDTTipoOrdenServicios(-1) = ObjTipoOrdenServicios.DtResultados
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposOS"), "jsHideModalTiposOS")
|
||||
|
||||
UpGral.Update()
|
||||
Alert("Tipo de Orden de Servicio Actualizado Correctamente", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrio un error al Actualizar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
|
||||
End If
|
||||
End If
|
||||
|
||||
CveOrdenServicioTipo = -1
|
||||
Actualizar = False
|
||||
|
||||
ObjTipoOrdenServicios.Dispose()
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
|
||||
GvDatos.EditIndex = e.NewEditIndex
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Public Sub Remove_ClickTiposOS(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ObjTipoOrdenServicios As New ClsOS
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim activo As Boolean = False
|
||||
CveOrdenServicioTipo = GvRow.DataKey("CveOrdenServicioTipo").ToEntero
|
||||
|
||||
If ObjTipoOrdenServicios.RemoveTipoOrdenServicio(CveOrdenServicioTipo) Then
|
||||
CargadatosGvTiposOS()
|
||||
'GeneraGlobalDT()
|
||||
|
||||
Alert("El Tipo de Orden de Servicio se eliminó Correctamente ", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
CargaGrid("")
|
||||
Alert("Ocurrio un error al Eliminar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "O R D E N A M I E N T O"
|
||||
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim Orden As String = ""
|
||||
Dim Campo As String = ""
|
||||
Dim Literal As Literal = Nothing
|
||||
Const OrdenInicial As String = ""
|
||||
Dim Arg(2) As String
|
||||
ObjTipoOrdenServicios.Dispose()
|
||||
|
||||
Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||
Campo = Arg(0)
|
||||
Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||
CargadatosGvTiposOS()
|
||||
|
||||
CveOrdenServicioTipo = -1
|
||||
|
||||
If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
||||
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||
Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||
Else
|
||||
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
||||
Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||
End If
|
||||
Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
||||
ViewState("Orden") = Orden
|
||||
CargaGrid(Orden)
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGrid(Orden As String)
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(CType(ViewState("DTTipoOrdenServicios"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
GvDatos.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvDatos.DataSource = CType(ViewState("DTTipoOrdenServicios"), DataTable)
|
||||
End If
|
||||
GvDatos.DataBind()
|
||||
UpDatos.Update()
|
||||
Public Sub Edit_ClickTiposOS(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim activo As Boolean = False
|
||||
|
||||
LtlTituloModalTiposOS.Text = "Editar Tipo de Orden de Servicio"
|
||||
Actualizar = True
|
||||
DivEstatus.Visible = True
|
||||
|
||||
CveOrdenServicioTipo = GvRow.DataKey("CveOrdenServicioTipo").ToEntero
|
||||
|
||||
TxtTiposOS.Text = GvRow.DataKey("OrdenServicioTipo")
|
||||
ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
|
||||
|
||||
BtnAgregarTiposOSModal.Text = "Actualizar"
|
||||
|
||||
UpModalTiposOS.Update()
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposOS"))
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -86,7 +86,7 @@
|
||||
<div class="col-md-4">
|
||||
<asp:Label ID="LblCliente" runat="server"></asp:Label>
|
||||
</div>
|
||||
<div class="col-md-2">
|
||||
<div class="col-md-2">
|
||||
<b>Fecha Recibido:</b>
|
||||
</div>
|
||||
<div class="col-md-4">
|
||||
@@ -152,6 +152,8 @@
|
||||
<div class="col-md-3" style="margin-top: 5px;">
|
||||
<asp:DropDownList ID="DdlTipoOrdenOS" CssClass="form-control input-sm select2me" runat="server" DataTextField="OrdenServicioTipo" DataValueField="CveOrdenServicioTipo" Width="100%" Height="30px">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVTipoOS" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlTipoOrdenOS" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Orden''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCETipoOS" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoOS" Width="100px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -1,350 +0,0 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Clientes2.aspx.vb" Inherits="PRESENTACIONES_Clientes2" %>
|
||||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" Runat="Server">
|
||||
<img id="ImgAddVenta" runat="server" alt="Registrar Nueva Venta" style="cursor: pointer;" src="/Imagenes/Nota.gif" width="20" height="25" />
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="E" Runat="Server">
|
||||
<asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Clientes"></asp:Literal> <asp:Literal ID="LtlCliente" runat="server"></asp:Literal>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="C" Runat="Server">
|
||||
|
||||
<%--<script language="javascript" type="text/javascript">
|
||||
|
||||
function SetText(ObjFrom, ObjTo) {
|
||||
ObjTo.innerText = ObjFrom.value;
|
||||
}
|
||||
|
||||
function SetText2(ObjTo, Value) {
|
||||
ObjTo.innerText = Value;
|
||||
}
|
||||
|
||||
function getSelectedText(Obj, IfIsNull) {
|
||||
if (Obj.selectedIndex == -1)
|
||||
return IfIsNull;
|
||||
else
|
||||
return Obj.options[Obj.selectedIndex].text;
|
||||
}
|
||||
|
||||
//this pageLoad will only works if you are using ASP.Net AJAX
|
||||
//if you're not, you can use the other way.
|
||||
function pageLoad() {
|
||||
var grid = document.getElementById('<%=GvCxC.ClientID %>');
|
||||
var grid2 = document.getElementById('<%=GvCxCHistorial.ClientID %>');
|
||||
|
||||
var firstRowHeaderClone = null;
|
||||
|
||||
if (grid && grid2 && grid.cells && grid2.cells) {
|
||||
if (grid && grid.cells.length > 1) {
|
||||
firstRowHeaderClone = grid.tBodies[0].rows[0].cloneNode(true);
|
||||
grid.tBodies[0].insertBefore(firstRowHeaderClone, grid.tBodies[0].rows[0]);
|
||||
|
||||
var Row1 = grid.tBodies[0].rows[0];
|
||||
var Row2 = grid.tBodies[0].rows[1];
|
||||
|
||||
if (Row1.cells.length > 1 && Row2.cells.length > 1) {
|
||||
Row2.deleteCell(0);
|
||||
Row2.deleteCell(0);
|
||||
Row2.deleteCell(0);
|
||||
Row2.deleteCell(0);
|
||||
Row2.deleteCell(0);
|
||||
|
||||
Row1.cells[0].rowSpan = 2;
|
||||
Row1.cells[1].rowSpan = 2;
|
||||
Row1.cells[2].rowSpan = 2;
|
||||
Row1.cells[3].rowSpan = 2;
|
||||
Row1.cells[4].rowSpan = 2;
|
||||
|
||||
Row1.deleteCell(6);
|
||||
Row1.deleteCell(7);
|
||||
|
||||
Row1.cells[5].colSpan = 2;
|
||||
Row1.cells[6].colSpan = 2;
|
||||
|
||||
|
||||
Row2.deleteCell(4);
|
||||
Row2.deleteCell(4);
|
||||
|
||||
|
||||
Row1.cells[7].rowSpan = 2;
|
||||
Row1.cells[8].rowSpan = 2;
|
||||
}
|
||||
}
|
||||
|
||||
var firstRowHeaderClone2 = null;
|
||||
if (grid2 && grid2.cells.length > 1) {
|
||||
firstRowHeaderClone2 = grid2.tBodies[0].rows[0].cloneNode(true);
|
||||
grid2.tBodies[0].insertBefore(firstRowHeaderClone2, grid2.tBodies[0].rows[0]);
|
||||
|
||||
var Row12 = grid2.tBodies[0].rows[0];
|
||||
var Row22 = grid2.tBodies[0].rows[1];
|
||||
|
||||
if (Row12.cells.length > 1 && Row22.cells.length > 1) {
|
||||
Row22.deleteCell(0);
|
||||
Row22.deleteCell(0);
|
||||
Row22.deleteCell(0);
|
||||
Row22.deleteCell(0);
|
||||
Row22.deleteCell(0);
|
||||
|
||||
Row12.cells[0].rowSpan = 2;
|
||||
Row12.cells[1].rowSpan = 2;
|
||||
Row12.cells[2].rowSpan = 2;
|
||||
Row12.cells[3].rowSpan = 2;
|
||||
Row12.cells[4].rowSpan = 2;
|
||||
|
||||
Row12.deleteCell(6);
|
||||
Row12.deleteCell(7);
|
||||
|
||||
Row12.cells[5].colSpan = 2;
|
||||
Row12.cells[6].colSpan = 2;
|
||||
|
||||
Row22.deleteCell(4);
|
||||
Row22.deleteCell(4);
|
||||
|
||||
Row12.cells[7].rowSpan = 2;
|
||||
Row12.cells[8].rowSpan = 2;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
</script>--%>
|
||||
|
||||
<table border="0" cellpadding="0" cellspacing="0" width="100%" style="padding-top:20px;">
|
||||
<tr>
|
||||
<td align="left">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%">
|
||||
<ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Información del Cliente">
|
||||
<ContentTemplate>
|
||||
<table border="0" class="contenido">
|
||||
<tr>
|
||||
<td>
|
||||
<div>
|
||||
<fieldset>
|
||||
<legend><b>Datos del Cliente</b></legend>
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>Nombre:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtNombre" runat="server" MaxLength="96" Width="400px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCENombre" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombre" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Dirección:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtDireccion" runat="server" MaxLength="90" Width="400px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVDireccion" runat="server" ControlToValidate="TxtDireccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCEDireccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDireccion" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>No. Ext.</td>
|
||||
<td>
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtNoExt" runat="server" MaxLength="10" Width="40px"></asp:TextBox>
|
||||
</td>
|
||||
<td> No. Int.</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtNoInt" runat="server" MaxLength="10" Width="40px"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Colonia:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtColonia" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVColonia" runat="server" ControlToValidate="TxtColonia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOColonia" runat="server" HighlightCssClass="vco" TargetControlID="RFVColonia" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Localidad:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtLocalidad" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVLocalidad" runat="server" ControlToValidate="TxtLocalidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOLocalidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVLocalidad" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Ciudad:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtCiudad" runat="server" MaxLength="40" Width="200px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVCiudad" runat="server" ControlToValidate="TxtCiudad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCECiudad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCiudad" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Estado:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtEstado" runat="server" MaxLength="25" Width="200px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="TxtEstado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCEEstado" runat="server" HighlightCssClass="vco" TargetControlID="RFVEstado" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>RFC:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtRFC" runat="server" MaxLength="13" Width="200px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCERFC" runat="server" HighlightCssClass="vco" TargetControlID="RFVRFC" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Código Postal:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtCP" runat="server" MaxLength="5" Width="40px"></asp:TextBox>
|
||||
<asp:CompareValidator ID="CVCP" runat="server" ControlToValidate="TxtCP" Display="None" ErrorMessage="El campo <b>''Codigo Postal''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOCP" runat="server" HighlightCssClass="vco" TargetControlID="CVCP" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Teléfono:</td>
|
||||
<td><asp:TextBox ID="TxtTelefono" runat="server" MaxLength="15" Width="100px" ValidationGroup="GrpGuardar"></asp:TextBox></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Contacto:</td>
|
||||
<td><asp:TextBox ID="TxtContacto" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Email:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtEmail" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ID="REVEmail" runat="server" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ControlToValidate="TxtEmail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOMail" runat="server" HighlightCssClass="vco" TargetControlID="REVEmail" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>ConfirmarnContraseña de Acceso:</td>
|
||||
<td><asp:TextBox ID="TxtConfirmarContraseñaAcceso" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td>
|
||||
</tr>
|
||||
</table>
|
||||
</fieldset>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
</ajax:TabContainer>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td align="center">
|
||||
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" />
|
||||
<asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" />
|
||||
<asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
|
||||
<asp:Button ID="BtnCancelar" runat="server" Text="Cancelar" OnClientClick="javascript:window.location.href='/Ventas/CatClientes.aspx'; return false;" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<div id ="DivMail" style="width:350px; background-color:White; border:solid 1px black; color:Black; display:none; position:fixed; z-index: 1500">
|
||||
<asp:UpdatePanel ID="UpSendMail" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:HiddenField ID="HdnCveVenta" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<asp:HiddenField ID="HdnFolioVenta" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<asp:HiddenField ID="HdnTipoDocto" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<table border="1" rules="all" style="border-collapse: collapse; width: 350px">
|
||||
<tr align="left">
|
||||
<td width="150">Para:</td>
|
||||
<td width="200">
|
||||
<asp:TextBox ID="TxtParaMail" runat="server" ClientIDMode="Static" Width="194px" ReadOnly="true"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ID="REVParaMail" runat="server" Display="None" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ControlToValidate="TxtParaMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Para (Mail)''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOParaMail" runat="server" HighlightCssClass="vco" TargetControlID="REVParaMail" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td>
|
||||
Con copia para:<br />
|
||||
(Separar con: ;)
|
||||
</td>
|
||||
<td><asp:TextBox ID="TxtCC" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px"></asp:TextBox></td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td>Texto Adicional:</td>
|
||||
<td><asp:TextBox ID="TxtBody" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px"></asp:TextBox></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td align="center" colspan="2"><asp:Button ID="BtnSendMail" runat="server" OnClientClick="javascript:$get('DivMail').style.display='none';" Text="Enviar" /> <input type="button" value="Cancelar" onclick="javascript:$get('DivMail').style.display='none';" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<div id ="DivAddPago" style="width:350px; background-color:White; border:solid 1px black; color:Black; display:none; position:fixed; z-index: 1500">
|
||||
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:HiddenField ID="HdnCveVentaAbono" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<table border="1" rules="all" style="border-collapse: collapse; width: 350px">
|
||||
<tr align="left">
|
||||
<td width="150">Cantidad:</td>
|
||||
<td width="200">
|
||||
<asp:TextBox ID="TxtCantidad" runat="server" ClientIDMode="Static" ValidationGroup="GpoGuardarAbonar" Width="80px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GpoGuardarAbonar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVCantidadAbonar" runat="server" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto, por favor corrija." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GpoGuardarAbonar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOCantidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOCantidad2" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidadAbonar" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
<td><b>Fecha:</b> </td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtFechaPago" runat="server" BorderStyle="None" CausesValidation="true" MaxLength="10" ValidationGroup="GpoGuardarAbonar"></asp:TextBox>
|
||||
<asp:ImageButton runat="server" ID="ImgFechaPago" Visible="false" ImageUrl="/Imagenes/calendar.png" ImageAlign="AbsMiddle" Width="16px" Height="16px" AlternateText="Click para ver el Calendario" />
|
||||
<ajax:MaskedEditExtender ID="MEEFechaPago" runat="server" TargetControlID="TxtFechaPago" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CEFechaPago" TargetControlID="TxtFechaPago" PopupButtonID="ImgFechaPago" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaPago" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GpoGuardarAbonar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaPago" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GpoGuardarAbonar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaPago1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaPago2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<tr>
|
||||
<td>Referencia:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtReferencia" runat="server" ClientIDMode="Static" ValidationGroup="GpoGuardarAbonar" Width="80px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVReferencia" runat="server" ControlToValidate="TxtReferencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GpoGuardarAbonar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOReferencia" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferencia" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td align="center" colspan="2"><asp:Button ID="BtnAbonar" runat="server" Text="Abonar" ValidationGroup="GpoGuardarAbonar" /> <input type="button" value="Cancelar" onclick="javascript:$get('DivAddPago').style.display='none';" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<br />
|
||||
<asp:UpdateProgress ID="upProgress" runat="server" DisplayAfter="0">
|
||||
<ProgressTemplate>
|
||||
<div id="overlay">
|
||||
<div id="modalprogress">
|
||||
<div id="theprogress">
|
||||
<center>
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td>La información se está procesando...</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><img src="/Imagenes/Cargando.gif" style="border-width: 0px;" alt="" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</center>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ProgressTemplate>
|
||||
</asp:UpdateProgress>
|
||||
</asp:Content>
|
||||
|
||||
@@ -1,118 +0,0 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
|
||||
Partial Class PRESENTACIONES_Clientes2
|
||||
Inherits ClsPaginas
|
||||
|
||||
'Configuración
|
||||
Private ReadOnly Property CveCliente As Integer
|
||||
Get
|
||||
Return ViewState("CveCliente").ToString.ToEntero
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
SetValues()
|
||||
SetPermisos()
|
||||
|
||||
If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then
|
||||
ViewState("CveCliente") = Request("CveCliente")
|
||||
CargaDatos()
|
||||
'Configuración de Modalidad Update
|
||||
BtnGuardar.Text = "Guardar Cambios"
|
||||
LtlTitulo.Text = "Consulta del Cliente:"
|
||||
'ImgAddVenta
|
||||
ImgAddVenta.Attributes.Add("OnClick", "window.location = '/Ventas/Ventas.aspx?CveCliente=" & CveCliente & "'")
|
||||
If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then TAB.ActiveTabIndex = Request("Opt").ToEntero
|
||||
Else
|
||||
'Configuración de Modalidad Insert
|
||||
ViewState("CveCliente") = -1
|
||||
BtnEliminar.Visible = False
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SetValues()
|
||||
ViewState("Orden") = ""
|
||||
ViewState("OSucursalCliente") = "SucursalCliente DESC"
|
||||
ViewState("OEstado") = "Estado DESC"
|
||||
ViewState("OFecha") = "Fecha DESC"
|
||||
ViewState("OUsuario") = "Usuario DESC"
|
||||
TxtFechaPago.Text = Now.ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub SetPermisos()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjClientes As New ClsClientes()
|
||||
If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
If ObjClientes.DtResultados.Rows.Count > 0 Then
|
||||
'Campos para Modificación
|
||||
LtlCliente.Text = ObjClientes.Nombre
|
||||
TxtNombre.Text = ObjClientes.Nombre
|
||||
TxtDireccion.Text = ObjClientes.Direccion
|
||||
TxtNoExt.Text = ObjClientes.NoExt
|
||||
TxtNoInt.Text = ObjClientes.NoInt
|
||||
TxtColonia.Text = ObjClientes.Colonia
|
||||
TxtLocalidad.Text = ObjClientes.Localidad
|
||||
TxtCiudad.Text = ObjClientes.Ciudad
|
||||
TxtEstado.Text = ObjClientes.Estado
|
||||
TxtRFC.Text = ObjClientes.RFC
|
||||
TxtCP.Text = ObjClientes.CP.ToString
|
||||
TxtTelefono.Text = ObjClientes.Telefono
|
||||
TxtContacto.Text = ObjClientes.Contacto
|
||||
TxtEmail.Text = ObjClientes.Mail
|
||||
TxtParaMail.Text = ObjClientes.Mail
|
||||
Else
|
||||
Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
BtnGuardar.Enabled = False
|
||||
End If
|
||||
End If
|
||||
ObjClientes.Dispose()
|
||||
End Sub
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
SendMail()
|
||||
|
||||
End Sub
|
||||
|
||||
'Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
|
||||
' Dim ObjClientes As New ClsClientes()
|
||||
' If ObjClientes.RemoveCliente(CveCliente) Then
|
||||
' Alert("El Cliente se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatClientes.aspx""")
|
||||
' End If
|
||||
' ObjClientes.Dispose()
|
||||
'End Sub
|
||||
|
||||
Protected Sub SendMail()
|
||||
Dim ObjMail As New ClsSisMail()
|
||||
If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, "JULIAN@adsistemas.mx", "Acceso AIMMG", "Acceso a AIMMG <table><tr><td>ADSISTEMAS.NO-IP/PRESENTACIONES/LOGIN2.ASPX</td></tr><tr><td>" & TxtEmail.Text.Trim & ", " & TxtConfirmarContraseñaAcceso.Text.Trim & " </td></tr></table>") Then
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Protected Sub BtnAbonar_Click(sender As Object, e As System.EventArgs) Handles BtnAbonar.Click
|
||||
' Dim ObjMovtos As New ClsMovimientos()
|
||||
' If ObjMovtos.AddMovimiento(2, "Cli", CveCliente.ToString, HdnCveVentaAbono.Value, 0, TxtCantidad.Text.Trim.ToDouble, TxtFechaPago.Text.ToDate, TxtReferencia.Text.Trim, DdlCtaContableClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
' Alert("El abono se guardó correctamente", TipoMensaje.MsgInformacion, "$get(""DivAddPago"").style.display=""none"";")
|
||||
|
||||
' TxtCantidad.Text = ""
|
||||
' TxtReferencia.Text = ""
|
||||
' UpDatos.Update()
|
||||
' End If
|
||||
' ObjMovtos.Dispose()
|
||||
'End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
@@ -1,618 +0,0 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Clientes3.aspx.vb" Inherits="PRESENTACIONES_Clientes3" %>
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" Runat="Server">
|
||||
<img id="ImgAddVenta" runat="server" alt="Registrar Nueva Venta" style="cursor: pointer;" src="/Imagenes/Nota.gif" width="20" height="25" />
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="E" Runat="Server">
|
||||
<asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Clientes"></asp:Literal> <asp:Literal ID="LtlCliente" runat="server"></asp:Literal>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="C" Runat="Server">
|
||||
|
||||
<script language="javascript" type="text/javascript">
|
||||
|
||||
function SetText(ObjFrom, ObjTo) {
|
||||
ObjTo.innerText = ObjFrom.value;
|
||||
}
|
||||
|
||||
function SetText2(ObjTo, Value) {
|
||||
ObjTo.innerText = Value;
|
||||
}
|
||||
|
||||
function getSelectedText(Obj, IfIsNull) {
|
||||
if (Obj.selectedIndex == -1)
|
||||
return IfIsNull;
|
||||
else
|
||||
return Obj.options[Obj.selectedIndex].text;
|
||||
}
|
||||
|
||||
//this pageLoad will only works if you are using ASP.Net AJAX
|
||||
//if you're not, you can use the other way.
|
||||
function pageLoad() {
|
||||
var grid = document.getElementById('<%=GvCxC.ClientID %>');
|
||||
var grid2 = document.getElementById('<%=GvCxCHistorial.ClientID %>');
|
||||
|
||||
var firstRowHeaderClone = null;
|
||||
|
||||
if (grid && grid2 && grid.cells && grid2.cells) {
|
||||
if (grid && grid.cells.length > 1) {
|
||||
firstRowHeaderClone = grid.tBodies[0].rows[0].cloneNode(true);
|
||||
grid.tBodies[0].insertBefore(firstRowHeaderClone, grid.tBodies[0].rows[0]);
|
||||
|
||||
var Row1 = grid.tBodies[0].rows[0];
|
||||
var Row2 = grid.tBodies[0].rows[1];
|
||||
|
||||
if (Row1.cells.length > 1 && Row2.cells.length > 1) {
|
||||
Row2.deleteCell(0);
|
||||
Row2.deleteCell(0);
|
||||
Row2.deleteCell(0);
|
||||
Row2.deleteCell(0);
|
||||
Row2.deleteCell(0);
|
||||
|
||||
Row1.cells[0].rowSpan = 2;
|
||||
Row1.cells[1].rowSpan = 2;
|
||||
Row1.cells[2].rowSpan = 2;
|
||||
Row1.cells[3].rowSpan = 2;
|
||||
Row1.cells[4].rowSpan = 2;
|
||||
|
||||
Row1.deleteCell(6);
|
||||
Row1.deleteCell(7);
|
||||
|
||||
Row1.cells[5].colSpan = 2;
|
||||
Row1.cells[6].colSpan = 2;
|
||||
|
||||
|
||||
Row2.deleteCell(4);
|
||||
Row2.deleteCell(4);
|
||||
|
||||
|
||||
Row1.cells[7].rowSpan = 2;
|
||||
Row1.cells[8].rowSpan = 2;
|
||||
}
|
||||
}
|
||||
|
||||
var firstRowHeaderClone2 = null;
|
||||
if (grid2 && grid2.cells.length > 1) {
|
||||
firstRowHeaderClone2 = grid2.tBodies[0].rows[0].cloneNode(true);
|
||||
grid2.tBodies[0].insertBefore(firstRowHeaderClone2, grid2.tBodies[0].rows[0]);
|
||||
|
||||
var Row12 = grid2.tBodies[0].rows[0];
|
||||
var Row22 = grid2.tBodies[0].rows[1];
|
||||
|
||||
if (Row12.cells.length > 1 && Row22.cells.length > 1) {
|
||||
Row22.deleteCell(0);
|
||||
Row22.deleteCell(0);
|
||||
Row22.deleteCell(0);
|
||||
Row22.deleteCell(0);
|
||||
Row22.deleteCell(0);
|
||||
|
||||
Row12.cells[0].rowSpan = 2;
|
||||
Row12.cells[1].rowSpan = 2;
|
||||
Row12.cells[2].rowSpan = 2;
|
||||
Row12.cells[3].rowSpan = 2;
|
||||
Row12.cells[4].rowSpan = 2;
|
||||
|
||||
Row12.deleteCell(6);
|
||||
Row12.deleteCell(7);
|
||||
|
||||
Row12.cells[5].colSpan = 2;
|
||||
Row12.cells[6].colSpan = 2;
|
||||
|
||||
Row22.deleteCell(4);
|
||||
Row22.deleteCell(4);
|
||||
|
||||
Row12.cells[7].rowSpan = 2;
|
||||
Row12.cells[8].rowSpan = 2;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
</script>
|
||||
|
||||
<table border="0" cellpadding="0" cellspacing="0" width="100%" style="padding-top:20px;">
|
||||
<tr>
|
||||
<td align="left">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%">
|
||||
<ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Información del Cliente">
|
||||
<ContentTemplate>
|
||||
<table border="0" class="contenido">
|
||||
<tr>
|
||||
<td>
|
||||
<div>
|
||||
<fieldset>
|
||||
<legend><b>Datos del Cliente</b></legend>
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>Nombre:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtNombre" runat="server" MaxLength="96" Width="400px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCENombre" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombre" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Dirección:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtDireccion" runat="server" MaxLength="90" Width="400px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVDireccion" runat="server" ControlToValidate="TxtDireccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCEDireccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDireccion" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>No. Ext.</td>
|
||||
<td>
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtNoExt" runat="server" MaxLength="10" Width="40px"></asp:TextBox>
|
||||
</td>
|
||||
<td> No. Int.</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtNoInt" runat="server" MaxLength="10" Width="40px"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Colonia:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtColonia" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVColonia" runat="server" ControlToValidate="TxtColonia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOColonia" runat="server" HighlightCssClass="vco" TargetControlID="RFVColonia" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Localidad:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtLocalidad" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVLocalidad" runat="server" ControlToValidate="TxtLocalidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOLocalidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVLocalidad" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Ciudad:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtCiudad" runat="server" MaxLength="40" Width="200px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVCiudad" runat="server" ControlToValidate="TxtCiudad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCECiudad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCiudad" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Estado:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtEstado" runat="server" MaxLength="25" Width="200px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="TxtEstado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCEEstado" runat="server" HighlightCssClass="vco" TargetControlID="RFVEstado" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>RFC:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtRFC" runat="server" MaxLength="13" Width="200px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCERFC" runat="server" HighlightCssClass="vco" TargetControlID="RFVRFC" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Código Postal:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtCP" runat="server" MaxLength="5" Width="40px"></asp:TextBox>
|
||||
<asp:CompareValidator ID="CVCP" runat="server" ControlToValidate="TxtCP" Display="None" ErrorMessage="El campo <b>''Codigo Postal''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOCP" runat="server" HighlightCssClass="vco" TargetControlID="CVCP" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Teléfono:</td>
|
||||
<td><asp:TextBox ID="TxtTelefono" runat="server" MaxLength="15" Width="100px" ValidationGroup="GrpGuardar"></asp:TextBox></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Contacto:</td>
|
||||
<td><asp:TextBox ID="TxtContacto" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Email:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtEmail" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ID="REVEmail" runat="server" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ControlToValidate="TxtEmail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOMail" runat="server" HighlightCssClass="vco" TargetControlID="REVEmail" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>ConfirmarnContraseña de Acceso:</td>
|
||||
<td><asp:TextBox ID="TxtConfirmarContraseñaAcceso" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td>
|
||||
</tr>
|
||||
</table>
|
||||
</fieldset>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
<ajax:TabPanel ID="TabHistorial" runat="server" HeaderText="Historial de Ventas">
|
||||
<ContentTemplate>
|
||||
<table border="0" class="contenido">
|
||||
<tr>
|
||||
<td>
|
||||
<div>
|
||||
<fieldset>
|
||||
<legend><b>Historial de Ventas</b></legend>
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:UpdatePanel ID="UpnHistorial" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GVHistorial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas en el Cliente" ToolTip="Listado de Historial de Ventas">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Factura</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFactura" runat="server"></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Fecha</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Sub Total</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSubTotal" runat="server" Text='<%# If (CDbl(Eval("SubTotal")) = 0, "", Eval("SubTotal", "{0:N2}")) %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Descuento</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDescuento" runat="server" Text='<%# If (CDbl(Eval("Descuento")) = 0, "", Eval("Descuento", "{0:N2}")) %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Amortización</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlAmort" runat="server" Text='<%# If (CDbl(Eval("Amortizacion")) = 0, "", Eval("Amortizacion", "{0:N2}")) %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Total</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTotal" runat="server" Text='<%# If (CDbl(Eval("Total")) = 0, "", Eval("Total", "{0:N2}")) %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Estatus</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusFactura") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Se Timbró</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTimbro" runat="server" Text='<%# Eval("SeTimbro") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Envío Mail</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEnvioMail" runat="server" Text='<%# Eval("EnvioMail") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Reenviar</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<a id="HLSendMail" runat="server" class="Texto"><img alt="Reenviar Mail" style="border: 0px none white" src="/Imagenes/SendMail.jpg" height="25px" width="30px" /></a>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
<HeaderStyle CssClass="Titulos" />
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</fieldset>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
<ajax:TabPanel ID="TabCxC" runat="server" HeaderText="Cuentas x Cobrar">
|
||||
<ContentTemplate>
|
||||
<table border="0" class="contenido">
|
||||
<tr>
|
||||
<td> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<div>
|
||||
<fieldset>
|
||||
<legend><b>CxC Activas</b></legend>
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Cobrar Pendientes" ToolTip="Listado de CxC">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Factura</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFactura" runat="server"></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Fecha Venta</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Fecha Vencimiento</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaVenci" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Días Vencidos</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDiasVencido" runat="server" Text='<%# Eval("DiasVencidos", "{0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Monto Venta (Saldo Orig)</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Abonado</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>% Recuperado</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPorRecuperado" runat="server" Text='<%# Eval("PorRecuperado", "{0:N2}%") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Saldo</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>% A Recuperar</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPorXRecuperar" runat="server" Text='<%# Eval("PorXRecuperar", "{0:N2}%") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Auxiliar</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlAux" runat="server"></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Abonar</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Image ID="ImgAbonar" runat="server" ImageUrl="~/Imagenes/Money_add.png" AlternateText="Registrar Pago/Abono" Style="cursor:pointer;" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
<HeaderStyle CssClass="Titulos" />
|
||||
</asp:GridView>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</fieldset>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td> </td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<div>
|
||||
<fieldset>
|
||||
<legend><b>Historial de CxC</b></legend>
|
||||
<table border="0">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:GridView ID="GvCxCHistorial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró Historial de Cuentas X Cobrar" ToolTip="Listado de Historia CxC">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Factura</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFactura" runat="server"></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Fecha Venta</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Fecha Vencimiento</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaVenci" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Días Vencidos</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDiasVencido" runat="server" Text='<%# Eval("DiasVencidos", "{0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Monto Venta (Saldo Orig)</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Abonado</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>% Recuperado</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPorRecuperado" runat="server" Text='<%# Eval("PorRecuperado", "{0:N2}%") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Saldo</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2};") %>'></asp:Literal> 
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>% A Recuperar</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPorXRecuperar" runat="server" Text='<%# Eval("PorXRecuperar", "{0:N2}%") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Auxiliar</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlAux" runat="server"></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Abonar</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Image ID="ImgAbonar" runat="server" ImageUrl="~/Imagenes/Money_add.png" AlternateText="Registrar Pago/Abono" Style="cursor:pointer;" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
<HeaderStyle CssClass="Titulos" />
|
||||
</asp:GridView>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</fieldset>
|
||||
</div>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
</ajax:TabContainer>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
</table>
|
||||
<div id ="DivMail" style="width:350px; background-color:White; border:solid 1px black; color:Black; display:none; position:fixed; z-index: 1500">
|
||||
<asp:UpdatePanel ID="UpSendMail" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:HiddenField ID="HdnCveVenta" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<asp:HiddenField ID="HdnFolioVenta" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<asp:HiddenField ID="HdnTipoDocto" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<table border="1" rules="all" style="border-collapse: collapse; width: 350px">
|
||||
<tr align="left">
|
||||
<td width="150">Para:</td>
|
||||
<td width="200">
|
||||
<asp:TextBox ID="TxtParaMail" runat="server" ClientIDMode="Static" Width="194px" ReadOnly="true"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ID="REVParaMail" runat="server" Display="None" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ControlToValidate="TxtParaMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Para (Mail)''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOParaMail" runat="server" HighlightCssClass="vco" TargetControlID="REVParaMail" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td>
|
||||
Con copia para:<br />
|
||||
(Separar con: ;)
|
||||
</td>
|
||||
<td><asp:TextBox ID="TxtCC" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px"></asp:TextBox></td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td>Texto Adicional:</td>
|
||||
<td><asp:TextBox ID="TxtBody" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px"></asp:TextBox></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td align="center" colspan="2"><asp:Button ID="BtnSendMail" runat="server" OnClientClick="javascript:$get('DivMail').style.display='none';" Text="Enviar" /> <input type="button" value="Cancelar" onclick="javascript:$get('DivMail').style.display='none';" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<div id ="DivAddPago" style="width:350px; background-color:White; border:solid 1px black; color:Black; display:none; position:fixed; z-index: 1500">
|
||||
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:HiddenField ID="HdnCveVentaAbono" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
<table border="1" rules="all" style="border-collapse: collapse; width: 350px">
|
||||
<tr align="left">
|
||||
<td width="150">Cantidad:</td>
|
||||
<td width="200">
|
||||
<asp:TextBox ID="TxtCantidad" runat="server" ClientIDMode="Static" ValidationGroup="GpoGuardarAbonar" Width="80px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GpoGuardarAbonar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVCantidadAbonar" runat="server" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto, por favor corrija." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GpoGuardarAbonar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOCantidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOCantidad2" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidadAbonar" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
<td><b>Fecha:</b> </td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtFechaPago" runat="server" BorderStyle="None" CausesValidation="true" MaxLength="10" ValidationGroup="GpoGuardarAbonar"></asp:TextBox>
|
||||
<asp:ImageButton runat="server" ID="ImgFechaPago" Visible="false" ImageUrl="/Imagenes/calendar.png" ImageAlign="AbsMiddle" Width="16px" Height="16px" AlternateText="Click para ver el Calendario" />
|
||||
<ajax:MaskedEditExtender ID="MEEFechaPago" runat="server" TargetControlID="TxtFechaPago" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender runat="server" ID="CEFechaPago" TargetControlID="TxtFechaPago" PopupButtonID="ImgFechaPago" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaPago" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GpoGuardarAbonar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaPago" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GpoGuardarAbonar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaPago1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaPago2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
<tr>
|
||||
<td>Referencia:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TxtReferencia" runat="server" ClientIDMode="Static" ValidationGroup="GpoGuardarAbonar" Width="80px"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVReferencia" runat="server" ControlToValidate="TxtReferencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GpoGuardarAbonar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCallOutExtender ID="VCOReferencia" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferencia" Width="300px"></ajax:ValidatorCallOutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td align="center" colspan="2"><asp:Button ID="BtnAbonar" runat="server" Text="Abonar" ValidationGroup="GpoGuardarAbonar" /> <input type="button" value="Cancelar" onclick="javascript:$get('DivAddPago').style.display='none';" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<br />
|
||||
<asp:UpdateProgress ID="upProgress" runat="server" DisplayAfter="0">
|
||||
<ProgressTemplate>
|
||||
<div id="overlay">
|
||||
<div id="modalprogress">
|
||||
<div id="theprogress">
|
||||
<center>
|
||||
<table border="0" cellpadding="0" cellspacing="0">
|
||||
<tr>
|
||||
<td>La información se está procesando...</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><img src="/Imagenes/Cargando.gif" style="border-width: 0px;" alt="" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</center>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ProgressTemplate>
|
||||
</asp:UpdateProgress>
|
||||
</asp:Content>
|
||||
|
||||
@@ -1,314 +0,0 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
|
||||
Partial Class PRESENTACIONES_Clientes3
|
||||
Inherits ClsPaginas
|
||||
|
||||
'Configuración
|
||||
Private ReadOnly Property CveCliente As Integer
|
||||
Get
|
||||
Return ViewState("CveCliente").ToString.ToEntero
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
SetValues()
|
||||
SetPermisos()
|
||||
|
||||
If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then
|
||||
ViewState("CveCliente") = Request("CveCliente")
|
||||
CargaDatos()
|
||||
CargaHistorial()
|
||||
CargaCxC()
|
||||
'Configuración de Modalidad Update
|
||||
LtlTitulo.Text = "Consulta del Cliente:"
|
||||
'ImgAddVenta
|
||||
ImgAddVenta.Attributes.Add("OnClick", "window.location = '/Ventas/Ventas.aspx?CveCliente=" & CveCliente & "'")
|
||||
If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero
|
||||
Else
|
||||
'Configuración de Modalidad Insert
|
||||
ViewState("CveCliente") = -1
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SetValues()
|
||||
ViewState("Orden") = ""
|
||||
ViewState("OSucursalCliente") = "SucursalCliente DESC"
|
||||
ViewState("OEstado") = "Estado DESC"
|
||||
ViewState("OFecha") = "Fecha DESC"
|
||||
ViewState("OUsuario") = "Usuario DESC"
|
||||
TxtFechaPago.Text = Now.ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub SetPermisos()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjClientes As New ClsClientes()
|
||||
If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
If ObjClientes.DtResultados.Rows.Count > 0 Then
|
||||
'Campos para Modificación
|
||||
LtlCliente.Text = ObjClientes.Nombre
|
||||
TxtNombre.Text = ObjClientes.Nombre
|
||||
TxtDireccion.Text = ObjClientes.Direccion
|
||||
TxtNoExt.Text = ObjClientes.NoExt
|
||||
TxtNoInt.Text = ObjClientes.NoInt
|
||||
TxtColonia.Text = ObjClientes.Colonia
|
||||
TxtLocalidad.Text = ObjClientes.Localidad
|
||||
TxtCiudad.Text = ObjClientes.Ciudad
|
||||
TxtEstado.Text = ObjClientes.Estado
|
||||
TxtRFC.Text = ObjClientes.RFC
|
||||
TxtCP.Text = ObjClientes.CP.ToString
|
||||
TxtTelefono.Text = ObjClientes.Telefono
|
||||
TxtContacto.Text = ObjClientes.Contacto
|
||||
TxtEmail.Text = ObjClientes.Mail
|
||||
Else
|
||||
Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
ObjClientes.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub CargaHistorial()
|
||||
Dim ObjClientes As New ClsClientes()
|
||||
If ObjClientes.GetHistorialVentas(CveCliente) Then
|
||||
If ObjClientes.DtResultados.Rows.Count > 0 Then
|
||||
'Carga Generales
|
||||
'Carga Grid
|
||||
GVHistorial.DataSource = ObjClientes.DtResultados
|
||||
Else
|
||||
GVHistorial.DataSource = Nothing
|
||||
End If
|
||||
Else
|
||||
GVHistorial.DataSource = Nothing
|
||||
End If
|
||||
ObjClientes.Dispose()
|
||||
GVHistorial.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCxC()
|
||||
Dim ObjMovtos As New ClsMovimientos()
|
||||
'CxC Activas
|
||||
If ObjMovtos.GetCxCCliente(CveCliente) Then
|
||||
GvCxC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
|
||||
GvCxCHistorial.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
|
||||
Else
|
||||
GvCxC.DataSource = Nothing
|
||||
GvCxCHistorial.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjMovtos.Dispose()
|
||||
GvCxC.DataBind()
|
||||
GvCxCHistorial.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.BackColor = Drawing.Color.LightGray
|
||||
DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).Visible = False
|
||||
End If
|
||||
|
||||
Dim Liga As String = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
|
||||
e.Row.FCLiteral("LtlFactura").Text = Liga & e.Row.DBCampo("Folio") & "</a>"
|
||||
|
||||
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
||||
DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).HRef = "javascript:$get('HdnTipoDocto').value='Fact';$get('HdnCveVenta').value='" & e.Row.DBCampo("CveVenta") & "';$get('HdnFolioVenta').value='" & e.Row.DBCampo("folio") & "';$('#DivMail').show(1000);PosicionaObjeto('" & DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor).ClientID & "', 'DivMail');"
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxC.RowDataBound, GvCxCHistorial.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).ColumnSpan = 4
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.FCLiteral("LtlFactura").Text = "Total" & " "
|
||||
e.Row.Cells(1).Visible = False
|
||||
e.Row.Cells(2).Visible = False
|
||||
e.Row.Cells(3).Visible = False
|
||||
e.Row.Cells(9).ColumnSpan = 2
|
||||
e.Row.Cells(10).Visible = False
|
||||
e.Row.BackColor = Drawing.Color.LightGray
|
||||
e.Row.FCImage("ImgAbonar").Visible = False
|
||||
End If
|
||||
If e.Row.RowIndex = 1 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(60)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(70)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(80)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(80)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(90)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(90)
|
||||
e.Row.Cells(6).Width = Unit.Pixel(105)
|
||||
e.Row.Cells(7).Width = Unit.Pixel(90)
|
||||
e.Row.Cells(8).Width = Unit.Pixel(105)
|
||||
e.Row.Cells(9).Width = Unit.Pixel(70)
|
||||
e.Row.Cells(10).Width = Unit.Pixel(70)
|
||||
End If
|
||||
|
||||
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right
|
||||
|
||||
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(5).ForeColor = Drawing.Color.Red
|
||||
If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(3).ForeColor = Drawing.Color.Red
|
||||
If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
|
||||
If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = ""
|
||||
If e.Row.DBCampo("PorRecuperado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlPorRecuperado"), Literal).Text = ""
|
||||
If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""
|
||||
If e.Row.DBCampo("PorXRecuperar").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlPorXRecuperar"), Literal).Text = ""
|
||||
|
||||
If e.Row.DBCampo("Folio") = "N/D" Then
|
||||
e.Row.FCLiteral("LtlFactura").Text = e.Row.DBCampo("Folio")
|
||||
Else
|
||||
Dim Liga As String = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
|
||||
e.Row.FCLiteral("LtlFactura").Text = Liga & e.Row.DBCampo("Folio") & "</a>"
|
||||
|
||||
End If
|
||||
If e.Row.RowIndex > 0 Then e.Row.FCLiteral("LtlAux").Text = "<a class=""Texto thickbox"" href=""/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente=" & CveCliente & "&CveVenta=" & e.Row.DBCampo("CveVenta") & "&TB_iframe=true&height=370&width=900"" />Ir</a>"
|
||||
DirectCast(e.Row.FindControl("ImgAbonar"), Image).Attributes.Add("onclick", "$get('HdnCveVenta').value='" & e.Row.DBCampo("CveVenta") & "';$get('HdnCveVentaAbono').value='" & e.Row.DBCampo("CveVenta") & "';$('#DivAddPago').show(1000);PosicionaObjeto('" & DirectCast(e.Row.FindControl("ImgAbonar"), Image).ClientID & "', 'DivAddPago');")
|
||||
|
||||
If CType(sender, GridView).ID = "GvCxCHistorial" Then
|
||||
DirectCast(e.Row.FindControl("ImgAbonar"), Image).Visible = False
|
||||
DirectCast(e.Row.FindControl("LtlDiasVencido"), Literal).Text = ""
|
||||
Else
|
||||
e.Row.Cells(7).Font.Bold = True
|
||||
e.Row.Cells(8).Font.Bold = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub BtnSendMail_Click(sender As Object, e As System.EventArgs) Handles BtnSendMail.Click
|
||||
Try
|
||||
|
||||
If HdnCveVenta.Value <> "-1" AndAlso HdnFolioVenta.Value <> "-1" Then
|
||||
'Dim ObjEmprea As New ClsEmpresas()
|
||||
'If ObjEmprea.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
||||
Dim ObjMail As New ClsSisMail()
|
||||
Dim Ruta As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
|
||||
|
||||
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto.Value = "Fact" Then
|
||||
If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") AndAlso File.Exists(Ruta & "XML\" & HdnFolioVenta.Value & ".xml") Then
|
||||
Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
|
||||
Dim XML As String = Ruta & "XML\" & HdnFolioVenta.Value & ".xml"
|
||||
Dim ArrayCC() As String = TxtCC.Text.Trim.Split(Convert.ToChar(";"))
|
||||
|
||||
Dim ResultadoMail As Integer = 0
|
||||
If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
|
||||
ResultadoMail = 1
|
||||
TxtCC.Text = ""
|
||||
TxtBody.Text = ""
|
||||
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
||||
CargaHistorial()
|
||||
UpnHistorial.Update()
|
||||
Else
|
||||
ResultadoMail = 3
|
||||
End If
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero)
|
||||
ObjVentas.Dispose()
|
||||
Else
|
||||
Alert("No se pudo adjuntar el correo electrónica.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto.Value = "Fact" Then
|
||||
If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") Then
|
||||
Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
|
||||
Dim ArrayCC() As String = TxtCC.Text.Trim.Split(Convert.ToChar(";"))
|
||||
|
||||
Dim ResultadoMail As Integer = 0
|
||||
If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, "", ArrayCC, TxtBody.Text.Trim) Then
|
||||
ResultadoMail = 1
|
||||
TxtCC.Text = ""
|
||||
TxtBody.Text = ""
|
||||
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
||||
CargaHistorial()
|
||||
UpnHistorial.Update()
|
||||
Else
|
||||
ResultadoMail = 3
|
||||
End If
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero)
|
||||
ObjVentas.Dispose()
|
||||
Else
|
||||
Alert("No se pudo adjuntar el correo electrónica.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
ElseIf HdnTipoDocto.Value = "Cot" Then
|
||||
If File.Exists(Ruta & "PDF\Cotizacion_" & HdnFolioVenta.Value & ".pdf") Then
|
||||
Dim PDF As String = Ruta & "PDF\Cotizacion_" & HdnFolioVenta.Value & ".pdf"
|
||||
Dim ArrayCC() As String = TxtCC.Text.Trim.Split(Convert.ToChar(";"))
|
||||
|
||||
Dim ResultadoMail As Integer = 0
|
||||
If ObjMail.Mandacorreo(UsuarioActual.Empresa.SendMail, UsuarioActual.Empresa.SendMailPassword, TxtParaMail.Text.Trim, "Entrega de Cotización", PDF, "", ArrayCC, TxtBody.Text.Trim) Then
|
||||
ResultadoMail = 1
|
||||
TxtCC.Text = ""
|
||||
TxtBody.Text = ""
|
||||
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
||||
CargaHistorial()
|
||||
UpnHistorial.Update()
|
||||
Else
|
||||
ResultadoMail = 3
|
||||
End If
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero)
|
||||
ObjVentas.Dispose()
|
||||
Else
|
||||
Alert("No se pudo adjuntar el correo electrónica.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
|
||||
'End If
|
||||
'ObjEmprea.Dispose()
|
||||
Else
|
||||
Alert("No se seleccionó ninguna factura para envíar.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió error al mandar MAIL", ex)
|
||||
Dim ObjVentas As New ClsVentas
|
||||
ObjVentas.UpdateVentaMail(3, HdnCveVenta.Value.ToEntero)
|
||||
ObjVentas.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Protected Sub BtnAbonar_Click(sender As Object, e As System.EventArgs) Handles BtnAbonar.Click
|
||||
' Dim ObjMovtos As New ClsMovimientos()
|
||||
' If ObjMovtos.AddMovimiento(2, "Cli", CveCliente.ToString, HdnCveVentaAbono.Value, 0, TxtCantidad.Text.Trim.ToDouble, TxtFechaPago.Text.ToDate, TxtReferencia.Text.Trim, DdlCtaContableClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
' Alert("El abono se guardó correctamente", TipoMensaje.MsgInformacion, "$get(""DivAddPago"").style.display=""none"";")
|
||||
' CargaCxC()
|
||||
' TxtCantidad.Text = ""
|
||||
' TxtReferencia.Text = ""
|
||||
' UpDatos.Update()
|
||||
' End If
|
||||
' ObjMovtos.Dispose()
|
||||
'End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Binary file not shown.
|
Before Width: | Height: | Size: 60 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 931 B |
Binary file not shown.
|
Before Width: | Height: | Size: 175 KiB |
@@ -1,225 +0,0 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CapturaIncidencias.aspx.vb" Inherits="PRESENTACIONES_SeguridadPublica_CapturaIncidencias" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="E" Runat="Server">
|
||||
Captura de Incidencias
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="C" Runat="Server">
|
||||
<table width="100%" align="center" style="text-align: center">
|
||||
<tr>
|
||||
<td>Portal: Captura de incidencias</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Seguridad Pública</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Soporte Técnico TECNOLOGÍAS DE LA INFORMACIÓN</td>
|
||||
</tr>
|
||||
</table>
|
||||
<br />
|
||||
<table width="100%">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label1" runat="server" Text="0007727/13N" Font-Bold="True"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label2" runat="server" Text="Zona" Font-Bold="True"></asp:Label><br />
|
||||
<asp:DropDownList ID="DropDownList1" runat="server"><asp:ListItem>Norte</asp:ListItem></asp:DropDownList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label3" runat="server" Text="Fecha" Font-Bold="True"></asp:Label>
|
||||
<asp:Label ID="Label6" runat="server" Text="dd/mm/aaaa" Font-Size="Smaller"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox1" runat="server" Width="100px">05/11/2013</asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label4" runat="server" Text="Hora" Font-Bold="True" Width="52px"></asp:Label> <asp:Label ID="Label7" runat="server" Text="Min" Font-Bold="True"></asp:Label><br />
|
||||
|
||||
<asp:DropDownList ID="DropDownList2" runat="server"><asp:ListItem>02</asp:ListItem></asp:DropDownList>
|
||||
<asp:Label ID="Label5" runat="server" Text=":" ></asp:Label>
|
||||
<asp:TextBox ID="TextBox2" runat="server" Width="17px">10</asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<br />
|
||||
<table width="90%" >
|
||||
<tr>
|
||||
<td style="width: 169px">
|
||||
<asp:Label ID="Label8" runat="server" Text="Autoridad"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList3" runat="server" Width="100%">
|
||||
<asp:ListItem></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="width: 169px">
|
||||
<asp:Label ID="Label9" runat="server" Text="Puesto:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox3" runat="server" Width="100%"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="width: 169px">
|
||||
<asp:Label ID="Label10" runat="server" Text="Dirección:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox4" runat="server" Width="100%"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="width: 169px">
|
||||
<asp:Label ID="Label11" runat="server" Text="Descripción Breve del Suceso"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox5" runat="server" TextMode="MultiLine" Width="100%"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="width: 169px">
|
||||
<asp:Label ID="Label12" runat="server" Text="Nombre del Detenido:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox6" runat="server" Width="100%"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="width: 169px">
|
||||
<asp:Label ID="Label13" runat="server" Text="Alias:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox7" runat="server" Width="100%"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="width: 169px">
|
||||
|
||||
</td>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label14" runat="server" Text="Edad:"></asp:Label>
|
||||
<asp:TextBox ID="TextBox8" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label18" runat="server" Text="Sexo:"></asp:Label>
|
||||
<asp:DropDownList ID="DropDownList4" runat="server"><asp:ListItem>Femenino</asp:ListItem></asp:DropDownList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label19" runat="server" Text="Boleta de Entrada:"></asp:Label>
|
||||
<asp:TextBox ID="TextBox10" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="width: 169px">
|
||||
<asp:Label ID="Label15" runat="server" Text="Motivo"></asp:Label>
|
||||
:</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox11" runat="server" TextMode="MultiLine" Width="100%"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td align="center" colspan="4">
|
||||
<asp:Button ID="Button1" runat="server" Text="Agregar Detenido" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="4">
|
||||
<table width="100%" border="1">
|
||||
<tr bgcolor="#999999" style="text-align: center; font-weight: bold;">
|
||||
<td>
|
||||
<asp:Label ID="Label16" runat="server" Text="Nombre del Detenido"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label17" runat="server" Text="Edad"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label20" runat="server" Text="Borrar"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr align="center">
|
||||
<td>
|
||||
<asp:Label ID="Label21" runat="server" Text="-"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label22" runat="server" Text="-"></asp:Label>
|
||||
</td>
|
||||
<td align="center">
|
||||
<asp:Image ID="Image1" runat="server" ImageUrl="~/Imagenes/Basura1.png" />
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<br />
|
||||
<tr><td style="width: 169px">
|
||||
<asp:Label ID="Label23" runat="server" Text="Nombre del Perjudicado:"></asp:Label></td><td>
|
||||
<asp:TextBox ID="TextBox12" runat="server" Width="100%"></asp:TextBox>
|
||||
</td></tr>
|
||||
<tr><td style="width: 169px"></td>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label24" runat="server" Text="Edad:"></asp:Label>
|
||||
<asp:TextBox ID="TextBox9" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label25" runat="server" Text="Sexo:"></asp:Label>
|
||||
<asp:DropDownList ID="DropDownList5" runat="server"><asp:ListItem>Femenino</asp:ListItem></asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td></tr>
|
||||
<tr>
|
||||
<td style="width: 169px">
|
||||
<asp:Label ID="Label26" runat="server" Text="Observaciones:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox13" runat="server" TextMode="MultiLine" Width="100%"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td align="center" colspan="4">
|
||||
<asp:Button ID="Button2" runat="server" Text="Agregar Perjudicado" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="4">
|
||||
<table width="100%" border="1">
|
||||
<tr bgcolor="#999999" style="text-align: center; font-weight: bold;">
|
||||
<td>
|
||||
<asp:Label ID="Label27" runat="server" Text="Nombre del Detenido"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label28" runat="server" Text="Edad"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label29" runat="server" Text="Borrar"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr align="center">
|
||||
<td>
|
||||
<asp:Label ID="Label30" runat="server" Text="-"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label31" runat="server" Text="-"></asp:Label>
|
||||
</td>
|
||||
<td align="center">
|
||||
<asp:Image ID="Image2" runat="server" ImageUrl="~/Imagenes/Basura1.png" />
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</asp:Content>
|
||||
|
||||
@@ -1,5 +0,0 @@
|
||||
|
||||
Partial Class PRESENTACIONES_SeguridadPublica_CapturaIncidencias
|
||||
Inherits System.Web.UI.Page
|
||||
|
||||
End Class
|
||||
@@ -1,457 +0,0 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CapturaIncidenciasTransito.aspx.vb" Inherits="PRESENTACIONES_SeguridadPublica_CapturaIncidenciasTransito" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
||||
Captura de Incidencias de Tránsito
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
||||
<table width="100%" class="Titulos">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label1" runat="server" Text="JEFATURA DE POLICIA PREVENTIVA Y TRÁNSITO MUNICIPAL"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList1" runat="server">
|
||||
<asp:ListItem>Reporte de Choque</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label2" runat="server" Text="H. AYUNTAMIENTO DE HERMOSILLO - Folio = 000270/12N_1"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<table width="100%" border="1" style="border-right: 1; border: thin solid #C0C0C0;">
|
||||
<tr>
|
||||
<td class="Titulos" width="5%">
|
||||
<asp:Label ID="Label3" runat="server" Text="1"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%" border="1" style="border-right: 1; border: thin solid #C0C0C0;">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label13" runat="server" Text="Fecha(dd/mm/aaaa)"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox1" runat="server" Width="115px"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label14" runat="server" Text="Hora : Minutos "></asp:Label><br />
|
||||
<asp:DropDownList ID="DropDownList2" runat="server">
|
||||
<asp:ListItem>13</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
:
|
||||
<asp:TextBox ID="TextBox2" runat="server" Width="16px">00</asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label15" runat="server" Text="ZONA"></asp:Label><br />
|
||||
<asp:DropDownList ID="DropDownList3" runat="server">
|
||||
<asp:ListItem>Norte</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label16" runat="server" Text="Horario"></asp:Label><br />
|
||||
<asp:DropDownList ID="DropDownList4" runat="server">
|
||||
<asp:ListItem>A</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="Titulos" width="5%">
|
||||
<asp:Label ID="Label4" runat="server" Text="2"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%" border="1" style="border-right: 1; border: thin solid #C0C0C0;">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label17" runat="server" Text="Unidades "></asp:Label>
|
||||
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label18" runat="server" Text="Lesionados "></asp:Label>
|
||||
<asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label19" runat="server" Text="Muertos "></asp:Label>
|
||||
<asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label20" runat="server" Text="Daños en $ "></asp:Label>
|
||||
<asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="Titulos" width="5%">
|
||||
<asp:Label ID="Label5" runat="server" Text="3"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table width="100%" border="1" style="border-right: 1; border: thin solid #C0C0C0;">
|
||||
<tr>
|
||||
<td width="10%">
|
||||
<asp:Label ID="Label21" runat="server" Text="Localización"></asp:Label>
|
||||
</td>
|
||||
<td width="20%" align="right">
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label22" runat="server" Text="Vía"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label23" runat="server" Text="Con"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label24" runat="server" Text="Entre"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label25" runat="server" Text="Colonia"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
<td width="70%" align="left">
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox7" runat="server" Width="220px"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox8" runat="server" Width="220px"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox9" runat="server" Width="220px"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList5" runat="server" Width="220px">
|
||||
<asp:ListItem>Carmen Serdán</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="Titulos" width="5%">
|
||||
<asp:Label ID="Label6" runat="server" Text="4"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:DropDownList ID="DropDownList6" runat="server">
|
||||
<asp:ListItem>A</asp:ListItem>
|
||||
</asp:DropDownList><br />
|
||||
<asp:Label ID="Label26" runat="server" Text="Unidad Móvil"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label27" runat="server" Text="Licencia"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox11" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label28" runat="server" Text="Razón Social"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox10" runat="server"></asp:TextBox><br /><br />
|
||||
<asp:Label ID="Label29" runat="server" Text="Cinturón"></asp:Label><br />
|
||||
<asp:CheckBox ID="CheckBox1" runat="server" />
|
||||
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label30" runat="server" Text="Mismo Cond."></asp:Label><br />
|
||||
<asp:CheckBox ID="CheckBox2" runat="server" />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label31" runat="server" Text="Marca"></asp:Label><br />
|
||||
<asp:DropDownList ID="DropDownList7" runat="server" Width="115px">
|
||||
<asp:ListItem>Marca</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label32" runat="server" Text="Capacidad"></asp:Label><br />
|
||||
<asp:DropDownList ID="DropDownList8" runat="server" Width="115px">
|
||||
<asp:ListItem>Capacidad</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
<td><table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
|
||||
<tr>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label33" runat="server" Text="Tipo"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox12" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label34" runat="server" Text="Daños"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox13" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:RadioButtonList ID="RadioButtonList1" runat="server">
|
||||
<asp:ListItem>Conductor</asp:ListItem>
|
||||
<asp:ListItem>Peaton</asp:ListItem>
|
||||
<asp:ListItem>Ciclista</asp:ListItem>
|
||||
</asp:RadioButtonList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label35" runat="server" Text="Nombre del Propietario"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox14" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label36" runat="server" Text="Modelo"></asp:Label><br />
|
||||
<asp:DropDownList ID="DropDownList9" runat="server" Width="115">
|
||||
<asp:ListItem>Modelo</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label37" runat="server" Text="Número ECO"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox15" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
<td><table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
|
||||
<tr>
|
||||
<td>
|
||||
<table><tr>
|
||||
<td>
|
||||
<asp:Label ID="Label38" runat="server" Text="Estado"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox16" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label39" runat="server" Text="Vigencia"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox17" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr></table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label40" runat="server" Text="Nombre"></asp:Label><br /></br>
|
||||
<asp:TextBox ID="TextBox18" runat="server"></asp:TextBox></br>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label41" runat="server" Text="Dirección"></asp:Label><br /></br>
|
||||
<asp:TextBox ID="TextBox19" runat="server"></asp:TextBox></br>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label42" runat="server" Text="Placas"></asp:Label><br /></br>
|
||||
<asp:TextBox ID="TextBox20" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<table border="1" style="border-right: 1; border: thin solid #C0C0C0;">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label43" runat="server" Text="Estado"></asp:Label><br /></br>
|
||||
<asp:TextBox ID="TextBox21" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label44" runat="server" Text="Año"></asp:Label><br /></br>
|
||||
<asp:TextBox ID="TextBox22" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<table width="100%" border="1" style="border-right: 1; border: thin solid #C0C0C0;"><tr><td><asp:Label ID="Label45" runat="server" Text="Color"></asp:Label><br />
|
||||
<asp:DropDownList ID="DropDownList10" runat="server">
|
||||
<asp:ListItem>Color</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label46" runat="server" Text="Infracción y Artículos"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox23" runat="server"></asp:TextBox><br />
|
||||
<asp:DropDownList ID="DropDownList11" runat="server">
|
||||
<asp:ListItem>Infracción No.</asp:ListItem>
|
||||
</asp:DropDownList></td></tr></table>
|
||||
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
<td><table>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
<td><table>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="Titulos" width="5%">
|
||||
<asp:Label ID="Label7" runat="server" Text="5"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="Titulos" width="5%">
|
||||
<asp:Label ID="Label8" runat="server" Text="6"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="Titulos" width="5%">
|
||||
<asp:Label ID="Label9" runat="server" Text="7"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="Titulos" width="5%">
|
||||
<asp:Label ID="Label10" runat="server" Text="8"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="Titulos" width="5%">
|
||||
<asp:Label ID="Label11" runat="server" Text="9"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="Titulos" width="5%">
|
||||
<asp:Label ID="Label12" runat="server" Text="10"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</asp:Content>
|
||||
@@ -1,5 +0,0 @@
|
||||
|
||||
Partial Class PRESENTACIONES_SeguridadPublica_CapturaIncidenciasTransito
|
||||
Inherits System.Web.UI.Page
|
||||
|
||||
End Class
|
||||
@@ -1,172 +0,0 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegistroEmergencias.aspx.vb" Inherits="PRESENTACIONES_SeguridadPublica_RegistroEmergencias" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
|
||||
Registro de Emergencias
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
|
||||
<table>
|
||||
<tr><td>
|
||||
<asp:Label ID="Label15" runat="server" Text="Módulo:"></asp:Label><asp:TextBox ID="TextBox21" runat="server" Enabled="False"></asp:TextBox></td>
|
||||
<td>
|
||||
<asp:Label ID="Label16" runat="server" Text="Usuario:"></asp:Label><asp:TextBox ID="TextBox22" runat="server" Enabled="False"></asp:TextBox></td>
|
||||
<td>
|
||||
<asp:Label ID="Label17" runat="server" Text="Fecha/Hora:"></asp:Label><asp:TextBox ID="TextBox23" runat="server" Enabled="False"></asp:TextBox></td></tr>
|
||||
<tr>
|
||||
<td>
|
||||
<fieldset>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label1" runat="server" Text="Descripción del Evento:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox7" runat="server" TextMode="MultiLine"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label2" runat="server" Text="Lugar de la Detención:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox8" runat="server" TextMode="MultiLine"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label3" runat="server" Text="Colonia:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox9" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label4" runat="server" Text="Ciudad:"></asp:Label>
|
||||
</td>
|
||||
<td>
|
||||
<asp:TextBox ID="TextBox10" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</fieldset>
|
||||
</td>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<fieldset>
|
||||
<table>
|
||||
<tr>
|
||||
<td align="right">
|
||||
<asp:Label ID="Label11" runat="server" Text="Corporación:"></asp:Label>
|
||||
</td>
|
||||
<td colspan="3">
|
||||
<asp:TextBox ID="TextBox11" runat="server" Width="400px"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label12" runat="server" Text="Unidades Involucradas"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox12" runat="server"></asp:TextBox><br />
|
||||
<asp:TextBox ID="TextBox13" runat="server"></asp:TextBox><br />
|
||||
<asp:TextBox ID="TextBox14" runat="server"></asp:TextBox><br />
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label13" runat="server" Text="Clave"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox15" runat="server" Width="50px"></asp:TextBox><br />
|
||||
<asp:TextBox ID="TextBox16" runat="server" Width="50px"></asp:TextBox><br />
|
||||
<asp:TextBox ID="TextBox17" runat="server" Width="50px"></asp:TextBox><br />
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label14" runat="server" Text="Nombre del Responsable"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox18" runat="server" Width="345px"></asp:TextBox><br />
|
||||
<asp:TextBox ID="TextBox19" runat="server" Width="345px"></asp:TextBox><br />
|
||||
<asp:TextBox ID="TextBox20" runat="server" Width="345px"></asp:TextBox><br />
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="3">
|
||||
<asp:CheckBox ID="CheckBox1" runat="server" />Catálogo de Responsables de Unidad
|
||||
|
||||
<asp:Button ID="Button4" runat="server" Text="Guardar Evento" />
|
||||
<asp:Button ID="Button7" runat="server" Text="Cancelar Evento" /></td></tr>
|
||||
|
||||
</table>
|
||||
</fieldset>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<table border="0" width="100%" >
|
||||
<tr>
|
||||
<td width="80%">
|
||||
<fieldset>
|
||||
<legend><b>Datos del Detenido</b></legend>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label5" runat="server" Text="Nombre:"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label8" runat="server" Text="Alias:"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label6" runat="server" Text="Apellido Paterno:"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label9" runat="server" Text="Fecha de Nacimiento:"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:Label ID="Label7" runat="server" Text="Apellido Materno:"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
<td>
|
||||
<asp:Label ID="Label10" runat="server" Text="Edad:"></asp:Label><br />
|
||||
<asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
<td>
|
||||
<table>
|
||||
<tr>
|
||||
<td align="center">
|
||||
<asp:Button ID="Button3" runat="server" Text="Generales" /><br />
|
||||
<asp:ImageButton ID="ImageButton1" runat="server" ImageUrl="~/Imagenes/buscar.gif" />
|
||||
</td>
|
||||
<td>
|
||||
<asp:Button ID="Button5" runat="server" Text="Filiación" /><br />
|
||||
<asp:Button ID="Button6" runat="server" Text="Motivos" />
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</fieldset>
|
||||
</td>
|
||||
<td width="20%">
|
||||
<fieldset>
|
||||
<legend><b>¿Registrar?</b></legend><br /><br /><br />
|
||||
<asp:Button ID="Button1" runat="server" Text="Otro Detenido" /><br />
|
||||
<asp:Button ID="Button2" runat="server" Text="OtroEvento" /><br /><br /><br />
|
||||
</fieldset>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</asp:Content>
|
||||
@@ -1,5 +0,0 @@
|
||||
|
||||
Partial Class PRESENTACIONES_SeguridadPublica_RegistroEmergencias
|
||||
Inherits System.Web.UI.Page
|
||||
|
||||
End Class
|
||||
@@ -1,32 +0,0 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Sonidito.aspx.vb" Inherits="PruebasOrlando_Sonidito" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
|
||||
<asp:UpdatePanel runat="server" ID="up" UpdateMode="conditional">
|
||||
<ContentTemplate>
|
||||
<asp:linkbutton runat="server" OnClick="LBPlaySonidito_Click" ID="LBPlaySonidito" text="<i class='fa fa-print' aria-hidden='true'></i>" CssClass="btn btn-sm btn-circle grey "></asp:linkbutton>
|
||||
<asp:linkbutton runat="server" ID="lnkFacturas" text="<i class='fa fa-download' aria-hidden='true'></i>" CssClass="btn btn-sm btn-circle grey "></asp:linkbutton>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
|
||||
<script type="text/javascript">
|
||||
function playsonidito() {
|
||||
var snd = new Audio("/Sonidos/142608__autistic-lucario__error.wav");
|
||||
snd.play();
|
||||
snd.currentTime = 0;
|
||||
}
|
||||
</script>
|
||||
</asp:Content>
|
||||
|
||||
@@ -1,75 +0,0 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
Imports System.Diagnostics
|
||||
Imports System.IO
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Imports System.Security
|
||||
|
||||
Partial Class PruebasOrlando_Sonidito
|
||||
Inherits System.Web.UI.Page
|
||||
|
||||
Protected Sub LBPlaySonidito_Click(sender As Object, e As EventArgs)
|
||||
Dim ruta = "C:\inetpub\wwwroot\ADSistemas\Sonidos\142608__autistic-lucario__error.wav"
|
||||
RegistraScript("playsonidito();")
|
||||
End Sub
|
||||
|
||||
Private Function VerificaCorreo() As Boolean Handles lnkFacturas.Click
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
AbreComoSistema()
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub AbreComoSistema()
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
Dim ObjProcess As Process = Nothing
|
||||
Dim Mensajes As String = ""
|
||||
Dim Ejecutable = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Utilerias\UtileriasAD.exe")
|
||||
Dim Folder = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Empresas\")
|
||||
Dim error1 As Boolean = False
|
||||
Try
|
||||
ObjProcess = New Process()
|
||||
ObjProcess.StartInfo.RedirectStandardOutput = True
|
||||
ObjProcess.StartInfo.FileName = Ejecutable
|
||||
' ObjProcess.StartInfo.UserName = "Orlando"
|
||||
' ObjProcess.StartInfo.Password = ToSecureString("memy")
|
||||
' ObjProcess.StartInfo.Verb = "runas"
|
||||
ObjProcess.StartInfo.Arguments = $"2 {Folder}"
|
||||
ObjProcess.StartInfo.UseShellExecute = False
|
||||
ObjProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
|
||||
ObjProcess.Start()
|
||||
|
||||
|
||||
ObjProcess.WaitForExit()
|
||||
ObjProcess.Close()
|
||||
Catch ex As Exception
|
||||
error1 = True
|
||||
OnError("Ocurrió un error al ejecutar el actualizador.", ex)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function ToSecureString(Source As String) As SecureString
|
||||
If (String.IsNullOrWhiteSpace(Source)) Then
|
||||
Return Nothing
|
||||
Else
|
||||
Dim Result As SecureString = New SecureString()
|
||||
For Each c As Char In Source.ToCharArray()
|
||||
Result.AppendChar(c)
|
||||
Next
|
||||
Return Result
|
||||
End If
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
@@ -1,22 +0,0 @@
|
||||
<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Soniditos.aspx.cs" Inherits="PruebasOrlando_Soniditos" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
|
||||
<asp:linkbutton runat="server" OnClick="Unnamed_Click" ID="LBPlaySonidito" text="+" CssClass="btn btn-sm btn-circle green"></asp:linkbutton>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
|
||||
|
||||
|
||||
</asp:Content>
|
||||
|
||||
@@ -1,19 +0,0 @@
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Web;
|
||||
using System.Web.UI;
|
||||
using System.Web.UI.WebControls;
|
||||
|
||||
public partial class PruebasOrlando_Soniditos : System.Web.UI.Page
|
||||
{
|
||||
protected void Page_Load(object sender, EventArgs e)
|
||||
{
|
||||
|
||||
}
|
||||
|
||||
protected void Unnamed_Click(object sender, EventArgs e)
|
||||
{
|
||||
|
||||
}
|
||||
}
|
||||
26
Rene.aspx
26
Rene.aspx
@@ -1,26 +0,0 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Rene.aspx.vb" Inherits="Rene" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
|
||||
CP
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
|
||||
E
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
|
||||
HB
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
|
||||
H
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
|
||||
HA
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
|
||||
C
|
||||
<asp:TextBox ID="Txt" runat="server" TextMode="MultiLine" Height="200px" Width="500px"></asp:TextBox>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
88
Rene.aspx.vb
88
Rene.aspx.vb
@@ -1,88 +0,0 @@
|
||||
|
||||
Imports System.Net
|
||||
Imports System.Net.NetworkInformation
|
||||
|
||||
Partial Class Rene
|
||||
Inherits System.Web.UI.Page
|
||||
|
||||
Private Sub Rene_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
'Dim Correo As New ClsSisMail
|
||||
|
||||
If Not IsPostBack Then
|
||||
IpAddress()
|
||||
End If
|
||||
|
||||
'Correo.SendMail(Nothing, "rene.molina@adsistemas.mx", "asunto", "Body", CCP:="rene.molina@adsistemas.mx;julian@adsistemas.mx;rene.molina@adsistemas.mx;julian@adsistemas.mx;paola@adsistemas.mx;")
|
||||
End Sub
|
||||
|
||||
Private Sub IpAddress()
|
||||
Dim ClientIP As String = String.Empty
|
||||
Dim Tipo As String = String.Empty
|
||||
Dim HTML As String = String.Empty
|
||||
Dim IP As String = String.Empty
|
||||
|
||||
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
|
||||
If Not String.IsNullOrEmpty(IP) Then
|
||||
Dim ipRange As String() = IP.Trim().Split(","c)
|
||||
Dim le As Integer = ipRange.Length - 1
|
||||
ClientIP = ipRange(le)
|
||||
Tipo = "1: "
|
||||
End If
|
||||
HTML &= (ClientIP)
|
||||
HTML &= ("<br>")
|
||||
HTML &= (Tipo)
|
||||
|
||||
IP = Request.ServerVariables("HTTP_X_CLUSTER_CLIENT_IP")
|
||||
If Not String.IsNullOrEmpty(IP) Then
|
||||
ClientIP = IP
|
||||
Tipo = "2: "
|
||||
End If
|
||||
HTML &= (ClientIP)
|
||||
HTML &= ("<br>")
|
||||
HTML &= (Tipo)
|
||||
|
||||
If IP = Request.ServerVariables("REMOTE_ADDR") Then
|
||||
ClientIP = Request.ServerVariables("REMOTE_ADDR")
|
||||
Tipo = "3: "
|
||||
End If
|
||||
HTML &= (ClientIP)
|
||||
HTML &= ("<br>")
|
||||
HTML &= (Tipo)
|
||||
|
||||
HTML &= ("<br>Tipo 4: ")
|
||||
HTML &= (System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.GetValue(0).ToString())
|
||||
|
||||
HTML &= ("<br>Tipo 5: ")
|
||||
HTML &= (HttpContext.Current.Request.Params("HTTP_CLIENT_IP"))
|
||||
|
||||
HTML &= ("<br>Tipo 6: ")
|
||||
HTML &= (HttpContext.Current.Request.UserHostAddress)
|
||||
|
||||
|
||||
|
||||
|
||||
Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
|
||||
Dim sMacAddress As String = String.Empty
|
||||
Dim ipv4 As String = String.Empty
|
||||
For Each adapter As NetworkInterface In nics
|
||||
If sMacAddress = String.Empty Then
|
||||
' only return MAC Address from first card
|
||||
Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
|
||||
sMacAddress = adapter.GetPhysicalAddress().ToString()
|
||||
ipv4 = adapter.GetIPv4Statistics().ToString
|
||||
HTML &= ("<br>Tipo 7: " & sMacAddress & " - " & ipv4)
|
||||
End If
|
||||
Next
|
||||
' To Get IP Address
|
||||
|
||||
HTML &= ("<br>Tipo 8: ")
|
||||
Dim IPHost As String = Dns.GetHostName()
|
||||
Dim IP2 As String = Dns.GetHostByName(IPHost).AddressList(0).ToString()
|
||||
|
||||
HTML &= IPHost & " - " & IP2
|
||||
|
||||
Txt.Text = HTML
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -17,12 +17,12 @@ Partial Class SessionesActivas
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
Dim listacve As New List(Of String)
|
||||
listacve.Add("1815")
|
||||
Notificaciones.AlertaVentana("notificacion", listacve, timeoutseconds:=0)
|
||||
' Dim listacve As New List(Of String)
|
||||
' listacve.Add("1815")
|
||||
' Notificaciones.AlertaVentana("notificacion", listacve, timeoutseconds:=0)
|
||||
|
||||
RCveUsuario = "0"
|
||||
ClsSisNotificaciones.SendNotificacionERP(100, "Titulo", "Hola Mundo", 1)
|
||||
' RCveUsuario = "0"
|
||||
'ClsSisNotificaciones.SendNotificacionERP(100, "Titulo", "Hola Mundo", 1)
|
||||
CargaDatos("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -2104,23 +2104,23 @@ Partial Class Ventas_ClientesAbonar
|
||||
' iva
|
||||
Dim PorcentajeImpuesto As Decimal = gr.DataKey("PorcentajeIVA").ToDecimal
|
||||
|
||||
Dim IdCtaIVATrasladado As Integer = 0
|
||||
Dim CveCuentaIVATrasladado As Integer = 0
|
||||
Dim IdCtaIVAXTrasladar As Integer = 0
|
||||
Dim CveCuentaIVAxTrasladar As Integer = 0
|
||||
|
||||
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
|
||||
IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero
|
||||
CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString.ToEntero
|
||||
IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
|
||||
CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero
|
||||
End If
|
||||
|
||||
IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
|
||||
CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
|
||||
If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 61, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
||||
IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
|
||||
CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
|
||||
If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||
End If
|
||||
|
||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
|
||||
CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSTrasladado
|
||||
If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 39, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
|
||||
CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSxTrasladar
|
||||
If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 38, TxtObsSaldarIncobrable.Text.Trim, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||
End If
|
||||
|
||||
|
||||
@@ -87,10 +87,10 @@
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
<li>
|
||||
<asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
|
||||
<asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
|
||||
<asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
|
||||
</li>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
@@ -164,9 +164,8 @@
|
||||
Cliente:
|
||||
</div>
|
||||
<div class="col-md-2 ">
|
||||
<asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" CssClass="form-control input-small input-sm select2me" Width="100%">
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
|
||||
</ADS:Dropdownlost>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1 truncate">
|
||||
@@ -232,8 +231,8 @@
|
||||
<div id="dvCa" style="width: 100%; top: 40px">
|
||||
<table id="dTable" class="correcto table Widthall Titulos">
|
||||
<tr>
|
||||
<td id="dvInv" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 30.5%; font-size: 14px;"><b>Venta</b></td>
|
||||
<td id="dvVen" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px; border-right-color: white!important; border-left-color: white!important; width: 32.5%; border-style: solid;"><b>Costo</b></td>
|
||||
<td id="dvInv" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 42%; font-size: 14px;"><b>Venta</b></td>
|
||||
<td id="dvVen" runat="server" class="dataTables_scrollHead" style="text-align: center!important; font-size: 14px; border-right-color: white!important; border-left-color: white!important; width: 25%; border-style: solid;"><b>Costo</b></td>
|
||||
<td id="dvUt" runat="server" class="dataTables_scrollHead" style="text-align: center!important; width: 40%; font-size: 14px;"><b>Utilidad/Pérdida</b></td>
|
||||
</tr>
|
||||
</table>
|
||||
@@ -250,6 +249,9 @@
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Center" HeaderText="Serie Folio" DataTextField="SerieFolio" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Center" HeaderText="Fecha" DataTextField="FechaVenta" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal" DataTextField="SubTotal" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" HeaderText="Descuento" DataTextField="Descuento" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" HeaderText="Bonificacion" DataTextField="Bonificacion" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal2" DataTextField="SubTotal2" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
|
||||
<asp:HyperLinkField Text="Ir" DataNavigateUrlFields="CveVenta" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Center" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Center" HeaderText="Folio" ItemStyle-CssClass="Texto" DataTextField="FolioMovto" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
|
||||
<asp:HyperLinkField ItemStyle-HorizontalAlign="Center" HeaderText="Fecha" DataTextField="FechaMovto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
|
||||
|
||||
@@ -38,8 +38,17 @@ Partial Class Ventas_RepVentasUtilidad
|
||||
txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
|
||||
|
||||
'Carga Clientes
|
||||
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
DdlClientes.DataBind()
|
||||
Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
|
||||
If EsWS Then
|
||||
DdlClientes.setEsWebService(True)
|
||||
DdlClientes.SelectedValue = "-1"
|
||||
DdlClientes.SelectedText = "Todos"
|
||||
Else
|
||||
DdlClientes.setEsWebService(False)
|
||||
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
|
||||
DdlClientes.DataBind()
|
||||
DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End If
|
||||
|
||||
'CargaSubProyectos
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
@@ -84,7 +93,10 @@ Partial Class Ventas_RepVentasUtilidad
|
||||
|
||||
DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
|
||||
DdlVendedor.SelectedValuesIfExistM(CveVendedor)
|
||||
DdlClientes.SelectedValueExist(CveCliente)
|
||||
If CveCliente <> "-1" Then
|
||||
DdlClientes.SelectedValue = CveCliente
|
||||
DdlClientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}").FiltroPrimeroValor("Nombre")
|
||||
End If
|
||||
DdlClasificacion.SelectedValueExist(CveClasificacion)
|
||||
DdlPS.SelectedValue = CvePS
|
||||
If CvePS.ToEntero > 0 AndAlso GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then
|
||||
@@ -184,17 +196,25 @@ Partial Class Ventas_RepVentasUtilidad
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If e.Row.DBCampo("CveVenta") = "" Then
|
||||
e.Row.Cells(6).Text = ""
|
||||
e.Row.Cells(7).Text = ""
|
||||
e.Row.Cells(8).Text = ""
|
||||
e.Row.Cells(10).Text = ""
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("CveMovimiento") = "" Then
|
||||
e.Row.Cells(3).Text = ""
|
||||
e.Row.Cells(7).Text = ""
|
||||
e.Row.Cells(8).Text = ""
|
||||
e.Row.Cells(10).Text = ""
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("CveVenta") = "" Then
|
||||
e.Row.CssClass = "Totales"
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("CveVenta") = "" Then
|
||||
e.Row.Cells(7).Text = ""
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}",
|
||||
@@ -249,7 +269,7 @@ Partial Class Ventas_RepVentasUtilidad
|
||||
If txtFechaI.Text = "" Then FechaI = MinFecha
|
||||
If txtFechaF.Text = "" Then FechaF = MaxFecha
|
||||
|
||||
Dim Cliente = If(DdlClientes.SelectedValue = "", "", $" <b>Cliente:</b> {DdlClientes.SelectedItem.Text}")
|
||||
Dim Cliente = If(DdlClientes.SelectedValue = "", "", $" <b>Cliente:</b> {DdlClientes.SelectedText}")
|
||||
Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $" <b>Sucursal:</b> {DdlSubProyecto.GetSelectedText}")
|
||||
Dim Vendedor = If(DdlVendedor.GetSelectedText = "", "", $" <b>Vendedor:</b> {DdlVendedor.GetSelectedText}")
|
||||
Dim PS = If(DdlPS.SelectedValue = "-1", "", $" <b>P.S.:</b> {DdlPS.SelectedText}")
|
||||
@@ -305,7 +325,7 @@ Partial Class Ventas_RepVentasUtilidad
|
||||
Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $" <b>Sucursal:</b> {DdlSubProyecto.GetSelectedText}")
|
||||
Dim FechaIn As String = $" <b>Fecha Inicio:</b> {txtFechaI.Text}"
|
||||
Dim FechaFn As String = $" <b>Fecha Fin:</b> {txtFechaF.Text}"
|
||||
Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $" <b>Cliente:</b> {DdlClientes.SelectedItem.Text}")
|
||||
Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $" <b>Cliente:</b> {DdlClientes.SelectedText}")
|
||||
Dim Vendedor = If(DdlVendedor.GetSelectedText = "", "", $" <b>Vendedor:</b> {DdlVendedor.GetSelectedText}")
|
||||
Dim PS = If(DdlPS.SelectedValue = "-1", "", $" <b>P.S.:</b> {DdlPS.SelectedText}")
|
||||
Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $" <b>Clasificacion:</b> {DdlClasificacion.SelectedItem.Text}")
|
||||
|
||||
@@ -260,6 +260,16 @@
|
||||
<asp:Label ID="LbSubTotalDolares" Visible="false" runat="server" Text="SubTotal"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td><b>Dias Emision:</b> </td>
|
||||
<td>
|
||||
<asp:Label ID="LblDiasEmision" runat="server" Text="Dias Emision"></asp:Label>
|
||||
</td>
|
||||
<td><b>Dias Vencimiento:</b> </td>
|
||||
<td>
|
||||
<asp:Label ID="LblDiasVencimiento" runat="server" Text="Dias Vencimiento"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -181,6 +181,8 @@ Partial Class Ventas_RepVentasUtilidadDetalle
|
||||
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
||||
CveMovimiento = ObjVentas.DtResultados.Rows(1)("CveMovimiento").ToString.ToEntero
|
||||
|
||||
LblDiasVencimiento.Text = ObjVentas.DtResultados.Rows(1)("DiasVencimiento").ToString
|
||||
LblDiasEmision.Text = ObjVentas.DtResultados.Rows(1)("DiasEmision").ToString
|
||||
LblCostoFecha.Text = "$" + ObjVentas.Costo.ToString("N2")
|
||||
HLCostoFolio.Text = ObjVentas.FolioCosto
|
||||
LblFechaSalid.Text = ObjVentas.FechaSalidaCosto.ToDate.ToShortDateString
|
||||
|
||||
@@ -139,8 +139,7 @@
|
||||
Cliente:
|
||||
</div>
|
||||
<div class="col-md-2 ">
|
||||
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:150px;">
|
||||
</ADS:Dropdownlost>
|
||||
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:150px;"></ADS:Dropdownlost>
|
||||
</div>
|
||||
<div class="col-md-1 truncate">
|
||||
Vendedor:
|
||||
|
||||
@@ -39,12 +39,15 @@ Partial Class Ventas_RepVentasUtilidadPadre
|
||||
|
||||
#Region " INICIALIZA VALORES "
|
||||
Private Sub CargaCombos()
|
||||
|
||||
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
|
||||
txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
|
||||
|
||||
'Carga Clientes
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1" Then
|
||||
DdlClientesWS.setEsWebService(True)
|
||||
DdlClientesWS.SelectedValue = "-1"
|
||||
DdlClientesWS.SelectedText = "Todos"
|
||||
Else
|
||||
DdlClientesWS.setEsWebService(False)
|
||||
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
|
||||
|
||||
@@ -5105,8 +5105,10 @@ Partial Class Ventas
|
||||
If CveVenta <= 0 Then
|
||||
CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString.ToEntero
|
||||
|
||||
DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
|
||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
|
||||
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
|
||||
|
||||
DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
|
||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
|
||||
End If
|
||||
|
||||
@@ -5133,8 +5135,10 @@ Partial Class Ventas
|
||||
If CveVenta <= 0 Then
|
||||
CveMetodoPagoCliente = ObjCliente.CveMetodoPago
|
||||
|
||||
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33)
|
||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33)
|
||||
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
|
||||
|
||||
DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33)
|
||||
DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI)
|
||||
End If
|
||||
|
||||
@@ -6150,6 +6154,10 @@ Partial Class Ventas
|
||||
End If
|
||||
End If
|
||||
|
||||
If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then
|
||||
Alert("Tiene que seleccionar un almacen", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
EmitirImprimirNew()
|
||||
End Sub
|
||||
@@ -8981,25 +8989,6 @@ Partial Class Ventas
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
ElseIf AplicarVentaFacturada Then
|
||||
'25/11/2017 SE VA A ELIMINAR, DIJO EL IPP
|
||||
|
||||
'If Not ObjVentas.UpdateVentaRemision(CveVenta, ObjFactura.CveVenta) Then
|
||||
' ErrorList.Add("Ocurrió un error al actualizar la remisión")
|
||||
'End If
|
||||
|
||||
'If Not ObjConta.TraspasarSaldosPrePolizas(CveVenta, ObjFactura.CveVenta, -1, ObjFactura.CvePrePoliza, 2) Then
|
||||
' ErrorList.Add("Ocurrió un error al traspasar los saldos de la remisión")
|
||||
'End If
|
||||
|
||||
''If Not ObjConta.CancelarPrePolizas(-1, CveVenta) Then
|
||||
'' ErrorList.Add("Ocurrió un error al cancelar los saldos de la remisión")
|
||||
''End If
|
||||
|
||||
'If Not TraspasoAlmacen(ObjInventario, CveVenta, ObjConta, True, 9) Then
|
||||
' ErrorList.Add("Ocurrió un error al traspasar el almacen")
|
||||
'End If
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -10251,147 +10240,152 @@ Partial Class Ventas
|
||||
End Function
|
||||
Private Function GuardarVentaInventarios(ObjInventario As ClsInventarios, ObjConta As ClsContabilidad, factura As Modelos.Factura) As Boolean
|
||||
Dim OcurrioError As Boolean = False
|
||||
Try
|
||||
|
||||
If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
|
||||
If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
|
||||
|
||||
If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
|
||||
If RemisionesLista.Count > 0 Then
|
||||
For Each CveRemision As Integer In RemisionesLista
|
||||
'El almacen general es el Primer Almacen de Material en la Sucursal
|
||||
If Not TraspasoAlmacen(ObjInventario, CveRemision, ObjConta, True, 9) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero
|
||||
Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1)
|
||||
If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
|
||||
|
||||
If CveMovimientoInventario <= 0 Then
|
||||
OcurrioError = True
|
||||
ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
|
||||
Else
|
||||
Dim Mensaje As String = ""
|
||||
Dim i As Integer = 0
|
||||
Dim Cantidad As Double
|
||||
Dim CveUnidad As Integer
|
||||
Dim CveProducto As Integer
|
||||
Dim Existencia As Double
|
||||
'Dim Pu As Double
|
||||
'DtInv.Clone()
|
||||
Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero
|
||||
Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1)
|
||||
|
||||
Dim DtEquivalencias As DataTable
|
||||
If CveMovimientoInventario <= 0 Then
|
||||
OcurrioError = True
|
||||
ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
|
||||
Else
|
||||
Dim Mensaje As String = ""
|
||||
Dim i As Integer = 0
|
||||
Dim Cantidad As Double
|
||||
Dim CveUnidad As Integer
|
||||
Dim CveProducto As Integer
|
||||
Dim Existencia As Double
|
||||
'Dim Pu As Double
|
||||
'DtInv.Clone()
|
||||
|
||||
For Each Dr As DataRow In DtInv.Rows
|
||||
If GvInv.Rows(i).FCCheckBox("cbInv").Checked Then
|
||||
Dim DtEquivalencias As DataTable
|
||||
|
||||
CveProducto = Dr("CvePS").ToString.ToEntero
|
||||
CveUnidad = Dr("CveUM").ToString.ToEntero
|
||||
Cantidad = Dr("Cantidad").ToString.ToDouble
|
||||
For Each Dr As DataRow In DtInv.Rows
|
||||
If GvInv.Rows(i).FCCheckBox("cbInv").Checked Then
|
||||
|
||||
If Dr("CveTipoInvPS").ToString.ToEntero = 5 And Dr("SerieLote").ToString = "" Then
|
||||
OcurrioError = True
|
||||
ErrorList.Add("Se deben especificar las Series de los productos de almacén")
|
||||
Exit For
|
||||
End If
|
||||
CveProducto = Dr("CvePS").ToString.ToEntero
|
||||
CveUnidad = Dr("CveUM").ToString.ToEntero
|
||||
Cantidad = Dr("Cantidad").ToString.ToDouble
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") Then
|
||||
Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacen, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1)
|
||||
If Existencia < Cantidad Then
|
||||
If Dr("CveTipoInvPS").ToString.ToEntero = 5 And Dr("SerieLote").ToString = "" Then
|
||||
OcurrioError = True
|
||||
ErrorList.Add($"No cuenta con la cantidad suficiente en inventario del producto {Dr("CodigoPS")} .Cuenta con {Existencia.FormatoNumero(2)}.")
|
||||
ErrorList.Add("Se deben especificar las Series de los productos de almacén")
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa = 1 Then
|
||||
DtEquivalencias = New DataTable
|
||||
DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1)
|
||||
Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero
|
||||
Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'")
|
||||
|
||||
'SI LA UNIDAD ACTUAL NO ES LA BASE SACA PROPORCION (EQUIVALENTE)
|
||||
If CveUnidadBase <> CveUnidad Then
|
||||
' LO QUE PUSE LO QUE VALE UNIDAD BASE LO QUE VALE UNIDAD SELECCIONADA
|
||||
Cantidad = Dr("Cantidad").ToString.ToDouble * drUMBase("Cantidad").ToString.ToDouble / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDouble
|
||||
CveUnidad = CveUnidadBase
|
||||
If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") Then
|
||||
Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacen, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1)
|
||||
If Existencia < Cantidad Then
|
||||
OcurrioError = True
|
||||
ErrorList.Add($"No cuenta con la cantidad suficiente en inventario del producto {Dr("CodigoPS")} .Cuenta con {Existencia.FormatoNumero(2)}.")
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If CveProducto > 0 Then
|
||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, 0, -1, SerieLote:=Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
|
||||
If UsuarioActual.CveEmpresa = 1 Then
|
||||
DtEquivalencias = New DataTable
|
||||
DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1)
|
||||
Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero
|
||||
Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'")
|
||||
|
||||
'SI LA UNIDAD ACTUAL NO ES LA BASE SACA PROPORCION (EQUIVALENTE)
|
||||
If CveUnidadBase <> CveUnidad Then
|
||||
' LO QUE PUSE LO QUE VALE UNIDAD BASE LO QUE VALE UNIDAD SELECCIONADA
|
||||
Cantidad = Dr("Cantidad").ToString.ToDouble * drUMBase("Cantidad").ToString.ToDouble / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDouble
|
||||
CveUnidad = CveUnidadBase
|
||||
End If
|
||||
End If
|
||||
|
||||
If CveProducto > 0 Then
|
||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, 0, -1, SerieLote:=Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
|
||||
OcurrioError = True
|
||||
ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />")
|
||||
Exit For
|
||||
End If
|
||||
Else
|
||||
OcurrioError = True
|
||||
ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />")
|
||||
Exit For
|
||||
End If
|
||||
Else
|
||||
OcurrioError = True
|
||||
ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />")
|
||||
Exit For
|
||||
|
||||
End If
|
||||
i = i + 1
|
||||
Next
|
||||
|
||||
End If
|
||||
i = i + 1
|
||||
Next
|
||||
'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN
|
||||
If Not OcurrioError Then
|
||||
Dim DtCostos As DataTable = Nothing
|
||||
Dim ValorInventario As Decimal = 0
|
||||
Dim TotalCosto As Decimal = 0
|
||||
If ObjInventario.GetMovimientosDetalle(CveMovimientoInventario, UsuarioActual.CveEmpresa) Then
|
||||
DtCostos = ObjInventario.DtResultados
|
||||
TotalCosto = DtCostos.SUMD("Total").RoundSQL
|
||||
Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
|
||||
Dim IdCtaContable As Integer = 0
|
||||
Dim CveCuenta As Integer = 0
|
||||
If tmpCostos.Rows.Count > 0 Then
|
||||
Dim TotalCostoAcumulado As Decimal = 0
|
||||
Dim cont As Integer = 1
|
||||
'Se agrega movimiento separado por la cuenta de ventas (ER)
|
||||
For Each RowInv As DataRow In tmpCostos.Rows
|
||||
ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL
|
||||
TotalCostoAcumulado += ValorInventario
|
||||
|
||||
'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN
|
||||
If Not OcurrioError Then
|
||||
Dim DtCostos As DataTable = Nothing
|
||||
Dim ValorInventario As Decimal = 0
|
||||
Dim TotalCosto As Decimal = 0
|
||||
If ObjInventario.GetMovimientosDetalle(CveMovimientoInventario, UsuarioActual.CveEmpresa) Then
|
||||
DtCostos = ObjInventario.DtResultados
|
||||
TotalCosto = DtCostos.SUMD("Total").RoundSQL
|
||||
Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
|
||||
Dim IdCtaContable As Integer = 0
|
||||
Dim CveCuenta As Integer = 0
|
||||
If tmpCostos.Rows.Count > 0 Then
|
||||
Dim TotalCostoAcumulado As Decimal = 0
|
||||
Dim cont As Integer = 1
|
||||
'Se agrega movimiento separado por la cuenta de ventas (ER)
|
||||
For Each RowInv As DataRow In tmpCostos.Rows
|
||||
ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL
|
||||
TotalCostoAcumulado += ValorInventario
|
||||
|
||||
'cuando es el último movimiento y hay diferencias en los importes
|
||||
If cont = tmpCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
|
||||
ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
|
||||
End If
|
||||
|
||||
'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString, Row2("SubProyecto").ToString)
|
||||
IdCtaContable = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
|
||||
CveCuenta = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
|
||||
If ValorInventario <> 0 Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, False, ValorInventario, factura.SerieFolio, 69, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveSubProyecto:=factura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta) Then
|
||||
OcurrioError = True
|
||||
'cuando es el último movimiento y hay diferencias en los importes
|
||||
If cont = tmpCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
|
||||
ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
|
||||
End If
|
||||
End If
|
||||
cont += 1
|
||||
Next
|
||||
End If
|
||||
IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero
|
||||
|
||||
If TotalCosto <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, True, TotalCosto, factura.SerieFolio, 68, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=factura.CveSubProyecto) Then
|
||||
OcurrioError = True
|
||||
'Concepto = String.Format("{0} - {1}", Row2("Clasificacion").ToString, Row2("SubProyecto").ToString)
|
||||
IdCtaContable = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
|
||||
CveCuenta = GlobalDTClasificaciones(factura.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
|
||||
If ValorInventario <> 0 Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, False, ValorInventario, factura.SerieFolio, 69, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveSubProyecto:=factura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
End If
|
||||
cont += 1
|
||||
Next
|
||||
End If
|
||||
IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacen)).ToEntero
|
||||
|
||||
If TotalCosto <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, True, TotalCosto, factura.SerieFolio, 68, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=factura.CveSubProyecto) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
End If
|
||||
|
||||
factura.Inv_CveMovimiento = CveMovimientoInventario
|
||||
factura.Inv_ValorInventario = ValorInventario
|
||||
|
||||
End If
|
||||
|
||||
factura.Inv_CveMovimiento = CveMovimientoInventario
|
||||
factura.Inv_ValorInventario = ValorInventario
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If RemisionesLista.Count > 0 Then
|
||||
For Each CveRemision As Integer In RemisionesLista
|
||||
'El almacen general es el Primer Almacen de Material en la Sucursal
|
||||
If Not TraspasoAlmacen(ObjInventario, CveRemision, ObjConta, True, 9) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OcurrioError = True
|
||||
OnError("Ocurrió un error al guardar el inventario", ex)
|
||||
End Try
|
||||
|
||||
Return OcurrioError
|
||||
End Function
|
||||
@@ -12498,221 +12492,7 @@ Partial Class Ventas
|
||||
|
||||
Return Not ErrorCancelar
|
||||
End Function
|
||||
'Protected Sub ImgGuardaEstatus_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgGuardaEstatus.Click
|
||||
|
||||
' 'La validacion de saldos cuando es refacturacion se hace antes asi que si es refacturacion ignoramos esta condicion, si es Anticipo verifica que no esté aplicado
|
||||
' If DdlTipoComprobante.SelectedValue = "Ant" AndAlso (HdnPagado.Value.ToDecimal > 0 Or GvAntNC.Rows.Count > 0) Then
|
||||
' Alert("La factura no se puede cancelar debido a que tiene pagos vinculados.", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' 'La validacion de saldos cuando es refacturacion se hace antes asi que si es refacturacion ignoramos esta condicion
|
||||
' If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") AndAlso HdnPagado.Value.ToDecimal > 0 Then
|
||||
' Alert("La factura no se puede cancelar debido a que tiene pagos vinculados.", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' ' si tiene movimientos en almacen, y sigue sin ser marcado como devuelto
|
||||
' If (GvInv.Rows.Count > 0 AndAlso DevolucionAlmacen.Contiene(0, 1)) AndAlso DdlTipoComprobante.SelectedValue <> "Rem" Then
|
||||
' Alert("La factura no se puede cancelar debido a que tiene movimientos de inventario.", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' 'Si la remision esta facturada no se puede cancelar
|
||||
' If DdlTipoComprobante.SelectedValue = "Rem" Then
|
||||
' Dim ObjV As New ClsVentas
|
||||
' If ObjV.VerificarRemisionFacturada(CveVenta) Then
|
||||
' If ObjV.DtResultados.Rows.Count > 0 Then
|
||||
' Alert("La remisión no se puede cancelar debido a que ya esta vinculada a una factura.", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
' End If
|
||||
' ObjV.Dispose()
|
||||
' End If
|
||||
|
||||
|
||||
' Dim ObjVentas As New ClsVentas() : ObjVentas.IniciaTransacSQL()
|
||||
' Dim ObjAC As ClsContPAQi = Nothing
|
||||
' Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
|
||||
' Dim ObjBancos As New ClsBancos(ObjVentas.IniciaTransacSQL())
|
||||
' Dim ObjInventario As New ClsInventarios(ObjVentas.IniciaTransacSQL())
|
||||
' Dim ObjContratos As New ClsContratos(ObjVentas.IniciaTransacSQL())
|
||||
|
||||
' Dim IDPoliza As Integer = -1
|
||||
' Dim CvePrePoliza As Integer
|
||||
' Dim CvePlantillaPoliza As Integer
|
||||
|
||||
' Dim ErrorCancelar As Boolean = False
|
||||
' Dim Mensaje As String = ""
|
||||
|
||||
' CreaObjetosVenta()
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
|
||||
' End If
|
||||
|
||||
' If GvInv.Rows.Count > 0 AndAlso DdlTipoComprobante.SelectedValue = "Rem" Then
|
||||
' If CveAlmacenTransitorio > 0 Then
|
||||
' ErrorCancelar = Not TraspasoAlmacen(ObjInventario, CveVenta, ObjConta, False, 9)
|
||||
' Else
|
||||
' ErrorCancelar = Not SalidaEntradaAlmacen(ObjInventario, CveVenta, ObjConta)
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
|
||||
' CvePlantillaPoliza = 7
|
||||
' ElseIf ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant") Then
|
||||
' CvePlantillaPoliza = 4
|
||||
' Else
|
||||
' CvePlantillaPoliza = 4
|
||||
' End If
|
||||
|
||||
' ObjFactura.CveVenta = CveVenta
|
||||
|
||||
' If HplSaldoAuxiliar.Text.ToDecimal > 0 Then
|
||||
' CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, TxtTotal.Text.ToDouble, TxtTotal.Text.Replace(",", "").ToDouble, DdlMoneda.SelectedValue.ToEntero, Now, NombreCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
' ObjFactura.CvePrePoliza = CvePrePoliza
|
||||
|
||||
' If Not ErrorCancelar Then
|
||||
' ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFactura, -1, TmpDT, ObjAC, -1, ObjBancos, ObjVentas)
|
||||
' End If
|
||||
|
||||
' If Not ErrorCancelar Then
|
||||
' ErrorCancelar = GuardarVentaImpuestosLocales(ObjVentas, ObjConta, ObjFactura, -1)
|
||||
' Else
|
||||
' Exit Sub
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' 'Desvincular Remisiones
|
||||
' '[IPP] COMENTADO PORQUE UNA REMISION USADA SE QUEMA - DETALLES CON INV - 30/ENERO/2018
|
||||
' 'If DdlTipoComprobante.SelectedValue = "Ing" Then
|
||||
' ' If Not ObjVentas.LiberarRemisionesFacturadas(CveVenta) Then
|
||||
' ' ErrorCancelar = True
|
||||
' ' Mensaje = "Ocurrió un error al desvincular las remisiones"
|
||||
' ' End If
|
||||
' 'End If
|
||||
|
||||
' 'Contratos
|
||||
' ErrorList = New List(Of String)
|
||||
' If ObjFactura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") Then
|
||||
' GuardarContratoAvanceEstimaciones(ObjContratos, ObjFactura, ErrorList, -1, True)
|
||||
' If ErrorList.Count > 0 Then : ErrorCancelar = True : End If
|
||||
' ElseIf ObjFactura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Then
|
||||
' GuardarContratoAvanceEstimaciones(ObjContratos, ObjFactura, ErrorList, 1, True)
|
||||
' If ErrorList.Count > 0 Then : ErrorCancelar = True : End If
|
||||
' End If
|
||||
|
||||
' If DdlEstatus.SelectedValue = "4" Then
|
||||
|
||||
' If ObjVentas.UpdateEstatusFactura(DdlEstatus.SelectedValue.ToEntero, FolioFiscal, "", Now, CveVenta, IDPoliza) Then
|
||||
' Mensaje = "El nuevo estatus se guardó correctamente"
|
||||
' Else
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
|
||||
' 'Si se está mandando a Cancelada SAT
|
||||
' ElseIf DdlEstatus.SelectedValue = "5" Then
|
||||
' Try
|
||||
' Dim DT As DataTable = Nothing
|
||||
|
||||
' If FolioFiscal = "" Then
|
||||
' Dim XmlDoc As New XmlDocument
|
||||
' XmlDoc.Load(Ruta & "XML\" & DdlTipoComprobante.SelectedValue & "\" & VentaFolio & ".xml")
|
||||
' ViewState("FolioFiscal") = XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText
|
||||
' End If
|
||||
|
||||
' 'Si es cancelar en el SAT:
|
||||
|
||||
' 'Dim xmlDoc As New System.Xml.XmlDocument()
|
||||
' 'xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String("PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9InllcyI/Pgo8QWN1c2UgRmVjaGE9IjIwMTYtMTItMzBUMTg6Mjk6MjAuNTExOTg1NSIgUmZjRW1pc29yPSJNT1FKODUxMjE0SEs0IiB4bWxuczpuczI9Imh0dHA6Ly93d3cudzMub3JnLzIwMDAvMDkveG1sZHNpZyMiIHhtbG5zOm5zMz0iaHR0cDovL2NhbmNlbGFjZmQuc2F0LmdvYi5teCI+CiAgICA8bnMzOkZvbGlvcz4KICAgICAgICA8bnMzOlVVSUQ+NjNBOEQxN0UtRDMxQi00QjVFLTkzMEEtMzdDNDJDRTFBM0M4PC9uczM6VVVJRD4KICAgICAgICA8bnMzOkVzdGF0dXNVVUlEPjIwMTwvbnMzOkVzdGF0dXNVVUlEPgogICAgPC9uczM6Rm9saW9zPgogICAgPG5zMjpTaWduYXR1cmUgSWQ9IlNlbGxvU0FUIj4KICAgICAgICA8bnMyOlNpZ25lZEluZm8+CiAgICAgICAgICAgIDxuczI6Q2Fub25pY2FsaXphdGlvbk1ldGhvZCBBbGdvcml0aG09Imh0dHA6Ly93d3cudzMub3JnL1RSLzIwMDEvUkVDLXhtbC1jMTRuLTIwMDEwMzE1Ii8+CiAgICAgICAgICAgIDxuczI6U2lnbmF0dXJlTWV0aG9kIEFsZ29yaXRobT0iaHR0cDovL3d3dy53My5vcmcvMjAwMS8wNC94bWxkc2lnLW1vcmUjaG1hYy1zaGE1MTIiLz4KICAgICAgICAgICAgPG5zMjpSZWZlcmVuY2UgVVJJPSIiPgogICAgICAgICAgICAgICAgPG5zMjpUcmFuc2Zvcm1zPgogICAgICAgICAgICAgICAgICAgIDxuczI6VHJhbnNmb3JtIEFsZ29yaXRobT0iaHR0cDovL3d3dy53My5vcmcvVFIvMTk5OS9SRUMteHBhdGgtMTk5OTExMTYiPgogICAgICAgICAgICAgICAgICAgICAgICA8bnMyOlhQYXRoPm5vdChhbmNlc3Rvci1vci1zZWxmOjoqW2xvY2FsLW5hbWUoKT0nU2lnbmF0dXJlJ10pPC9uczI6WFBhdGg+CiAgICAgICAgICAgICAgICAgICAgPC9uczI6VHJhbnNmb3JtPgogICAgICAgICAgICAgICAgPC9uczI6VHJhbnNmb3Jtcz4KICAgICAgICAgICAgICAgIDxuczI6RGlnZXN0TWV0aG9kIEFsZ29yaXRobT0iaHR0cDovL3d3dy53My5vcmcvMjAwMS8wNC94bWxlbmMjc2hhNTEyIi8+CiAgICAgICAgICAgICAgICA8bnMyOkRpZ2VzdFZhbHVlPk8zNzJtbWlEMFZWWUdkcGE4WjJ5K3VPQXVVcTdZb3JURldicER3K2xnVG9CUng3c2RrREtlNDZKRjRaM01hZHZ2djh6bG9vZTYwRGtZUGZyRGNZMUZ3PT08L25zMjpEaWdlc3RWYWx1ZT4KICAgICAgICAgICAgPC9uczI6UmVmZXJlbmNlPgogICAgICAgIDwvbnMyOlNpZ25lZEluZm8+CiAgICAgICAgPG5zMjpTaWduYXR1cmVWYWx1ZT5IbEJVbHplZlZFKzFXNS9QKzRuVk9YbEFuOVZLQUladm0vK2tuSldSb2plTVI4Ung5bHBpTUdIOXBVZG5iVWtObTloOTZQSXQ4QzBFd0Z2UVptRjlCZz09PC9uczI6U2lnbmF0dXJlVmFsdWU+CiAgICAgICAgPG5zMjpLZXlJbmZvPgogICAgICAgICAgICA8bnMyOktleU5hbWU+MDAwMDEwODg4ODg4MDAwMDAwMTY8L25zMjpLZXlOYW1lPgogICAgICAgICAgICA8bnMyOktleVZhbHVlPgogICAgICAgICAgICAgICAgPG5zMjpSU0FLZXlWYWx1ZT4KICAgICAgICAgICAgICAgICAgICA8bnMyOk1vZHVsdXM+eG5MMnpEUHRINWpEc0FaRFRJZk1xYktHcnZlK0F0OEt5eDJFWnZiZlhicEs5dVZFeFdTODc0b01lbEZ6TnE2OS9ZcVNSZVQzSTdJOHdyK2pveTVPN291WkgrNEtXZElHcDRTaTZsSGUwa250eHpObXV1S3lPUGtKOXRNY250bkZtUTRiZnhGeGxnL1VkMmhDdHVveTNqMnhZa0lYdTVPNHBHTTk4Tno4cEFNPTwvbnMyOk1vZHVsdXM+CiAgICAgICAgICAgICAgICAgICAgPG5zMjpFeHBvbmVudD5BUUFCPC9uczI6RXhwb25lbnQ+CiAgICAgICAgICAgICAgICA8L25zMjpSU0FLZXlWYWx1ZT4KICAgICAgICAgICAgPC9uczI6S2V5VmFsdWU+CiAgICAgICAgPC9uczI6S2V5SW5mbz4KICAgIDwvbnMyOlNpZ25hdHVyZT4KPC9BY3VzZT4K")))
|
||||
|
||||
' Dim ObjCancelacion As New Timbrado
|
||||
' Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
|
||||
' Dim RFCReceptor As String = LblRFC.Text.Trim
|
||||
' Dim CvePACCancelacion As Integer = UsuarioActual.Empresa.CvePAC
|
||||
' ImprimeCancelacion(CveVenta)
|
||||
|
||||
' If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TotalT, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
|
||||
' 'Generamos el acuse y mandamos mail de con el acuse de cancelación - DF 13/01/2017
|
||||
' ' ImprimeCancelacion(CveVenta)
|
||||
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' IDPoliza = GenerarPolizaAC(ObjAC, True)
|
||||
' If IDPoliza <= 0 Then
|
||||
' Mensaje = "No se pudo generar la poliza"
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If Not ErrorCancelar Then
|
||||
' If ObjVentas.UpdateEstatusFactura(DdlEstatus.SelectedValue.ToEntero, FolioFiscal, ObjCancelacion.CancelacionAcuse, ObjCancelacion.CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion) Then
|
||||
' Mensaje = "El nuevo estatus se guardó correctamente"
|
||||
|
||||
' Else
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' Catch ex As Exception
|
||||
' Mensaje = "Ocurrio un error al Cancelar la factura"
|
||||
' GuardaLog($"{ex.Message}")
|
||||
' End Try
|
||||
|
||||
' ElseIf DdlEstatus.SelectedValue = "9" Then
|
||||
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' IDPoliza = GenerarPolizaAC(ObjAC, True)
|
||||
|
||||
' If IDPoliza > 0 Then
|
||||
' Mensaje = "Se canceló exitosamente el compromiso."
|
||||
' Else
|
||||
' Mensaje = "No se pudo generar la poliza de cancelación"
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
|
||||
' End If
|
||||
|
||||
' If Not ErrorCancelar Then
|
||||
' If Not ObjVentas.UpdateEstatusFactura(DdlEstatus.SelectedValue.ToEntero, "", "", TxtFecha.Text.ToDate, CveVenta, IDPoliza) Then
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' ElseIf DdlEstatus.SelectedValue = "12" Then
|
||||
' If ObjVentas.UpdateEstatusFactura(DdlEstatus.SelectedValue.ToEntero, FolioFiscal, "", Now, CveVenta, IDPoliza) Then
|
||||
' Mensaje = "Se canceló exitosamente la Remisión"
|
||||
' Else
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
' Else
|
||||
' If ObjVentas.UpdateEstatusFactura(DdlEstatus.SelectedValue.ToEntero, FolioFiscal, "", Now, CveVenta, IDPoliza) Then
|
||||
' 'Alert("El nuevo estatus se guardó correctamente", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=" & CveVenta & """;")
|
||||
' Mensaje = "El nuevo estatus se guardó correctamente"
|
||||
' Else
|
||||
' ErrorCancelar = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
|
||||
' If Not ErrorCancelar Then
|
||||
' Alert(Mensaje, TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=" & CveVenta & """;")
|
||||
' ObjVentas.Commit()
|
||||
' If ObjAC IsNot Nothing Then ObjAC.Commit()
|
||||
' Else
|
||||
' Alert(Mensaje, TipoMensaje.MsgError)
|
||||
' ObjVentas.RollBack()
|
||||
' If ObjAC IsNot Nothing Then ObjAC.RollBack()
|
||||
' End If
|
||||
|
||||
' ObjVentas.Dispose()
|
||||
' ObjContratos.Dispose()
|
||||
' ObjConta.Dispose()
|
||||
' ObjBancos.Dispose()
|
||||
' ObjInventario.Dispose()
|
||||
' If ObjAC IsNot Nothing Then ObjAC.Dispose()
|
||||
|
||||
'End Sub
|
||||
Protected Sub ImgBtnAddC_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnAddC.Click
|
||||
Dim Row As DataRow = Nothing
|
||||
Row = DTmpC.NewRow
|
||||
@@ -14405,7 +14185,7 @@ Partial Class Ventas
|
||||
If TotalAmortizacion > 0 AndAlso TotalSubTotal = TotalAmortizacion Then ' si se amortizó completa la factura, debe de limpiar los impuestos
|
||||
If DdlTipoAmortizacionAnticipo.SelectedValue.Contiene("3") Then
|
||||
For Each dr As DataRow In TmpDT.Rows
|
||||
dr("ImporteIVA") = 0 : dr("ImporteIEPS") = 0 : dr("ImporteRetIVA") = 0 : dr("ImporteRetISR") = 0
|
||||
dr("ImporteIVA") = 0 : dr("ImporteIEPS") = 0 : dr("ImporteRetIVA") = 0 : dr("ImporteRetISR") = 0 : dr("PorcentajeIVA") = 0 : dr("IVA") = 0
|
||||
Next
|
||||
|
||||
If TmpDTImpuestos IsNot Nothing Then
|
||||
@@ -14841,106 +14621,120 @@ Partial Class Ventas
|
||||
End Sub
|
||||
Private Function TraspasoAlmacen(ByRef ObjInventario As ClsInventarios, CveRemision As Integer, ByRef ObjConta As ClsContabilidad, ConSalida As Boolean, ConceptoMovimiento As Integer) As Boolean
|
||||
Dim OcurrioError As Boolean = False
|
||||
Dim DtMovimientos As DataTable
|
||||
Dim DtMovimientosDetalles As DataTable
|
||||
DtRemConceptosSurtidos = Nothing
|
||||
Try
|
||||
Dim DtMovimientos As DataTable
|
||||
Dim DtMovimientosDetalles As DataTable
|
||||
DtRemConceptosSurtidos = Nothing
|
||||
|
||||
'Obtenemos los movimientos detalle
|
||||
If ObjInventario.GetInv_Mov(CveRemision, UsuarioActual.CveEmpresa) Then
|
||||
'Obtenemos los movimientos detalle
|
||||
If ObjInventario.GetInv_Mov(CveRemision, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
If ObjInventario.DtResultados.Rows.Count > 0 Then
|
||||
If ObjInventario.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
DtMovimientos = ObjInventario.DtResultados.FiltraParametros("", DistinctColumns:={"CveMovimiento"})
|
||||
DtMovimientos = ObjInventario.DtResultados.FiltraParametros("", DistinctColumns:={"CveMovimiento"})
|
||||
|
||||
'Si estamos facturando remisiones ajustamos por ventadetalle
|
||||
If RemisionesLista.Count > 0 Then
|
||||
Dim resultados = From DtRemisiones In DtRemisionesTmpDT
|
||||
Join DtMovDet In ObjInventario.DtResultados.FiltraParametros("CvePS > 0") On DtRemisiones("CveVentaDetalleRemision").ToString.ToEntero Equals DtMovDet("CveVentaDetalle").ToString.ToEntero
|
||||
Select DtMovDet
|
||||
Try
|
||||
DtMovimientosDetalles = resultados.CopyToDataTable
|
||||
Catch ex As Exception
|
||||
GuardaLog($"LOG IPP: Ventas LN: 10033. - DtRemisionesTmpDT.Rows.Count: {DtRemisionesTmpDT.Rows.Count} - ObjInventario.DtResultados.FiltraParametros('CvePS > 0').Rows.Count: {ObjInventario.DtResultados.FiltraParametros("CvePS > 0").Rows.Count}")
|
||||
DtMovimientosDetalles = New DataTable
|
||||
End Try
|
||||
Else
|
||||
DtMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0")
|
||||
End If
|
||||
'Si estamos facturando remisiones ajustamos por ventadetalle
|
||||
If RemisionesLista.Count > 0 Then
|
||||
Dim resultados = From DtRemisiones In DtRemisionesTmpDT
|
||||
Join DtMovDet In ObjInventario.DtResultados.FiltraParametros("CvePS > 0") On DtRemisiones("CveVentaDetalleRemision").ToString.ToEntero Equals DtMovDet("CveVentaDetalle").ToString.ToEntero
|
||||
Select DtMovDet
|
||||
Try
|
||||
DtMovimientosDetalles = resultados.CopyToDataTable
|
||||
Catch ex As Exception
|
||||
GuardaLog($"LOG IPP: Ventas LN: 10033. - DtRemisionesTmpDT.Rows.Count: {DtRemisionesTmpDT.Rows.Count} - ObjInventario.DtResultados.FiltraParametros('CvePS > 0').Rows.Count: {ObjInventario.DtResultados.FiltraParametros("CvePS > 0").Rows.Count}")
|
||||
DtMovimientosDetalles = New DataTable
|
||||
End Try
|
||||
Else
|
||||
DtMovimientosDetalles = ObjInventario.DtResultados.FiltraParametros("CvePS > 0")
|
||||
End If
|
||||
|
||||
For Each dr As DataRow In DtMovimientos.Rows
|
||||
If DtMovimientos.Rows.Count > 0 Then
|
||||
Dim GeneroMovimientoAlmacen As Boolean = False
|
||||
|
||||
'Obtenemos los Movimientos de salida
|
||||
If ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, ConceptoMovimiento, -1, UsuarioActual.CveEmpresa) Then
|
||||
For Each dr As DataRow In DtMovimientos.Rows
|
||||
|
||||
If ObjInventario.DtResultados.Rows.Count > 0 AndAlso DtMovimientosDetalles.Rows.Count > 0 Then
|
||||
'Obtenemos los Movimientos de salida
|
||||
If ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, ConceptoMovimiento, -1, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
Dim CveAlmacenSalida As Integer = ObjInventario.DtResultados(0)("CveAlmacen").ToString.ToEntero
|
||||
Dim CveAlmacenEntrada As Integer = ObjInventario.DtResultados(0)("CveAlmacenRelacionado").ToString.ToEntero
|
||||
Dim CveMoneda As Integer = ObjInventario.DtResultados(0)("CveMoneda").ToString.ToEntero
|
||||
Dim CveTipoAlmacen As Integer = ObjInventario.DtResultados(0)("CveTipoAlmacen").ToString.ToEntero
|
||||
If ObjInventario.DtResultados.Rows.Count > 0 AndAlso DtMovimientosDetalles.Rows.Count > 0 Then
|
||||
Dim RowMovimiento As DataRow = ObjInventario.DtResultados(0)
|
||||
|
||||
If (CveAlmacenEntrada > 0 AndAlso CveTipoAlmacen <> 1) Or RemisionesLista.Count = 0 Then 'Con remisiones parciales ignoramos las surtidas ya realizadas
|
||||
Dim CveAlmacenSalida As Integer = RowMovimiento("CveAlmacen").ToString.ToEntero()
|
||||
Dim CveAlmacenEntrada As Integer = RowMovimiento("CveAlmacenRelacionado").ToString.ToEntero()
|
||||
Dim CveMoneda As Integer = RowMovimiento("CveMoneda").ToString.ToEntero()
|
||||
Dim CveTipoAlmacen As Integer = RowMovimiento("CveTipoAlmacen").ToString.ToEntero()
|
||||
|
||||
Dim MovDetalle As New DataTable
|
||||
If RemisionesLista.Count > 0 Then
|
||||
MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND TieneSalidaxFactura IS NULL"))
|
||||
Else
|
||||
MovDetalle = DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}")
|
||||
End If
|
||||
If (CveAlmacenEntrada > 0 AndAlso CveTipoAlmacen <> 1) Or RemisionesLista.Count = 0 Then 'Con remisiones parciales ignoramos las surtidas ya realizadas
|
||||
|
||||
If ErrorList.Count = 0 Then
|
||||
If MovDetalle.Rows.Count > 0 Then
|
||||
Dim CveMovimientoSalidaPorTraspaso = -1
|
||||
Dim MovDetalle As New DataTable
|
||||
|
||||
'Le damos salida de apartado por traspaso
|
||||
CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision)
|
||||
If Not CveMovimientoSalidaPorTraspaso > 0 Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
If RemisionesLista.Count > 0 Then
|
||||
MovDetalle = CuadrarFacturaMovimientos(DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")} AND TieneSalidaxFactura IS NULL"))
|
||||
Else
|
||||
MovDetalle = DtMovimientosDetalles.FiltraParametros($"CveMovimiento = {dr("CveMovimiento")}")
|
||||
End If
|
||||
|
||||
'Le damos entrada al general por traspaso
|
||||
If Not OcurrioError Then
|
||||
If Not GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso) > 0 Then
|
||||
If ErrorList.Count = 0 AndAlso MovDetalle.Rows.Count > 0 Then
|
||||
Dim CveMovimientoSalidaPorTraspaso As Integer = -1
|
||||
|
||||
'Le damos salida de apartado por traspaso
|
||||
CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision)
|
||||
|
||||
If Not CveMovimientoSalidaPorTraspaso > 0 Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not OcurrioError Then
|
||||
If ConSalida Then
|
||||
'Le damos salida normal
|
||||
If Not GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 3, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 Then
|
||||
'Le damos entrada al general por traspaso
|
||||
If Not OcurrioError Then
|
||||
GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso) > 0
|
||||
|
||||
If Not GeneroMovimientoAlmacen Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
'Le damos salida normal
|
||||
If ConSalida AndAlso Not OcurrioError Then
|
||||
GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenEntrada, 3, CveMoneda, ObjFactura.CveVenta, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
|
||||
|
||||
If Not GeneroMovimientoAlmacen Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
Else
|
||||
OcurrioError = True
|
||||
End If
|
||||
|
||||
MovDetalle.Dispose()
|
||||
End If
|
||||
Else
|
||||
OcurrioError = True
|
||||
|
||||
End If
|
||||
|
||||
MovDetalle.Dispose()
|
||||
ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then
|
||||
'Esquema viejo, evitamos que aparezca por surtir
|
||||
If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
ElseIf ObjInventario.GetMovimientos(dr("CveMovimiento").ToString.ToEntero, 3, -1, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
'Esquema viejo, evitamos que aparezca por surtir
|
||||
If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
OcurrioError = Not GeneroMovimientoAlmacen
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
Else
|
||||
OcurrioError = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
OcurrioError = True
|
||||
OnError("Ocurrió un error al realizar el traspaso", ex)
|
||||
End Try
|
||||
Return Not OcurrioError
|
||||
End Function
|
||||
Private Function CuadrarFacturaMovimientos(MovDetalle As DataTable) As DataTable
|
||||
@@ -15737,7 +15531,6 @@ Partial Class Ventas
|
||||
Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDecimal / TxtTipoCambioDlls.Text.Trim.ToDecimal, NumeroDecimales)
|
||||
Next
|
||||
@@ -18836,8 +18629,6 @@ Partial Class Ventas
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region "D E V O L U C I O N D E P E D I D O "
|
||||
Private Sub CargaFacturaDevolucionPedido()
|
||||
Dim CveVenta As Integer = Me.CveVenta
|
||||
@@ -23480,9 +23271,4 @@ Partial Class Ventas
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Binary file not shown.
|
Before Width: | Height: | Size: 69 KiB |
Reference in New Issue
Block a user