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"
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
Get
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="Formato">Optional, Formato de Generacion PDF o Excel</param>
''' <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
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
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 rds As New ReportDataSource
rds.Name = RDSName
rds.Value = DtDatos
lrds.Add(rds)
Return StreamPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR)
Return StreamPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR, SubReportData)
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()
' 'limpio ReportViwer
@@ -5981,10 +5991,13 @@ Public Class ClsPaginas
' Return Bytes
'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
Dim sw As New System.Diagnostics.Stopwatch()
sw.Start()
Me.SubReportData = Nothing
Dim Bytes As Byte() = Nothing
Dim CveUsuario As Integer = 0
@@ -6030,12 +6043,21 @@ Public Class ClsPaginas
reportobjects.Add(ojext)
End If
Next
For Each rpds As ReportParameter In Parametros
Dim param As New WSRDLC.ReportParameter
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)
Next
Bytes = wsreport.StreamNEWPDFBytes(RutaReporte, ds, reportobjects.ToArray(), params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
wsreport = Nothing
params = Nothing
@@ -6050,9 +6072,16 @@ Public Class ClsPaginas
MR.LocalReport.ReportPath = RutaReporte
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.SetParameters(Parametros)
MR.LocalReport.Refresh()
Dim Warnings As Warning() = Nothing
Dim StreamIds As String() = Nothing
Dim MimeType As String = Nothing
@@ -6121,6 +6150,14 @@ Public Class ClsPaginas
Return Bytes
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()
'limpio ReportViwer
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))
End Try
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 ObjVentas As New ClsVentas
@@ -7754,6 +7791,13 @@ Public Class ClsPaginas
'Next
'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)
If Archivo.Exists Then
'If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
@@ -7762,7 +7806,7 @@ Public Class ClsPaginas
'Else
' retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing)
'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))
If Guardar Then
@@ -7792,7 +7836,7 @@ Public Class ClsPaginas
'Else
' retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing)
'End If
retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing)
retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing, SubReportData:=SubReportData)
End If
Catch ex As Exception
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
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 Sub New()

18
App_Code/Timbres.vb
View File

@@ -375,7 +375,7 @@ Public Class Timbres
Public Property CartaPorte As CFDICartaPorte
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
Try
@@ -399,7 +399,7 @@ Public Class Timbres
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
Dim DtMovimientos As DataTable = Nothing
@@ -466,16 +466,6 @@ Public Class Timbres
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
DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString,
@@ -569,7 +559,7 @@ Public Class Timbres
.ClaveUnidad = drr("SATClaveUM").ToString,
.Unidad = drr("UM").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í", ""),
.ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
.Embalaje = drr("ClaveEmbalaje").ToString,
@@ -580,7 +570,7 @@ Public Class Timbres
.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
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>
</Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName>
<Left>1.83923in</Left>
<Height>1.10377in</Height>
<Width>6.21276in</Width>
<Left>1.94795in</Left>
<Height>1.12067in</Height>
<Width>5.98809in</Width>
<Style>
<Border>
<Style>None</Style>
@@ -121,7 +121,7 @@
<Source>Embedded</Source>
<Value>Logo1</Value>
<Sizing>FitProportional</Sizing>
<Left>0.65302cm</Left>
<Left>0.92917cm</Left>
<Height>2.88998cm</Height>
<Width>3.84225cm</Width>
<ZIndex>1</ZIndex>
@@ -151,7 +151,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>1.88777in</Top>
<Left>0.50295cm</Left>
<Left>0.1441cm</Left>
<Height>0.17222in</Height>
<Width>0.81128in</Width>
<ZIndex>2</ZIndex>
@@ -192,7 +192,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>1.88777in</Top>
<Left>1.00929in</Left>
<Left>0.86801in</Left>
<Height>0.17222in</Height>
<Width>4.18029in</Width>
<ZIndex>3</ZIndex>
@@ -974,7 +974,7 @@
</TablixRowHierarchy>
<DataSetName>DsOC</DataSetName>
<Top>6.28717cm</Top>
<Left>0.44641cm</Left>
<Left>0.08756cm</Left>
<Height>1.2353cm</Height>
<Width>20.06999cm</Width>
<ZIndex>4</ZIndex>
@@ -1003,7 +1003,7 @@
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>8.59672cm</Top>
<Left>14.86578cm</Left>
<Left>14.50693cm</Left>
<Height>0.54708cm</Height>
<Width>5.65062cm</Width>
<ZIndex>5</ZIndex>
@@ -1204,7 +1204,7 @@
</TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName>
<Top>7.71422cm</Top>
<Left>14.83363cm</Left>
<Left>14.47478cm</Left>
<Height>0.65551cm</Height>
<Width>5.68277cm</Width>
<ZIndex>6</ZIndex>
@@ -1235,7 +1235,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>2.79612cm</Top>
<Left>14.51137cm</Left>
<Left>14.15252cm</Left>
<Height>0.41303cm</Height>
<Width>2.08346cm</Width>
<ZIndex>7</ZIndex>
@@ -1270,7 +1270,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.79612cm</Top>
<Left>17.39754cm</Left>
<Left>17.03869cm</Left>
<Height>0.41303cm</Height>
<Width>3.066cm</Width>
<ZIndex>8</ZIndex>
@@ -1305,7 +1305,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.22326cm</Top>
<Left>14.51137cm</Left>
<Left>14.15252cm</Left>
<Height>0.42714cm</Height>
<Width>2.08346cm</Width>
<ZIndex>9</ZIndex>
@@ -1340,7 +1340,7 @@
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Top>3.22326cm</Top>
<Left>17.39754cm</Left>
<Left>17.03869cm</Left>
<Height>0.42714cm</Height>
<Width>3.066cm</Width>
<ZIndex>10</ZIndex>
@@ -1375,7 +1375,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.75976cm</Top>
<Left>14.50093cm</Left>
<Left>14.14208cm</Left>
<Height>0.46681cm</Height>
<Width>2.86133cm</Width>
<ZIndex>11</ZIndex>
@@ -1413,7 +1413,7 @@
</Paragraphs>
<rd:DefaultName>Textbox55</rd:DefaultName>
<Top>3.75976cm</Top>
<Left>17.39754cm</Left>
<Left>17.03869cm</Left>
<Height>0.46681cm</Height>
<Width>3.05452cm</Width>
<ZIndex>12</ZIndex>
@@ -1448,7 +1448,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.0229cm</Top>
<Left>0.50295cm</Left>
<Left>0.1441cm</Left>
<Height>0.42944cm</Height>
<Width>3.80164cm</Width>
<ZIndex>13</ZIndex>
@@ -1483,7 +1483,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.0229cm</Top>
<Left>4.48098cm</Left>
<Left>4.12213cm</Left>
<Height>0.42944cm</Height>
<Width>6.76133cm</Width>
<ZIndex>14</ZIndex>
@@ -1518,7 +1518,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.46293cm</Top>
<Left>0.50295cm</Left>
<Left>0.1441cm</Left>
<Height>0.40122cm</Height>
<Width>3.80164cm</Width>
<ZIndex>15</ZIndex>
@@ -1553,7 +1553,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.46998cm</Top>
<Left>4.48098cm</Left>
<Left>4.12213cm</Left>
<Height>0.40122cm</Height>
<Width>6.76133cm</Width>
<ZIndex>16</ZIndex>
@@ -1588,7 +1588,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.94529cm</Top>
<Left>0.53823cm</Left>
<Left>0.17938cm</Left>
<Height>0.39417cm</Height>
<Width>3.80164cm</Width>
<ZIndex>17</ZIndex>
@@ -1660,7 +1660,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.95234cm</Top>
<Left>4.48098cm</Left>
<Left>4.12213cm</Left>
<Height>0.43297cm</Height>
<Width>6.76133cm</Width>
<ZIndex>18</ZIndex>
@@ -1695,7 +1695,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>4.41707cm</Top>
<Left>0.50295cm</Left>
<Left>0.1441cm</Left>
<Height>0.44708cm</Height>
<Width>3.80164cm</Width>
<ZIndex>19</ZIndex>
@@ -1729,7 +1729,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.05999in</Top>
<Left>0.50295cm</Left>
<Left>0.1441cm</Left>
<Height>0.19861in</Height>
<Width>0.81128in</Width>
<ZIndex>20</ZIndex>
@@ -1771,7 +1771,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.03638in</Top>
<Left>1.00929in</Left>
<Left>0.86801in</Left>
<Height>0.18472in</Height>
<Width>1.74279in</Width>
<ZIndex>21</ZIndex>
@@ -1814,7 +1814,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.03499in</Top>
<Left>7.00999cm</Left>
<Left>6.65114cm</Left>
<Height>0.19861in</Height>
<Width>0.81128in</Width>
<ZIndex>22</ZIndex>
@@ -1856,7 +1856,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.03638in</Top>
<Left>3.58501in</Left>
<Left>3.44373in</Left>
<Height>0.18472in</Height>
<Width>1.60457in</Width>
<ZIndex>23</ZIndex>
@@ -1900,7 +1900,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.2586in</Top>
<Left>0.50295cm</Left>
<Left>0.1441cm</Left>
<Height>0.15972in</Height>
<Width>0.81128in</Width>
<ZIndex>24</ZIndex>
@@ -1941,7 +1941,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.2586in</Top>
<Left>1.00929in</Left>
<Left>0.86801in</Left>
<Height>0.15972in</Height>
<Width>4.18029in</Width>
<ZIndex>25</ZIndex>
@@ -1985,7 +1985,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>2.97039in</Top>
<Left>0.42284cm</Left>
<Left>0.06399cm</Left>
<Height>0.17324in</Height>
<Width>1.7828in</Width>
<ZIndex>26</ZIndex>
@@ -2029,7 +2029,7 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>7.54478cm</Top>
<Left>5.057cm</Left>
<Left>4.69815cm</Left>
<Height>0.44003cm</Height>
<Width>9.60024cm</Width>
<ZIndex>27</ZIndex>
@@ -2061,7 +2061,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>3.13113in</Top>
<Left>1.24191in</Left>
<Left>1.10063in</Left>
<Height>0.44842cm</Height>
<Width>4.52866in</Width>
<ZIndex>28</ZIndex>
@@ -2106,7 +2106,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>7.95306cm</Top>
<Left>0.44641cm</Left>
<Left>0.08756cm</Left>
<Height>0.44842cm</Height>
<Width>2.5581cm</Width>
<ZIndex>29</ZIndex>
@@ -2125,7 +2125,7 @@
<Value>=Parameters!QR.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>3.40943in</Top>
<Left>0.22897in</Left>
<Left>0.08769in</Left>
<Height>1.14694in</Height>
<Width>1.34784in</Width>
<ZIndex>30</ZIndex>
@@ -2156,7 +2156,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>9.29495cm</Top>
<Left>9.81667cm</Left>
<Left>9.45782cm</Left>
<Height>0.35889cm</Height>
<Width>4.93935cm</Width>
<ZIndex>31</ZIndex>
@@ -2191,7 +2191,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>9.67148cm</Top>
<Left>9.81667cm</Left>
<Left>9.45782cm</Left>
<Height>0.40122cm</Height>
<Width>4.93935cm</Width>
<ZIndex>32</ZIndex>
@@ -2226,7 +2226,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>10.05859cm</Top>
<Left>9.81667cm</Left>
<Left>9.45782cm</Left>
<Height>0.3536cm</Height>
<Width>4.93935cm</Width>
<ZIndex>33</ZIndex>
@@ -2261,7 +2261,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>10.41395cm</Top>
<Left>9.81667cm</Left>
<Left>9.45782cm</Left>
<Height>0.31479cm</Height>
<Width>4.93935cm</Width>
<ZIndex>34</ZIndex>
@@ -2296,7 +2296,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>9.29495cm</Top>
<Left>14.82657cm</Left>
<Left>14.46772cm</Left>
<Height>0.35889cm</Height>
<Width>5.62289cm</Width>
<ZIndex>35</ZIndex>
@@ -2331,7 +2331,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>9.67148cm</Top>
<Left>14.82657cm</Left>
<Left>14.46772cm</Left>
<Height>0.40122cm</Height>
<Width>5.62289cm</Width>
<ZIndex>36</ZIndex>
@@ -2366,7 +2366,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>10.05859cm</Top>
<Left>14.82657cm</Left>
<Left>14.46772cm</Left>
<Height>0.3536cm</Height>
<Width>5.62289cm</Width>
<ZIndex>37</ZIndex>
@@ -2401,7 +2401,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>10.41395cm</Top>
<Left>14.82657cm</Left>
<Left>14.46772cm</Left>
<Height>0.31479cm</Height>
<Width>5.62289cm</Width>
<ZIndex>38</ZIndex>
@@ -2450,7 +2450,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>4.27878in</Top>
<Left>9.81667cm</Left>
<Left>9.45782cm</Left>
<Height>0.34009in</Height>
<Width>4.18614in</Width>
<ZIndex>39</ZIndex>
@@ -2493,7 +2493,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>4.78985in</Top>
<Left>0.20907in</Left>
<Left>0.06779in</Left>
<Height>0.15694in</Height>
<Width>7.86825in</Width>
<ZIndex>40</ZIndex>
@@ -2538,7 +2538,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>11.78131cm</Top>
<Left>0.4667cm</Left>
<Left>0.10785cm</Left>
<Height>0.44842cm</Height>
<Width>8.9127cm</Width>
<ZIndex>41</ZIndex>
@@ -2571,7 +2571,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>5.16778in</Top>
<Left>0.19115in</Left>
<Left>0.04987in</Left>
<Height>0.1296in</Height>
<Width>7.86825in</Width>
<ZIndex>42</ZIndex>
@@ -2616,7 +2616,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>12.74125cm</Top>
<Left>0.48553cm</Left>
<Left>0.12668cm</Left>
<Height>0.33552cm</Height>
<Width>8.89387cm</Width>
<ZIndex>43</ZIndex>
@@ -2649,7 +2649,7 @@
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>5.57948in</Top>
<Left>0.19801in</Left>
<Left>0.05673in</Left>
<Height>0.11805in</Height>
<Width>7.86825in</Width>
<ZIndex>44</ZIndex>
@@ -2694,7 +2694,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>13.72346cm</Top>
<Left>0.48554cm</Left>
<Left>0.12669cm</Left>
<Height>0.34259cm</Height>
<Width>8.89387cm</Width>
<ZIndex>45</ZIndex>
@@ -2733,7 +2733,7 @@
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>0.14926cm</Top>
<Left>0.9525cm</Left>
<Left>1.30058cm</Left>
<Height>0.46066cm</Height>
<Width>18.98926cm</Width>
<Style>
@@ -2769,7 +2769,7 @@
</Paragraphs>
<rd:DefaultName>Textbox29</rd:DefaultName>
<Top>0.735cm</Top>
<Left>4.71624cm</Left>
<Left>5.06432cm</Left>
<Height>0.41981cm</Height>
<Width>5.31841cm</Width>
<ZIndex>1</ZIndex>
@@ -2802,7 +2802,7 @@
</Paragraphs>
<rd:DefaultName>Textbox29</rd:DefaultName>
<Top>0.735cm</Top>
<Left>10.03465cm</Left>
<Left>10.38273cm</Left>
<Height>0.41981cm</Height>
<Width>7.14985cm</Width>
<ZIndex>2</ZIndex>
@@ -3147,7 +3147,7 @@
</TablixRowHierarchy>
<DataSetName>DataSet4</DataSetName>
<Top>1.39643cm</Top>
<Left>3.2145cm</Left>
<Left>3.56258cm</Left>
<Height>0.85604cm</Height>
<Width>15.30142cm</Width>
<ZIndex>3</ZIndex>
@@ -3160,9 +3160,8 @@
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>14.54249cm</Top>
<Left>0.07193cm</Left>
<Height>2.25247cm</Height>
<Width>20.37753cm</Width>
<Height>2.28935cm</Height>
<Width>20.28984cm</Width>
<ZIndex>46</ZIndex>
<Visibility>
<Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
@@ -3173,11 +3172,203 @@
</Border>
</Style>
</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>
<Height>16.79496cm</Height>
<Height>19.56586cm</Height>
<Style />
</Body>
<Width>20.5164cm</Width>
<Width>20.28984cm</Width>
<Page>
<PageFooter>
<Height>0.64232cm</Height>
@@ -3205,9 +3396,9 @@
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.04232cm</Top>
<Left>16.34905cm</Left>
<Left>16.6252cm</Left>
<Height>0.6cm</Height>
<Width>3.95896cm</Width>
<Width>3.66464cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -3249,7 +3440,7 @@
</Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName>
<Top>0.10582cm</Top>
<Left>0.50295cm</Left>
<Left>0.7791cm</Left>
<Height>0.46771cm</Height>
<Width>6.86562cm</Width>
<ZIndex>1</ZIndex>
@@ -4164,6 +4355,265 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</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>
<EmbeddedImages>
<EmbeddedImage Name="Logo">

75
Ventas/Ventas.aspx
View File

@@ -2467,21 +2467,27 @@
<div class="row rowpadding">
<label class="col-md-2">Emitir:</label>
<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>
<br />
<div class="row rowpadding">
<label class="col-md-2">Origen:</label>
<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>
<br />
<div class="row rowpadding">
<label class="col-md-2">Destino:</label>
<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>
<br />
@@ -5956,11 +5962,54 @@
<h4 class="modal-title">Registrar Mercancía</h4>
</div>
<div class="modal-body">
<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 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;">Agregar Flete:</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 class="row">
<div class="col-md-12">
@@ -5970,6 +6019,16 @@
</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 class="modal-footer">
<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
End Set
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
Get
@@ -1346,6 +1354,22 @@ Partial Class Ventas
ViewState("RegimenFiscalCliente") = value
End Set
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
Get
Return If(IsNothing(ViewState("Adjunto")), "", ViewState("Adjunto").ToString())
@@ -2296,7 +2320,7 @@ Partial Class Ventas
UpFacturar.Update()
'CargaTiposDocumentos()
TrEmitir.Visible = False
If UsuarioActual.CveRol = 1 Then
If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 1 Then
DivCartaPorte.Visible = True
End If
ViewState("EstablecioFolio") = False
@@ -2460,6 +2484,7 @@ Partial Class Ventas
CargaClasificaciones()
CargaPS(-1, DdlPS)
CargaPS(-1, DdlPSMercancia)
CargaPS(-1, DdlPSFlete)
'CargaPSRemision(-1, DdlPSRemision)
CargaPSPyME(-1, DdlPSPyME)
@@ -4922,7 +4947,7 @@ Partial Class Ventas
If DbRowVenta("CveDireccionEnvio").ToString().ToEntero() > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString() IsNot Nothing Then
ChkDireccionEnvio.Checked = True
DdlDireccionEnvio.SelectedValueExist(DbRowVenta("CveDireccionEnvio").ToString().ToEntero())
DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
'DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
DdlDireccionEnvio.Enabled = False
ChkDireccionEnvio.Enabled = False
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("CliPais") = ObjCliente.Pais
ImprimeNombreSucursal = ObjCliente.ImprimeNombreSucursal
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
RegimenFiscalCliente = ObjCliente.DtResultados(0)("CodigoRegimenFiscal").ToString()
RegimenSociedad = ObjCliente.DtResultados(0)("RegimenSociedad").ToString()
TipoPersona = CBool(ObjCliente.DtResultados(0)("TipoPersona"))
CargaUsoCFDI()
End If
'ViewState("NumCtaPago") = ObjCliente.NumCtaPago
@@ -6103,7 +6131,7 @@ Partial Class Ventas
End If
'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
CargaDireccionesEnvio()
End If
@@ -7225,7 +7253,7 @@ Partial Class Ventas
DdlClasificacion.DataBind()
DdlClasificacionPyME.DataBind()
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")
@@ -7251,7 +7279,9 @@ Partial Class Ventas
Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString())
Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
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 Sub
@@ -8215,6 +8245,22 @@ Partial Class Ventas
DtOCTmpDT = 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
Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -8236,11 +8282,11 @@ Partial Class Ventas
End If
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)
Exit Sub
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)
Exit Sub
End If
@@ -9285,7 +9331,7 @@ Partial Class Ventas
End If
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
ObjFactura.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte
Else
@@ -11377,7 +11423,11 @@ Partial Class Ventas
Timbre.Receptor.DomicilioFiscalReceptor = Obj.ClienteSucursal.CP
Else
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
End If
@@ -16179,12 +16229,12 @@ Partial Class Ventas
Dim TmpDTComplementosTimbrado As New DataTable
PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorteVenta, ObjFactura, UsuarioActual)
Dim RespCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorteVenta, UsuarioActual)
If Not RespCartaPorte.TieneError Then
ObjFactura.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte
Else
Exit Sub
Alert(RespCartaPorte.Mensaje, TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then
@@ -21496,6 +21546,11 @@ Partial Class Ventas
ObjConta.Dispose()
ObjBancos.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
Private Sub BtnActualizarCuentaTerminal_Click(sender As Object, e As EventArgs) Handles BtnActualizarCuentaTerminal.Click
Dim ObjVentas As New ClsVentas
@@ -22800,14 +22855,14 @@ Partial Class Ventas
If ChkDireccionEnvio.Checked Then
DdlDireccionEnvio.Visible = True
LnkOtraDireccion.Visible = True
DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
'DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
Else
DdlDireccionEnvio.Visible = False
LnkOtraDireccion.Visible = False
If SucursalDestinoCP IsNot Nothing Then
SucursalDestinoCP = Nothing
SucursalDestinoCP = New Modelos.SucursalModel
TxtDestinoCP.Text = ""
'TxtDestinoCP.Text = ""
End If
End If
End Sub
@@ -22847,7 +22902,7 @@ Partial Class Ventas
TxtEnvioTel.Text = ""
CargaDireccionesEnvio()
DdlDireccionEnvio.SelectedValueExist(CveDireccionEnvio)
DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
'DdlDireccionEnvio_SelectedIndexChanged(DdlDireccionEnvio, EventArgs.Empty)
End If
ObjClientes.Dispose()
@@ -33014,8 +33069,8 @@ Partial Class Ventas
' Return File
'End Function
Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer, Optional GetBytes As Boolean = True) 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))))
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&REGENERAR={1}", CveVenta, If(Regenerar, "1", "0")))))
Dim File As Byte() = Nothing
Try
Using httpClient = New HttpClient()
@@ -34172,7 +34227,7 @@ Partial Class Ventas
TxtFechaLlegadaCP.Enabled = False
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)
Me.CveTimbreCartaPorteVenta = RowCP("CveTimbre").ToString().ToEntero()
@@ -34308,7 +34363,7 @@ Partial Class Ventas
End If
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
ErrorProceso = True
@@ -34440,12 +34495,80 @@ Partial Class Ventas
GuardaLog(ex.ToString())
End Try
TxtOrigenCP.Text = SBDomicilioSucursal.ToString
'TxtOrigenCP.Text = SBDomicilioSucursal.ToString
UpEmitirTransitorio.Update()
End Sub
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
SucursalDestinoCP = New Modelos.SucursalModel
Else
@@ -34454,9 +34577,9 @@ Partial Class Ventas
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
SucursalDestinoCP.Direccion = Row("EnvioDireccion").ToString()
@@ -34468,20 +34591,20 @@ Partial Class Ventas
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)
'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 = ""
'TxtDestinoCP.Text = ""
End If
Else
TxtDestinoCP.Text = ""
'TxtDestinoCP.Text = ""
End If
UpEmitirTransitorio.Update()
End Sub
Protected Sub LnkAgregarMercancia_Click(sender As Object, e As EventArgs)
TxtCantidadMercancia.Text = ""
DdlPSMercancia.SelectedValue = ""
DdlPSMercancia.SelectedText = "Seleccione"
'DdlPSMercancia.SelectedValue = ""
'DdlPSMercancia.SelectedText = "Seleccione"
UpAgregarMercancia.Update()
RegistraScript("$('#DivAddMercancia').modal('show');", "M1")
@@ -34515,9 +34638,45 @@ Partial Class Ventas
GvMercanciasCP.DataSource = DtMercancias
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 = ""
DdlPSMercancia.SelectedValue = ""
DdlPSMercancia.SelectedText = "Seleccione"
TxtObservacionesMercancia.Text = ""
UpAgregarMercancia.Update()
UpEmitirTransitorio.Update()
@@ -34580,5 +34739,109 @@ Partial Class Ventas
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