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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-12-28 08:56:51 -07:00
parent 3fe85a5841 d1e4dc69d5
commit 3b25e3ea86
15 changed files with 9230 additions and 8458 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
App_Code/ClsGenerales.vb
View File

@@ -2799,6 +2799,46 @@ Public Class ClsGenerales
Return Retorno
End Function
Public Function GetSATSectorCOFEPRIS() As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_SectorCOFEPRISGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los sectores COFEPRIS", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetSATFormaFarmaceutica() As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_FormaFarmaceuticaGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener las Formas Farmaceuticas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region
#Region "SAT CFDI COMERCIO EXTERIOR"

37
App_Code/ClsPaginas.vb
View File

@@ -1292,6 +1292,43 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTSATSectorCOFEPRIS() As DataTable
Get
Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS"
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjGral As New ClsGenerales()
If ObjGral.GetSATSectorCOFEPRIS() Then
HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados
End If
ObjGral.Dispose()
End If
Return CType(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTSATFormaFarmaceutica() As DataTable
Get
Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica"
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjGral As New ClsGenerales()
If ObjGral.GetSATFormaFarmaceutica() Then
HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados
End If
ObjGral.Dispose()
End If
Return CType(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTMotivosCancelacionEmpresa(CveEmpresa As Integer, Optional CveMotivoCancelacion As Integer = -1, Optional CveSATMotivoCancelacion As Integer = -1) As DataTable
Get
Dim AppNombre As String = $"GlobalDTMotivosCancelacionEmpresa-{CveEmpresa}"

63
App_Code/ClsProductosServicios.vb
View File

@@ -2331,4 +2331,67 @@ Public Class ClsProductosServicios
Return Retorno
End Function
#Region " P S C O M P L E M E N T O S"
Public Function GetProductosServiciosComplementos(CvePS As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_ProductosServiciosComplementosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePS", SqlDbType.Int).Value = CvePS
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los complementos del producto CCP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function AddUpdateProductosServiciosComplementos(CvePS As Integer, PesoKg As Decimal, CveMaterialPeligroso As Integer, CveEmbalaje As Integer, Dimensiones As String, CveSectorCOFEPRIS As Integer, NombreIngredienteActivo As String,
NomQuimico As String, DenominacionGenerica As String, DenominacionDistintiva As String, Fabricante As String, CveFormaFarmaceutica As Integer, CondicionesTransporte As String,
RegistroSanitarioAutorizacion As String, PermisoImportacion As String, FolioImportacionVUCEM As String, NumCAS As String, RazonSocialEmpImportacion As String, NumRegistroPlagCOFEPRIS As String,
DatosFabricante As String, DatosFormulador As String, DatosMaquilador As String, UsoAutorizado As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_ProductosServiciosComplementosAddUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg
.Add("@CveMaterialPeligroso", SqlDbType.Int).Value = CveMaterialPeligroso
.Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje
.Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones
.Add("@CveSectorCOFEPRIS", SqlDbType.Int).Value = CveSectorCOFEPRIS
.Add("@NombreIngredienteActivo", SqlDbType.VarChar).Value = NombreIngredienteActivo
.Add("@NomQuimico", SqlDbType.VarChar).Value = NomQuimico
.Add("@DenominacionGenerica", SqlDbType.VarChar).Value = DenominacionGenerica
.Add("@DenominacionDistintiva", SqlDbType.VarChar).Value = DenominacionDistintiva
.Add("@Fabricante", SqlDbType.VarChar).Value = Fabricante
.Add("@CveFormaFarmaceutica", SqlDbType.Int).Value = CveFormaFarmaceutica
.Add("@CondicionesTransporte", SqlDbType.VarChar).Value = CondicionesTransporte
.Add("@RegistroSanitarioAutorizacion", SqlDbType.VarChar).Value = RegistroSanitarioAutorizacion
.Add("@PermisoImportacion", SqlDbType.VarChar).Value = PermisoImportacion
.Add("@FolioImportacionVUCEM", SqlDbType.VarChar).Value = FolioImportacionVUCEM
.Add("@NumCAS", SqlDbType.VarChar).Value = NumCAS
.Add("@RazonSocialEmpImportacion", SqlDbType.VarChar).Value = RazonSocialEmpImportacion
.Add("@NumRegistroPlagCOFEPRIS", SqlDbType.VarChar).Value = NumRegistroPlagCOFEPRIS
.Add("@DatosFabricante", SqlDbType.VarChar).Value = DatosFabricante
.Add("@DatosFormulador", SqlDbType.VarChar).Value = DatosFormulador
.Add("@DatosMaquilador", SqlDbType.VarChar).Value = DatosMaquilador
.Add("@UsoAutorizado", SqlDbType.VarChar).Value = UsoAutorizado
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al guardar los complementos del producto CCP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
End Class

13
App_Code/ClsRH.vb
View File

@@ -4,6 +4,7 @@ Option Explicit On
Imports System.Data
Imports System.Data.SqlClient
Imports Extensiones
Imports Profact.TimbraCFDI40
Public Class ClsRH
@@ -147,41 +148,45 @@ Public Class ClsRH
Return retorno
End Function
#Region "CRUD_VacacionesEmpresas"
Public Function VacacionesEmpresasGet(cveEmpresa As Int32, inicio As Int32, fin As Int32) As Boolean
Public Function VacacionesEmpresasGet(cveEmpresa As Int32, inicio As Int32, fin As Int32, Ejercicio As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_RH_VacacionesEmpresasGet", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Inicio", SqlDbType.Int, inicio)
addParameters("@Fin", SqlDbType.Int, fin)
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
retorno = RunQuery("Ocurrió un error al obtener el Vacaciones Empresas.")
Return retorno
End Function
Public Function VacacionesEmpresasAdd(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32) As Boolean
Public Function VacacionesEmpresasAdd(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32, Ejercicio As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_RH_VacacionesEmpresasAdd", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Inicio", SqlDbType.Int, inicio)
addParameters("@Fin", SqlDbType.Int, fin)
addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones)
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
retorno = RunQuery("Ocurrió un error al agregar el Vacaciones Empresas.")
Return retorno
End Function
Public Function VacacionesEmpresasUp(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32) As Boolean
Public Function VacacionesEmpresasUp(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32, Ejercicio As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_RH_VacacionesEmpresasUp", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Inicio", SqlDbType.Int, inicio)
addParameters("@Fin", SqlDbType.Int, fin)
addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones)
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
retorno = RunQuery("Ocurrió un error al actualizar el Vacaciones Empresas.")
Return retorno
End Function
Public Function VacacionesEmpresasRemove(cveEmpresa As Int32, inicio As Int32, fin As Int32) As Boolean
Public Function VacacionesEmpresasRemove(cveEmpresa As Int32, inicio As Int32, fin As Int32, Ejercicio As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_RH_VacacionesEmpresasRemove", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Inicio", SqlDbType.Int, inicio)
addParameters("@Fin", SqlDbType.Int, fin)
addParameters("@Ejercicio", SqlDbType.Int, Ejercicio)
retorno = RunQuery("Ocurrió un error al eliminar el Vacaciones Empresas.")
Return retorno
End Function

82
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2145,6 +2145,7 @@ Partial Class PopUpVerFactura
'EMISOR
Dim LugarExpedicion As String = ""
Dim ImgCBB As String = ""
Dim ImgCCP As String = ""
'COMPROBANTE
Dim SerieFolio As String = ""
Dim Telefono As String = ""
@@ -2175,6 +2176,7 @@ Partial Class PopUpVerFactura
Dim PlacaVM As String = ""
Dim AnioModeloVM As String = ""
Dim PesoBrutoVehicular As String = ""
'TIMBRADO
Dim FolioFiscal As String = ""
Dim NoCertificadoSAT As String = ""
@@ -2270,23 +2272,62 @@ Partial Class PopUpVerFactura
Dim RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
Dim RutaCCP As String = String.Format("{0}\CBB\{1}_CCP.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
Dim ImagenCCP As New System.IO.FileInfo(RutaCCP)
Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
Dim Version As String = ValorXML(XMLDoc.DocumentElement, "version")
Dim VersionCCP As String = ""
Dim PrefijoCCP As String = ""
'Try
' 'XDocument doc = XDocument.Parse(Xml);
' 'String Version = doc.Descendants("cartaporte30:CartaPorte").First().Attribute("version").Value;
' Dim NodoVersionCCP As XmlNode = XMLDoc.Descendants("cartaporte30:CartaPorte")
' If NodoVersionCCP IsNot Nothing Then
' VersionCCP = ValorXML(NodoVersionCCP, "version")
' Else
' VersionCCP = "2.0"
' End If
'Catch ex As Exception
'End Try
If Version = "3.3" Then
cfdVer = "http://www.sat.gob.mx/cfd/3"
Else ' se considera que es la version 4.0
cfdVer = "http://www.sat.gob.mx/cfd/4"
End If
params.Add(New ReportParameter("CFDIVersion", Version))
namespaces.AddNamespace(Prefijo, cfdVer)
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte")
namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20")
namespaces.AddNamespace("cartaporte30", "http://www.sat.gob.mx/CartaPorte30")
Dim Nodos30 = XMLDoc.SelectSingleNode("//cartaporte30:CartaPorte", namespaces)
Dim Nodos20 = XMLDoc.SelectSingleNode("//cartaporte20:CartaPorte", namespaces)
If Nodos30 IsNot Nothing Then
VersionCCP = "3.0"
PrefijoCCP = "cartaporte30"
End If
If Nodos20 IsNot Nothing Then
VersionCCP = "2.0"
PrefijoCCP = "cartaporte20"
End If
params.Add(New ReportParameter("CartaPorteVersion", VersionCCP))
Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces)
If nodeComprobante IsNot Nothing Then
@@ -2320,24 +2361,25 @@ Partial Class PopUpVerFactura
End If
Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante/{0}:Complemento", Prefijo), namespaces)
Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", "cartaporte20"), namespaces)
Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", PrefijoCCP), namespaces)
If nodeCartaPorte IsNot Nothing Then
TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "")
End If
Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", "cartaporte20"), namespaces)
Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", PrefijoCCP), namespaces)
If nodeAutotransporteFederal IsNot Nothing Then
PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "")
NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
End If
Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte20"), namespaces)
Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", PrefijoCCP), namespaces)
If nodeIdentificacionVehicular IsNot Nothing Then
PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "")
AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "")
PesoBrutoVehicular = ValorXML(nodeIdentificacionVehicular, "PesoBrutoVehicular", "")
End If
Dim nodeSeguros As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Seguros", "cartaporte20"), namespaces)
Dim nodeSeguros As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Seguros", PrefijoCCP), namespaces)
If nodeIdentificacionVehicular IsNot Nothing Then
AseguradoraRespCivil = ValorXML(nodeSeguros, "AseguraRespCivil", "")
NumPolizaSeguroRespCivil = ValorXML(nodeSeguros, "PolizaRespCivil", "")
@@ -2350,7 +2392,7 @@ Partial Class PopUpVerFactura
End If
Dim nodeRemolques As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Remolques", "cartaporte20"), namespaces)
Dim nodeRemolques As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Remolques", PrefijoCCP), namespaces)
If nodeRemolques IsNot Nothing Then
If nodeRemolques.ChildNodes.Count = 1 Then
@@ -2370,7 +2412,7 @@ Partial Class PopUpVerFactura
' MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString())
'End If
Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", "cartaporte20"), namespaces)
Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", PrefijoCCP), namespaces)
For Each node As XmlNode In nodeMercancias
Dim Row As DataRow = DtMercancias.NewRow
@@ -2385,7 +2427,7 @@ Partial Class PopUpVerFactura
DtMercancias.Rows.Add(Row)
Next
Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", "cartaporte20"), namespaces)
Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", PrefijoCCP), namespaces)
If UsuarioActual.CveEmpresa = 13 AndAlso nodeMercanciaPadre IsNot Nothing Then
Dim PesoNetoTotal As String = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "")
Dim UnidadPeso As String = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "")
@@ -2396,7 +2438,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("NumTotalMercancias", NumTotalMercancias))
End If
Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", "cartaporte20"), namespaces)
Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", PrefijoCCP), namespaces)
For Each node As XmlNode In nodeOperadores
Dim Row As DataRow = DtOperadores.NewRow
@@ -2408,7 +2450,7 @@ Partial Class PopUpVerFactura
Next
Dim DistanciaTotal As Decimal = 0
Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", "cartaporte20"), namespaces)
Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", PrefijoCCP), namespaces)
For Each node As XmlNode In nodeUbicaciones
Dim Row As DataRow = DtUbicaciones.NewRow
@@ -2419,7 +2461,7 @@ Partial Class PopUpVerFactura
Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "")
Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "")
Dim nodeDomicilio As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
Dim nodeDomicilio As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = $"{PrefijoCCP}:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
If nodeDomicilio IsNot Nothing Then
Dim Estado As String = ""
@@ -2515,6 +2557,23 @@ Partial Class PopUpVerFactura
ImgCBB = ""
End If
'FIXME OICCHECAR DESPUES DE SINCRONIZAR TIMBRADO
'If Not ImagenCCP.Exists Then
' Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
' CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB)
'End If
ImagenCCP = New System.IO.FileInfo(RutaCCP)
If ImagenCCP.Exists Then
ImgCCP = String.Format("file://{0}", ImagenCCP.FullName)
Else
ImgCCP = ""
End If
End If
If DtConceptos.Rows.Count > 0 Then
@@ -2550,9 +2609,12 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("PlacaVM", PlacaVM))
params.Add(New ReportParameter("AnioVM", AnioModeloVM))
params.Add(New ReportParameter("PesoBrutoVehicular", PesoBrutoVehicular))
'TIMBRADO
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
params.Add(New ReportParameter("QR", ImgCBB))
params.Add(New ReportParameter("QRCCP", ImgCCP))
params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT))
params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal))

