Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX)
PowerCOBOL (ActiveX) Versiones del IDE basadas en ActiveX
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Compilador] Ejecutar programa AcuCobol 8 en usuario final Gusaiello AcuCobol 3 26 de abril de 2018 01:09
[Información] Tomar fotos con camara web desde RM/Cobol 7 dyscojh RM/COBOL 0 3 de febrero de 2018 16:46
[Sintaxis] Cerrar form de Usuario y Contraseña dmosca PowerCOBOL (ActiveX) 1 30 de julio de 2017 23:20
[Información] Configuración por usuario (rm-cobol 7, WS2003 TS) XyVy RM/COBOL 4 17 de noviembre de 2016 23:34
[Información] Tomar imagen de webcam JuanJuan77 PowerCOBOL (ActiveX) 11 21 de diciembre de 2015 02:05
Respuesta
 
Herramientas

  #1
Antiguo 12 de octubre de 2017, 15:59
IDENTIFICATION DIVISION
JuanJuan77
Novato Junior
ENVIRONMENT DIVISION
Avatar de JuanJuan77
DATA DIVISION
Forero desde (Registrado)octubre 2015
Argentina
UbicaciónEmpalme Villa Constitución
Última Actividad11.12.2018 14:56
PROCEDURE DIVISION
PostsPosts: 31
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 1
ReputaciónReputación: 0
JuanJuan77 is on a distinguished road
Predeterminado Como tomar el usuario de windows

hola, alguien sabe como tomar el usuario de windows desde powercobol?

gracias
JuanJuan77 no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 12 de octubre de 2017, 19:46
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 214
Medallas recibidas: 2Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ReputaciónReputación: 12
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Aqui vai:

Código COBOL:
  1.  @OPTIONS NOALPHA                                                
  2. *****************************************************************
  3. *  Copyright (c) 2000 R.P.S.                                      
  4. *  Created      :    Jun 2000                                    
  5. *  Last Modified:    Jun 2000                                    
  6. *****************************************************************
  7.  IDENTIFICATION DIVISION.                                        
  8.  PROGRAM-ID.    WINUSER.                                          
  9.  AUTHOR.        Rui Pinto.                                        
  10. *-----------------------------------------------------------------
  11.  ENVIRONMENT DIVISION.                                            
  12.  CONFIGURATION SECTION.                                          
  13.  SPECIAL-NAMES.                                                  
  14.  INPUT-OUTPUT SECTION.                                            
  15.  FILE-CONTROL.                                                    
  16. *-----------------------------------------------------------------
  17.  DATA DIVISION.                                                  
  18.  FILE SECTION.                                                    
  19.  WORKING-STORAGE SECTION.                                        
  20.  01  USERNAME               PIC X(64).                            
  21.  01  USERNAME-LEN           PIC S9(9)    COMP-5.                  
  22.  LINKAGE SECTION.                                                
  23.  01  USER                   PIC X(64).                            
  24.  PROCEDURE DIVISION USING USER.                                  
  25.  MAIN SECTION.                                                    
  26.  MAIN-00.                                                        
  27.        MOVE ALL SPACE TO USERNAME USER.                            
  28.      MOVE 64 TO USERNAME-LEN.                                    
  29.      CALL "GetUserNameA" WITH STDCALL USING                      
  30.               BY REFERENCE USERNAME                              
  31.               BY REFERENCE USERNAME-LEN.                          
  32.      MOVE USERNAME TO USER.                                      
  33.  MAIN-99.                                                        
  34.  END PROGRAM WINUSER.                                            

Esta rotina é de NetCobol. Pode ser chamada do PowerCobol ou adaptada para PowerCobol.

Un saludo,
Rui
Rapinto no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 17 de octubre de 2017, 16:42
IDENTIFICATION DIVISION
JuanJuan77
Novato Junior
ENVIRONMENT DIVISION
Avatar de JuanJuan77
DATA DIVISION
Forero desde (Registrado)octubre 2015
Argentina
UbicaciónEmpalme Villa Constitución
Última Actividad11.12.2018 14:56
PROCEDURE DIVISION
PostsPosts: 31
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 1
ReputaciónReputación: 0
JuanJuan77 is on a distinguished road
Predeterminado

Hola, gracias,

en powercobol no me reconoce "GetUserNameA", me debe estar faltando algo, que puede ser?

Gracias
JuanJuan77 no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 17 de octubre de 2017, 17:41
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad33 años
Última Actividad20.01.2019 19:48
PROCEDURE DIVISION
PostsPosts: 1.328
Ha dicho GraciasEnviado: 285
Ha recibido agradecimientosRecibido: 486
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

