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

cmabio de row comisiones

Browse Source
This commit is contained in:
Rene Molina
2019-08-19 09:10:26 -07:00
parent 0dbbf16012 8ecef00742
commit c49a6e51c6
51 changed files with 40958 additions and 43873 deletions
Download Patch File Download Diff File Expand all files Collapse all files

538
.gitignore vendored
View File

@@ -1,268 +1,270 @@
## Ignore Visual Studio temporary files, build results, and ## Ignore Visual Studio temporary files, build results, and
## files generated by popular Visual Studio add-ons. ## files generated by popular Visual Studio add-ons.
web.config web.config
Log.txt Log.txt
LogMail.txt LogMail.txt
LogPenske.txt LogPenske.txt
LogTimbrado.txt LogTimbrado.txt
[Mm]enu/ [Mm]enu/
[Tt]emp/ [Tt]emp/
[Ee]mpresas/ [Ee]mpresas/
# User-specific files # User-specific files
*.suo *.suo
*.user *.user
*.userosscache *.userosscache
*.sln.docstates *.sln.docstates
# User-specific files (MonoDevelop/Xamarin Studio) # User-specific files (MonoDevelop/Xamarin Studio)
*.userprefs *.userprefs
# Build results # Build results
[Dd]ebug/ [Dd]ebug/
[Dd]ebugPublic/ [Dd]ebugPublic/
[Rr]elease/ [Rr]elease/
[Rr]eleases/ [Rr]eleases/
x64/ x64/
x86/ x86/
bld/ bld/
[Bb]in/ [Bb]in/
[Oo]bj/ [Oo]bj/
[Ll]og/ [Ll]og/
# Visual Studio 2015 cache/options directory # Visual Studio 2015 cache/options directory
.vs/ .vs/
# Uncomment if you have tasks that create the project's static files in wwwroot # Uncomment if you have tasks that create the project's static files in wwwroot
#wwwroot/ #wwwroot/
# MSTest test Results # MSTest test Results
[Tt]est[Rr]esult*/ [Tt]est[Rr]esult*/
[Bb]uild[Ll]og.* [Bb]uild[Ll]og.*
# NUNIT # NUNIT
*.VisualState.xml *.VisualState.xml
TestResult.xml TestResult.xml
# Build Results of an ATL Project # Build Results of an ATL Project
[Dd]ebugPS/ [Dd]ebugPS/
[Rr]eleasePS/ [Rr]eleasePS/
dlldata.c dlldata.c
# DNX # DNX
project.lock.json project.lock.json
project.fragment.lock.json project.fragment.lock.json
artifacts/ artifacts/
*_i.c *_i.c
*_p.c *_p.c
*_i.h *_i.h
*.ilk *.ilk
*.meta *.meta
*.obj *.obj
*.pch *.pch
*.pdb *.pdb
*.pgc *.pgc
*.pgd *.pgd
*.rsp *.rsp
*.sbr *.sbr
*.tlb *.tlb
*.tli *.tli
*.tlh *.tlh
*.tmp *.tmp
*.tmp_proj *.tmp_proj
*.log *.log
*.vspscc *.vspscc
*.vssscc *.vssscc
.builds .builds
*.pidb *.pidb
*.svclog *.svclog
*.scc *.scc
# Chutzpah Test files # Chutzpah Test files
_Chutzpah* _Chutzpah*
# Visual C++ cache files # Visual C++ cache files
ipch/ ipch/
*.aps *.aps
*.ncb *.ncb
*.opendb *.opendb
*.opensdf *.opensdf
*.sdf *.sdf
*.cachefile *.cachefile
*.VC.db *.VC.db
*.VC.VC.opendb *.VC.VC.opendb
# Visual Studio profiler # Visual Studio profiler
*.psess *.psess
*.vsp *.vsp
*.vspx *.vspx
*.sap *.sap
# TFS 2012 Local Workspace # TFS 2012 Local Workspace
$tf/ $tf/
# Guidance Automation Toolkit # Guidance Automation Toolkit
*.gpState *.gpState
# ReSharper is a .NET coding add-in # ReSharper is a .NET coding add-in
_ReSharper*/ _ReSharper*/
*.[Rr]e[Ss]harper *.[Rr]e[Ss]harper
*.DotSettings.user *.DotSettings.user
# JustCode is a .NET coding add-in # JustCode is a .NET coding add-in
.JustCode .JustCode
# TeamCity is a build add-in # TeamCity is a build add-in
_TeamCity* _TeamCity*
# DotCover is a Code Coverage Tool # DotCover is a Code Coverage Tool
*.dotCover *.dotCover
# NCrunch # NCrunch
_NCrunch_* _NCrunch_*
.*crunch*.local.xml .*crunch*.local.xml
nCrunchTemp_* nCrunchTemp_*
# MightyMoose # MightyMoose
*.mm.* *.mm.*
AutoTest.Net/ AutoTest.Net/
# Web workbench (sass) # Web workbench (sass)
.sass-cache/ .sass-cache/
# Installshield output folder # Installshield output folder
[Ee]xpress/ [Ee]xpress/
# DocProject is a documentation generator add-in # DocProject is a documentation generator add-in
DocProject/buildhelp/ DocProject/buildhelp/
DocProject/Help/*.HxT DocProject/Help/*.HxT
DocProject/Help/*.HxC DocProject/Help/*.HxC
DocProject/Help/*.hhc DocProject/Help/*.hhc
DocProject/Help/*.hhk DocProject/Help/*.hhk
DocProject/Help/*.hhp DocProject/Help/*.hhp
DocProject/Help/Html2 DocProject/Help/Html2
DocProject/Help/html DocProject/Help/html
# Click-Once directory # Click-Once directory
publish/ publish/
# Publish Web Output # Publish Web Output
*.[Pp]ublish.xml *.[Pp]ublish.xml
*.azurePubxml *.azurePubxml
# TODO: Comment the next line if you want to checkin your web deploy settings # TODO: Comment the next line if you want to checkin your web deploy settings
# but database connection strings (with potential passwords) will be unencrypted # but database connection strings (with potential passwords) will be unencrypted
#*.pubxml #*.pubxml
*.publishproj *.publishproj
# Microsoft Azure Web App publish settings. Comment the next line if you want to # Microsoft Azure Web App publish settings. Comment the next line if you want to
# checkin your Azure Web App publish settings, but sensitive information contained # checkin your Azure Web App publish settings, but sensitive information contained
# in these scripts will be unencrypted # in these scripts will be unencrypted
PublishScripts/ PublishScripts/
# NuGet Packages # NuGet Packages
*.nupkg *.nupkg
# The packages folder can be ignored because of Package Restore # The packages folder can be ignored because of Package Restore
**/packages/* **/packages/*
# except build/, which is used as an MSBuild target. # except build/, which is used as an MSBuild target.
!**/packages/build/ !**/packages/build/
# Uncomment if necessary however generally it will be regenerated when needed # Uncomment if necessary however generally it will be regenerated when needed
#!**/packages/repositories.config #!**/packages/repositories.config
# NuGet v3's project.json files produces more ignoreable files # NuGet v3's project.json files produces more ignoreable files
*.nuget.props *.nuget.props
*.nuget.targets *.nuget.targets
# Microsoft Azure Build Output # Microsoft Azure Build Output
csx/ csx/
*.build.csdef *.build.csdef
# Microsoft Azure Emulator # Microsoft Azure Emulator
ecf/ ecf/
rcf/ rcf/
# Windows Store app package directories and files # Windows Store app package directories and files
AppPackages/ AppPackages/
BundleArtifacts/ BundleArtifacts/
Package.StoreAssociation.xml Package.StoreAssociation.xml
_pkginfo.txt _pkginfo.txt
# Visual Studio cache files # Visual Studio cache files
# files ending in .cache can be ignored # files ending in .cache can be ignored
*.[Cc]ache *.[Cc]ache
# but keep track of directories ending in .cache # but keep track of directories ending in .cache
!*.[Cc]ache/ !*.[Cc]ache/
# Others # Others
ClientBin/ ClientBin/
~$* ~$*
*~ *~
*.dbmdl *.dbmdl
*.dbproj.schemaview *.dbproj.schemaview
*.jfm *.jfm
*.pfx *.pfx
*.publishsettings *.publishsettings
node_modules/ node_modules/
orleans.codegen.cs orleans.codegen.cs
# Since there are multiple workflows, uncomment next line to ignore bower_components # Since there are multiple workflows, uncomment next line to ignore bower_components
# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622) # (https://github.com/github/gitignore/pull/1529#issuecomment-104372622)
#bower_components/ #bower_components/
# RIA/Silverlight projects # RIA/Silverlight projects
Generated_Code/ Generated_Code/
# Backup & report files from converting an old project file # Backup & report files from converting an old project file
# to a newer Visual Studio version. Backup files are not needed, # to a newer Visual Studio version. Backup files are not needed,
# because we have git ;-) # because we have git ;-)
_UpgradeReport_Files/ _UpgradeReport_Files/
Backup*/ Backup*/
UpgradeLog*.XML UpgradeLog*.XML
UpgradeLog*.htm UpgradeLog*.htm
# SQL Server files # SQL Server files
*.mdf *.mdf
*.ldf *.ldf
# Business Intelligence projects # Business Intelligence projects
*.rdl.data *.rdl.data
*.bim.layout *.bim.layout
*.bim_*.settings *.bim_*.settings
# Microsoft Fakes # Microsoft Fakes
FakesAssemblies/ FakesAssemblies/
# GhostDoc plugin setting file # GhostDoc plugin setting file
*.GhostDoc.xml *.GhostDoc.xml
# Node.js Tools for Visual Studio # Node.js Tools for Visual Studio
.ntvs_analysis.dat .ntvs_analysis.dat
# Visual Studio 6 build log # Visual Studio 6 build log
*.plg *.plg
# Visual Studio 6 workspace options file # Visual Studio 6 workspace options file
*.opt *.opt
# Visual Studio LightSwitch build output # Visual Studio LightSwitch build output
**/*.HTMLClient/GeneratedArtifacts **/*.HTMLClient/GeneratedArtifacts
**/*.DesktopClient/GeneratedArtifacts **/*.DesktopClient/GeneratedArtifacts
**/*.DesktopClient/ModelManifest.xml **/*.DesktopClient/ModelManifest.xml
**/*.Server/GeneratedArtifacts **/*.Server/GeneratedArtifacts
**/*.Server/ModelManifest.xml **/*.Server/ModelManifest.xml
_Pvt_Extensions _Pvt_Extensions
# Paket dependency manager # Paket dependency manager
.paket/paket.exe .paket/paket.exe
paket-files/ paket-files/
# FAKE - F# Make # FAKE - F# Make
.fake/ .fake/
# JetBrains Rider # JetBrains Rider
.idea/ .idea/
*.sln.iml *.sln.iml
*.sln.iml
# CodeRush
.cr/ # CodeRush
.cr/
# Python Tools for Visual Studio (PTVS)
__pycache__/ # Python Tools for Visual Studio (PTVS)
*.pyc __pycache__/
*.pyc
/SIGGIT.sln