541
Empresas/13/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -1,5 +1,179 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Unidad">
<DataField>Unidad</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Descripcion">
<DataField>Descripcion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="ValorUnitario">
<DataField>ValorUnitario</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Importe">
<DataField>Importe</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet2">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Distancia">
<DataField>Distancia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="RFC">
<DataField>RFC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Nombre">
<DataField>Nombre</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FechaHoraSalida">
<DataField>FechaHoraSalida</DataField>
<rd:TypeName>System.DateTime</rd:TypeName>
</Field>
<Field Name="Direccion">
<DataField>Direccion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TipoUbicacion">
<DataField>TipoUbicacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
</DataSet>
<DataSet Name="DataSet3">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="UnidadMedida">
<DataField>UnidadMedida</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Descripcion">
<DataField>Descripcion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PesoEnKg">
<DataField>PesoEnKg</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveMaterialPeligroso">
<DataField>CveMaterialPeligroso</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Embalaje">
<DataField>Embalaje</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet4">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="RFC">
<DataField>RFC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NumLicencia">
<DataField>NumLicencia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreOperador">
<DataField>NombreOperador</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet5">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Relacion">
<DataField>Relacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="UUID">
<DataField>UUID</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportSections>
<ReportSection>
<Body>
<ReportItems>
<Tablix Name="Tablix3">
@@ -59,7 +233,7 @@
<Width>2.12432cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.57447cm</Width>
<Width>2.52151cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -483,7 +657,7 @@
<Top>4.93365cm</Top>
<Left>0.06623cm</Left>
<Height>0.72375cm</Height>
<Width>20.36729cm</Width>
<Width>20.31433cm</Width>
<Style>
<Border>
<Color>White</Color>
@@ -516,7 +690,7 @@
<Top>4.4494cm</Top>
<Left>0.0927cm</Left>
<Height>0.50189cm</Height>
<Width>8.01543in</Width>
<Width>7.96055in</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
@@ -1152,10 +1326,10 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>4.89586cm</Width>
<Width>4.87822cm</Width>
</TablixColumn>
<TablixColumn>
<Width>10.35081cm</Width>
<Width>10.33317cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -1331,7 +1505,7 @@
<TablixMember>
<Group Name="GPO4" />
<TablixHeader>
<Size>5.12057cm</Size>
<Size>5.10293cm</Size>
<CellContents>
<Textbox Name="Cantidad4">
<CanGrow>true</CanGrow>
@@ -1389,7 +1563,7 @@
<Top>7.59855cm</Top>
<Left>0.06623cm</Left>
<Height>0.82958cm</Height>
<Width>20.36724cm</Width>
<Width>20.31433cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
@@ -1422,7 +1596,7 @@
<Top>7.18459cm</Top>
<Left>0.06623cm</Left>
<Height>0.41396cm</Height>
<Width>8.01861in</Width>
<Width>7.99777in</Width>
<ZIndex>5</ZIndex>
<Style>
<Border>
@@ -2002,7 +2176,7 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>1.25962cm</Width>
<Width>1.20118cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -2115,7 +2289,7 @@
</SortExpression>
</SortExpressions>
<TablixHeader>
<Size>9.54971cm</Size>
<Size>9.49127cm</Size>
<CellContents>
<Textbox Name="Relacion">
<CanGrow>true</CanGrow>
@@ -2176,7 +2350,7 @@
</SortExpression>
</SortExpressions>
<TablixHeader>
<Size>9.34933cm</Size>
<Size>9.29089cm</Size>
<CellContents>
<Textbox Name="UUID">
<CanGrow>true</CanGrow>
@@ -2239,7 +2413,7 @@
<Top>0.50301cm</Top>
<Left>0.08761cm</Left>
<Height>1.12062cm</Height>
<Width>20.15866cm</Width>
<Width>19.98334cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -2395,7 +2569,7 @@
<Top>0.26311in</Top>
<Left>0.08761cm</Left>
<Height>0.54893in</Height>
<Width>8.01543in</Width>
<Width>7.96328in</Width>
<Style>
<Border>
<Color>White</Color>
@@ -2432,7 +2606,7 @@
<Top>0.10114cm</Top>
<Left>0.08761cm</Left>
<Height>0.5cm</Height>
<Width>8.01543in</Width>
<Width>7.96328in</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
@@ -2548,12 +2722,64 @@
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Versión CFDI:</Value>
<Style>
<FontFamily>Calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style>
<FontFamily>Calibri</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Versión Carte Porte:</Value>
<Style>
<FontFamily>Calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!CartaPorteVersion.Value</Value>
<Style>
<FontFamily>Calibri</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Top>1.71655in</Top>
<Left>0.02618cm</Left>
<Left>3.36674cm</Left>
<Height>3.03416cm</Height>
<Width>16.84573cm</Width>
<Width>13.61546cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -2568,10 +2794,10 @@
<Source>External</Source>
<Value>=Parameters!QR.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>1.6047in</Top>
<Left>6.68415in</Left>
<Height>1.2939in</Height>
<Width>1.28682in</Width>
<Top>1.73041in</Top>
<Left>0.03131in</Left>
<Height>1.16006in</Height>
<Width>1.21088in</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
@@ -3077,7 +3303,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Height>0.5cm</Height>
<Width>8.01861in</Width>
<Width>7.96779in</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
@@ -3112,7 +3338,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.78988in</Top>
<Left>6.96227in</Left>
<Left>6.83727in</Left>
<Height>0.60856cm</Height>
<Width>1.0615in</Width>
<ZIndex>4</ZIndex>
@@ -3158,7 +3384,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.00629cm</Top>
<Left>5.84376in</Left>
<Left>5.71876in</Left>
<Height>0.60856cm</Height>
<Width>1.12267in</Width>
<ZIndex>5</ZIndex>
@@ -3196,7 +3422,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>1.02947in</Top>
<Left>6.96435in</Left>
<Left>6.83935in</Left>
<Height>0.60856cm</Height>
<Width>1.05108in</Width>
<ZIndex>6</ZIndex>
@@ -3238,7 +3464,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.61484cm</Top>
<Left>5.83821in</Left>
<Left>5.71321in</Left>
<Height>0.60856cm</Height>
<Width>1.12683in</Width>
<ZIndex>7</ZIndex>
@@ -3276,7 +3502,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>1.26906in</Top>
<Left>6.96643in</Left>
<Left>6.84143in</Left>
<Height>0.60856cm</Height>
<Width>1.05108in</Width>
<ZIndex>8</ZIndex>
@@ -3315,7 +3541,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.22339cm</Top>
<Left>5.84029in</Left>
<Left>5.71529in</Left>
<Height>0.60856cm</Height>
<Width>1.12614in</Width>
<ZIndex>9</ZIndex>
@@ -3487,12 +3713,63 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Image Name="QRCodeCCP">
<Source>External</Source>
<Value>=Parameters!QRCCP.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>1.73041in</Top>
<Left>6.75691in</Left>
<Height>1.16006in</Height>
<Width>1.21089in</Width>
<ZIndex>11</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Textbox Name="Textbox58">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>QR Carta Porte</Value>
<Style>
<FontFamily>Calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox46</rd:DefaultName>
<Top>4.00836cm</Top>
<Left>17.56008cm</Left>
<Height>0.46104cm</Height>
<Width>2.5cm</Width>
<ZIndex>12</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>10.34487cm</Top>
<Left>0.0743cm</Left>
<Height>7.44771cm</Height>
<Width>20.42542cm</Width>
<Width>20.36728cm</Width>
<ZIndex>13</ZIndex>
<Visibility>
<Hidden>=Parameters!EsSubReporte.Value</Hidden>
@@ -4086,7 +4363,7 @@
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
<Line Name="Line1">
<Top>0.03521cm</Top>
<Top>0.03519cm</Top>
<Left>0.06623cm</Left>
<Height>0cm</Height>
<Width>20.38566cm</Width>
@@ -4116,7 +4393,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Top>0.14104cm</Top>
<Top>0.14102cm</Top>
<Left>0.71425cm</Left>
<Height>0.54708cm</Height>
<Width>1.55632cm</Width>
@@ -4150,7 +4427,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.14104cm</Top>
<Top>0.14102cm</Top>
<Left>2.27057cm</Left>
<Height>0.54708cm</Height>
<Width>4.96223cm</Width>
@@ -4185,7 +4462,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Top>0.14104cm</Top>
<Top>0.14102cm</Top>
<Left>7.33864cm</Left>
<Height>0.54708cm</Height>
<Width>2.84562cm</Width>
@@ -4220,7 +4497,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.14104cm</Top>
<Top>0.14102cm</Top>
<Left>10.18425cm</Left>
<Height>0.54708cm</Height>
<Width>4.68641cm</Width>
@@ -4254,7 +4531,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.14457cm</Top>
<Top>0.14455cm</Top>
<Left>14.99343cm</Left>
<Height>0.54708cm</Height>
<Width>4.04906cm</Width>
@@ -4286,7 +4563,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.68812cm</Top>
<Top>0.6881cm</Top>
<Left>0.71425cm</Left>
<Height>0.54708cm</Height>
<Width>6.21751cm</Width>
@@ -4317,178 +4594,8 @@
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Unidad">
<DataField>Unidad</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Descripcion">
<DataField>Descripcion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="ValorUnitario">
<DataField>ValorUnitario</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Importe">
<DataField>Importe</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet2">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Distancia">
<DataField>Distancia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="RFC">
<DataField>RFC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Nombre">
<DataField>Nombre</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FechaHoraSalida">
<DataField>FechaHoraSalida</DataField>
<rd:TypeName>System.DateTime</rd:TypeName>
</Field>
<Field Name="Direccion">
<DataField>Direccion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TipoUbicacion">
<DataField>TipoUbicacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
</DataSet>
<DataSet Name="DataSet3">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="UnidadMedida">
<DataField>UnidadMedida</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Descripcion">
<DataField>Descripcion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PesoEnKg">
<DataField>PesoEnKg</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveMaterialPeligroso">
<DataField>CveMaterialPeligroso</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Embalaje">
<DataField>Embalaje</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet4">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="RFC">
<DataField>RFC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NumLicencia">
<DataField>NumLicencia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreOperador">
<DataField>NombreOperador</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet5">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Relacion">
<DataField>Relacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="UUID">
<DataField>UUID</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
</ReportSection>
</ReportSections>
<ReportParameters>
<ReportParameter Name="NombreEmpresa">
<DataType>String</DataType>
@@ -4793,6 +4900,24 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CartaPorteVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="QRCCP">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<Language>es-MX</Language>
<ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>

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

