Descargar la versión más reciente de la rama development
Crear una rama de tipo Feature a partir de la rama development
Crear una propiedad de tipo string llamada URLGateway y crear un miembro privado de tipo String llamado _URLGateway y cargarlo en el getter de esta propiedad.
Crear el método privado recargarOperadoresCRM que reciba un data table como entrada y devuelva un datatable, el propósito del método será el de recorrer fila a fila la tabla de entrada y consultar en el RTGMGateway el número de cliente mediante el método buscarDireccionEntrega para tomar la respuesta y con la propiedad Nombre actualizar la columna nombre del data table de entrada para finalmente devolverlo. Pseudocódigo:
private sub recargarOperadoresCRM(ByVal dtOperadores As DataTable) As DataTable
Dim _dtOperadores as New DataTable()
_dtOperadores = dtOperadores
objRTGMGateway = new RTGMGateway
ForEach(datarow dr in _dtOperadores.rows)
objRespuesta = objRTGMGateway(objSolicitud.IDCliente = dr[Cliente])
dr[Nombre] = objRespuesta.Nombre
Next
End Sub
5. Modificar el método **CargaGrid** formulario **frmCatOperador** para mediante de una sentencia IF sí el valor del parámetro URLGateway es válido se ejecute el método recargarOperadoresCRM de acuerdo al siguiente Pseudocódigo:
Private Sub CargaGrid()
Cursor = Cursors.WaitCursor
Dim oOperador As New SigaMetClasses.cOperador()
dtOperador = New DataTable()
dtOperador = oOperador.Consulta()
**IF !(_URLGateway = "" or IsNullOrEmpty(_URLGateway))
dtOperador = recargarOperadoresCRM(dtOperador)**
If dtOperador.Rows.Count > 0 Then
grdDatos.DataSource = dtOperador
grdDatos.CaptionText = "Operadores (" & dtOperador.Rows.Count.ToString & ")"
End If
grdDatos.CaptionText = "Lista de operadores (" & dtOperador.Rows.Count.ToString & " en total)"
Cursor = Cursors.Default
End Sub
------ESPECIFICACIONES------
Requisitos:
Diagrama de implementación
Procedimiento
objRTGMGateway = new RTGMGateway
ForEach(datarow dr in _dtOperadores.rows) objRespuesta = objRTGMGateway(objSolicitud.IDCliente = dr[Cliente]) dr[Nombre] = objRespuesta.Nombre Next
End Sub