7754
App_Code/ClsVentas.vb
View File

File diff suppressed because it is too large Load Diff

5
App_Code/Modelos.vb
View File

@@ -1181,13 +1181,14 @@ Namespace Modelos
'Se agregan los PS 'Se agregan los PS
For Each Row As DataRow In TmpDTDetalle.Rows 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, 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, 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, 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), CvePromocionDetalle:=If(DtPromociones IsNot Nothing, DtPromociones.FiltroPrimeroValor("CvePromocionDetalle", $"CvePS={Row("CvePS").ToString}").ToEntero, -1),
IEPS:=Row("ImporteIEPS").ToString.ToDouble, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString.ToEntero, IEPS:=Row("ImporteIEPS").ToString.ToDouble, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString.ToEntero,
ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDouble, 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") 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 Exit For
Else Else

6781
App_Code/Timbrado.vb
View File

File diff suppressed because it is too large Load Diff

BIN
App_WebReferences/Cancelacion.rar
View File

Binary file not shown.

14
Ashx/SIGGPS.ashx
View File

@@ -1,4 +1,4 @@
<%@ WebHandler Language="VB" Class="SIGGPS" %> <%@ WebHandler Language="VB" Class="SIGGPS" %>
Option Explicit On Option Explicit On
Option Strict On Option Strict On
@@ -16,7 +16,9 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
If context.Request("metodo") IsNot Nothing Then If context.Request("metodo") IsNot Nothing Then
Select Case context.Request("metodo") Select Case context.Request("metodo")
Case "getimginstalacion" Case "getimginstalacion"
GetImgInstalacion(context) GetImgInstalacion(context)
Case "EjecutarNotificaciones"
EjecutarNotificaciones(context)
End Select End Select
ElseIf context.Request.InputStream IsNot Nothing Then ElseIf context.Request.InputStream IsNot Nothing Then
Using reader As New StreamReader(context.Request.InputStream) Using reader As New StreamReader(context.Request.InputStream)
@@ -64,6 +66,14 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
Return URLParametros Return URLParametros
End Function 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) Private Sub GetImgInstalacion(ByVal context As HttpContext)
Dim params As String = Decripta(context.Request("r").ToString) Dim params As String = Decripta(context.Request("r").ToString)
Dim Parametros = Me.Parametros(params) Dim Parametros = Me.Parametros(params)