@@ -1,5 +1,179 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Unidad">
<DataField>Unidad</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Descripcion">
<DataField>Descripcion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="ValorUnitario">
<DataField>ValorUnitario</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Importe">
<DataField>Importe</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet2">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Distancia">
<DataField>Distancia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="RFC">
<DataField>RFC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Nombre">
<DataField>Nombre</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FechaHoraSalida">
<DataField>FechaHoraSalida</DataField>
<rd:TypeName>System.DateTime</rd:TypeName>
</Field>
<Field Name="Direccion">
<DataField>Direccion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TipoUbicacion">
<DataField>TipoUbicacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
</DataSet>
<DataSet Name="DataSet3">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="UnidadMedida">
<DataField>UnidadMedida</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Descripcion">
<DataField>Descripcion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PesoEnKg">
<DataField>PesoEnKg</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveMaterialPeligroso">
<DataField>CveMaterialPeligroso</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Embalaje">
<DataField>Embalaje</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet4">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="RFC">
<DataField>RFC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NumLicencia">
<DataField>NumLicencia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreOperador">
<DataField>NombreOperador</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet5">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Relacion">
<DataField>Relacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="UUID">
<DataField>UUID</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportSections>
<ReportSection>
<Body>
<ReportItems>
<Tablix Name="Tablix3">
@@ -15,7 +189,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>CANTIDAD</Value>
<Value>Cant.</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
@@ -49,10 +223,10 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>3.00921cm</Width>
<Width>2.51991cm</Width>
</TablixColumn>
<TablixColumn>
<Width>6.3532cm</Width>
<Width>8.15613cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.5cm</Width>
@@ -297,7 +471,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>UNIDAD DE MEDIDA</Value>
<Value>Unidad De Medida</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
@@ -493,7 +667,7 @@
<TablixMember>
<Group Name="GPO2" />
<TablixHeader>
<Size>2.92737cm</Size>
<Size>1.72895cm</Size>
<CellContents>
<Textbox Name="Cantidad2">
<CanGrow>true</CanGrow>
@@ -551,7 +725,7 @@
<Top>6.39415cm</Top>
<Left>0.38395cm</Left>
<Height>1.12062cm</Height>
<Width>19.04921cm</Width>
<Width>19.16442cm</Width>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -1737,12 +1911,54 @@
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Versión CFDI: Versión Carte Porte:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!CartaPorteVersion.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName>
<Top>6.89767in</Top>
<Left>0.41187cm</Left>
<Height>3.03416cm</Height>
<Width>15.44579cm</Width>
<Left>3.53738cm</Left>
<Height>2.89306cm</Height>
<Width>12.88876cm</Width>
<ZIndex>7</ZIndex>
<Style>
<Border>
@@ -1758,10 +1974,10 @@
<Source>External</Source>
<Value>=Parameters!QR.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>6.78582in</Top>
<Left>6.18415in</Left>
<Height>1.2939in</Height>
<Width>1.53682in</Width>
<Top>6.96712in</Top>
<Left>0.18258in</Left>
<Height>1.08483in</Height>
<Width>1.14232in</Width>
<ZIndex>8</ZIndex>
<Style>
<Border>
@@ -1861,7 +2077,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Numero de Permiso</Value>
<Value>Número de Permiso</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize>
@@ -1943,6 +2159,29 @@
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Peso Bruto Vehicular:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>SemiBold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!PesoBrutoVehicular.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>1.09361in</Top>
@@ -3560,7 +3799,7 @@
<Top>0.50301cm</Top>
<Left>0.08761cm</Left>
<Height>1.12062cm</Height>
<Width>19.0964cm</Width>
<Width>19.09639cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -3619,6 +3858,56 @@
</Border>
</Style>
</Rectangle>
<Image Name="QRCodeCCP">
<Source>External</Source>
<Value>=Parameters!QRCCP.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>6.97962in</Top>
<Left>6.52254in</Left>
<Height>1.05705in</Height>
<Width>1.14232in</Width>
<ZIndex>25</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Image>
<Textbox Name="Textbox46">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>QR Carta Porte</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox46</rd:DefaultName>
<Top>17.16841cm</Top>
<Left>16.76139cm</Left>
<Height>0.46104cm</Height>
<Width>2.5cm</Width>
<ZIndex>26</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Height>8.09222in</Height>
<Style />
@@ -4101,178 +4390,8 @@
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Unidad">
<DataField>Unidad</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Descripcion">
<DataField>Descripcion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="ValorUnitario">
<DataField>ValorUnitario</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Importe">
<DataField>Importe</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet2">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Distancia">
<DataField>Distancia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="RFC">
<DataField>RFC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Nombre">
<DataField>Nombre</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FechaHoraSalida">
<DataField>FechaHoraSalida</DataField>
<rd:TypeName>System.DateTime</rd:TypeName>
</Field>
<Field Name="Direccion">
<DataField>Direccion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TipoUbicacion">
<DataField>TipoUbicacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
</DataSet>
<DataSet Name="DataSet3">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="UnidadMedida">
<DataField>UnidadMedida</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Descripcion">
<DataField>Descripcion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PesoEnKg">
<DataField>PesoEnKg</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CveMaterialPeligroso">
<DataField>CveMaterialPeligroso</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Embalaje">
<DataField>Embalaje</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet4">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="RFC">
<DataField>RFC</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NumLicencia">
<DataField>NumLicencia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreOperador">
<DataField>NombreOperador</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DataSet5">
<Query>
<DataSourceName>DataSet</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Relacion">
<DataField>Relacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="UUID">
<DataField>UUID</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
<rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
</ReportSection>
</ReportSections>
<ReportParameters>
<ReportParameter Name="NombreEmpresa">
<DataType>String</DataType>
@@ -4523,6 +4642,30 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="QRCCP">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CartaPorteVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="PesoBrutoVehicular">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<Language>es-MX</Language>
<ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>

