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

CarataPorte

Browse Source
This commit is contained in:
rakcsle
2022-01-19 01:24:59 -07:00
parent 218740baaf
commit 6e9ad46097
19 changed files with 2139 additions and 191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Compras/Compras.aspx.vb
View File

@@ -8500,8 +8500,8 @@ Partial Class Compras_Compras
Catch ex As Exception
ObjCompras.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
Alert("Ocurrió un error al registrar la compra y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError)
GuardaLog($"Ocurrió un error al registrar la compra y cualquier detalle comuníquese a Soporte Técnico : {ex}")
Alert("Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError)
GuardaLog($"Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico : {ex}")
ViewState("CveCompra") = -1
End Try
ObjAcar.Dispose()

31
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1108,8 +1108,10 @@ Partial Class PopUpVerFactura
Dim NombreAseguradoraCarga As String = ""
Dim NumPolizaSeguroCarga As String = ""
Dim RemolquePlaca1 As String = ""
Dim RemolquePlaca2 As String = ""
Dim RemolqueSubtimo1 As String = ""
Dim RemolqueSubtimo2 As String = ""
Dim PlacaVM As String = ""
Dim AnioModeloVM As String = ""
@@ -1158,6 +1160,9 @@ Partial Class PopUpVerFactura
DtMercancias.Columns.Add(New DataColumn("Descripcion", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("PesoEnKg", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("CveMaterialPeligroso", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("Embalaje", GetType(String)))
Dim DtOperadores As New DataTable()
DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String)))
DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
@@ -1264,6 +1269,21 @@ Partial Class PopUpVerFactura
NumPolizaSeguroCarga = ValorXML(nodeSeguros, "PolizaCarga", "")
End If
Dim nodeRemolques As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Remolques", "cartaporte20"), namespaces)
If nodeRemolques IsNot Nothing Then
If nodeRemolques.ChildNodes.Count = 1 Then
RemolquePlaca1 = ValorXML(nodeRemolques.ChildNodes(0), "Placa", "")
RemolqueSubtimo1 = ValorXML(nodeRemolques.ChildNodes(0), "SubTipoRem", "")
ElseIf nodeRemolques.ChildNodes.Count > 1 Then
RemolquePlaca1 = ValorXML(nodeRemolques.ChildNodes(0), "Placa", "")
RemolqueSubtimo1 = ValorXML(nodeRemolques.ChildNodes(0), "SubTipoRem", "")
RemolquePlaca2 = ValorXML(nodeRemolques.ChildNodes(1), "Placa", "")
RemolqueSubtimo2 = ValorXML(nodeRemolques.ChildNodes(1), "SubTipoRem", "")
End If
End If
'Dim nodeFiguraTransporte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:FiguraTransporte", "cartaporte20"), namespaces)
'If nodeFiguraTransporte IsNot Nothing Then
' Dim CveTransporte As String = ValorXML(nodeFiguraTransporte, "TipoFigura", "")
@@ -1279,6 +1299,9 @@ Partial Class PopUpVerFactura
Row("Descripcion") = ValorXML(node, "Descripcion", "")
Row("PesoEnKg") = ValorXML(node, "PesoEnKg", "")
Row("CveMaterialPeligroso") = ValorXML(node, "CveMaterialPeligroso", "")
Row("Embalaje") = ValorXML(node, "Embalaje", "")
DtMercancias.Rows.Add(Row)
Next
@@ -1410,6 +1433,10 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Descuentos", Descuentos.ToString()))
params.Add(New ReportParameter("Total", Total.ToString()))
params.Add(New ReportParameter("RemolquePlaca1", RemolquePlaca1))
params.Add(New ReportParameter("RemolqueSubtimo1", RemolqueSubtimo1))
params.Add(New ReportParameter("RemolquePlaca2", RemolquePlaca2))
params.Add(New ReportParameter("RemolqueSubtimo2", RemolqueSubtimo2))
' [@CertificadoContribuyente]