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

EMD. PDF Con subreporte de carta porte, asignacion de mercancias

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-06-04 18:29:22 -07:00
parent 7bb5febee4
commit 84a35794bd
8 changed files with 10523 additions and 5026 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
App_Code/ClsPaginas.vb
View File

@@ -55,6 +55,16 @@ Public Class ClsPaginas
#Region "Propiedades" #Region "Propiedades"
Private Property SubReportData As Modelos.MSubReportData
Get
Return If(IsNothing(ViewState("SubReportData")), Nothing, DirectCast(ViewState("SubReportData"), Modelos.MSubReportData))
End Get
Set(value As Modelos.MSubReportData)
ViewState("SubReportData") = value
End Set
End Property
Public Shared ReadOnly Property UrlSitio As String Public Shared ReadOnly Property UrlSitio As String
Get Get
If IsNothing(System.Configuration.ConfigurationManager.AppSettings("UrlSitio")) Then If IsNothing(System.Configuration.ConfigurationManager.AppSettings("UrlSitio")) Then
@@ -5927,17 +5937,17 @@ Public Class ClsPaginas
''' <param name="NombreArchivo">Opcional Nombre del archivo que se descarga</param> ''' <param name="NombreArchivo">Opcional Nombre del archivo que se descarga</param>
''' <param name="Formato">Optional, Formato de Generacion PDF o Excel</param> ''' <param name="Formato">Optional, Formato de Generacion PDF o Excel</param>
''' <remarks></remarks> ''' <remarks></remarks>
Public Sub ImprimirPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing, Optional Content_Disposition As String = "attachment") Public Sub ImprimirPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing, Optional Content_Disposition As String = "attachment", Optional SubReportData As Modelos.MSubReportData = Nothing)
'limpio ReportViwer 'limpio ReportViwer
ImprimirbytesPDF(StreamPDF(RutaReporte, DataSource, Parametros, NombreArchivo, Formato, MR), NombreArchivo, Formato, Content_Disposition:=Content_Disposition) ImprimirbytesPDF(StreamPDF(RutaReporte, DataSource, Parametros, NombreArchivo, Formato, MR, SubReportData), NombreArchivo, Formato, Content_Disposition:=Content_Disposition)
End Sub End Sub
Public Function StreamPDF(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing) As Byte() Public Function StreamPDF(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing, Optional SubReportData As Modelos.MSubReportData = Nothing) As Byte()
Dim lrds As New List(Of ReportDataSource) Dim lrds As New List(Of ReportDataSource)
Dim rds As New ReportDataSource Dim rds As New ReportDataSource
rds.Name = RDSName rds.Name = RDSName
rds.Value = DtDatos rds.Value = DtDatos
lrds.Add(rds) lrds.Add(rds)
Return StreamPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR) Return StreamPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR, SubReportData)
End Function End Function
'Public Function StreamPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing) As Byte() 'Public Function StreamPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing) As Byte()
' 'limpio ReportViwer ' 'limpio ReportViwer
@@ -5981,10 +5991,13 @@ Public Class ClsPaginas
' Return Bytes ' Return Bytes
'End Function 'End Function
Public Function StreamPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing) As Byte() Public Function StreamPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing, Optional SubReportData As Modelos.MSubReportData = Nothing) As Byte()
'limpio ReportViwer 'limpio ReportViwer
Dim sw As New System.Diagnostics.Stopwatch() Dim sw As New System.Diagnostics.Stopwatch()
sw.Start() sw.Start()
Me.SubReportData = Nothing
Dim Bytes As Byte() = Nothing Dim Bytes As Byte() = Nothing
Dim CveUsuario As Integer = 0 Dim CveUsuario As Integer = 0
@@ -6030,12 +6043,21 @@ Public Class ClsPaginas
reportobjects.Add(ojext) reportobjects.Add(ojext)
End If End If
Next Next
For Each rpds As ReportParameter In Parametros For Each rpds As ReportParameter In Parametros
Dim param As New WSRDLC.ReportParameter Dim param As New WSRDLC.ReportParameter
param.Name = rpds.Name param.Name = rpds.Name
param.Values = {rpds.Values(0)}
'SI ES TEXTO, QUITAR TABS Y OTROS ESPACIOS QUE DEN PROBLEMAS AL MANDAR LA PETICION
If rpds IsNot Nothing AndAlso rpds.Values IsNot Nothing AndAlso rpds.Values.Count > 0 AndAlso rpds.Values(0) IsNot Nothing AndAlso rpds.Values(0).GetType() = GetType(String) Then
param.Values = {rpds.Values(0).Replace(vbVerticalTab, "")}
Else
param.Values = {rpds.Values(0)}
End If
params.Add(param) params.Add(param)
Next Next
Bytes = wsreport.StreamNEWPDFBytes(RutaReporte, ds, reportobjects.ToArray(), params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) Bytes = wsreport.StreamNEWPDFBytes(RutaReporte, ds, reportobjects.ToArray(), params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
wsreport = Nothing wsreport = Nothing
params = Nothing params = Nothing
@@ -6050,9 +6072,16 @@ Public Class ClsPaginas
MR.LocalReport.ReportPath = RutaReporte MR.LocalReport.ReportPath = RutaReporte
MR.ProcessingMode = ProcessingMode.Local MR.ProcessingMode = ProcessingMode.Local
If SubReportData IsNot Nothing Then
Me.SubReportData = SubReportData
AddHandler MR.LocalReport.SubreportProcessing, AddressOf LocalReport_SubreportProcessing
End If
MR.LocalReport.EnableExternalImages = True MR.LocalReport.EnableExternalImages = True
MR.LocalReport.SetParameters(Parametros) MR.LocalReport.SetParameters(Parametros)
MR.LocalReport.Refresh() MR.LocalReport.Refresh()
Dim Warnings As Warning() = Nothing Dim Warnings As Warning() = Nothing
Dim StreamIds As String() = Nothing Dim StreamIds As String() = Nothing
Dim MimeType As String = Nothing Dim MimeType As String = Nothing
@@ -6121,6 +6150,14 @@ Public Class ClsPaginas
Return Bytes Return Bytes
End Function End Function
Private Sub LocalReport_SubreportProcessing(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)
If SubReportData IsNot Nothing Then
For Each ds In SubReportData.DataSources
e.DataSources.Add(ds)
Next
End If
End Sub
Public Function ImprimirPDFCrystal(RutaReporte As String, DataSource As DataTable, Parametros As List(Of CrystalParametro), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportDocument = Nothing) As Byte() Public Function ImprimirPDFCrystal(RutaReporte As String, DataSource As DataTable, Parametros As List(Of CrystalParametro), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportDocument = Nothing) As Byte()
'limpio ReportViwer 'limpio ReportViwer
Dim sw As New System.Diagnostics.Stopwatch() Dim sw As New System.Diagnostics.Stopwatch()
@@ -6934,7 +6971,7 @@ Public Class ClsPaginas
GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex)) GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex))
End Try End Try
End Sub End Sub
Public Function PdfFactura(ByRef Vta As Modelos.Factura, Optional AplicaPagare As String = "0", Optional Guardar As Boolean = True) As Byte() Public Function PdfFactura(ByRef Vta As Modelos.Factura, Optional AplicaPagare As String = "0", Optional Guardar As Boolean = True, Optional SubReportData As Modelos.MSubReportData = Nothing) As Byte()
Dim retorno As Byte() = Nothing Dim retorno As Byte() = Nothing
' Dim ObjVentas As New ClsVentas ' Dim ObjVentas As New ClsVentas
@@ -7754,6 +7791,13 @@ Public Class ClsPaginas
'Next 'Next
'ast.ToString.GuardaLog() 'ast.ToString.GuardaLog()
'PASAR LOS PARAMETROS SI TIENE SUBREPORTE
If SubReportData IsNot Nothing Then
For Each parametro As ReportParameter In SubReportData.Parametros
params.Add(parametro)
Next
End If
Dim Archivo As New System.IO.FileInfo(RutaFormato) Dim Archivo As New System.IO.FileInfo(RutaFormato)
If Archivo.Exists Then If Archivo.Exists Then
'If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
@@ -7762,7 +7806,7 @@ Public Class ClsPaginas
'Else 'Else
' retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing) ' retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing)
'End If 'End If
retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing) retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing, SubReportData:=SubReportData)
Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)) Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio))
If Guardar Then If Guardar Then
@@ -7792,7 +7836,7 @@ Public Class ClsPaginas
'Else 'Else
' retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing) ' retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing)
'End If 'End If
retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing) retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing, SubReportData:=SubReportData)
End If End If
Catch ex As Exception Catch ex As Exception
GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex)) GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex))

14
App_Code/Modelos.vb
View File