13
General/SaldosIniciales.aspx.vb
View File

@@ -1661,8 +1661,19 @@ Partial Class General_SaldosIniciales
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
CveMoneda = 1
TipoCambio = "1"
ElseIf Moneda.ToUpper.Contiene("DÓLARES", "DOLARES", "USD") Then
ElseIf Moneda.ToUpper.Contiene("DÓLAR", "DÓLARES", "DOLARES", "USD") Then
CveMoneda = 2
If TipoCambio.Trim.ToDecimal < 10 Then
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
TipoCambio = GlobalTipoCambio(Fecha.AddDays(-1)).ToString()
Else
TipoCambio = GlobalTipoCambio(Fecha).ToString()
End If
End If
End If
'Si no se especifica TC, se manda como pesos.

2
Nomina/CalculoISRAnual.aspx
View File

@@ -101,7 +101,7 @@
<asp:GridView ID="GVCalculoISRAnual" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD GVCalculoISRAnual Widthall" AutoGenerateColumns="False"
DataKeyNames="CvePersonal,Codigo,NombreCompleto,TipoIngreso,FechaInicio,FechaFin,IngresosTotales,BaseGravada,Deducciones,ISRRetenido,Art152,SubsCorrespondiente,LimiteInferior,LimiteSuperior,CuotaFija,Porcentaje,ImpuestoAnual,Acargo,Acompensar">
DataKeyNames="CvePersonal,Aplica,Codigo,NombreCompleto,TipoIngreso,FechaInicio,FechaFin,IngresosTotales,BaseGravada,Deducciones,ISRRetenido,Art152,SubsCorrespondiente,LimiteInferior,LimiteSuperior,CuotaFija,Porcentaje,ImpuestoAnual,Acargo,Acompensar">
<Columns>
<asp:TemplateField HeaderText="Aplica">
<ItemTemplate>

