No entendi NADA!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPaquete Navegación 1 Hora ó 100 MB $1200 100MB
Paquete Navegación 1 Día ó 150 MB $3300 150MB
Paquete Navegación 2 Días ó 300 MB $6300 300MB
for($i=0; $i<$CantidadRegistros; $i++):
# Aquí el código para cada registro
endfor;
DECLARE @id INT
DECLARE @nombre VARCHAR(20)
DECLARE @nombreNuevo VARCHAR(20)
DECLARE crsCursor CURSOR FOR (SELECT id, nombre FROM tabla)
SET @contador = 1
OPEN crsCursor
FETCH NEXT FROM crsCursor INTO @id, @nombre
WHILE @@FETCH_STATUS = 0 BEGIN
SET @nombreNuevo = 'UIOMATRI-BODE' + RIGHT(@nombre, 2)
-- #
UPDATE table SET nombre = @nombreNuevo WHERE id = @id
-- #
FETCH NEXT FROM crsCursor INTO @id, @nombre
END
CLOSE crsCursor
DEALLOCATE crsCursor
UPDATE tabla SET nombre = 'UIOMATRI-BODE' + RIGHT(nombre, 2)
If Dir(strNetwork) <> "" Then
ChDir strNetwork ' Posicionarse en el directorio de red
Workbooks.Open Filename:=strNetwork & strFile ' Abrir el archivo
Windows(strFile).Activate ' Activar ventana del archivo
Columns("A:BL").Copy
SendKeys ("{Enter}") ' Evitar el mensaje de copia masiva de información
Windows(strFile).Close
Windows("Facturación FINAL.xls").Activate
Sheets("PEDIDOS").Select
Range("A1").Select
ActiveSheet.Paste
Else
MsgBox "La [" & strNetwork & "] en red no disponible, presiona el botón cambiar para más información", vbCritical, "Error"
End If
Range("E1").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste
Range("E1").Copy Range("D10")