@@ -35,6 +35,20 @@ Namespace Modelos
Public Property CveEmpresa As Integer Public Property CveEmpresa As Integer
End Class End Class
<Serializable>
Public Class MSubReportData
Public Sub New()
Me.Nombre = ""
Me.SerieFolio = ""
Me.Parametros = New List(Of ReportParameter)
Me.DataSources = New List(Of ReportDataSource)
End Sub
Public Property Nombre As String
Public Property SerieFolio As String
Public Property Parametros As List(Of ReportParameter)
Public Property DataSources As List(Of ReportDataSource)
End Class
Public Class Evento Public Class Evento
Public Sub New() Public Sub New()

18
App_Code/Timbres.vb
View File

@@ -375,7 +375,7 @@ Public Class Timbres
Public Property CartaPorte As CFDICartaPorte Public Property CartaPorte As CFDICartaPorte
End Class End Class
Public Shared Function PreParaCartaPorteFactura(CveTimbre As Integer, Obj As Modelos.Factura, UsuarioActual As Usuario) As MMensajeCartaPorte Public Shared Function PreParaCartaPorteFactura(CveTimbre As Integer, UsuarioActual As Usuario) As MMensajeCartaPorte
Dim Retorno As New MMensajeCartaPorte Dim Retorno As New MMensajeCartaPorte
Try Try
@@ -399,7 +399,7 @@ Public Class Timbres
Dim ObjGrales As New ClsGenerales Dim ObjGrales As New ClsGenerales
If ObjGrales.GetGralTimbre(CveTimbre, "Man", FI, FF, -1, UsuarioActual.CveEmpresa, -1) Then If ObjGrales.GetGralTimbre(CveTimbre, "Ing", FI, FF, -1, UsuarioActual.CveEmpresa, -1) Then
If ObjGrales.DtResultados.Rows.Count = 1 Then If ObjGrales.DtResultados.Rows.Count = 1 Then
Dim DtMovimientos As DataTable = Nothing Dim DtMovimientos As DataTable = Nothing
@@ -466,16 +466,6 @@ Public Class Timbres
End If End If
If drT("ClaveTipoRemolque1").ToString <> "" Then
Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")}
CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1)
End If
If drT("ClaveTipoRemolque2").ToString <> "" Then
Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")}
CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2)
End If
Dim DomOrigen As CFDICartaPorteDomicilio = Nothing Dim DomOrigen As CFDICartaPorteDomicilio = Nothing
DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString, DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString,
@@ -569,7 +559,7 @@ Public Class Timbres
.ClaveUnidad = drr("SATClaveUM").ToString, .ClaveUnidad = drr("SATClaveUM").ToString,
.Unidad = drr("UM").ToString, .Unidad = drr("UM").ToString,
.Dimensiones = drr("Dimensiones").ToString, .Dimensiones = drr("Dimensiones").ToString,
.PesoenKg = drr("PesoKg").ToString.ToDecimal, .PesoenKg = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal,
.MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""), .MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""),
.ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString, .ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
.Embalaje = drr("ClaveEmbalaje").ToString, .Embalaje = drr("ClaveEmbalaje").ToString,
@@ -580,7 +570,7 @@ Public Class Timbres
.UUIDComercioExt = "" .UUIDComercioExt = ""
} }
Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal} Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal}
conceptoCarta.DetalleMercancia = DetalleMercancia conceptoCarta.DetalleMercancia = DetalleMercancia
Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"} Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"}

1020
Compras/PopUpVerFactura.aspx.vb
View File

File diff suppressed because it is too large Load Diff

4609
Empresas/13/Formatos/CartaPorteTimbrado.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

570
Empresas/13/Formatos/Factura.rdlc
View File