193
Ashx/SigFoxDecodeExample.aspx
View File

@@ -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>

11
Ashx/SigFoxDecodeExample.aspx.vb
View File

@@ -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

2
Bancos/PopIECompras.aspx
View File

@@ -11,7 +11,7 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
<asp:Literal ID="LtlTitulo" runat="server" Text="Pagos"></asp:Literal>&nbsp;<asp:Literal ID="LtlIE" runat="server"></asp:Literal> <asp:Literal ID="LtlTitulo" runat="server" Text="Pagos"></asp:Literal>&nbsp;<asp:Literal ID="LtlIE" runat="server"></asp:Literal>
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">

96
Bancos/PopIECompras.aspx.vb
View File

@@ -307,6 +307,8 @@ Partial Class Bancos_PopIECompras
Public Class IEMovimiento Public Class IEMovimiento
Public Property SubTotal As Decimal Public Property SubTotal As Decimal
Public Property IVA As Decimal Public Property IVA As Decimal
Public Property IVADeducible As Decimal
Public Property IVANoDeducible As Decimal
Public Property RetIVA As Decimal Public Property RetIVA As Decimal
Public Property RetISR As Decimal Public Property RetISR As Decimal
Public Property Total As Decimal Public Property Total As Decimal
@@ -615,6 +617,8 @@ Partial Class Bancos_PopIECompras
MovimientoPagar = New IEMovimiento MovimientoPagar = New IEMovimiento
MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal MovimientoPagar.SubTotal = dr("SubTotal").ToString.ToDecimal
MovimientoPagar.IVA = dr("IVA").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.RetIVA = dr("RetIVA").ToString.ToDecimal
MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal MovimientoPagar.RetISR = dr("RetISR").ToString.ToDecimal
MovimientoPagar.Total = dr("Total").ToString.ToDecimal MovimientoPagar.Total = dr("Total").ToString.ToDecimal
@@ -2250,16 +2254,16 @@ Partial Class Bancos_PopIECompras
If TotalImporte = CompraSaldo Then If TotalImporte = CompraSaldo Then
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
ImporteMovimiento = MovimientoPagar.IVA ImporteMovimiento = MovimientoPagar.IVADeducible
ImporteMX = ImporteMovimiento ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
ImporteMovimiento = (MovimientoPagar.IVA) ImporteMovimiento = (MovimientoPagar.IVADeducible)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
ImporteMovimiento = (MovimientoPagar.IVA) ImporteMovimiento = (MovimientoPagar.IVADeducible)
ImporteMX = ImporteMovimiento * tipoCambioCompra ImporteMX = ImporteMovimiento * tipoCambioCompra
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
ImporteMovimiento = (MovimientoPagar.IVA) ImporteMovimiento = (MovimientoPagar.IVADeducible)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
@@ -2273,16 +2277,92 @@ Partial Class Bancos_PopIECompras
End If End If
Else Else
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago ImporteMovimiento = MovimientoPagar.IVADeducible * PorcentajePago
ImporteMX = ImporteMovimiento ImporteMX = ImporteMovimiento
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago) ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago) ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago)
ImporteMX = ImporteMovimiento * tipoCambioCompra ImporteMX = ImporteMovimiento * tipoCambioCompra
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then 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) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
End If End If
ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ImporteMovimiento = Math.Round(ImporteMovimiento, 2)

