<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<STYLE>.hmmessage P {
        PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px
}
BODY.hmmessage {
        FONT-SIZE: 10pt; FONT-FAMILY: Verdana
}
</STYLE>

<META content="MSHTML 6.00.6000.16735" name=GENERATOR></HEAD>
<BODY class=hmmessage bgColor=#ffffff>
<DIV><FONT face=Arial>Olá Ricardo, </FONT></DIV>
<DIV><FONT face=Arial></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial>Publiquei na lista um codigo completo de consulta de 
saldo,</FONT><FONT face=Arial> creio que Vanessa se referiu a minha 
postagem.</FONT></DIV>
<DIV><FONT face=Arial></FONT><FONT face=Arial></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial>Segue codigo completo!</FONT></DIV>
<DIV><FONT face=Arial></FONT>&nbsp;</DIV>
<DIV><SPAN lang=PT-BR>
<P>; Macro para consulta de saldo.</P>
<P>[macro-saldo]</P>
<P>&nbsp;&nbsp;&nbsp; ; Consulta o saldo e define as variaveis, neste caso 
usando ODBC!</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,1,noop(____Consultando Saldo____)</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,set(saldo=${ODBC_SALDO(${CALLERID(num)})}) 
</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,Set(reais=${IF($["${saldo:0:-3}" = 
""]?0:${saldo:0:-3})})</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,Set(centavos=${saldo:-2:2})</P>
<P><FONT face=Arial></FONT>&nbsp;</P>
<P></P>
<P>&nbsp;&nbsp;&nbsp; ; Decide se fala "seu creditos acabaram, ..... insira novo 
credito" </P>
<P>&nbsp;&nbsp;&nbsp; ; ou "seu saldo atual eh" </P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,Set(total=${saldo:0:-3}${saldo:-2:2})</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,gotoif(0$[${total} &gt; 0]?fala_saldo)</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,playback(saldo_zero)</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,goto(encerra) </P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n(fala_saldo),playback(saldo_atual)</P>
<P><FONT face=Arial></FONT>&nbsp;</P>
<P></P>
<P>&nbsp;&nbsp;&nbsp; ; Decide se fala reais ou nao</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,gotoif(0$[${reais} = 0]?fala_e) </P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,saynumber(${reais})</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,playback(${IF(0$[${reais} = 
1]?real:reais)})</P>
<P></P>
<P>&nbsp;&nbsp;&nbsp; ; Decide se fala "e" ou nao</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n(fala_e),gotoif(0$[${reais} = 
0]?fala_centavos) </P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,gotoif(0$[${centavos} = 
0]?fala_centavos)</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,playback(and)</P>
<P><FONT face=Arial></FONT>&nbsp;</P>
<P></P>
<P>&nbsp;&nbsp;&nbsp; ; Decide se fala centavos ou nao</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n(fala_centavos),gotoif(0$[${centavos} = 
0]?encerra) </P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,saynumber(${centavos})</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,playback(${IF(0$[${centavos} 
=1]?centavo:centavos)})</P>
<P><FONT face=Arial></FONT>&nbsp;</P>
<P></P>
<P>&nbsp;&nbsp;&nbsp; ; Agradece e encerra a chamada </P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n(encerra),playback(silence)</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,playback(auth-thankyou)</P>
<P>&nbsp;&nbsp;&nbsp; exten =&gt; s,n,hangup</P></SPAN></DIV>
<BLOCKQUOTE 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  <A title=ricardo_mn1979@hotmail.com 
  href="mailto:ricardo_mn1979@hotmail.com">Ricardo Monte Negro</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A 
  title=asteriskbrasil@listas.asteriskbrasil.org 
  href="mailto:asteriskbrasil@listas.asteriskbrasil.org">AsteriskBrasil</A> 
  </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, November 17, 2008 9:25 
  AM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [AsteriskBrasil] CONSULTA 
  SALDO!</DIV>
  <DIV><BR></DIV>O código está funcionando mas... ele ainda fala 
  errado!<BR>&nbsp;<BR>100.34 = um cem reais e trinta quatro centavos <BR>303.20 
  = três cem reais e vinte centavos<BR>536=00 = cinco cem 
  reais<BR>&nbsp;<BR>Alguem achou uma solução para isso?<BR>&nbsp;<BR>cem, 
  duzentos, trezentos...<BR>&nbsp;<BR><BR><BR>&nbsp;<BR>
  <HR id=stopSpelling>
  <BR>Date: Sun, 16 Nov 2008 17:18:00 -0200<BR>From: <A 
  href="mailto:vanessasather@bol.com.br">vanessasather@bol.com.br</A><BR>To: <A 
  href="mailto:asteriskbrasil@listas.asteriskbrasil.org">asteriskbrasil@listas.asteriskbrasil.org</A><BR>Subject: 
  Re: [AsteriskBrasil] CONSULTA SALDO!<BR><BR><BR>Alguem ja postou mas não me 
  lembro quem.. peço ate desculpas mas segue abaixo:<BR>ma sugestão seria você 
  utilizar um agi para isso, faz a leitura no<BR>banco com um script perl ou 
  php, pega os valores, separa, joga o<BR>playback, e ja 
  era<BR><BR>Set(CDR(accountcode)=${CODIGO})<BR>exten =&gt; 
  7788,1,Set(saldo=5.71) ; proveniente com duas casas decimais<BR>exten =&gt; 
  7788,n,Set(inteiro=${saldo:0:$[${Len(saldo)}-3]})<BR>exten =&gt; 
  7788,n,Set(centavos=${saldo:$[${Len(saldo)}-2]})<BR>exten =&gt; 
  7788,n,Playback("saldo_de")<BR>exten =&gt; 
  7788,n,SayNumber(${inteiro})<BR>exten =&gt; 7788,n,PlayBack($[${inteiro} = 1 ? 
  real :: reais])<BR>exten =&gt; 7788,n,GotoIf($[${centavos} = 0]?fim)<BR>exten 
  =&gt; 7788,n,Playback(e)<BR>exten =&gt; 7788,n,SayNumber(${centavos})<BR>exten 
  =&gt; 7788,n,Playback($[${centavos} = 1 ? centavo :: centavos])<BR>exten =&gt; 
  7788,n(fim),PlayBack(Obrigado)<BR>exten =&gt; 
  7788,n,Hangup<BR>&nbsp;<BR><BR><BR><BR>Em 15/11/2008 08:54, <STRONG><SPAN 
  title="Pruonckk le Punk<pruonckk@pruonckk.org>">Pruonckk le Punk 
  </SPAN></STRONG>escreveu:<BR>
  <BLOCKQUOTE 
    style="PADDING-LEFT: 1ex; BORDER-LEFT: #6868cc 2px solid"><BR>Teste algo 
    assim<BR><BR>[macro-CONSULTASALDO]<BR>exten = s,1, 
    Playback(Consulta_saldo)<BR>exten = s,n, 
    RealTime(usuario,codusuario,${Usuario},var_)<BR>exten = s,n, 
    SayNumber(VALOR_SEM_VIRGULA);<BR>exten = s,n, PlayBack(reais&amp;e)<BR>exten 
    = s,n, SayNumber(VALOR_DEPOIS_DA_VIRGULA)<BR>exten = s,n, 
    PlayBack(centavos)<BR>exten = s,n, HangUp()<BR>exten = h,n, 
    HangUp<BR><BR>Ricardo Monte Negro escreveu:<BR>&gt; Olá, sou novo no 
    asterisk.<BR>&gt; <BR>&gt; Gostaria de uma dica sobre como criar uma macro 
    que<BR>&gt; consulte o saldo do usuario.<BR>&gt; <BR>&gt; 
    [macro-CONSULTASALDO]<BR>&gt; exten = s,1, Playback(Consulta_saldo)<BR>&gt; 
    exten = s,n, RealTime(usuario,codusuario,${Usuario},var_)<BR>&gt; exten = 
    s,n, SayDigits(var_saldo);<BR>&gt; exten = s,n, HangUp()<BR>&gt; exten = 
    h,n, HangUp<BR>&gt; <BR>&gt; <BR>&gt; O problema é que ele lê: 100,32: um 
    zero zero tres dois<BR>&gt; E gostaria de algo: Cem reais e trunta e dois 
    centavos.<BR>&gt; <BR>&gt; Obrigado,<BR>&gt; <BR>&gt; Ricardo!<BR>&gt; 
    <BR>&gt; <BR>&gt;<BR>&gt;<BR>&gt; 
    ------------------------------------------------------------------------<BR>&gt; 
    Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS <BR>&gt; 
    para o Messenger! É GRÁTIS! <BR>&gt; 
    ------------------------------------------------------------------------<BR>&gt;<BR>&gt; 
    _______________________________________________<BR>&gt; 2 a 4 de Dezembro - 
    IPComm 2008<BR>&gt; Com presença de engenheiros da Digium e Jon "maddog" 
    Hall.<BR>&gt; http://www.ipcomm2008.com.br<BR>&gt;<BR>&gt; Compre uma 
    camiseta da AsteriskBrasil.org!<BR>&gt; 
    http://www.voipmania.com.br<BR>&gt;<BR>&gt; Acesse o canal IRC de discussão 
    sobre Asterisk em Português Brasileiro na rede Freenode.net: 
    #asterisk-br<BR>&gt; _______________________________________________<BR>&gt; 
    Lista de discussões AsteriskBrasil.org<BR>&gt; 
    AsteriskBrasil@listas.asteriskbrasil.org<BR>&gt; 
    http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil<BR><BR>_______________________________________________<BR>2 
    a 4 de Dezembro - IPComm 2008<BR>Com presença de engenheiros da Digium e Jon 
    "maddog" Hall.<BR>http://www.ipcomm2008.com.br<BR><BR>Compre uma camiseta da 
    AsteriskBrasil.org!<BR>http://www.voipmania.com.br<BR><BR>Acesse o canal IRC 
    de discussão sobre Asterisk em Português Brasileiro na rede Freenode.net: 
    #asterisk-br<BR>_______________________________________________<BR>Lista de 
    discussões 
    AsteriskBrasil.org<BR>AsteriskBrasil@listas.asteriskbrasil.org<BR>http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil<BR><BR></BLOCKQUOTE><BR>
  <HR>
  Conheça já o Windows Live Spaces, o site de relacionamentos do Messenger! <A 
  href="http://www.amigosdomessenger.com.br" target=_new>Crie já o seu!</A> 
  <P>
  <HR>

  <P></P>_______________________________________________<BR>2 a 4 de Dezembro - 
  IPComm 2008<BR>Com presença de engenheiros da Digium e Jon "maddog" 
  Hall.<BR>http://www.ipcomm2008.com.br<BR><BR>Compre uma camiseta da 
  AsteriskBrasil.org!<BR>http://www.voipmania.com.br<BR><BR>Acesse o canal IRC 
  de discussão sobre Asterisk em Português Brasileiro na rede Freenode.net: 
  #asterisk-br<BR>_______________________________________________<BR>Lista de 
  discussões 
  AsteriskBrasil.org<BR>AsteriskBrasil@listas.asteriskbrasil.org<BR>http://listas.asteriskbrasil.org/mailman/listinfo/asteriskbrasil</BLOCKQUOTE></BODY></HTML>