DbCloseAll()

   DevPos(8,32);DevOut("Registro de Venda Avulsa")

   DevPos( 10, 32 ) ; DevOut( "Data da Compra.: "+dtoc(date()) )
   DevPos( 12, 32 ) ; DevOut( "Codigo Cliente.: " )
   DevPos( 14, 32 ) ; DevOut( "CPF do Cliente.: " )
   DevPos( 16, 32 ) ; DevOut( "Numero do Cupom: " )
   DevPos( 17, 32 ) ; DevOut( "Valor da Venda.: " )
   DevPos( 18, 32 ) ; DevOut( "Observacoes....: " )

   abra_arq("sccrcli")
   w_fcli = reccount()
   ztentativas = 0
   while .t.
      w_fcli = VAR_GET(12,48, w_fcli)
      if Psq_brow("sccrcli","psccrcpf","w_fcli","N","N",13,32,"cr_nome","@s30")
      	 m_cr_cgc = cr_cgc
         if alltrim(m_cr_cgc)<>"".and.cpf_ok(alltrim(m_cr_cgc))
            exit
         endif
         alert("CPF "+alltrim(m_cr_cgc)+" invalido...Informe outro...")
      else
         alert("Codigo "+str(w_fcli,6)+" invalido...Informe outro...")
      endif
      ztentativas = ztentativas + 1
      if ztentativas>3
         alert("Tentativas excedidas...Abandonando operacoes...")
         exit
      endif
      w_fcli = recno()
   enddo
   DbCloseAll()

DevPos( 14, 50 ) ; DevOut( m_cr_cgc )
m_fnumped    = 0
m_fval       = 0
m_fobs       = space(30)
m_fnumped    = VAR_GET(16,50, m_fnumped)   
m_fval       = VAR_GET(17,50, m_fval)   
m_fobs       = VAR_GET(18,50, m_fobs)   

s_socket = sockopen("10.10.1.30", "632")
if s_socket>0
   x_mensagem_a_enviar = "AVULSA:" + left(m_cr_cgc,14) + strzero(m_fnumped,6) + strzero(m_fval*100,12)
   x_gravados = sockwrite(s_socket, x_mensagem_a_enviar)
   sockclose(s_socket)
endif
if s_socket=0
   alert("Nao Conseguiu conexao...")
endif