4
Bancos/PopIEVentas.aspx.vb
View File

@@ -2062,7 +2062,7 @@ Partial Class Bancos_PopIEVentas
IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
tipoCambioVentaDiferenciaCambiaria = If(FechaVenta < FechaUltimaFluctuacion, TipoCambioFluctuacion, TipoCambioOriginal) tipoCambioVentaDiferenciaCambiaria = If(FechaVenta < FechaUltimaFluctuacion, TipoCambioFluctuacion, TipoCambioOriginal)
Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta) Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVentaDiferenciaCambiaria)
TimpocambioGeneral = TCImpuestos TimpocambioGeneral = TCImpuestos
Dim Diferencia As Decimal = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioVentaValuacion) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta 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 IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
tipoCambioVentaDiferenciaCambiaria = If(FechaVenta < FechaUltimaFluctuacion, TipoCambioFluctuacion, TipoCambioOriginal) tipoCambioVentaDiferenciaCambiaria = If(FechaVenta < FechaUltimaFluctuacion, TipoCambioFluctuacion, TipoCambioOriginal)
Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta) Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVentaDiferenciaCambiaria)
TimpocambioGeneral = TCImpuestos TimpocambioGeneral = TCImpuestos

2
Bancos/ProveedoresAbonar.aspx
View File

@@ -358,7 +358,7 @@
<asp:UpdatePanel ID="UPCompras" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPCompras" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvCxP" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Pagar Pendientes" <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"> Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>

155
ClsTSoft.vb
View File

@@ -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

14
Compras/Compras.aspx.cs
View File

@@ -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);
}
}

16
Compras/Compras.aspx.vb
View File

@@ -3729,6 +3729,20 @@ Partial Class Compras_Compras
End If End If
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 If CierrePeriodo Then
Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia) 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 Else
MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}" MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
End If End If
Else
MsgAccionAceptar = "location.href =""Compras.aspx"""
End If End If
'Simplificacion de PrePolizas 'Simplificacion de PrePolizas

BIN
Compras/Compras.rar
View File

Binary file not shown.

1
Contabilidad/RepIVA.aspx
View File

@@ -117,6 +117,7 @@
<asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Folio" ControlStyle-Width="85px" /> <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="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="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="IEPS" DataField="IEPS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="RetIVA" DataField="RetIVA" 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" /> <asp:BoundField HeaderText="RetISR" DataField="RetISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />

9780
Empresas/144/Formatos/Factura.rdlc
View File

File diff suppressed because it is too large Load Diff

10253
Empresas/70/Formatos/Factura.rdlc
View File

File diff suppressed because it is too large Load Diff

267
OS/CatTiposOrdenesServicios.aspx
View File

@@ -3,116 +3,175 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.Widthall {
width: 100% !important;
}
.dataTables_scrollHeadInner {
width: 100% !important;
background-color: #dddddd;
padding-left: 0px !important;
}
.dataTables_scrollFoot {
display: none;
position: static;
}
.table-scrollable {
margin: 0px !important;
}
.dataTables_scroll {
margin-bottom: 0px;
}
.table.dataTable {
margin-top: 0px !important;
}
.dataTables_scrollBody table th {
padding: 0px !important;
padding-right: 4px !important;
padding-left: 4px !important;
}
.sinlink td a {
pointer-events: none;
cursor: default;
color: black;
font-size: small;
}
.white a {
color: white !important;
}
</style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Catálogo de Tipos de Ordenes de Servicio Catálogo de Tipos de Ordenes de Servicio
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content> <asp:UpdatePanel runat="server" ID="UpAgregar">
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<table class="table table-striped table-advance table-hover"> <li>
<thead> <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>
<tr class="Titulos"> </li>
<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>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</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>
&nbsp;<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" />
&nbsp;<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>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content> </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>
&nbsp;<asp:Literal ID="LblTiposOS" runat="server" Text='<%# Eval("OrdenServicioTipo") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="150px">
<ItemTemplate>
&nbsp;<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>
&nbsp;<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>&nbsp;
<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>

276
OS/CatTiposOrdenesServicios.aspx.vb
View File

