Hina Softwares, Senthilkumaran

Send Tamil SMS through  Oracle Forms6i - PL/SQL Procedure

sms 24.06.2016

Forms 6i Coding

 select pri , com into pri , com from sms_com where rownum =1;
 IF pri = 'ON' THEN
     declare
         p varchar2(100);
    n varchar2(100) := ' Dear.'||initcap(:tb_personal.name);
    r varchar2(20) := :tb_personal.regno;
    m varchar2(100);
    co varchar2(100) := com;
    msg varchar2(1000);
    msg1 varchar2(1000);
    sms varchar2(100) :=  '+91'||:tb_personal.mobile1;
    por varchar2(100) ;
    por1 varchar2(100);
    INST_NAME VARCHAR2(100) ;
 begin
     :system.message_level := '20';
    select sum(b.amount) into p from tb_personal a, tb_billing b
  where a.regno = b.regno and b.parity = :block3.date_3 ;
  select initcap(inst_name) into inst_name from encrypt where rownum = 1;

  msg :=inst_name||n||' RollNo. '||r||' Receipt No '||:block3.date_3||' Amount Rs.'||p|| ' has been paid in your Account Thank You!';
    msg1 := msg;
  por:= '/port:'||co||' /nologo /nosummary';
  por1 := por;
  host('d:\11i\sendsms\sendsms.exe '||por1||  ' " '||sms||' "  " '||msg1||' "',NO_SCREEN);

  IF NOT Form_Success THEN
     Message('Error -- '||SMS||' Message not sent.');
     MESSAGE ('CHECK YOUR COMMUNICATION PORT');
     insert into tb_send_sms_ok values (1,:tb_personal.name,:tb_personal.regno,co,sms,msg1,'Message Not Sent',SYSDATE);
  ELSE
     Message(SMS||' Message Sent.');
     insert into tb_send_sms_ok values (1,:tb_personal.name,:tb_personal.regno,co,sms,msg1,'Message Sent',SYSDATE);
  END IF;
     end;
     commit;


sms 24.06.2016