Hi,
please is there any possibility to connect Net Express 3.1.11 or Net Express 5.1 with Microsoft Team Foundation Server (TFS), for source code versioning?
Thanks
↧
TFS with Net Express
↧
RE: TFS with Net Express
Sorry, I put my question into bad group. Can anyone move it to Net Express / Server Express group?
Thanks.
↧
↧
RE: Netexpress 5.1: Updating existing Dialog System Screenset
Thanks Chris for the response !
I have only one version of the .gs file in the path and dont have an .rs file.
I have noticed with one more .gs file which is having vertical scrollbar (ie screen which needs to be scrolled up or down to view the contents fully) displays blank screen when opened through Net Express.
↧
ListView
Dear Friends,
Is it possible to focus on the first item in a listview without using the mouse?
Regards
Rogerio Barbosa
↧
RE: ListView
Hello,
Are you referring to a ListBox in a Dialog System screen or the actual ListView in a class library?
Regards,
↧
↧
RE: TFS with Net Express
I don't believe there's any mechanism in Net Express to integrate with SCM mechanisms such as TFS.
Visual COBOL for Visual Studio integrates with TFS. Net Express (particularly version 3!) is now rather out of date; it was superseded by Visual COBOL five or six years ago.
↧
RE: ListView
Hi,
im using the listview class of netexpress 3.1
↧
RE: TFS with Net Express
Thanks for info, I think same, that connection from Net Express will be impossible. Please do you know if it's possible to use "old cobol" programs from Net Express in Visual Cobol, without any code changes?
↧
RE: Integração NetExpress 3.1 com MS Word
Antonio, desculpe pela demora
mas é que tive que atender a outras prioridades e esse projeto ficou parada. Agradeço a ajuda e vou testar assim que puder.
Rogerio Barbosa
Rio de Janeiro
↧
↧
Integração NetExpress 3.1 com MS Word
Prezados Amigos,
Usei este programa como exemplo para gerar documentos no Microsoft Word:
$set ooctrl(+P) ooctrl(+Q)
*copy "word.if". *> Word vocavularies
*copy "excel.if". *> Excel vocabularies
program-id. WORDAPI.
special-names. call-convention 2 is WinApi.
Class-Control.
*-------------
WordApp is class "$OLE$word.application". *> Word 97
Working-Storage Section.
*------------------------------
77 j pic 9(003).
77 k pic 9(003).
77 wChar pic X(001).
01 WordServer object reference value null.
01 theDocuments object reference value null.
01 theDocument object reference value null.
01 theSelection object reference value null.
01 theReplacement object reference value null.
01 theParagraphs object reference value null.
01 theParagraph object reference value null.
01 theRange object reference value null.
01 theFind object reference value null.
01 wText pic X(255).
01 found pic x comp-5.
88 found-True value 45.
88 found-False value 48.
01 Program-Flags pic 9(2) comp-5 value 1.
88 New-Instance value 1 false 0.
Linkage Section.
*----------------
01 wrdParam.
05 wrdOperation pic x(008).
05 wrdFileName pic x(255).
05 wrdText pic x(255).
05 wrdChange2 pic x(255).
05 wrdSearchStatus pic x(002).
05 wordVisible pic s9(001).
05 wordSaveMode pic s9(001).
Procedure Division Using wrdParam.
******************************************************************
*
* If New-Instance
* Perform New-Set-Instance
* End-if
Evaluate wrdOperation
When 'Create'
Perform Create-Aplication
When 'Open'
Perform File-Open
When 'Delete'
Perform Delete-Selection
When 'Insert'
Perform Insert-Text
When 'Find'
Perform Find-Text
When 'Replace'
Perform Replace-Text
When 'FReplace'
* Perform Find-and-Replace-Text
Perform Find-Text
Perform Replace-Text
When 'Preview'
Perform Print-Preview
When 'Print'
Perform Print-Document
When 'Quit'
Perform Quit-Set-Instance
End-Evaluate
Exit Program
.
*----------------------------------------------------------------
Create-Aplication Section.
*> Criar uma instancia do Word
Invoke wordapp "new" Returning wordServer
*> Pega o objeto de coleção Word documents
Invoke wordServer "getDocuments" Returning theDocuments
*> Seta se o Word será visualizado
invoke wordServer "SetVisible" using by value wordVisible
.
*----------------------------------------------------------------
File-Open Section.
*> Abre o arquivo em wrdFileName
Invoke theDocuments "Open" Using wrdFileName
*> Pega o documento ativo
Invoke wordServer "getActiveDocument" Returning theDocument
.
*----------------------------------------------------------------
Delete-Selection Section.
* invoke wordServer "getSelection" returning theSelection
* invoke theSelection "Delete"
*> Seleciona o texto encontrado
invoke theRange "select"
*> 'CUTila' o texto encontrado
invoke theRange "Cut"
.
*----------------------------------------------------------------
Insert-Text Section.
* Move wrdChange2 to wText
* Perform Null-Terminate-Routine
* Move wText to wrdChange2
* invoke wordServer "getSelection" returning theSelection
* invoke theSelection "InsertAfter" using by content wrdChange2
*> Insere o texto
invoke theRange "InsertAfter" using by content wrdChange2
.
*----------------------------------------------------------------
Find-Text Section.
Move "23" to wrdSearchStatus
Move wrdText to wText
Perform Null-Terminate-Routine
Move wText to wrdText
*> Pega o objeto Range
Invoke theDocument "getContent" returning theRange
*> Pega o objecto Find
Invoke theRange "getFind" returning theFind
*> A procura será para frente
Invoke theFind "setForward" using by value 1
*> A busca sera pelo conteudo de wrdText
Invoke theFind "setText" using by content wrdText
*> Procurar
Invoke theFind "execute"
*> Encontrou ?
Invoke theFind "getFound" returning found
*> Se encontrou...
if found-True
move "00" to wrdSearchStatus
end-if
.
*----------------------------------------------------------------
Find-and-Replace-Text Section.
Move "23" to wrdSearchStatus
Move wrdText to wText
Perform Null-Terminate-Routine
Move wText to wrdText
Move wrdChange2 to wText
Perform Null-Terminate-Routine
Move wText to wrdChange2
*> Pega o objeto Range
Invoke theDocument "getContent" returning theRange
*> Pega o objecto Find
Invoke theRange "getFind" Returning theFind
*> A procura será para frente
Invoke theFind "getReplacement" Returning theReplacement
Invoke theFind "setForward" Using by value 1
*> A busca sera pelo conteudo de wrdText
Invoke theFind "setText" Using by content wrdText
Invoke theReplacement "setText" Using by content wrdChange2
*> Procurar
* Invoke theFind "setReplace" Using by value 1
Invoke theFind "execute"
*> Encontrou ?
Invoke theFind "getFound" returning found
*> Se encontrou...
if found-True
move "00" to wrdSearchStatus
end-if
.
*----------------------------------------------------------------
Replace-Text Section.
Move wrdChange2 to wText
Perform Null-Terminate-Routine
Move wText to wrdChange2
subtract 01 from k
*> Seleciona o texto encontrado
invoke theRange "select"
*> Finalmente, muda o texto encontrado (wrdText)
*> para o desejado
invoke theRange "Cut"
move 00 to j
invoke theRange "InsertAfter" using " "
perform until j = k
add 01 to j
move wrdChange2(j:1) to wChar
invoke theRange "InsertAfter" using by content wChar
end-perform
*> Não preciso mais dos objetos Find e Range
Invoke theFind "finalize" returning theFind
Invoke theRange "finalize" returning theRange
.
*----------------------------------------------------------------
Print-Preview Section.
invoke theDocument "PrintPreview"
.
*----------------------------------------------------------------
Print-Document Section.
invoke theDocument "PrintOut" using by value 0
.
*----------------------------------------------------------------
New-Set-Instance Section.
set New-Instance to false
.
*----------------------------------------------------------------
Null-Terminate-Routine Section.
move length of wText to j
perform varying k from j by -1
until k = 0
if wText(k:1) not = spaces and not = X"00"
add 01 to k
move x"00" to wText(k:1)
exit section
end-if
end-perform
move x"00" to wText(j:1)
.
*----------------------------------------------------------------
Size-Of-String Section.
move length of wText to j
perform varying k from j by -1
until k = 0
or wtext(k:1) not = spaces and x"00"
end-perform
.
*----------------------------------------------------------------
Quit-Set-Instance Section.
*> Fechar o arquivo sem salvando-o
if wordSaveMode = 0
Invoke theDocument "Close" Using by value 0
else
if wordSaveMode = -1
Invoke theDocument "Close" Using by value -1
end-if
end-if
*> Finalizar o objecto de coleção Documents
Invoke theDocuments "finalize" Returning theDocuments
*> Tell Word to quit (it won't shut down otherwise)
Invoke wordServer "quit"
*> Finalizar o Word
Invoke wordServer "finalize" Returning wordServer
.
1 - Como descubro todos os métodos da classe wordapp ?
2 - Onde encontro o arquivo "word.if" , definido no inicio do programa ?
Atenciosamente
Rogerio Barbosa Ferreira
↧
RE: TFS with Net Express
In most cases yes. Some programs may need the (free) Compatibility Addpack.
Some programs may rely on erroneous or undocumented behavior which has changed. It's also possible that there are obscure features I'm not familiar with which are no longer supported. But generally it's simply a matter of recompiling.
↧
RE: ListView
Hi,
I have discovered that it is only invoking the object of the listview class and focus on it.
Invoke object-reference "SetFocus"
Rogerio Barbosa
↧
RE: Net Express Crashing
I have to also mention that the OP (Original Poster) is using wrap pack 12 and running Windows 10.
When running the application the CBL_DEBUGBREAK is either totally ignored or sometimes prompts. When it prompts NetExpress loads and then crashes.
If you load NetExpress and set wait for animation then this works every time (This is what the OP is using as a work around).
We have also tried deleting the HKEY_CURRENT_USER\SOFTWARE\Micro Focus\NetExpress registry key. (These get recreated and you'd have to redo your preferences) We have found something gets corrupt and NetExpress would fail with a 114 error.
Additionally we also deleted the NetExpress workspace file as this sometimes becomes corrupt.
Uninstalling, reinstalling or repairing NetExpress results in the same problem
In the past when this has occurred on other developers machines it becomes a total machine reload a very costly exercise in terms of time.
Neil
↧
↧
Net Express crashing
net express is crashing getting
Error C0000005 Access Violation C:\Program Files Micro Focus Net Express 5.1\Base\Bin\cbldbg.dll
can somebody help
↧
RE: Net Express crashing
Try deleting the file sitting in the workarea.
Eg: C:\users\[yourlogonname]\documents\Micro Focus\Net Express 5.1\Workarea\nxdebug~ds
I never remember which one of two solutions works.
The other is to rename the HKEY_CURRENT_USER\SOFTWARE\Micro Focus\NetExpress registry key, but you'd have to setup all your preferences again etc.
The onus is on you to take a backup :)
Neil
↧
RE: Net Express Crashing
You should report this problem via Supportline but as I am sure you are aware Net Express has not been certified for use under Windows 10. We do not anticipate any problems but if you do run into something like described here it needs to be reported so we can look into it.
For developing on operating systems higher than Windows 7, Visual COBOL is the product you should be using as it has been tested and certified on all newer platforms.
↧
Net Express Crashing
Hi
I have a debugbreak in code, and when I opt to invoke the debugger, Net Express hangs and crashes out.
Any help will be appreciated.
↧
↧
fileshare
Hi all,
I use NE 5.1 and want to use fileshare. What is the best Approach?
↧
Replace PERFROM PARA with actual code
I'm using Net Express 5.1. I want to know is it possible to replace PERFORM PARA with the actual paragraph code. In the .lst file we get all the copy statements expanded , the same I want it for PERFORM STATEMENT.
If yes please tell me what are the compiler options I need to set.
↧
Fileshare Username
We use Windows Small Bussiness Server 2003 and Netexpress 5.1. The FILESHARE works perfect as described in the documentation. If a file/record is locked I receive the file Status 9/65 or 9/68 indicating this Situation. But besides this Status, is there any way or API to know Information about who has the lock? I Need the Name of the terminal or user in order to inform who is locking the file or record.
↧