@@ -6,179 +6,165 @@ Imports System.Linq
Imports Extensiones Imports Extensiones
Partial Class OS_CatTiposOrdenesServicios Partial Class OS_CatTiposOrdenesServicios
Inherits ClsPaginas Inherits ClsPaginas
Public Property PuedeEditar As Boolean Private Property CveOrdenServicioTipo As Integer
Get Get
Return CBool(ViewState("PuedeEditar")) If Not ViewState("CveOrdenServicioTipo") Is Nothing Then
End Get Return ViewState("CveOrdenServicioTipo").ToString.ToEntero
Set(value As Boolean) Else
ViewState("PuedeEditar") = value Return -1
End Set End If
End Property
Public Property PuedeEliminar As Boolean End Get
Get Set(value As Integer)
Return CBool(ViewState("PuedeEditar")) ViewState("CveOrdenServicioTipo") = value
End Get End Set
Set(value As Boolean)
ViewState("PuedeEditar") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load End Property
If Not Page.IsPostBack Then
ViewState("Orden") = ""
CargaDatos()
End If
End Sub
Public Sub CargaDatos() Private Property Actualizar As Boolean
Dim ObjSubTipoOrdenServicios As New ClsOS 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 If ObjSubTipoOrdenServicios.GetTipoOrdenesServicios(-1) Then
ViewState("DTTipoOrdenServicios") = ObjSubTipoOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GvTiposOS.DataSource = ObjSubTipoOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTSubTipoOrdenServicios = ObjSubTipoOrdenServicios.DtResultados GlobalDTSubTipoOrdenServicios = ObjSubTipoOrdenServicios.DtResultados
Else Else
Me.GvDatos.DataSource = Nothing GvTiposOS.DataSource = Nothing
End If End If
ObjSubTipoOrdenServicios.Dispose() ObjSubTipoOrdenServicios.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then GvTiposOS.DataBind()
CargaGrid(ViewState("Orden").ToString()) UpGral.Update()
Else
CargaGrid("")
End If
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click End Sub
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
If ViewState("Orden").ToString() <> String.Empty Then Protected Sub BtnAgregarTiposOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarTiposOS.Click
CargaGrid(ViewState("Orden").ToString()) LtlTituloModalTiposOS.Text = "Agregar Tipo de Orden de Servicio"
Else BtnAgregarTiposOSModal.Text = "Agregar"
CargaGrid("") DivEstatus.Visible = False
End If
End If
ObjTipoOrdenServicios.Dispose()
End Sub
#Region "G V D A T O S" TxtTiposOS.Text = ""
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then Actualizar = False
If e.Row.RowIndex = 0 Then UpGral.Update()
e.Row.Cells(0).Width = Unit.Pixel(250) RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposOS"))
e.Row.Cells(1).Width = Unit.Pixel(100)
e.Row.Cells(2).Width = Unit.Pixel(100) End Sub
e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.Cells(4).Width = Unit.Pixel(100) Protected Sub BtnAgregarTiposOSModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTiposOSModal.Click
e.Row.Cells(5).Width = Unit.Pixel(61)
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 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 Else
CargaGrid("") If ObjTipoOrdenServicios.UpdateTipoOrdenServicio(TxtTiposOS.Text.Trim, False, ChkEstatus.Checked, CveOrdenServicioTipo) Then
End If
End Sub
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit TxtTiposOS.Text = ""
GvDatos.EditIndex = -1 ChkEstatus.Checked = True
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End Sub
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating CargadatosGvTiposOS()
Dim ObjTipoOrdenServicios As New ClsOS 'GeneraGlobalDT()
Dim TipoOrdenServicio As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTipoOrdenServicio"), TextBox).Text.Trim UpModalTiposOS.Update()
Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
Dim CveTipoOrdenServicio As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
If ObjTipoOrdenServicios.UpdateTipoOrdenServicio(TipoOrdenServicio, False, Estatus, CveTipoOrdenServicio) Then RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposOS"), "jsHideModalTiposOS")
GvDatos.EditIndex = -1
ViewState("DTTipoOrdenServicios") = ObjTipoOrdenServicios.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) UpGral.Update()
'GlobalDTTipoOrdenServicios(-1) = ObjTipoOrdenServicios.DtResultados Alert("Tipo de Orden de Servicio Actualizado Correctamente", TipoMensaje.MsgInformacion)
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Else
Alert("Ocurrio un error al Actualizar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
End If
End If End If
CveOrdenServicioTipo = -1
Actualizar = False
ObjTipoOrdenServicios.Dispose() ObjTipoOrdenServicios.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
End Sub End Sub
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing Public Sub Remove_ClickTiposOS(sender As Object, e As EventArgs)
GvDatos.EditIndex = e.NewEditIndex
If ViewState("Orden").ToString() <> String.Empty Then Dim ObjTipoOrdenServicios As New ClsOS
CargaGrid(ViewState("Orden").ToString()) 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 Else
CargaGrid("") Alert("Ocurrio un error al Eliminar el Tipo de Orden de Servicio", TipoMensaje.MsgError)
End If End If
End Sub
#End Region
#Region "O R D E N A M I E N T O" ObjTipoOrdenServicios.Dispose()
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
Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c) CargadatosGvTiposOS()
Campo = Arg(0)
Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal) 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 End Sub
Private Sub CargaGrid(Orden As String) Public Sub Edit_ClickTiposOS(sender As Object, e As EventArgs)
If Orden <> String.Empty Then
Dim DV As New DataView(CType(ViewState("DTTipoOrdenServicios"), DataTable), "", Orden, DataViewRowState.CurrentRows) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
GvDatos.DataSource = DV.ToTable() Dim activo As Boolean = False
DV.Dispose()
Else LtlTituloModalTiposOS.Text = "Editar Tipo de Orden de Servicio"
GvDatos.DataSource = CType(ViewState("DTTipoOrdenServicios"), DataTable) Actualizar = True
End If DivEstatus.Visible = True
GvDatos.DataBind()
UpDatos.Update() 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 Sub
#End Region
End Class End Class