@@ -104,9 +104,9 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Left>1.83923in</Left> <Left>1.94795in</Left>
<Height>1.10377in</Height> <Height>1.12067in</Height>
<Width>6.21276in</Width> <Width>5.98809in</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -121,7 +121,7 @@
<Source>Embedded</Source> <Source>Embedded</Source>
<Value>Logo1</Value> <Value>Logo1</Value>
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Left>0.65302cm</Left> <Left>0.92917cm</Left>
<Height>2.88998cm</Height> <Height>2.88998cm</Height>
<Width>3.84225cm</Width> <Width>3.84225cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -151,7 +151,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>1.88777in</Top> <Top>1.88777in</Top>
<Left>0.50295cm</Left> <Left>0.1441cm</Left>
<Height>0.17222in</Height> <Height>0.17222in</Height>
<Width>0.81128in</Width> <Width>0.81128in</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
@@ -192,7 +192,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>1.88777in</Top> <Top>1.88777in</Top>
<Left>1.00929in</Left> <Left>0.86801in</Left>
<Height>0.17222in</Height> <Height>0.17222in</Height>
<Width>4.18029in</Width> <Width>4.18029in</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
@@ -974,7 +974,7 @@
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DsOC</DataSetName> <DataSetName>DsOC</DataSetName>
<Top>6.28717cm</Top> <Top>6.28717cm</Top>
<Left>0.44641cm</Left> <Left>0.08756cm</Left>
<Height>1.2353cm</Height> <Height>1.2353cm</Height>
<Width>20.06999cm</Width> <Width>20.06999cm</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
@@ -1003,7 +1003,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName> <rd:DefaultName>Textbox1</rd:DefaultName>
<Top>8.59672cm</Top> <Top>8.59672cm</Top>
<Left>14.86578cm</Left> <Left>14.50693cm</Left>
<Height>0.54708cm</Height> <Height>0.54708cm</Height>
<Width>5.65062cm</Width> <Width>5.65062cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
@@ -1204,7 +1204,7 @@
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>7.71422cm</Top> <Top>7.71422cm</Top>
<Left>14.83363cm</Left> <Left>14.47478cm</Left>
<Height>0.65551cm</Height> <Height>0.65551cm</Height>
<Width>5.68277cm</Width> <Width>5.68277cm</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>
@@ -1235,7 +1235,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>2.79612cm</Top> <Top>2.79612cm</Top>
<Left>14.51137cm</Left> <Left>14.15252cm</Left>
<Height>0.41303cm</Height> <Height>0.41303cm</Height>
<Width>2.08346cm</Width> <Width>2.08346cm</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
@@ -1270,7 +1270,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.79612cm</Top> <Top>2.79612cm</Top>
<Left>17.39754cm</Left> <Left>17.03869cm</Left>
<Height>0.41303cm</Height> <Height>0.41303cm</Height>
<Width>3.066cm</Width> <Width>3.066cm</Width>
<ZIndex>8</ZIndex> <ZIndex>8</ZIndex>
@@ -1305,7 +1305,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.22326cm</Top> <Top>3.22326cm</Top>
<Left>14.51137cm</Left> <Left>14.15252cm</Left>
<Height>0.42714cm</Height> <Height>0.42714cm</Height>
<Width>2.08346cm</Width> <Width>2.08346cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
@@ -1340,7 +1340,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName> <rd:DefaultName>Textbox12</rd:DefaultName>
<Top>3.22326cm</Top> <Top>3.22326cm</Top>
<Left>17.39754cm</Left> <Left>17.03869cm</Left>
<Height>0.42714cm</Height> <Height>0.42714cm</Height>
<Width>3.066cm</Width> <Width>3.066cm</Width>
<ZIndex>10</ZIndex> <ZIndex>10</ZIndex>
@@ -1375,7 +1375,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.75976cm</Top> <Top>3.75976cm</Top>
<Left>14.50093cm</Left> <Left>14.14208cm</Left>
<Height>0.46681cm</Height> <Height>0.46681cm</Height>
<Width>2.86133cm</Width> <Width>2.86133cm</Width>
<ZIndex>11</ZIndex> <ZIndex>11</ZIndex>
@@ -1413,7 +1413,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox55</rd:DefaultName> <rd:DefaultName>Textbox55</rd:DefaultName>
<Top>3.75976cm</Top> <Top>3.75976cm</Top>
<Left>17.39754cm</Left> <Left>17.03869cm</Left>
<Height>0.46681cm</Height> <Height>0.46681cm</Height>
<Width>3.05452cm</Width> <Width>3.05452cm</Width>
<ZIndex>12</ZIndex> <ZIndex>12</ZIndex>
@@ -1448,7 +1448,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.0229cm</Top> <Top>3.0229cm</Top>
<Left>0.50295cm</Left> <Left>0.1441cm</Left>
<Height>0.42944cm</Height> <Height>0.42944cm</Height>
<Width>3.80164cm</Width> <Width>3.80164cm</Width>
<ZIndex>13</ZIndex> <ZIndex>13</ZIndex>
@@ -1483,7 +1483,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.0229cm</Top> <Top>3.0229cm</Top>
<Left>4.48098cm</Left> <Left>4.12213cm</Left>
<Height>0.42944cm</Height> <Height>0.42944cm</Height>
<Width>6.76133cm</Width> <Width>6.76133cm</Width>
<ZIndex>14</ZIndex> <ZIndex>14</ZIndex>
@@ -1518,7 +1518,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.46293cm</Top> <Top>3.46293cm</Top>
<Left>0.50295cm</Left> <Left>0.1441cm</Left>
<Height>0.40122cm</Height> <Height>0.40122cm</Height>
<Width>3.80164cm</Width> <Width>3.80164cm</Width>
<ZIndex>15</ZIndex> <ZIndex>15</ZIndex>
@@ -1553,7 +1553,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.46998cm</Top> <Top>3.46998cm</Top>
<Left>4.48098cm</Left> <Left>4.12213cm</Left>
<Height>0.40122cm</Height> <Height>0.40122cm</Height>
<Width>6.76133cm</Width> <Width>6.76133cm</Width>
<ZIndex>16</ZIndex> <ZIndex>16</ZIndex>
@@ -1588,7 +1588,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.94529cm</Top> <Top>3.94529cm</Top>
<Left>0.53823cm</Left> <Left>0.17938cm</Left>
<Height>0.39417cm</Height> <Height>0.39417cm</Height>
<Width>3.80164cm</Width> <Width>3.80164cm</Width>
<ZIndex>17</ZIndex> <ZIndex>17</ZIndex>
@@ -1660,7 +1660,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.95234cm</Top> <Top>3.95234cm</Top>
<Left>4.48098cm</Left> <Left>4.12213cm</Left>
<Height>0.43297cm</Height> <Height>0.43297cm</Height>
<Width>6.76133cm</Width> <Width>6.76133cm</Width>
<ZIndex>18</ZIndex> <ZIndex>18</ZIndex>
@@ -1695,7 +1695,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>4.41707cm</Top> <Top>4.41707cm</Top>
<Left>0.50295cm</Left> <Left>0.1441cm</Left>
<Height>0.44708cm</Height> <Height>0.44708cm</Height>
<Width>3.80164cm</Width> <Width>3.80164cm</Width>
<ZIndex>19</ZIndex> <ZIndex>19</ZIndex>
@@ -1729,7 +1729,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.05999in</Top> <Top>2.05999in</Top>
<Left>0.50295cm</Left> <Left>0.1441cm</Left>
<Height>0.19861in</Height> <Height>0.19861in</Height>
<Width>0.81128in</Width> <Width>0.81128in</Width>
<ZIndex>20</ZIndex> <ZIndex>20</ZIndex>
@@ -1771,7 +1771,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.03638in</Top> <Top>2.03638in</Top>
<Left>1.00929in</Left> <Left>0.86801in</Left>
<Height>0.18472in</Height> <Height>0.18472in</Height>
<Width>1.74279in</Width> <Width>1.74279in</Width>
<ZIndex>21</ZIndex> <ZIndex>21</ZIndex>
@@ -1814,7 +1814,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.03499in</Top> <Top>2.03499in</Top>
<Left>7.00999cm</Left> <Left>6.65114cm</Left>
<Height>0.19861in</Height> <Height>0.19861in</Height>
<Width>0.81128in</Width> <Width>0.81128in</Width>
<ZIndex>22</ZIndex> <ZIndex>22</ZIndex>
@@ -1856,7 +1856,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.03638in</Top> <Top>2.03638in</Top>
<Left>3.58501in</Left> <Left>3.44373in</Left>
<Height>0.18472in</Height> <Height>0.18472in</Height>
<Width>1.60457in</Width> <Width>1.60457in</Width>
<ZIndex>23</ZIndex> <ZIndex>23</ZIndex>
@@ -1900,7 +1900,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.2586in</Top> <Top>2.2586in</Top>
<Left>0.50295cm</Left> <Left>0.1441cm</Left>
<Height>0.15972in</Height> <Height>0.15972in</Height>
<Width>0.81128in</Width> <Width>0.81128in</Width>
<ZIndex>24</ZIndex> <ZIndex>24</ZIndex>
@@ -1941,7 +1941,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.2586in</Top> <Top>2.2586in</Top>
<Left>1.00929in</Left> <Left>0.86801in</Left>
<Height>0.15972in</Height> <Height>0.15972in</Height>
<Width>4.18029in</Width> <Width>4.18029in</Width>
<ZIndex>25</ZIndex> <ZIndex>25</ZIndex>
@@ -1985,7 +1985,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.97039in</Top> <Top>2.97039in</Top>
<Left>0.42284cm</Left> <Left>0.06399cm</Left>
<Height>0.17324in</Height> <Height>0.17324in</Height>
<Width>1.7828in</Width> <Width>1.7828in</Width>
<ZIndex>26</ZIndex> <ZIndex>26</ZIndex>
@@ -2029,7 +2029,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>7.54478cm</Top> <Top>7.54478cm</Top>
<Left>5.057cm</Left> <Left>4.69815cm</Left>
<Height>0.44003cm</Height> <Height>0.44003cm</Height>
<Width>9.60024cm</Width> <Width>9.60024cm</Width>
<ZIndex>27</ZIndex> <ZIndex>27</ZIndex>
@@ -2061,7 +2061,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>3.13113in</Top> <Top>3.13113in</Top>
<Left>1.24191in</Left> <Left>1.10063in</Left>
<Height>0.44842cm</Height> <Height>0.44842cm</Height>
<Width>4.52866in</Width> <Width>4.52866in</Width>
<ZIndex>28</ZIndex> <ZIndex>28</ZIndex>
@@ -2106,7 +2106,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>7.95306cm</Top> <Top>7.95306cm</Top>
<Left>0.44641cm</Left> <Left>0.08756cm</Left>
<Height>0.44842cm</Height> <Height>0.44842cm</Height>
<Width>2.5581cm</Width> <Width>2.5581cm</Width>
<ZIndex>29</ZIndex> <ZIndex>29</ZIndex>
@@ -2125,7 +2125,7 @@
<Value>=Parameters!QR.Value</Value> <Value>=Parameters!QR.Value</Value>
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Top>3.40943in</Top> <Top>3.40943in</Top>
<Left>0.22897in</Left> <Left>0.08769in</Left>
<Height>1.14694in</Height> <Height>1.14694in</Height>
<Width>1.34784in</Width> <Width>1.34784in</Width>
<ZIndex>30</ZIndex> <ZIndex>30</ZIndex>
@@ -2156,7 +2156,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>9.29495cm</Top> <Top>9.29495cm</Top>
<Left>9.81667cm</Left> <Left>9.45782cm</Left>
<Height>0.35889cm</Height> <Height>0.35889cm</Height>
<Width>4.93935cm</Width> <Width>4.93935cm</Width>
<ZIndex>31</ZIndex> <ZIndex>31</ZIndex>
@@ -2191,7 +2191,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>9.67148cm</Top> <Top>9.67148cm</Top>
<Left>9.81667cm</Left> <Left>9.45782cm</Left>
<Height>0.40122cm</Height> <Height>0.40122cm</Height>
<Width>4.93935cm</Width> <Width>4.93935cm</Width>
<ZIndex>32</ZIndex> <ZIndex>32</ZIndex>
@@ -2226,7 +2226,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>10.05859cm</Top> <Top>10.05859cm</Top>
<Left>9.81667cm</Left> <Left>9.45782cm</Left>
<Height>0.3536cm</Height> <Height>0.3536cm</Height>
<Width>4.93935cm</Width> <Width>4.93935cm</Width>
<ZIndex>33</ZIndex> <ZIndex>33</ZIndex>
@@ -2261,7 +2261,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>10.41395cm</Top> <Top>10.41395cm</Top>
<Left>9.81667cm</Left> <Left>9.45782cm</Left>
<Height>0.31479cm</Height> <Height>0.31479cm</Height>
<Width>4.93935cm</Width> <Width>4.93935cm</Width>
<ZIndex>34</ZIndex> <ZIndex>34</ZIndex>
@@ -2296,7 +2296,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>9.29495cm</Top> <Top>9.29495cm</Top>
<Left>14.82657cm</Left> <Left>14.46772cm</Left>
<Height>0.35889cm</Height> <Height>0.35889cm</Height>
<Width>5.62289cm</Width> <Width>5.62289cm</Width>
<ZIndex>35</ZIndex> <ZIndex>35</ZIndex>
@@ -2331,7 +2331,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>9.67148cm</Top> <Top>9.67148cm</Top>
<Left>14.82657cm</Left> <Left>14.46772cm</Left>
<Height>0.40122cm</Height> <Height>0.40122cm</Height>
<Width>5.62289cm</Width> <Width>5.62289cm</Width>
<ZIndex>36</ZIndex> <ZIndex>36</ZIndex>
@@ -2366,7 +2366,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>10.05859cm</Top> <Top>10.05859cm</Top>
<Left>14.82657cm</Left> <Left>14.46772cm</Left>
<Height>0.3536cm</Height> <Height>0.3536cm</Height>
<Width>5.62289cm</Width> <Width>5.62289cm</Width>
<ZIndex>37</ZIndex> <ZIndex>37</ZIndex>
@@ -2401,7 +2401,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>10.41395cm</Top> <Top>10.41395cm</Top>
<Left>14.82657cm</Left> <Left>14.46772cm</Left>
<Height>0.31479cm</Height> <Height>0.31479cm</Height>
<Width>5.62289cm</Width> <Width>5.62289cm</Width>
<ZIndex>38</ZIndex> <ZIndex>38</ZIndex>
@@ -2450,7 +2450,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>4.27878in</Top> <Top>4.27878in</Top>
<Left>9.81667cm</Left> <Left>9.45782cm</Left>
<Height>0.34009in</Height> <Height>0.34009in</Height>
<Width>4.18614in</Width> <Width>4.18614in</Width>
<ZIndex>39</ZIndex> <ZIndex>39</ZIndex>
@@ -2493,7 +2493,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>4.78985in</Top> <Top>4.78985in</Top>
<Left>0.20907in</Left> <Left>0.06779in</Left>
<Height>0.15694in</Height> <Height>0.15694in</Height>
<Width>7.86825in</Width> <Width>7.86825in</Width>
<ZIndex>40</ZIndex> <ZIndex>40</ZIndex>
@@ -2538,7 +2538,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>11.78131cm</Top> <Top>11.78131cm</Top>
<Left>0.4667cm</Left> <Left>0.10785cm</Left>
<Height>0.44842cm</Height> <Height>0.44842cm</Height>
<Width>8.9127cm</Width> <Width>8.9127cm</Width>
<ZIndex>41</ZIndex> <ZIndex>41</ZIndex>
@@ -2571,7 +2571,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>5.16778in</Top> <Top>5.16778in</Top>
<Left>0.19115in</Left> <Left>0.04987in</Left>
<Height>0.1296in</Height> <Height>0.1296in</Height>
<Width>7.86825in</Width> <Width>7.86825in</Width>
<ZIndex>42</ZIndex> <ZIndex>42</ZIndex>
@@ -2616,7 +2616,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>12.74125cm</Top> <Top>12.74125cm</Top>
<Left>0.48553cm</Left> <Left>0.12668cm</Left>
<Height>0.33552cm</Height> <Height>0.33552cm</Height>
<Width>8.89387cm</Width> <Width>8.89387cm</Width>
<ZIndex>43</ZIndex> <ZIndex>43</ZIndex>
@@ -2649,7 +2649,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>5.57948in</Top> <Top>5.57948in</Top>
<Left>0.19801in</Left> <Left>0.05673in</Left>
<Height>0.11805in</Height> <Height>0.11805in</Height>
<Width>7.86825in</Width> <Width>7.86825in</Width>
<ZIndex>44</ZIndex> <ZIndex>44</ZIndex>
@@ -2694,7 +2694,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>13.72346cm</Top> <Top>13.72346cm</Top>
<Left>0.48554cm</Left> <Left>0.12669cm</Left>
<Height>0.34259cm</Height> <Height>0.34259cm</Height>
<Width>8.89387cm</Width> <Width>8.89387cm</Width>
<ZIndex>45</ZIndex> <ZIndex>45</ZIndex>
@@ -2733,7 +2733,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>0.14926cm</Top> <Top>0.14926cm</Top>
<Left>0.9525cm</Left> <Left>1.30058cm</Left>
<Height>0.46066cm</Height> <Height>0.46066cm</Height>
<Width>18.98926cm</Width> <Width>18.98926cm</Width>
<Style> <Style>
@@ -2769,7 +2769,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox29</rd:DefaultName> <rd:DefaultName>Textbox29</rd:DefaultName>
<Top>0.735cm</Top> <Top>0.735cm</Top>
<Left>4.71624cm</Left> <Left>5.06432cm</Left>
<Height>0.41981cm</Height> <Height>0.41981cm</Height>
<Width>5.31841cm</Width> <Width>5.31841cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -2802,7 +2802,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox29</rd:DefaultName> <rd:DefaultName>Textbox29</rd:DefaultName>
<Top>0.735cm</Top> <Top>0.735cm</Top>
<Left>10.03465cm</Left> <Left>10.38273cm</Left>
<Height>0.41981cm</Height> <Height>0.41981cm</Height>
<Width>7.14985cm</Width> <Width>7.14985cm</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
@@ -3147,7 +3147,7 @@
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet4</DataSetName> <DataSetName>DataSet4</DataSetName>
<Top>1.39643cm</Top> <Top>1.39643cm</Top>
<Left>3.2145cm</Left> <Left>3.56258cm</Left>
<Height>0.85604cm</Height> <Height>0.85604cm</Height>
<Width>15.30142cm</Width> <Width>15.30142cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
@@ -3160,9 +3160,8 @@
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>14.54249cm</Top> <Top>14.54249cm</Top>
<Left>0.07193cm</Left> <Height>2.28935cm</Height>
<Height>2.25247cm</Height> <Width>20.28984cm</Width>
<Width>20.37753cm</Width>
<ZIndex>46</ZIndex> <ZIndex>46</ZIndex>
<Visibility> <Visibility>
<Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden> <Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
@@ -3173,11 +3172,203 @@
</Border> </Border>
</Style> </Style>
</Rectangle> </Rectangle>
<Rectangle Name="Rectangle1">
<ReportItems>
<Textbox Name="Textbox6">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>CARTA PORTE - TRASLADO</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>11pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName>
<Top>0.12917cm</Top>
<Left>0.06399cm</Left>
<Height>0.6cm</Height>
<Width>20.02662cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<PageBreak>
<BreakLocation>Start</BreakLocation>
</PageBreak>
<KeepTogether>true</KeepTogether>
<Top>16.87906cm</Top>
<Height>0.80985cm</Height>
<Width>20.28984cm</Width>
<ZIndex>47</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Rectangle>
<Subreport Name="cartaporte">
<ReportName>CartaPorteTimbrado</ReportName>
<Parameters>
<Parameter Name="LogoPath">
<Value>=Parameters!SRP_LogoPath.Value</Value>
</Parameter>
<Parameter Name="RFC">
<Value>=Parameters!SRP_RFC.Value</Value>
</Parameter>
<Parameter Name="SerieFolio">
<Value>=Parameters!SRP_SerieFolio.Value</Value>
</Parameter>
<Parameter Name="DomicilioFiscal">
<Value>=Parameters!SRP_DomicilioFiscal.Value</Value>
</Parameter>
<Parameter Name="RegimenFiscal">
<Value>=Parameters!SRP_RegimenFiscal.Value</Value>
</Parameter>
<Parameter Name="DomicilioExpedicion">
<Value>=Parameters!SRP_DomicilioExpedicion.Value</Value>
</Parameter>
<Parameter Name="ClienteDireccion">
<Value>=Parameters!SRP_ClienteDireccion.Value</Value>
</Parameter>
<Parameter Name="ClienteNombre">
<Value>=Parameters!SRP_ClienteNombre.Value</Value>
</Parameter>
<Parameter Name="ClienteRFC">
<Value>=Parameters!SRP_ClienteRFC.Value</Value>
</Parameter>
<Parameter Name="MedioTransporte">
<Value>=Parameters!SRP_MedioTransporte.Value</Value>
</Parameter>
<Parameter Name="TransporteInternacional">
<Value>=Parameters!SRP_TransporteInternacional.Value</Value>
</Parameter>
<Parameter Name="FolioFiscal">
<Value>=Parameters!SRP_FolioFiscal.Value</Value>
</Parameter>
<Parameter Name="FechaCertificacion">
<Value>=Parameters!SRP_FechaCertificacion.Value</Value>
</Parameter>
<Parameter Name="CertificadoContribuyente">
<Value>=Parameters!SRP_CertificadoContribuyente.Value</Value>
</Parameter>
<Parameter Name="SerieCertificadoSAT">
<Value>=Parameters!SRP_SerieCertificadoSAT.Value</Value>
</Parameter>
<Parameter Name="SelloCFDI">
<Value>=Parameters!SRP_SelloCFDI.Value</Value>
</Parameter>
<Parameter Name="CadenaOriginal">
<Value>=Parameters!SRP_CadenaOriginal.Value</Value>
</Parameter>
<Parameter Name="SelloSAT">
<Value>=Parameters!SRP_SelloSAT.Value</Value>
</Parameter>
<Parameter Name="QR">
<Value>=Parameters!SRP_QR.Value</Value>
</Parameter>
<Parameter Name="PermisoSTCC">
<Value>=Parameters!SRP_PermisoSTCC.Value</Value>
</Parameter>
<Parameter Name="NumPermiso">
<Value>=Parameters!SRP_NumPermiso.Value</Value>
</Parameter>
<Parameter Name="Aseguradora">
<Value>=Parameters!SRP_Aseguradora.Value</Value>
</Parameter>
<Parameter Name="NumPoliza">
<Value>=Parameters!SRP_NumPoliza.Value</Value>
</Parameter>
<Parameter Name="PlacaVM">
<Value>=Parameters!SRP_PlacaVM.Value</Value>
</Parameter>
<Parameter Name="AnioVM">
<Value>=Parameters!SRP_AnioVM.Value</Value>
</Parameter>
<Parameter Name="TipoTI">
<Value>=Parameters!SRP_TipoTI.Value</Value>
</Parameter>
<Parameter Name="ViaTI">
<Value>=Parameters!SRP_ViaTI.Value</Value>
</Parameter>
<Parameter Name="UsoCFDi">
<Value>=Parameters!SRP_UsoCFDi.Value</Value>
</Parameter>
<Parameter Name="SubTotal">
<Value>=Parameters!SRP_SubTotal.Value</Value>
</Parameter>
<Parameter Name="Total">
<Value>=Parameters!SRP_Total.Value</Value>
</Parameter>
<Parameter Name="Descuentos">
<Value>=Parameters!SRP_Descuentos.Value</Value>
</Parameter>
<Parameter Name="NombreAseguradoraMedioAmbiente">
<Value>=Parameters!SRP_NombreAseguradoraMedioAmbiente.Value</Value>
</Parameter>
<Parameter Name="NumPolizaSeguroMedioAmbiente">
<Value>=Parameters!SRP_NumPolizaSeguroMedioAmbiente.Value</Value>
</Parameter>
<Parameter Name="NombreAseguradoraCarga">
<Value>=Parameters!SRP_NombreAseguradoraCarga.Value</Value>
</Parameter>
<Parameter Name="NumPolizaSeguroCarga">
<Value>=Parameters!SRP_NumPolizaSeguroCarga.Value</Value>
</Parameter>
<Parameter Name="RemolquePlaca1">
<Value>=Parameters!SRP_RemolquePlaca1.Value</Value>
</Parameter>
<Parameter Name="RemolqueSubtimo1">
<Value>=Parameters!SRP_RemolqueSubtimo1.Value</Value>
</Parameter>
<Parameter Name="RemolquePlaca2">
<Value>=Parameters!SRP_RemolquePlaca2.Value</Value>
</Parameter>
<Parameter Name="RemolqueSubtimo2">
<Value>=Parameters!SRP_RemolqueSubtimo2.Value</Value>
</Parameter>
<Parameter Name="EsSubReporte">
<Value>=True</Value>
</Parameter>
<Parameter Name="PesoNetoTotal">
<Value>=Parameters!SRP_PesoNetoTotal.Value</Value>
</Parameter>
<Parameter Name="DistanciaTotal">
<Value>=Parameters!SRP_DistanciaTotal.Value</Value>
</Parameter>
</Parameters>
<Top>17.78979cm</Top>
<Height>1.77607cm</Height>
<Width>20.12945cm</Width>
<ZIndex>48</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Subreport>
</ReportItems> </ReportItems>
<Height>16.79496cm</Height> <Height>19.56586cm</Height>
<Style /> <Style />
</Body> </Body>
<Width>20.5164cm</Width> <Width>20.28984cm</Width>
<Page> <Page>
<PageFooter> <PageFooter>
<Height>0.64232cm</Height> <Height>0.64232cm</Height>
@@ -3205,9 +3396,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.04232cm</Top> <Top>0.04232cm</Top>
<Left>16.34905cm</Left> <Left>16.6252cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>3.95896cm</Width> <Width>3.66464cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -3249,7 +3440,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName> <rd:DefaultName>Textbox8</rd:DefaultName>
<Top>0.10582cm</Top> <Top>0.10582cm</Top>
<Left>0.50295cm</Left> <Left>0.7791cm</Left>
<Height>0.46771cm</Height> <Height>0.46771cm</Height>
<Width>6.86562cm</Width> <Width>6.86562cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -4164,6 +4355,265 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="SRP_NombreEmpresa">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_UsuarioImprimio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_LogoPath">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_FechaImpresion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_RFC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_SerieFolio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_DomicilioFiscal">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_RegimenFiscal">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_DomicilioExpedicion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_ClienteDireccion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_ClienteNombre">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_ClienteRFC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_MedioTransporte">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_TransporteInternacional">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_FolioFiscal">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_FechaCertificacion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_CertificadoContribuyente">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_SerieCertificadoSAT">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_SelloCFDI">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_CadenaOriginal">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_SelloSAT">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_QR">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_PermisoSTCC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_NumPermiso">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_Aseguradora">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_NumPoliza">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_PlacaVM">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_AnioVM">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_TipoTI">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_ViaTI">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_UsoCFDi">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_SubTotal">
<DataType>Float</DataType>
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_Total">
<DataType>Float</DataType>
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_Descuentos">
<DataType>Float</DataType>
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_NombreAseguradoraMedioAmbiente">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_NumPolizaSeguroMedioAmbiente">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_NombreAseguradoraCarga">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_NumPolizaSeguroCarga">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_RemolquePlaca1">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_RemolqueSubtimo1">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_RemolquePlaca2">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_RemolqueSubtimo2">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_PesoNetoTotal">
<DataType>Float</DataType>
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="SRP_DistanciaTotal">
<DataType>Float</DataType>
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="Logo"> <EmbeddedImage Name="Logo">

