Oracle, Web, Script, SQLserver, Tips & Trick

December 8, 2014

Function GET_FILENAME and GET_PATHNAME

Filed under: dev6i,oracle — sikathabis @ 8:47 am
Tags: , ,

FUNCTION GET_FILENAME(PKALIMAT VARCHAR2) RETURN VARCHAR2 IS
kata varchar2(100):=null;
KALIMAT VARCHAR2(1000):=PKALIMAT;
c number:=0;
KAR CHAR(1):=’/';
BEGIN

IF INSTR(PKALIMAT,KAR)=0 THEN
KAR:=’\';
END IF;

FOR i in 1..length(KALIMAT)
LOOP
if substr(kalimat,i,1)=KAR then
c:=c+1;
end if;
END LOOP;

FOR i in 1..c
LOOP
kata:= substr(KALIMAT,1,instr(KALIMAT,KAR)-1);
KALIMAT := replace(kalimat,kata||KAR,”);
END LOOP;

RETURN KALIMAT;

END;

——————————————————————— (more…)

December 5, 2014

How to Make cursor default or busy (oracle dev 6i)

Filed under: dev6i,oracle — sikathabis @ 3:29 am
Tags: ,

SET_APPLICATION_PROPERTY(CURSOR_STYLE,’BUSY’);

Detail Information about Cursor_Style

Detail Information about Cursor_Style

SET_APPLICATION_PROPERTY(CURSOR_STYLE,’DEFAULT’);

May 18, 2013

Solution for cannot acces help on dev 6i using windows 7 x64

Filed under: dev6i,oracle,windows — sikathabis @ 7:44 am
Tags: , , ,

Solution for “cannot acces help on dev 6i / oracle developer 6i using windows 7 x64″

Because windows 7 x64 doesn’t containt WinHlp32.exe,  then you must have the file.

Use this link to get them

http://www.ziddu.com/download/22213893/Windows6.1-KB917607-x86.zip.html

http://www.ziddu.com/download/22213894/Windows6.1-KB917607-x64.zip.html

http://www.softpedia.com/get/System/OS-Enhancements/WinHlp-for-Windows7.shtml

 

 

March 22, 2013

Example Format mask for varchar2 (PL/SQL or Oracle Developer 6i)

Filed under: dev6i,oracle — sikathabis @ 2:45 pm
Tags: , ,

For example if you want to automate format mask 0000009 or 0000000 for a field on oracle dev6i (FORM) which that field not number, but varchar2 (alfanumerik)

PL/SQL how to create format mask on varchar2 (example field length 7 char)

if length(:NO_SERI)<7 then
   begin
     :NO_SERI := LTRIM(TO_CHAR(TO_NUMBER(:NO_SERI),'0000009')); 
   exception when others then
         :NO_SERI := substr('0000000',1,7-length(:NO_SERI))||:NO_SERI;
   end;
end if;   

Input
A
200

Result
000000A
0000200

December 5, 2012

How to automate change x,y position item on database block (oracle developer 6i)

Filed under: dev6i,oracle — sikathabis @ 11:47 am
Tags: ,
For example I want to set x,y position for all fields inside certain canvas

 PROCEDURE SET_POSISI(cvs_name varchar2, block_name varchar2, incx number, incy number) IS
 vName VARCHAR2(50) := block_name;
 vFirstItem VARCHAR2(200);
 vLastItem VARCHAR2(200);
 vCurrItem VARCHAR2(200);
 BEGIN
 GO_BLOCK(vName);
 vFirstItem := vName||'.'||Get_Block_Property(vName,FIRST_ITEM);
 vCurrItem := vFirstItem; 
 vLastItem := vName||'.'||Get_Block_Property(vName,LAST_ITEM);
 <<BLOCK_LIST>>
 WHILE ( vCurrItem != vLastItem ) LOOP
 if GET_ITEM_PROPERTY(vCurrItem,CANVAS_NAME)=cvs_name then
 SET_ITEM_PROPERTY(vcurritem,POSITION, GET_ITEM_PROPERTY(vcurritem,X_POS)+incx, GET_ITEM_PROPERTY(vcurritem,Y_POS)+incy);
 end if;
 vCurrItem := vName||'.'|| Get_Item_Property(vCurrItem,NEXTITEM);
 GO_ITEM(vCurrItem);
 END LOOP BLOCK_LIST;
 END;

If the item including Radio button, you can add this example on BLOCK_LIST looping
 IF vCurrItem =vFirstItem and block_name='CIS_ALAMAT' then
 SET_RADIO_BUTTON_PROPERTY('CIS_ALAMAT.KD_KOTA2','DALAM_IBUKOTA',POSITION,
 GET_RADIO_BUTTON_PROPERTY('CIS_ALAMAT.KD_KOTA2','DALAM_IBUKOTA',X_POS)+incx,
 GET_RADIO_BUTTON_PROPERTY('CIS_ALAMAT.KD_KOTA2','DALAM_IBUKOTA',Y_POS)+incy);
 SET_RADIO_BUTTON_PROPERTY('CIS_ALAMAT.KD_KOTA2','LUAR_IBUKOTA',POSITION,
 GET_RADIO_BUTTON_PROPERTY('CIS_ALAMAT.KD_KOTA2','LUAR_IBUKOTA',X_POS)+incx,
 GET_RADIO_BUTTON_PROPERTY('CIS_ALAMAT.KD_KOTA2','LUAR_IBUKOTA',Y_POS)+incy);
 end if;