6
OS/OrdenesServicios.aspx
View File

@@ -86,7 +86,7 @@
<div class="col-md-4"> <div class="col-md-4">
<asp:Label ID="LblCliente" runat="server"></asp:Label> <asp:Label ID="LblCliente" runat="server"></asp:Label>
</div> </div>
<div class="col-md-2"> <div class="col-md-2">
<b>Fecha Recibido:</b> <b>Fecha Recibido:</b>
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
@@ -106,7 +106,7 @@
</div> </div>
<div class="row"> <div class="row">
<div id="DivClienteSucursal" runat="server" visible="false"> <div id="DivClienteSucursal" runat="server" visible="false">
<div class="col-md-2"> <div class="col-md-2">
<b>Sucursal del Cliente:</b> <b>Sucursal del Cliente:</b>
@@ -152,6 +152,8 @@
<div class="col-md-3" style="margin-top: 5px;"> <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 ID="DdlTipoOrdenOS" CssClass="form-control input-sm select2me" runat="server" DataTextField="OrdenServicioTipo" DataValueField="CveOrdenServicioTipo" Width="100%" Height="30px">
</asp:DropDownList> </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> </div>
</div> </div>

350
PRESENTACIONES/Clientes2.aspx.exclude
View File

@@ -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>&nbsp;<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>&nbsp;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" />&nbsp;<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>&nbsp;</td>
<td>
<asp:TextBox ID="TxtFechaPago" runat="server" BorderStyle="None" CausesValidation="true" MaxLength="10" ValidationGroup="GpoGuardarAbonar"></asp:TextBox>
&nbsp;<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>&nbsp;
<ajax:ValidatorCalloutExtender ID="VCOFechaPago2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>&nbsp;
</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" />&nbsp;<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>

118
PRESENTACIONES/Clientes2.aspx.vb.exclude
View File

@@ -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

618
PRESENTACIONES/Clientes3.aspx.exclude
View File

@@ -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>&nbsp;<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>&nbsp;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>&nbsp;</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>&nbsp;
</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>&nbsp;
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Abonado</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>&nbsp;
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>% Recuperado</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPorRecuperado" runat="server" Text='<%# Eval("PorRecuperado", "{0:N2}%") %>'></asp:Literal>&nbsp;
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Saldo</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>% A Recuperar</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPorXRecuperar" runat="server" Text='<%# Eval("PorXRecuperar", "{0:N2}%") %>'></asp:Literal>&nbsp;
</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>&nbsp;</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>&nbsp;
</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>&nbsp;
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Abonado</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlAbonado" runat="server" Text='<%# Eval("Abonado", "{0:N2}") %>'></asp:Literal>&nbsp;
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>% Recuperado</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPorRecuperado" runat="server" Text='<%# Eval("PorRecuperado", "{0:N2}%") %>'></asp:Literal>&nbsp;
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Saldo</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2};") %>'></asp:Literal>&nbsp
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>% A Recuperar</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPorXRecuperar" runat="server" Text='<%# Eval("PorXRecuperar", "{0:N2}%") %>'></asp:Literal>&nbsp;
</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" />&nbsp;<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>&nbsp;</td>
<td>
<asp:TextBox ID="TxtFechaPago" runat="server" BorderStyle="None" CausesValidation="true" MaxLength="10" ValidationGroup="GpoGuardarAbonar"></asp:TextBox>
&nbsp;<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>&nbsp;
<ajax:ValidatorCalloutExtender ID="VCOFechaPago2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPago" Width="350px"></ajax:ValidatorCalloutExtender>&nbsp;
</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" />&nbsp;<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>

314
PRESENTACIONES/Clientes3.aspx.vb.exclude
View File

@@ -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" & "&nbsp;"
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

BIN
PRESENTACIONES/Imagenes/header.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 60 KiB

BIN
PRESENTACIONES/Imagenes/overlay-pattern.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 931 B

BIN
PRESENTACIONES/Imagenes/top-img-bg.jpg
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 175 KiB

225
PRESENTACIONES/SeguridadPublica/CapturaIncidencias.aspx
View File

@@ -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>&nbsp;<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>&nbsp;
<asp:Label ID="Label14" runat="server" Text="Edad:"></asp:Label>
<asp:TextBox ID="TextBox8" runat="server"></asp:TextBox>
</td>
<td>&nbsp;
<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>&nbsp;
<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>&nbsp;
<asp:Label ID="Label24" runat="server" Text="Edad:"></asp:Label>
<asp:TextBox ID="TextBox9" runat="server"></asp:TextBox>
</td>
<td>&nbsp;
<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>