75
Ventas/Ventas.aspx
View File

@@ -2467,21 +2467,27 @@
<div class="row rowpadding"> <div class="row rowpadding">
<label class="col-md-2">Emitir:</label> <label class="col-md-2">Emitir:</label>
<div class="col-md-10"> <div class="col-md-10">
<asp:CheckBox ID="ChkEmitirCartaPorte" runat="server" CssClass="chksino" Text=" " /> <asp:CheckBox ID="ChkEmitirCartaPorte" runat="server" CssClass="chksino" Text=" " OnCheckedChanged="ChkEmitirCartaPorte_CheckedChanged" AutoPostBack="true" />
</div> </div>
</div> </div>
<br /> <br />
<div class="row rowpadding"> <div class="row rowpadding">
<label class="col-md-2">Origen:</label> <label class="col-md-2">Origen:</label>
<div class="col-md-10"> <div class="col-md-10">
<asp:TextBox ID="TxtOrigenCP" runat="server" Enabled="false" Text="" CssClass="form-control input-sm"></asp:TextBox> <asp:DropDownList ID="DdlDireccionOrigen" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalClienteVentaDireccion" DataValueField="CveDireccionEnvio" Width="100%" OnSelectedIndexChanged="DdlDireccionOrigen_SelectedIndexChanged">
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<%--<asp:TextBox ID="TxtOrigenCP" runat="server" Enabled="false" Text="" CssClass="form-control input-sm"></asp:TextBox>--%>
</div> </div>
</div> </div>
<br /> <br />
<div class="row rowpadding"> <div class="row rowpadding">
<label class="col-md-2">Destino:</label> <label class="col-md-2">Destino:</label>
<div class="col-md-10"> <div class="col-md-10">
<asp:TextBox ID="TxtDestinoCP" runat="server" Enabled="false" Text="" CssClass="form-control input-sm"></asp:TextBox> <asp:DropDownList ID="DdlDireccionDestino" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalClienteVentaDireccion" DataValueField="CveDireccionEnvio" Width="100%" OnSelectedIndexChanged="DdlDireccionDestino_SelectedIndexChanged">
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<%--<asp:TextBox ID="TxtDestinoCP" runat="server" Enabled="false" Text="" CssClass="form-control input-sm"></asp:TextBox>--%>
</div> </div>
</div> </div>
<br /> <br />
@@ -5956,11 +5962,54 @@
<h4 class="modal-title">Registrar Mercancía</h4> <h4 class="modal-title">Registrar Mercancía</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="form-group form-md-line-input input-iconright"> <div class="row">
<asp:TextBox ID="TxtCantidadMercancia" runat="server" ClientIDMode="Static" CssClass="form-control" CausesValidation="true"></asp:TextBox> <div class="col-md-12">
<ajax:FilteredTextBoxExtender ID="FTEMercancia" runat="server" TargetControlID="TxtCantidadMercancia" FilterType="Numbers, Custom" ValidChars="." /> <div class="row">
<asp:RequiredFieldValidator ID="RFVMercancia" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtCantidadMercancia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSMercancia"></asp:RequiredFieldValidator> <label class="col-md-3 truncate" style="color: #888888; font-family: 'Open Sans', sans-serif; direction: ltr; font-size: 12px;">Agregar Flete:</label>
<label for="<%= TxtCantidadMercancia.ClientID.ToString()%>">Cantidad:</label> </div>
<div class="row">
<div class="col-md-12">
<asp:CheckBox ID="ChkAgregarFlete" runat="server" CssClass="chksino" Text=" " OnCheckedChanged="ChkAgregarFlete_CheckedChanged" Checked="true"
AutoPostBack="true" />
</div>
</div>
</div>
</div>
<div id="DivServicioFlete" runat="server" visible="True" class="row">
<div class="col-md-12">
<div class="row">
<div class="col-md-12">
<div class="form-group form-md-line-input input-iconright">
<label for="<%= DdlPSFlete.ClientID.ToString()%>">Servicio:</label>
<ADS:Dropdownlost runat="server" ID="DdlPSFlete" CssStyle="width: 100%;" CssClass=" form-control input-sm DdlPS" IncluyeTodos="false" CssClassDdl="select2me form-control" DataTextField="PSCodigo" DataValueField="CvePS" />
</div>
</div>
</div>
<br />
<div class="row">
<div class="col-md-12">
<div class="row">
<label class="col-md-3 truncate" style="color: #888888; font-family: 'Open Sans', sans-serif; direction: ltr; font-size: 12px;">Observaciones:</label>
</div>
<div class="row">
<div class="col-md-12">
<asp:TextBox ID="TxtObservacionesMercancia" CssClass="form-control input-sm" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="50"></asp:TextBox>
</div>
</div>
</div>
</div>
</div>
</div>
<br />
<div class="row">
<div class="col-md-12">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCantidadMercancia" runat="server" ClientIDMode="Static" CssClass="form-control" CausesValidation="true"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEMercancia" runat="server" TargetControlID="TxtCantidadMercancia" FilterType="Numbers, Custom" ValidChars="." />
<asp:RequiredFieldValidator ID="RFVMercancia" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtCantidadMercancia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSMercancia"></asp:RequiredFieldValidator>
<label for="<%= TxtCantidadMercancia.ClientID.ToString()%>">Cantidad:</label>
</div>
</div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
@@ -5970,6 +6019,16 @@
</div> </div>
</div> </div>
</div> </div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPrecioMercancia" inputmode="numeric" runat="server" onkeyup="Recalcula();" CausesValidation="true" lang="nb" ClientIDMode="Static" Text="0.00" MaxLength="12" ValidationGroup="GrpAddPSMercancia" Width="200px" CssClass="form-control "></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTBPrecioMercancia" runat="server" TargetControlID="TxtPrecioMercancia" FilterType="Custom, Numbers" ValidChars="." />
<asp:RequiredFieldValidator ID="RFVPrecioMercancia" runat="server" ControlToValidate="TxtPrecioMercancia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPSMercancia"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEPrecioM1" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrecioMercancia" Width="300px"></ajax:ValidatorCalloutExtender>
<asp:CustomValidator ID="CVPrecioMercancia" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtPrecioMercancia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> no tiene el formato correcto. Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GrpAddPSMercancia"></asp:CustomValidator>
<ajax:ValidatorCalloutExtender ID="VCEPrecioM2" runat="server" HighlightCssClass="vco" TargetControlID="CVPrecioMercancia" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtPrecioMercancia.ClientID.ToString()%>">Precio:</label>
</div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:LinkButton ID="LnkAddPSMercancia" OnClick="LnkAddPSMercancia_Click" runat="server" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpAddPSMercancia"></asp:LinkButton> <asp:LinkButton ID="LnkAddPSMercancia" OnClick="LnkAddPSMercancia_Click" runat="server" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpAddPSMercancia"></asp:LinkButton>