references : https://sites.google.com/site/craigsoraclestuff/orac

October 27, 2011

how to fix runtime report oracle developer 6i for windows 64 bit

Filed under: dev6i,oracle — sikathabis @ 6:27 am
Tags: ,
Replace nn60.dll and nnb60.dll on bin directory developer 6i with patch 3 (attachment)

explanation from here
http://halimdba.blogspot.com/2009/05/oracle-forms-or-reports-6i-in-windows.html

multiply:nn60.zip
multiply:nnb60.zip

ziddu:nn60.zip
ziddu:nnb60.zip

September 25, 2011

Keypress on Oracle Forms 6i

Filed under: dev6i,oracle — sikathabis @ 7:54 pm
Tags: ,

Oracle Forms is a block mode data handling system. It does not do “character by character”. Use a Java thingy. There are examples, and links to examples, on the Oracle Forms web site.

David

 

 

For web-based apps you can use a pjc

http://sheikyerbouti.developpez.com/forms-pjc-bean/pages/keystrokeinterceptor.htm

 

July 18, 2011

forms60.vrf(78): OS_ERROR while getting value Path

Filed under: dev6i,oracle — sikathabis @ 6:01 am
Tags: ,

links : http://forums.oracle.com/forums/thread.jspa?threadID=650537

Although this Q is not so “hot” anymore, several days before I’ve ran into same problem.
By searching the google for “forms60.vrf” I’ve found just this post with question and no good answers.
Since I’ve found the solution, I think it’s OK to share it with others.
Of course that Forms6i is not something of big interest these days, but there are still some of us that need to install Forms6i Developer for various reasons (maintaining old applications, preparations for migration to other technology, etc.)
I’ve tried installation with disabled anti virus (to tryout already suggested hint) , it didn’twork for me – installation failed with the same error.

OK, here is what I’ve done.

I’ve modified my PATH environment variable to “shorter” string, since I remember similar issues with several “older” (more…)

June 6, 2011

Filed under: dev6i,oracle — sikathabis @ 9:35 am
Tags: ,
Happy 2011 to everyone. I have been using TEXT_IO.FOPEN (‘LPT1′, ‘w’) in oracle form to sent text to LPT port printer without having any problem but nowadays most PC come with USB port and hence my programs failed to execute such command. Does anyone know or has any idea how to use TEXT_IO.FOPEN to sent text to USB printer direct?

Thank you and best regards.

TH

Hi TH Cheng

If you are using a new computer with an existing printer that still has a parallel connector, you could buy a USB to Centronics cable. When connected, it shows up as a parallel port in the hardware list.
(more…)

January 14, 2011

Contoh Delete_List_Element

Filed under: dev6i,oracle — sikathabis @ 11:10 am
Tags: ,

Jika List KD_JK_WKT1 mempunyai element list :

  1. ‘Tahun’,’T’
  2. ‘Bulan’,’B’
  3. ‘Hari’,’H’
  4. null

Kemudian di delete Hari secara manual, menjadi :

  1. ‘Tahun’,’T’
  2. ‘Bulan’,’B’
  3. null
  4. null

Clear_List(‘BLK_TEMP.KD_JK_WKT1′);

DELETE_LIST_ELEMENT(‘BLK_TEMP.KD_JK_WKT1′,2);

ADD_LIST_ELEMENT(‘BLK_TEMP.KD_JK_WKT1′, 1, ‘Tahun’, ‘T’);

Hasilnya adalah :

  1. ‘Tahun’,’T’
  2. ‘Bulan’,’B’
Next Page »

The Rubric Theme. Blog at WordPress.com.

KATAKAMIDOTCOM

Please also visit : INDONESIAKATAKAMI.WORDPRESS.COM

Tonk Kosonk Baonk Bunyinya

Penampungan Serapah Tanpa Sumpah

Qey050489's Blog

Ayo Bangkit sobat..!!!!!

Bang 'Cupuh' Totoraharjo

Rodok Medok Tapi Tampan

culturekitchen foodlab

New Food and Art in Yogyakarta

Wahyu Catur Wibowo

Musafir Dunia Maya

SQL.... Still Learning

My Reference on SQL Server

neinframe

Street Photography is like a box of a chocolates, you're never know what you're gonna get - Thomas Leuthard -

Keluarga Andrivito

-- Andrivito's Journal --

Dinesh Ram Kali.

This Blog is about latest News & update on software life-cycle. Free eBooks to download. Videos for few tips & tricks related to IT Programming.

Gaurav Saxena

|| तत् त्वम् असि ||

Be a good Moeslim

Menuju Pribadi Muslim Sejati yang Bertaqwa

TuanSUFI

Manajemen Sholat, renungan spiritual, Teknologi Informasi

Pelangi di khatulistiwa....

Mari berbagi kebaikan, pengalaman dan senyum denganku

angkasa13

Ceritanya saya, Pikirannya saya, Hatinya saya

sikathabis

sikathabis semua informasi disini

Don Charisma

because anything is possible with Charisma

Follow

Get every new post delivered to your Inbox.

Join 42 other followers