5
PRESENTACIONES/SeguridadPublica/CapturaIncidencias.aspx.vb
View File

@@ -1,5 +0,0 @@

Partial Class PRESENTACIONES_SeguridadPublica_CapturaIncidencias
Inherits System.Web.UI.Page
End Class

457
PRESENTACIONES/SeguridadPublica/CapturaIncidenciasTransito.aspx
View File

@@ -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>

5
PRESENTACIONES/SeguridadPublica/CapturaIncidenciasTransito.aspx.vb
View File

@@ -1,5 +0,0 @@

Partial Class PRESENTACIONES_SeguridadPublica_CapturaIncidenciasTransito
Inherits System.Web.UI.Page
End Class

172
PRESENTACIONES/SeguridadPublica/RegistroEmergencias.aspx
View File

@@ -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>

5
PRESENTACIONES/SeguridadPublica/RegistroEmergencias.aspx.vb
View File

@@ -1,5 +0,0 @@

Partial Class PRESENTACIONES_SeguridadPublica_RegistroEmergencias
Inherits System.Web.UI.Page
End Class

32
PruebasOrlando/Sonidito.aspx
View File

@@ -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>

75
PruebasOrlando/Sonidito.aspx.vb
View File

@@ -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

22
PruebasOrlando/Soniditos.aspx
View File

@@ -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>

19
PruebasOrlando/Soniditos.aspx.cs
View File

@@ -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
View File

@@ -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
View File

@@ -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

16
Sistemas/SessionesActivas.aspx.vb
View File

@@ -15,14 +15,14 @@ Partial Class SessionesActivas
End Set End Set
End Property End Property
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
Dim listacve As New List(Of String) ' Dim listacve As New List(Of String)
listacve.Add("1815") ' listacve.Add("1815")
Notificaciones.AlertaVentana("notificacion", listacve, timeoutseconds:=0) ' Notificaciones.AlertaVentana("notificacion", listacve, timeoutseconds:=0)
RCveUsuario = "0" ' RCveUsuario = "0"
ClsSisNotificaciones.SendNotificacionERP(100, "Titulo", "Hola Mundo", 1) 'ClsSisNotificaciones.SendNotificacionERP(100, "Titulo", "Hola Mundo", 1)
CargaDatos("") CargaDatos("")
End If End If
End Sub End Sub

20
Ventas/ClientesAbonar.aspx.vb
View File

@@ -2104,23 +2104,23 @@ Partial Class Ventas_ClientesAbonar
' iva ' iva
Dim PorcentajeImpuesto As Decimal = gr.DataKey("PorcentajeIVA").ToDecimal Dim PorcentajeImpuesto As Decimal = gr.DataKey("PorcentajeIVA").ToDecimal
Dim IdCtaIVATrasladado As Integer = 0 Dim IdCtaIVAXTrasladar As Integer = 0
Dim CveCuentaIVATrasladado As Integer = 0 Dim CveCuentaIVAxTrasladar As Integer = 0
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString.ToEntero CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero
End If End If
IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
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 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" MsgError = "Ocurrio un error al saldar el movimiento"
End If End If
IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSTrasladado CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSxTrasladar
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 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" MsgError = "Ocurrio un error al saldar el movimiento"
End If End If

16
Ventas/RepVentasUtilidad.aspx
View File

@@ -87,10 +87,10 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
<li> <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>
<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> </li>
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
@@ -164,9 +164,8 @@
Cliente: Cliente:
</div> </div>
<div class="col-md-2 "> <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%"> <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem> </ADS:Dropdownlost>
</asp:DropDownList>
</div> </div>
<div class="col-md-1 truncate"> <div class="col-md-1 truncate">
@@ -232,8 +231,8 @@
<div id="dvCa" style="width: 100%; top: 40px"> <div id="dvCa" style="width: 100%; top: 40px">
<table id="dTable" class="correcto table Widthall Titulos"> <table id="dTable" class="correcto table Widthall Titulos">
<tr> <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="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: 32.5%; border-style: solid;"><b>Costo</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> <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> </tr>
</table> </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="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="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="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 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="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}"/> <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
Ventas/RepVentasUtilidad.aspx.vb
View File

