Código: Seleccionar todo
Public Function agregaComplementoConceptoVehiculos(ByVal claveVehicular As String, ByVal version As String, Optional ByVal ordenador As String = "0") As ComprobanteConceptoComplementoConcepto
Dim complemento As ComprobanteConceptoComplementoConcepto = New ComprobanteConceptoComplementoConcepto
Dim com As New List(Of ComprobanteConceptoComplementoConceptoVentaVehiculos)
Dim complementoVehiculo As ComprobanteConceptoComplementoConceptoVentaVehiculos = New ComprobanteConceptoComplementoConceptoVentaVehiculos _
With {.claveVehicular = claveVehicular, .version = version, .ordenador = ordenador}
com.Add(complementoVehiculo)
complemento.VentaVehiculos = com.ToArray
Return complemento
End Function
Saludos,
AT