JuanJuan77, usa la búsqueda: [Aporte] GetUserName - COBOL Foro

En cuanto a tu pregunta, qué error te da exactamente?


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 17 de octubre de 2017, 20:20
IDENTIFICATION DIVISION
JuanJuan77
Novato Junior
ENVIRONMENT DIVISION
Avatar de JuanJuan77
DATA DIVISION
Forero desde (Registrado)octubre 2015
Argentina
UbicaciónEmpalme Villa Constitución
Última Actividad11.12.2018 14:56
PROCEDURE DIVISION
PostsPosts: 31
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 1
ReputaciónReputación: 0
JuanJuan77 is on a distinguished road
Predeterminado

me da el error al compilar:
unresolved external symbol _GETUSERNAMEA@8
GetUserNameA.dll : fatal error LNK1120: 1 unresolved externals

Por lo que lei hay q agregar una libreria: ADVAPI32.LIB. Si es asi como se agrega?

gracias

saludos
JuanJuan77 no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 17 de octubre de 2017, 21:01
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad33 años
Última Actividad20.01.2019 19:48
PROCEDURE DIVISION
PostsPosts: 1.328
Ha dicho GraciasEnviado: 285
Ha recibido agradecimientosRecibido: 486
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

JuanJuan77, debes poner en las propiedades del código:
Código:
ALPHAL(WORD)


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 17 de octubre de 2017, 22:03
IDENTIFICATION DIVISION
JuanJuan77
Novato Junior
ENVIRONMENT DIVISION
Avatar de JuanJuan77
DATA DIVISION
Forero desde (Registrado)octubre 2015
Argentina
UbicaciónEmpalme Villa Constitución
Última Actividad11.12.2018 14:56
PROCEDURE DIVISION
PostsPosts: 31
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 1
ReputaciónReputación: 0
JuanJuan77 is on a distinguished road
Predeterminado

Hola, disculpame, pero en powercobol no se donde poner ese codigo y como hacerlo, probe con
@OPTIONS ALPHAL(WORD)

@OPTIONS ALPHAL(WORD)
identification division.

pero no compila

saludos y gracias
JuanJuan77 no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 18 de octubre de 2017, 09:45
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad33 años
Última Actividad20.01.2019 19:48
PROCEDURE DIVISION
PostsPosts: 1.328
Ha dicho GraciasEnviado: 285
Ha recibido agradecimientosRecibido: 486
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

JuanJuan77, [Información] El Form queda Minimizado haciendo ExecuteSync - Página 2 - COBOL Foro


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
  #9
Antiguo 18 de octubre de 2017, 18:29
IDENTIFICATION DIVISION
Adrianeloy
Novato Junior
ENVIRONMENT DIVISION
Avatar de Adrianeloy
DATA DIVISION
Forero desde (Registrado)marzo 2015
Argentina
UbicaciónSanta Fe/rosario
Edad52 años
Última Actividad30.05.2018 18:33
PROCEDURE DIVISION
PostsPosts: 39
Ha dicho GraciasEnviado: 30
Ha recibido agradecimientosRecibido: 30
ReputaciónReputación: 0
Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road Adrianeloy is on a distinguished road
Predeterminado

JuanJuan77, tenes que editar el proyecto y agregar ADVAPI32.LIB como una DLL (te recomiendo que copies ADVAPI32.LIB a la carpeta donde tengas tu proyecto).
Te adjunto el proyecto entero funcionando por si tenes algun problema.
Un abrazo

https://drive.google.com/open?id=0B8...0J0d0NSeDhqT1k
Adrianeloy no ha iniciado sesión   Responder Con Cita
  #10
Antiguo 19 de octubre de 2017, 16:12
IDENTIFICATION DIVISION
JuanJuan77
Novato Junior
ENVIRONMENT DIVISION
Avatar de JuanJuan77
DATA DIVISION
Forero desde (Registrado)octubre 2015
Argentina
UbicaciónEmpalme Villa Constitución
Última Actividad11.12.2018 14:56
PROCEDURE DIVISION
PostsPosts: 31
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 1
ReputaciónReputación: 0
JuanJuan77 is on a distinguished road
Predeterminado

Hola, estoy usando powercobol 7, en este me da error todas las opciones que me dijeron, alguno pudo en el 7 o en el 9?

saludos
JuanJuan77 no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 12:48.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.