@@ -38,8 +38,17 @@ Partial Class Ventas_RepVentasUtilidad
txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
'Carga Clientes 'Carga Clientes
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
DdlClientes.DataBind() 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 'CargaSubProyectos
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
@@ -84,7 +93,10 @@ Partial Class Ventas_RepVentasUtilidad
DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto) DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
DdlVendedor.SelectedValuesIfExistM(CveVendedor) 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) DdlClasificacion.SelectedValueExist(CveClasificacion)
DdlPS.SelectedValue = CvePS DdlPS.SelectedValue = CvePS
If CvePS.ToEntero > 0 AndAlso GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then If CvePS.ToEntero > 0 AndAlso GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then
@@ -184,17 +196,25 @@ Partial Class Ventas_RepVentasUtilidad
End If 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 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 End If
If e.Row.DBCampo("CveVenta") = "" Then If e.Row.DBCampo("CveVenta") = "" Then
e.Row.CssClass = "Totales" e.Row.CssClass = "Totales"
End If 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}", 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 txtFechaI.Text = "" Then FechaI = MinFecha
If txtFechaF.Text = "" Then FechaF = MaxFecha If txtFechaF.Text = "" Then FechaF = MaxFecha
Dim Cliente = If(DdlClientes.SelectedValue = "", "", $"&emsp;<b>Cliente:</b> {DdlClientes.SelectedItem.Text}") Dim Cliente = If(DdlClientes.SelectedValue = "", "", $"&emsp;<b>Cliente:</b> {DdlClientes.SelectedText}")
Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.GetSelectedText}") Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.GetSelectedText}")
Dim Vendedor = If(DdlVendedor.GetSelectedText = "", "", $"&emsp;<b>Vendedor:</b> {DdlVendedor.GetSelectedText}") Dim Vendedor = If(DdlVendedor.GetSelectedText = "", "", $"&emsp;<b>Vendedor:</b> {DdlVendedor.GetSelectedText}")
Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>P.S.:</b> {DdlPS.SelectedText}") Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>P.S.:</b> {DdlPS.SelectedText}")
@@ -305,7 +325,7 @@ Partial Class Ventas_RepVentasUtilidad
Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.GetSelectedText}") Dim Sucursal = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.GetSelectedText}")
Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}" Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}"
Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}" Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}"
Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b> {DdlClientes.SelectedItem.Text}") Dim Cliente = If(DdlClientes.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b> {DdlClientes.SelectedText}")
Dim Vendedor = If(DdlVendedor.GetSelectedText = "", "", $"&emsp;<b>Vendedor:</b> {DdlVendedor.GetSelectedText}") Dim Vendedor = If(DdlVendedor.GetSelectedText = "", "", $"&emsp;<b>Vendedor:</b> {DdlVendedor.GetSelectedText}")
Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>P.S.:</b> {DdlPS.SelectedText}") Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>P.S.:</b> {DdlPS.SelectedText}")
Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificacion:</b> {DdlClasificacion.SelectedItem.Text}") Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificacion:</b> {DdlClasificacion.SelectedItem.Text}")

10
Ventas/RepVentasUtilidadDetalle.aspx
View File

@@ -260,6 +260,16 @@
<asp:Label ID="LbSubTotalDolares" Visible="false" runat="server" Text="SubTotal"></asp:Label> <asp:Label ID="LbSubTotalDolares" Visible="false" runat="server" Text="SubTotal"></asp:Label>
</td> </td>
</tr> </tr>
<tr align="left">
<td><b>Dias Emision:</b>&nbsp;</td>
<td>
<asp:Label ID="LblDiasEmision" runat="server" Text="Dias Emision"></asp:Label>
</td>
<td><b>Dias Vencimiento:</b>&nbsp;</td>
<td>
<asp:Label ID="LblDiasVencimiento" runat="server" Text="Dias Vencimiento"></asp:Label>
</td>
</tr>
</table> </table>
</div> </div>
</div> </div>

2
Ventas/RepVentasUtilidadDetalle.aspx.vb
View File

@@ -181,6 +181,8 @@ Partial Class Ventas_RepVentasUtilidadDetalle
If ObjVentas.DtResultados.Rows.Count > 0 Then If ObjVentas.DtResultados.Rows.Count > 0 Then
CveMovimiento = ObjVentas.DtResultados.Rows(1)("CveMovimiento").ToString.ToEntero 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") LblCostoFecha.Text = "$" + ObjVentas.Costo.ToString("N2")
HLCostoFolio.Text = ObjVentas.FolioCosto HLCostoFolio.Text = ObjVentas.FolioCosto
LblFechaSalid.Text = ObjVentas.FechaSalidaCosto.ToDate.ToShortDateString LblFechaSalid.Text = ObjVentas.FechaSalidaCosto.ToDate.ToShortDateString

3
Ventas/RepVentasUtilidadPadre.aspx
View File

@@ -139,8 +139,7 @@
Cliente: Cliente:
</div> </div>
<div class="col-md-2 "> <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 CssClassDdl="select2me" ID="DdlClientesWS" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:150px;"></ADS:Dropdownlost>
</ADS:Dropdownlost>
</div> </div>
<div class="col-md-1 truncate"> <div class="col-md-1 truncate">
Vendedor: Vendedor:

5
Ventas/RepVentasUtilidadPadre.aspx.vb
View File

@@ -39,12 +39,15 @@ Partial Class Ventas_RepVentasUtilidadPadre
#Region " INICIALIZA VALORES " #Region " INICIALIZA VALORES "
Private Sub CargaCombos() Private Sub CargaCombos()
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
'Carga Clientes 'Carga Clientes
If UsuarioActual.CveEmpresa = 119 Then If UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1" Then
DdlClientesWS.setEsWebService(True) DdlClientesWS.setEsWebService(True)
DdlClientesWS.SelectedValue = "-1"
DdlClientesWS.SelectedText = "Todos"
Else Else
DdlClientesWS.setEsWebService(False) DdlClientesWS.setEsWebService(False)
DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)

46022
Ventas/Ventas.aspx.vb
View File

File diff suppressed because it is too large Load Diff

BIN
pantallaError.PNG
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 69 KiB