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

-CARTAPORTE

Browse Source
This commit is contained in:
rrene
2021-09-23 06:49:28 -07:00
parent 6e00abed29
commit f1289c09b9
1 changed files with 51 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -2712,6 +2712,50 @@ Partial Class Inventarios_TraspasoAlmacen
CartaPorte.Mercancias.UnidadPeso = ""
CartaPorte.Mercancias.CargoporTasacion = 0
''CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = "TPAF01"
''CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT = "1234567890"
''CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = "GNP"
''CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = "P123"
''CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular = "C2"
''CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM = "WTF757A"
''CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM = 2007
''Dim DomOrigen As New CFDICartaPorteDomicilio With {.Calle = "calle",
'' .Colonia = "",
'' .CP = "45200",
'' .Estado = "JAL",
'' .Pais = "MEX",
'' .Localidad = ""}
''Dim DomDestino As New CFDICartaPorteDomicilio With {.Calle = "calle destino",
'' .Colonia = "",
'' .CP = "45200",
'' .Estado = "JAL",
'' .Pais = "MEX",
'' .Localidad = ""}
''Dim Ubica As New CFDICartaPorteUbicaciones
''Ubica.TipoEstacion = "01"
''Ubica.DistanciaRecorrida = 6
''Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = "CAMJ841219I33",
'' .FechaHoraSalida = "2021-08-23T11:13:01",
'' .NombreRemitente = "Empresa",
'' .Domicilio = DomOrigen}
''Ubica.Destino = New CFDICartaPorteUbicacionDestino With {.RFCDestinatario = "CAMJ841219I33",
'' .FechaHoraProgLlegada = "2021-08-23T11:13:01",
'' .NombreDestinatario = "Empresa dest",
'' .Domicilio = DomDestino}
''CartaPorte.Ubicaciones.Add(Ubica)
''CartaPorte.FiguraTransporte.ClaveTransporte = "01"
''CartaPorte.FiguraTransporte.Operadores.Add(New CFDICartaPorteOperador With {.RFCOperador = "CAMJ841219I33",
'' .Domicilio = Nothing,
'' .NombreOperador = "juan Perez",
'' .NumLicencia = "Num Lic",
'' .NumRegidTribOperador = "",
'' .ResidenciaFiscalOperador = ""})
Dim Dr As DataRow = DtCamiones.FiltroPrimero(String.Format("CveCamion= {0}", DdlUnidadCamion.SelectedValue))
If Dr IsNot Nothing Then
@@ -2799,7 +2843,7 @@ Partial Class Inventarios_TraspasoAlmacen
.Descripcion = "Flete",
.ValorUnitario = 0,
.Importe = 0,
.Descuento = 0L,
.Descuento = 0,
.Unidad = "Servicio",
.ClaveUnidad = "E48",
.ClaveProdServ = "78101802",
@@ -2977,7 +3021,7 @@ Partial Class Inventarios_TraspasoAlmacen
'If TimbrarFacturaGoCFDIv33(ObjFactura, UsuarioActual, 4) <> "" Then
' MensajeAlert.AppendFormat("<ul><li>-- no timbró-{0}</li></ul>", MensajeErrorCFDI)
'End If
If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then
If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, 3) Then
MensajeAlert.Append("Emitido con exito.")
'XML
Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
@@ -2991,7 +3035,11 @@ Partial Class Inventarios_TraspasoAlmacen
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjFactura.SerieFolio, ObjFactura.TipoDocto)))
End If
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimientoTimbrado)))
If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}", CveMovimientoTimbrado)))
Else
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimientoTimbrado)))
End If
Else
MensajeAlert.AppendFormat("<ul><li>{0}</li></ul>", ObjTimbrado.MensajeErrorCFDI)