319
Ventas/Ventas.aspx.vb
View File

@@ -228,6 +228,14 @@ Partial Class Ventas
ViewState("TmpDTEnvioDireccion") = value ViewState("TmpDTEnvioDireccion") = value
End Set End Set
End Property End Property
Private Property TmpDTDireccionCP As DataTable
Get
Return If(IsNothing(ViewState("TmpDTDireccionCP")), Nothing, CType(ViewState("TmpDTDireccionCP"), DataTable))
End Get
Set(value As DataTable)
ViewState("TmpDTDireccionCP") = value
End Set
End Property
Private Property IdPoliza As Integer Private Property IdPoliza As Integer
Get Get
@@ -1346,6 +1354,22 @@ Partial Class Ventas
ViewState("RegimenFiscalCliente") = value ViewState("RegimenFiscalCliente") = value
End Set End Set
End Property End Property
Private Property RegimenSociedad As String
Get
Return IfNull(ViewState("RegimenSociedad"), "").ToString()
End Get
Set(value As String)
ViewState("RegimenSociedad") = value
End Set
End Property
Private Property TipoPersona As Boolean
Get
Return CBool(IfNull(ViewState("TipoPersona"), False))
End Get
Set(value As Boolean)
ViewState("TipoPersona") = value
End Set
End Property
Private Property Adjunto As String Private Property Adjunto As String
Get Get
Return If(IsNothing(ViewState("Adjunto")), "", ViewState("Adjunto").ToString()) Return If(IsNothing(ViewState("Adjunto")), "", ViewState("Adjunto").ToString())
@@ -2296,7 +2320,7 @@ Partial Class Ventas
UpFacturar.Update() UpFacturar.Update()
'CargaTiposDocumentos() 'CargaTiposDocumentos()
TrEmitir.Visible = False TrEmitir.Visible = False
If UsuarioActual.CveRol = 1 Then If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 1 Then
DivCartaPorte.Visible = True DivCartaPorte.Visible = True
End If End If
ViewState("EstablecioFolio") = False ViewState("EstablecioFolio") = False
@@ -2460,6 +2484,7 @@ Partial Class Ventas
CargaClasificaciones() CargaClasificaciones()
CargaPS(-1, DdlPS) CargaPS(-1, DdlPS)
CargaPS(-1, DdlPSMercancia) CargaPS(-1, DdlPSMercancia)
CargaPS(-1, DdlPSFlete)
'CargaPSRemision(-1, DdlPSRemision) 'CargaPSRemision(-1, DdlPSRemision)
CargaPSPyME(-1, DdlPSPyME) CargaPSPyME(-1, DdlPSPyME)
@@ -4922,7 +4947,7 @@ Partial Class Ventas
If DbRowVenta("CveDireccionEnvio").ToString().ToEntero() > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString() IsNot Nothing Then If DbRowVenta("CveDireccionEnvio").ToString().ToEntero() > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString() IsNot Nothing Then
ChkDireccionEnvio.Checked = True ChkDireccionEnvio.Checked = True
DdlDireccionEnvio.SelectedValueExist(DbRowVenta("CveDireccionEnvio").ToString().ToEntero()) DdlDireccionEnvio.SelectedValueExist(DbRowVenta("CveDireccionEnvio").ToString().ToEntero())
DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty) 'DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
DdlDireccionEnvio.Enabled = False DdlDireccionEnvio.Enabled = False
ChkDireccionEnvio.Enabled = False ChkDireccionEnvio.Enabled = False
DdlDireccionEnvio.Visible = True DdlDireccionEnvio.Visible = True
@@ -6076,8 +6101,11 @@ Partial Class Ventas
ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim) ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim)
ViewState("CliPais") = ObjCliente.Pais ViewState("CliPais") = ObjCliente.Pais
ImprimeNombreSucursal = ObjCliente.ImprimeNombreSucursal ImprimeNombreSucursal = ObjCliente.ImprimeNombreSucursal
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
RegimenFiscalCliente = ObjCliente.DtResultados(0)("CodigoRegimenFiscal").ToString() RegimenFiscalCliente = ObjCliente.DtResultados(0)("CodigoRegimenFiscal").ToString()
RegimenSociedad = ObjCliente.DtResultados(0)("RegimenSociedad").ToString()
TipoPersona = CBool(ObjCliente.DtResultados(0)("TipoPersona"))
CargaUsoCFDI() CargaUsoCFDI()
End If End If
'ViewState("NumCtaPago") = ObjCliente.NumCtaPago 'ViewState("NumCtaPago") = ObjCliente.NumCtaPago
@@ -6103,7 +6131,7 @@ Partial Class Ventas
End If End If
'HABILITA LA OPCION DE DIRECCION DE ENVIO 'HABILITA LA OPCION DE DIRECCION DE ENVIO
If UsuarioActual.CveEmpresa.Contiene(1, 72, 119, 140) Then If UsuarioActual.CveEmpresa.Contiene(1, 13, 72, 119, 140) Then
trDireccionEnvio.Visible = True trDireccionEnvio.Visible = True
CargaDireccionesEnvio() CargaDireccionesEnvio()
End If End If
@@ -7225,7 +7253,7 @@ Partial Class Ventas
DdlClasificacion.DataBind() DdlClasificacion.DataBind()
DdlClasificacionPyME.DataBind() DdlClasificacionPyME.DataBind()
End Sub End Sub
Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost) Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True)
Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1") Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1")
@@ -7251,7 +7279,9 @@ Partial Class Ventas
Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString()) Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString())
Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas") Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
Objeto.ddlWS.Attributes.Add("data-Estatus", "1") Objeto.ddlWS.Attributes.Add("data-Estatus", "1")
Objeto.ddlWS.Attributes.Add("data-AplicaparaVenta", "1") If AplicaParaVenta Then
Objeto.ddlWS.Attributes.Add("data-AplicaparaVenta", "1")
End If
End If End If
End Sub End Sub
@@ -8215,6 +8245,22 @@ Partial Class Ventas
DtOCTmpDT = TmpDT.Copy DtOCTmpDT = TmpDT.Copy
TmpDTError = TmpDT.Copy TmpDTError = TmpDT.Copy
If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Egs", "Dev") Then
If RegimenFiscalCliente.Contiene("-1", "") Then
Alert("El cliente no tiene asignado un régimen fiscal.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim EsPersonaMoral As Boolean = (TipoPersona = True)
If EsPersonaMoral AndAlso String.IsNullOrEmpty(RegimenSociedad) Then
Alert("El cliente no tiene asignado un regimen de sociedad.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia) Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
@@ -8236,11 +8282,11 @@ Partial Class Ventas
End If End If
If ChkEmitirCartaPorte.Checked Then If ChkEmitirCartaPorte.Checked Then
If String.IsNullOrEmpty(TxtOrigenCP.Text.Trim()) Then If DdlDireccionOrigen.SelectedValue.ToEntero() <= 0 Then
Alert("La carta porte no tiene un origen definido.", TipoMensaje.MsgAdvertencia) Alert("La carta porte no tiene un origen definido.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
If String.IsNullOrEmpty(TxtDestinoCP.Text.Trim()) Then If DdlDireccionDestino.SelectedValue.ToEntero() <= 0 Then
Alert("La carta porte no tiene un destino definido.", TipoMensaje.MsgAdvertencia) Alert("La carta porte no tiene un destino definido.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
@@ -9285,7 +9331,7 @@ Partial Class Ventas
End If End If
If ChkEmitirCartaPorte.Checked AndAlso CveTimbreCartaPorte > 0 Then If ChkEmitirCartaPorte.Checked AndAlso CveTimbreCartaPorte > 0 Then
Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorte, ObjFactura, UsuarioActual) Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorte, UsuarioActual)
If Not RespCartaPorte.TieneError Then If Not RespCartaPorte.TieneError Then
ObjFactura.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte ObjFactura.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte
Else Else
@@ -11377,7 +11423,11 @@ Partial Class Ventas
Timbre.Receptor.DomicilioFiscalReceptor = Obj.ClienteSucursal.CP Timbre.Receptor.DomicilioFiscalReceptor = Obj.ClienteSucursal.CP
Else Else
Timbre.Receptor.RFC = Obj.Cliente.RFC Timbre.Receptor.RFC = Obj.Cliente.RFC
Timbre.Receptor.Nombre = Obj.Cliente.NombreComercial If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
Timbre.Receptor.Nombre = Obj.Cliente.Nombre
Else
Timbre.Receptor.Nombre = Obj.Cliente.NombreComercial
End If
Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP
End If End If
@@ -16179,12 +16229,12 @@ Partial Class Ventas
Dim TmpDTComplementosTimbrado As New DataTable Dim TmpDTComplementosTimbrado As New DataTable
PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado) PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorteVenta, ObjFactura, UsuarioActual) Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorteVenta, UsuarioActual)
If Not RespCartaPorte.TieneError Then If Not RespCartaPorte.TieneError Then
ObjFactura.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte ObjFactura.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte
Else Else
Exit Sub
Alert(RespCartaPorte.Mensaje, TipoMensaje.MsgAdvertencia) Alert(RespCartaPorte.Mensaje, TipoMensaje.MsgAdvertencia)
Exit Sub
End If End If
If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then
@@ -21496,6 +21546,11 @@ Partial Class Ventas
ObjConta.Dispose() ObjConta.Dispose()
ObjBancos.Dispose() ObjBancos.Dispose()
If ObjAC IsNot Nothing Then ObjAC.Dispose() If ObjAC IsNot Nothing Then ObjAC.Dispose()
'REGENERAR EL PDF
If Not OcurrioError Then
DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Regenerar:=True)
End If
End Sub End Sub
Private Sub BtnActualizarCuentaTerminal_Click(sender As Object, e As EventArgs) Handles BtnActualizarCuentaTerminal.Click Private Sub BtnActualizarCuentaTerminal_Click(sender As Object, e As EventArgs) Handles BtnActualizarCuentaTerminal.Click
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
@@ -22800,14 +22855,14 @@ Partial Class Ventas
If ChkDireccionEnvio.Checked Then If ChkDireccionEnvio.Checked Then
DdlDireccionEnvio.Visible = True DdlDireccionEnvio.Visible = True
LnkOtraDireccion.Visible = True LnkOtraDireccion.Visible = True
DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty) 'DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
Else Else
DdlDireccionEnvio.Visible = False DdlDireccionEnvio.Visible = False
LnkOtraDireccion.Visible = False LnkOtraDireccion.Visible = False
If SucursalDestinoCP IsNot Nothing Then If SucursalDestinoCP IsNot Nothing Then
SucursalDestinoCP = Nothing SucursalDestinoCP = Nothing
SucursalDestinoCP = New Modelos.SucursalModel SucursalDestinoCP = New Modelos.SucursalModel
TxtDestinoCP.Text = "" 'TxtDestinoCP.Text = ""
End If End If
End If End If
End Sub End Sub
@@ -22847,7 +22902,7 @@ Partial Class Ventas
TxtEnvioTel.Text = "" TxtEnvioTel.Text = ""
CargaDireccionesEnvio() CargaDireccionesEnvio()
DdlDireccionEnvio.SelectedValueExist(CveDireccionEnvio) DdlDireccionEnvio.SelectedValueExist(CveDireccionEnvio)
DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty) 'DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
End If End If
ObjClientes.Dispose() ObjClientes.Dispose()
@@ -33014,8 +33069,8 @@ Partial Class Ventas
' Return File ' Return File
'End Function 'End Function
Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer, Optional GetBytes As Boolean = True) As Byte() Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer, Optional GetBytes As Boolean = True, Optional Regenerar As Boolean = False) As Byte()
Dim Url = New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?P={3}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))) Dim Url = New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?P={3}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&REGENERAR={1}", CveVenta, If(Regenerar, "1", "0")))))
Dim File As Byte() = Nothing Dim File As Byte() = Nothing
Try Try
Using httpClient = New HttpClient() Using httpClient = New HttpClient()
@@ -34172,7 +34227,7 @@ Partial Class Ventas
TxtFechaLlegadaCP.Enabled = False TxtFechaLlegadaCP.Enabled = False
Using ObjGral As New ClsGenerales Using ObjGral As New ClsGenerales
If ObjGral.GetGralTimbre(-1, "Man", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0) Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
Me.CveTimbreCartaPorteVenta = RowCP("CveTimbre").ToString().ToEntero() Me.CveTimbreCartaPorteVenta = RowCP("CveTimbre").ToString().ToEntero()
@@ -34308,7 +34363,7 @@ Partial Class Ventas
End If End If
Next Next
CveTimbre = ObjGral.AddGralTimbre("Man", DdlSubProyectoDatos.SelectedValue.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=True, CveVenta:=ObjFactura.CveVenta) CveTimbre = ObjGral.AddGralTimbre("Ing", DdlSubProyectoDatos.SelectedValue.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=True, CveVenta:=ObjFactura.CveVenta)
If Not CveTimbre > 0 Then If Not CveTimbre > 0 Then
ErrorProceso = True ErrorProceso = True
@@ -34440,12 +34495,80 @@ Partial Class Ventas
GuardaLog(ex.ToString()) GuardaLog(ex.ToString())
End Try End Try
TxtOrigenCP.Text = SBDomicilioSucursal.ToString 'TxtOrigenCP.Text = SBDomicilioSucursal.ToString
UpEmitirTransitorio.Update() UpEmitirTransitorio.Update()
End Sub End Sub
Protected Sub DdlDireccionEnvio_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlDireccionEnvio_SelectedIndexChanged(sender As Object, e As EventArgs)
'If SucursalDestinoCP Is Nothing Then
' SucursalDestinoCP = New Modelos.SucursalModel
'Else
' SucursalDestinoCP = Nothing
' SucursalDestinoCP = New Modelos.SucursalModel
'End If
'If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())).Rows.Count > 0 Then
' Dim Row As DataRow = TmpDTEnvioDireccion.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero()))
' If Row IsNot Nothing Then
' SucursalDestinoCP.Direccion = Row("EnvioDireccion").ToString()
' SucursalDestinoCP.Colonia = Row("EnvioColonia").ToString()
' SucursalDestinoCP.Municipio = Row("EnvioCiudad").ToString()
' SucursalDestinoCP.CveEstado = Row("CveEstado").ToString().ToEntero()
' SucursalDestinoCP.Estado = Row("EnvioEstado").ToString()
' SucursalDestinoCP.CvePais = Row("CvePais").ToString().ToEntero()
' SucursalDestinoCP.Pais = Row("Pais").ToString()
' SucursalDestinoCP.CP = Row("EnvioCP").ToString()
' TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais)
' Else
' TxtDestinoCP.Text = ""
' End If
'Else
' TxtDestinoCP.Text = ""
'End If
UpEmitirTransitorio.Update()
End Sub
Protected Sub DdlDireccionOrigen_SelectedIndexChanged(sender As Object, e As EventArgs)
If SucursalOrigenCP Is Nothing Then
SucursalOrigenCP = New Modelos.SucursalModel
Else
SucursalOrigenCP = Nothing
SucursalOrigenCP = New Modelos.SucursalModel
End If
If TmpDTDireccionCP IsNot Nothing AndAlso TmpDTDireccionCP.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionOrigen.SelectedValue.ToEntero())).Rows.Count > 0 Then
Dim Row As DataRow = TmpDTDireccionCP.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionOrigen.SelectedValue.ToEntero()))
If Row IsNot Nothing Then
SucursalOrigenCP.Direccion = Row("EnvioDireccion").ToString()
SucursalOrigenCP.Colonia = Row("EnvioColonia").ToString()
SucursalOrigenCP.Municipio = Row("EnvioCiudad").ToString()
SucursalOrigenCP.CveEstado = Row("CveEstado").ToString().ToEntero()
SucursalOrigenCP.Estado = Row("EnvioEstado").ToString()
SucursalOrigenCP.CvePais = Row("CvePais").ToString().ToEntero()
SucursalOrigenCP.Pais = Row("Pais").ToString()
SucursalOrigenCP.CP = Row("EnvioCP").ToString()
'TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais)
Else
'TxtDestinoCP.Text = ""
End If
Else
'TxtDestinoCP.Text = ""
End If
UpEmitirTransitorio.Update()
End Sub
Protected Sub DdlDireccionDestino_SelectedIndexChanged(sender As Object, e As EventArgs)
If SucursalDestinoCP Is Nothing Then If SucursalDestinoCP Is Nothing Then
SucursalDestinoCP = New Modelos.SucursalModel SucursalDestinoCP = New Modelos.SucursalModel
Else Else
@@ -34454,9 +34577,9 @@ Partial Class Ventas
End If End If
If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())).Rows.Count > 0 Then If TmpDTDireccionCP IsNot Nothing AndAlso TmpDTDireccionCP.FiltraParametros(String.Format("CveDireccionEnvio = {0}", DdlDireccionDestino.SelectedValue.ToEntero())).Rows.Count > 0 Then
Dim Row As DataRow = TmpDTEnvioDireccion.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionEnvio.SelectedValue.ToEntero())) Dim Row As DataRow = TmpDTDireccionCP.FiltroPrimero(String.Format("CveDireccionEnvio = {0}", DdlDireccionDestino.SelectedValue.ToEntero()))
If Row IsNot Nothing Then If Row IsNot Nothing Then
SucursalDestinoCP.Direccion = Row("EnvioDireccion").ToString() SucursalDestinoCP.Direccion = Row("EnvioDireccion").ToString()
@@ -34468,20 +34591,20 @@ Partial Class Ventas
SucursalDestinoCP.Pais = Row("Pais").ToString() SucursalDestinoCP.Pais = Row("Pais").ToString()
SucursalDestinoCP.CP = Row("EnvioCP").ToString() SucursalDestinoCP.CP = Row("EnvioCP").ToString()
TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais) 'TxtDestinoCP.Text = String.Format("{0} col. {1},CP:{2}, {3},{4},{5}", SucursalDestinoCP.Direccion, SucursalDestinoCP.Colonia, SucursalDestinoCP.CP, SucursalDestinoCP.Municipio, SucursalDestinoCP.Estado, SucursalDestinoCP.Pais)
Else Else
TxtDestinoCP.Text = "" 'TxtDestinoCP.Text = ""
End If End If
Else Else
TxtDestinoCP.Text = "" 'TxtDestinoCP.Text = ""
End If End If
UpEmitirTransitorio.Update() UpEmitirTransitorio.Update()
End Sub End Sub
Protected Sub LnkAgregarMercancia_Click(sender As Object, e As EventArgs) Protected Sub LnkAgregarMercancia_Click(sender As Object, e As EventArgs)
TxtCantidadMercancia.Text = "" TxtCantidadMercancia.Text = ""
DdlPSMercancia.SelectedValue = "" 'DdlPSMercancia.SelectedValue = ""
DdlPSMercancia.SelectedText = "Seleccione" 'DdlPSMercancia.SelectedText = "Seleccione"
UpAgregarMercancia.Update() UpAgregarMercancia.Update()
RegistraScript("$('#DivAddMercancia').modal('show');", "M1") RegistraScript("$('#DivAddMercancia').modal('show');", "M1")
@@ -34515,9 +34638,45 @@ Partial Class Ventas
GvMercanciasCP.DataSource = DtMercancias GvMercanciasCP.DataSource = DtMercancias
GvMercanciasCP.DataBind() GvMercanciasCP.DataBind()
If ChkAgregarFlete.Checked Then
Dim CvePSServicio As Integer = DdlPSFlete.SelectedValue.ToEntero()
If CvePSServicio > 0 Then
Dim Cantidad As Decimal = TxtCantidadMercancia.Text.ToDecimal
Dim PU As Decimal = TxtPrecioMercancia.Text.Trim.ToDecimal
Dim Descuento As Decimal = 0
Dim CveUM As Integer = -1
Dim UnidadMedida As String = ""
Dim CveClasificacion As Integer = -1
Dim Clasificacion As String = ""
Dim drPSFlete As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSServicio).FiltroPrimero("")
If DrPS IsNot Nothing Then
CveUM = drPSFlete("CveUnidadMedida").ToString().ToEntero()
CveClasificacion = drPSFlete("CveClasificacion").ToString().ToEntero()
End If
Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
Dim CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProyecto", "").ToEntero()
Dim Proyecto As String = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Proyecto", "").ToString()
AgregarProductoServicio(Cantidad, CveUM, UnidadMedida, CveClasificacion, Clasificacion,
CvePSServicio, "", TxtObservacionesMercancia.Text.Trim, PU, Descuento,
CveProyecto, Proyecto, CveSubProyecto, DdlSubProyectoDatos.SelectedItem.Text,
Serie:="", TiempoEntrega:="", CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1,
ImporteProntoPago:=0)
CalculaUsados()
CalculaTotalesVenta()
Else
Alert("No se agrego el servicio del flete", TipoMensaje.MsgAdvertencia)
End If
End If
TxtCantidadMercancia.Text = "" TxtCantidadMercancia.Text = ""
DdlPSMercancia.SelectedValue = "" TxtObservacionesMercancia.Text = ""
DdlPSMercancia.SelectedText = "Seleccione"
UpAgregarMercancia.Update() UpAgregarMercancia.Update()
UpEmitirTransitorio.Update() UpEmitirTransitorio.Update()
@@ -34580,5 +34739,109 @@ Partial Class Ventas
End Sub End Sub
Protected Sub ChkEmitirCartaPorte_CheckedChanged(sender As Object, e As EventArgs)
If ChkEmitirCartaPorte.Checked AndAlso CveCliente > 0 Then
Dim ObjClientes As New ClsClientes
If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
TmpDTDireccionCP = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
End If
ObjClientes.Dispose()
Else
TmpDTDireccionCP = Nothing
End If
DdlDireccionOrigen.DataSource = TmpDTDireccionCP
DdlDireccionOrigen.DataBind()
DdlDireccionDestino.DataSource = TmpDTDireccionCP
DdlDireccionDestino.DataBind()
End Sub
Protected Sub ChkAgregarFlete_CheckedChanged(sender As Object, e As EventArgs)
DivServicioFlete.Visible = ChkAgregarFlete.Checked
UpAgregarMercancia.Update()
End Sub
Protected Sub DdlPSMercancia_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlPSMercancia.selectedindexchange
Dim CvePSParametro As Integer = DdlPSMercancia.SelectedValue.ToEntero()
If CvePSParametro > 0 Then
Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSMercancia.SelectedValue.ToEntero()).FiltroPrimero("")
If drPS IsNot Nothing Then
Dim CveClasificacion As Integer = drPS("CveClasificacion").ToString().ToEntero()
'SUGIERE PRECIO
Dim PrecioSugerido As Decimal = 0
Dim tPrecioSugerido As Decimal = 0
tPrecioSugerido = drPS("Precio").ToString().ToDecimal
If UsuarioActual.CveEmpresa.Contiene(1) Then
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPorcentajeProductos(CveCliente) Then
Dim PrecioAplicado = ObjPS.DtResultados.FiltraParametros($"CvePS = {CvePSParametro}").FiltroPrimeroValor("PrecioA").ToDecimal
If PrecioAplicado > 0 Then
PrecioSugerido = PrecioAplicado
End If
End If
ObjPS.Dispose()
End If
If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es 10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente
Dim TipoPrecioLista As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero
' si es 10. primero el cliente
Dim CvePrecioListaPS As Integer
Dim PorcentajePrecio As Decimal = 0
If TipoPrecioLista = 10 Then
CvePrecioListaPS = Me.CvePrecioListaCliente
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
End If
Else
CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
If CvePrecioListaPS <= 0 Then
CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
End If
End If
If CvePrecioListaPS > 0 Then
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal
End If
ObjPS.Dispose()
End If
If PrecioSugerido = 0 Then
Dim ObjInventarios As New ClsInventarios
Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidadMercancia.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal
If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidadMercancia.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
ObjInventarios.Dispose()
If CostoPS > 0 And PorcentajePrecio > 0 Then
PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS
End If
End If
CvePrecioLista = CvePrecioListaPS
End If
If PrecioSugerido > 0 Then
Dim PrecioBaseCosto As Decimal = 0
PrecioBaseCosto = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion).FiltroPrimeroValor("PrecioBaseCosto", "").ToDecimal
If PrecioBaseCosto > 0 Then
PrecioSugerido = PrecioSugerido * ((PrecioBaseCosto / 100) + 1)
End If
End If
If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido
TxtPrecioMercancia.Text = PrecioSugerido.ToString("#,###.####") ' que muestre hasta los 4 digitos si lo requiere
End If
End If
End Sub
End Class End Class