4
Nomina/CatPeriodos.aspx.vb
View File

@@ -379,10 +379,12 @@ Partial Class Nomina_CatPeriodos
Dim cveTipoPeriodo As Integer = DdlTipoPeriodoCM.SelectedValue.ToEntero()
Dim cveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoCM.Text.ToEntero()
Dim numero As Integer = TxtNumeroCM.Text.ToEntero()
Dim fechaInicio As String = TxtFechaInicioCM.Text
Dim fechaInicio As String = TxtFechaInicioCM.Text.ToDateTime().ToString("yyyy-MM-dd")
Using onom As New ClsNominas
If onom.CargaPeriodosEjercicio(ejercicio, cveTipoPeriodo, cveSubTipoPeriodo, numero, fechaInicio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
CargaDatos()
RegistraScript("$('#divCargaMasiva').modal('hide');")
Alert("Se cargo satisfactoriamente.")
End If
End Using

63
Nomina/Nomina.aspx
View File

@@ -2898,6 +2898,14 @@
<ajax:ValidatorCalloutExtender ID="VcoVacadiasVacaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvVacadiasVacaciones"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="row">
<div class="col-md-4 truncate ">Ejercicio</div>
<div class="col-md-4">
<asp:TextBox ID="TxtEjercicioVacaciones" CssClass="form-control input-sm " runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvEjercicioVacaciones" runat="server" ControlToValidate="TxtEjercicioVacaciones" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dias Vacaciones''</b> es necesario, por favor ingréselo." ValidationGroup="VGMVacaEmpresa"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcoEjercicioVacaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvEjercicioVacaciones"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="text-right">
<asp:Button ID="BtnVacaADD" OnClick="BtnVacaADD_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="VGMVacaEmpresa" />
</div>
@@ -2915,20 +2923,49 @@
</div>
</div>
<div class="portlet-body">
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="titlefiltros caption">
<div class="row">
<label class="col-md-1">Ejercicio: </label>
<div class="col-md-1">
<asp:TextBox ID="TxtEjercicioFiltroVacaciones" CssClass="form-control input-sm " runat="server"></asp:TextBox>
</div>
<div class="col-md-1">
<asp:LinkButton ID="LnkConsultartablasVacaciones" OnClick="LnkConsultartablasVacaciones_Click" runat="server" Text="Consultar" class="btn btn-primary" />
</div>
</div>
</div>
<div class="tools">
<%--<a href="javascript:;" class="expand" data-original-title="" title=""></a>--%>
</div>
</div>
<div class="portlet-body" style="display: none">
</div>
</div>
<div style="width:340px">
<asp:GridView ID="GVVacacionesEmpresas" runat="server" GridLines="None" CssClass="table table-hover table-striped Widthall ScrollAD" AutoGenerateColumns="False"
DataKeyNames="CveEmpresa,Inicio,Fin,DiasVacaciones">
DataKeyNames="CveEmpresa,Inicio,Fin,DiasVacaciones,Ejercicio">
<Columns>
<asp:TemplateField HeaderText="Inicio">
<asp:TemplateField HeaderText="Ejercicio" ItemStyle-HorizontalAlign="Center">
<ItemTemplate >
<asp:Label ID="lblEjercicio" runat="server" Text='<%# Eval("Ejercicio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Inicio" ItemStyle-HorizontalAlign="right">
<ItemTemplate>
<asp:Label ID="lblinicio" runat="server" Text='<%# Eval("Inicio")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fin">
<asp:TemplateField HeaderText="Fin" ItemStyle-HorizontalAlign="right">
<ItemTemplate>
<asp:Label ID="lblfin" runat="server" Text='<%# Eval("Fin")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Dias Vacaciones">
<asp:TemplateField HeaderText="Dias Vacaciones" ItemStyle-HorizontalAlign="right">
<ItemTemplate>
<asp:Label ID="Label5" runat="server" Text='<%# Eval("DiasVacaciones")%>'> </asp:Label>
</ItemTemplate>
@@ -2947,13 +2984,29 @@
</asp:GridView>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TTFactorDesctInfonavit" runat="server" HeaderText="Factor descuento Infonavit">
<ContentTemplate>
<asp:GridView ID="GVFactorDesctInfonavit" runat="server" CssClass="table table-striped table-hover mysmallbtn Widthall GvNominas" GridLines="None"></asp:GridView>
<div style="width:440px">
<asp:GridView ID="GVFactorDesctInfonavit" runat="server" CssClass="table table-striped table-hover mysmallbtn Widthall GvNominas" GridLines="None" AutoGenerateColumns="false">
<Columns>
<asp:TemplateField HeaderText="Fecha Inicio" ItemStyle-HorizontalAlign="Center">
<ItemTemplate >
<asp:Label ID="lblFechaInicio" runat="server" Text='<%# Eval("Fecha Inicio","{0:dd/MM/yyyy}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Factor Descuento" ItemStyle-HorizontalAlign="right">
<ItemTemplate>
<asp:Label ID="lblFactorDescuento" runat="server" Text='<%# Eval("Factor Descuento")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TTFactorSDI" runat="server" HeaderText="Factor SD" Visible="false">

19
Nomina/Nomina.aspx.cs
View File

@@ -13,6 +13,7 @@ using static Extensiones.ModExtensiones;
using Modelos;
using System.Text.RegularExpressions;
using iTextSharp.text.pdf.parser;
using Profact.TimbraCFDI40;
public partial class Nomina_Nomina2 : ClsPaginas
{
@@ -9686,11 +9687,16 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
protected void LnkConsultartablasVacaciones_Click(object sender, EventArgs e)
{
CargaVacacionesEmpresas();
}
protected void CargaVacacionesEmpresas()
{
int ejercicio = TxtEjercicioFiltroVacaciones.Text.Trim() == "" ? -1: TxtEjercicioFiltroVacaciones.Text.Trim().ToEntero();
using (ClsRH ObjVaca = new ClsRH())
{
ObjVaca.VacacionesEmpresasGet(UsuarioActual.CveEmpresa, -1, -1);
ObjVaca.VacacionesEmpresasGet(UsuarioActual.CveEmpresa, -1, -1, ejercicio);
GVVacacionesEmpresas.DataSource = ObjVaca.DtResultados;
ObjVaca.Dispose();
}
@@ -9705,18 +9711,19 @@ public partial class Nomina_Nomina2 : ClsPaginas
int diasVacaciones = TxtVacadiasVacaciones.Text.ToEntero();
int Cinicio = TxtVacaInicio.Text.ToEntero();
int Cfin = TxtVacaFin.Text.ToEntero();
int ejercicio = TxtEjercicioVacaciones.Text.ToEntero();
bool Continuar = false;
using (ClsRH ObjVaca = new ClsRH())
{
Continuar = ObjVaca.VacacionesEmpresasAdd(UsuarioActual.CveEmpresa, Cinicio, Cfin, diasVacaciones);
Continuar = ObjVaca.VacacionesEmpresasAdd(UsuarioActual.CveEmpresa, Cinicio, Cfin, diasVacaciones, ejercicio);
}
if (Continuar)
{
RegistraScript("$('#DModalVacacionesEmpresas').modal('hide');");
CargaVacacionesEmpresas();
upDatosVacaEmpre.Update();
Alert("El Vacaciones_Empresas Se ha agregado");
Alert("Las Vacaciones se han agregado.");
}
}
@@ -9726,10 +9733,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
int CcveEmpresa = gvRow.DataKey("CveEmpresa").ToEntero();
int Cinicio = gvRow.DataKey("Inicio").ToEntero();
int Cfin = gvRow.DataKey("Fin").ToEntero();
int Ejercicio = gvRow.DataKey("Ejercicio").ToEntero();
bool Continuar = false;
using (ClsRH ObjVaca = new ClsRH())
{
Continuar = ObjVaca.VacacionesEmpresasRemove(CcveEmpresa, Cinicio, Cfin);
Continuar = ObjVaca.VacacionesEmpresasRemove(CcveEmpresa, Cinicio, Cfin, Ejercicio);
}
if (Continuar)
{
@@ -10919,7 +10927,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
int cveTipoPeriodo = DdlTipoPeriodoCMB.SelectedValue.ToEntero();
int cveSubTipoPeriodo = TxtCveSubTipoPeriodoCM.Text.ToEntero();
int numero = TxtNumeroCM.Text.ToEntero();
string fechaInicio = TxtFechaInicioCM.Text;
string fechaInicio = TxtFechaInicioCM.Text.ToDateTime().ToString("yyyy-MM-dd");
using (ClsNominas onom = new ClsNominas())
{
@@ -10929,4 +10937,5 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
}
}
}

132
Ventas/ProductosServicios.aspx
View File

@@ -1151,15 +1151,143 @@
<div class="row form-md-line-input">
<label class="col-md-4 truncate">Peso en Kg:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtPesoKg" runat="server" Width="60px" Class="form-control input-sm"></asp:TextBox>
<asp:TextBox ID="TxtPesoKg" runat="server" Width="200px" Class="form-control input-sm"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Dimensiones:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDimensiones" runat="server" Width="120px" Class="form-control input-sm"></asp:TextBox>
<asp:TextBox ID="TxtDimensiones" runat="server" Width="200px" Class="form-control input-sm" ></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">ClaveSector COFEPRIS:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlClaveSectorCOFEPRIS" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="SectorCOFEPRISClave" DataValueField="CveSectorCOFEPRIS" CssClass="form-control input-sm select2me"></asp:DropDownList>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Clave Forma Farmaceutica:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlClaveFormaFarmaceutica" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="FormaFarmaceuticaClave" DataValueField="CveFormaFarmaceutica" CssClass="form-control input-sm select2me"></asp:DropDownList>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Nombre Ingrediente Activo:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtNombreIngredienteActivo" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Nom Quimico:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtNomQuimico" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Denominacion Generica:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDenominacionGenerica" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Denominacion Distintiva:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDenominacionDistintiva" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Fabricante:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Condiciones Transporte:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtCondicionesTransporte" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Registro Sanitario Autorizacion:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtRegistroSanitarioAutorizacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Permiso Importacion:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtPermisoImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Folio Importacion VUCEM:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtFolioImportacionVUCEM" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Num CAS:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtNumCAS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Razon Social Emp Importacion:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtRazonSocialEmpImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Num Registro Plag COFEPRIS:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtNumRegistroPlagCOFEPRIS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Datos Fabricante:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDatosFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Datos Formulador:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDatosFormulador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Datos Maquilador:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtDatosMaquilador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Uso Autorizado:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtUsoAutorizado" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
</div>
</div>
</ContentTemplate>

106
Ventas/ProductosServicios.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports Extensiones
Imports ZXing
@@ -192,6 +193,7 @@ Partial Class ProductosyServicios
CargarAlias()
CargaExistencias()
End If
CargaDatosCartaPorte()
Else
'Configuración de Modalidad Insert
RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -367,6 +369,7 @@ Partial Class ProductosyServicios
CargaUnidadesMedida()
CargarMetodosInv()
CargarMarcas()
CargaCombosPSComplementos()
'CargaPSAdicional(DdlPSAdicional)
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -452,6 +455,18 @@ Partial Class ProductosyServicios
End Sub
Private Sub CargaCombosPSComplementos()
DdlClaveSectorCOFEPRIS.DataSource = GlobalDTSATSectorCOFEPRIS
DdlClaveSectorCOFEPRIS.DataBind()
DdlClaveSectorCOFEPRIS.Items.Insert(0, New ListItem("-", "-1"))
DdlClaveFormaFarmaceutica.DataSource = GlobalDTSATFormaFarmaceutica
DdlClaveFormaFarmaceutica.DataBind()
DdlClaveFormaFarmaceutica.Items.Insert(0, New ListItem("-", "-1"))
End Sub
Private Sub CargaPanelLlantas()
Dim ObjGral As New ClsGenerales()
@@ -1648,6 +1663,10 @@ Partial Class ProductosyServicios
OnError("Ocurrió un error al guardar al guardar el producto/servicio.", ex)
End Try
If Not TieneError Then
GuardaDatosCartPorte()
End If
If Not TieneError Then
ObjProductosServicios.Commit()
Alert("El Producto/Servicio se guardo correctamente." + If(GeneraServicioAF = 1, " Recargue la pagina de ventas para poder utilizar el servicio", ""), TipoMensaje.MsgInformacion, AccionJS)
@@ -3293,8 +3312,6 @@ Partial Class ProductosyServicios
End If
End If
ObjGrales.Dispose()
If ValidaMaterialPeligrosoMensaje Then
@@ -3321,11 +3338,29 @@ Partial Class ProductosyServicios
DdlMaterialPeligroso.txtText.Value = ""
DdlMaterialPeligroso.txtValue.Value = ""
DdlEmbalaje.txtText.Value = ""
DdlEmbalaje.txtValue.Value = ""
DdlClaveSectorCOFEPRIS.SelectedValueExist(-1)
DdlClaveFormaFarmaceutica.SelectedValueExist(-1)
TxtNombreIngredienteActivo.Text = ""
TxtNomQuimico.Text = ""
TxtDenominacionGenerica.Text = ""
TxtDenominacionDistintiva.Text = ""
TxtFabricante.Text = ""
TxtCondicionesTransporte.Text = ""
TxtRegistroSanitarioAutorizacion.Text = ""
TxtPermisoImportacion.Text = ""
TxtFolioImportacionVUCEM.Text = ""
TxtNumCAS.Text = ""
TxtRazonSocialEmpImportacion.Text = ""
TxtNumRegistroPlagCOFEPRIS.Text = ""
TxtDatosFabricante.Text = ""
TxtDatosFormulador.Text = ""
TxtDatosMaquilador.Text = ""
TxtUsoAutorizado.Text = ""
UpCartaPorte.Update()
End Sub
@@ -3334,8 +3369,6 @@ Partial Class ProductosyServicios
Protected Sub ChkFechaIndeterminadaRSCO_CheckedChanged(sender As Object, e As EventArgs)
DivRegistroRSCO3.Visible = If(ChkFechaIndeterminadaRSCO.Checked, False, True)
If TxtFechaVigenciaRSCO.Text = "01/01/1900" Then
TxtFechaVigenciaRSCO.Text = ""
End If
@@ -3343,4 +3376,65 @@ Partial Class ProductosyServicios
UpDatos.Update()
End Sub
Private Sub CargaDatosCartaPorte()
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetProductosServiciosComplementos(CvePS) AndAlso ObjPS.DtResultados.Rows.Count > 0 Then
DdlMaterialPeligroso.txtText.Value = ObjPS.DtResultados.Rows(0)("MaterialPeligroso").ToString
DdlMaterialPeligroso.txtValue.Value = ObjPS.DtResultados.Rows(0)("CveMaterialPeligroso").ToString
DdlEmbalaje.txtText.Value = ObjPS.DtResultados.Rows(0)("Embalaje").ToString
DdlEmbalaje.txtValue.Value = ObjPS.DtResultados.Rows(0)("CveEmbalaje").ToString
DdlClaveSectorCOFEPRIS.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveSectorCOFEPRIS").ToString)
DdlClaveFormaFarmaceutica.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveFormaFarmaceutica").ToString)
TxtPesoKg.Text = ObjPS.DtResultados.Rows(0)("PesoKg").ToString
TxtDimensiones.Text = ObjPS.DtResultados.Rows(0)("Dimensiones").ToString
TxtNombreIngredienteActivo.Text = ObjPS.DtResultados.Rows(0)("NombreIngredienteActivo").ToString
TxtNomQuimico.Text = ObjPS.DtResultados.Rows(0)("NomQuimico").ToString
TxtDenominacionGenerica.Text = ObjPS.DtResultados.Rows(0)("DenominacionGenerica").ToString
TxtDenominacionDistintiva.Text = ObjPS.DtResultados.Rows(0)("DenominacionDistintiva").ToString
TxtFabricante.Text = ObjPS.DtResultados.Rows(0)("Fabricante").ToString
TxtCondicionesTransporte.Text = ObjPS.DtResultados.Rows(0)("CondicionesTransporte").ToString
TxtRegistroSanitarioAutorizacion.Text = ObjPS.DtResultados.Rows(0)("RegistroSanitarioAutorizacion").ToString
TxtPermisoImportacion.Text = ObjPS.DtResultados.Rows(0)("PermisoImportacion").ToString
TxtFolioImportacionVUCEM.Text = ObjPS.DtResultados.Rows(0)("FolioImportacionVUCEM").ToString
TxtNumCAS.Text = ObjPS.DtResultados.Rows(0)("NumCAS").ToString
TxtRazonSocialEmpImportacion.Text = ObjPS.DtResultados.Rows(0)("RazonSocialEmpImportacion").ToString
TxtNumRegistroPlagCOFEPRIS.Text = ObjPS.DtResultados.Rows(0)("NumRegistroPlagCOFEPRIS").ToString
TxtDatosFabricante.Text = ObjPS.DtResultados.Rows(0)("DatosFabricante").ToString
TxtDatosFormulador.Text = ObjPS.DtResultados.Rows(0)("DatosFormulador").ToString
TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString
TxtUsoAutorizado.Text = ObjPS.DtResultados.Rows(0)("UsoAutorizado").ToString
End If
UpCartaPorte.Update()
End Sub
Private Function GuardaDatosCartPorte(ByRef transaccionSQL As SqlTransaction) As Boolean
Dim Respuesta As Boolean = True
If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 Or DdlEmbalaje.SelectedValue.ToEntero > 0 Or DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 Or DdlClaveFormaFarmaceutica.SelectedValue.ToEntero > 0 Then
Dim ObjPS As New ClsProductosServicios(transaccionSQL)
If Not ObjPS.AddUpdateProductosServiciosComplementos(CvePS, TxtPesoKg.Text.ToDecimal, DdlMaterialPeligroso.SelectedValue.ToEntero, DdlEmbalaje.SelectedValue.ToEntero, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero,
TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.Text.Trim,
TxtRegistroSanitarioAutorizacion.Text.Trim, TxtPermisoImportacion.Text.Trim, TxtFolioImportacionVUCEM.Text.Trim, TxtNumCAS.Text.Trim, TxtRazonSocialEmpImportacion.Text, TxtNumRegistroPlagCOFEPRIS.Text.Trim, TxtDatosFabricante.Text.Trim,
TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text) Then
Respuesta = False
End If
End If
Return Respuesta
End Function
End Class

2
Ventas/Ventas.aspx.vb
View File

@@ -2682,8 +2682,8 @@ Partial Class Ventas
End If
If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
GvPS.DataSource = ObjVentas.DtResultados
TmpDT = ObjVentas.DtResultados
GvPS.DataBind()
End If