USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  SE NÃO RETORNAR ALGUM REGISTRO
Dário Cardoso
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 08/10/2008 10:00 hs            

PESSOAL COMO EU FAÇO PRA SABER SE ALGUM REGISTRO NAO FOR ENCONTRADO NA SELECT ABAIXO ????

Explico: Estou imprimindo na ARGOX e se algum dos dados digitados não existir no ORACLE então não precisa emitir e avisa o usuario, pois se digitou errado digita novamente.

 

'##--- INICIO -- EXECUTA SQL ---------------------------------------------------------

Dim SQL

SQL = SQL & "SELECT a.tip_razao_social, " 'campo RAZAO loja

SQL = SQL & "a.tip_fone_ddd, " 'campo DDD loja

SQL = SQL & "a.tip_fone_num, " 'campo FONE loja

SQL = SQL & "a.tip_cgc_cpf, " 'campo CNPJ loja

SQL = SQL & "b.esch_nro_nota, " 'campo Nº NF

SQL = SQL & "b.esch_ser_nota, " 'campo SERIE NF

SQL = SQL & "b.esit_codigo, " 'campo COD. PRODUTO

SQL = SQL & "b.esit_digito, " 'campo DIGITO COD. PRODUTO

SQL = SQL & "c.tip_cgc_cpf, cnpj_fonec " 'campo CNPJ fornecedor

SQL = SQL & "b.entsai_quanti_un " 'campo QTD NF

SQL = SQL & "FROM aa2ctipo a, " 'TABELA DO FORNECEDOR

SQL = SQL & "ag1fensa b, " 'TABELA DA LOJA

SQL = SQL & "aa2ctipo c " 'TABELA DO FORNECEDOR

SQL = SQL & "WHERE a.tip_codigo = '" & txt_loja & "' AND "

SQL = SQL & "c.tip_codigo = '" & txt_cod_fornecedor & "' AND "

SQL = SQL & "esch_nro_nota2 = '" & txt_nf & "' AND "

SQL = SQL & "esch_ser_nota2 = '" & Serie_com_espaco & "' AND "

SQL = SQL & "esit_codigo2 = '" & txt_cod_produto & "' AND "

SQL = SQL & "b.eschlj_codigo2 = c.tip_codigo"

rs.Open SQL, conexao, adOpenStatic, adLockOptimistic

'## RETORNA A CONSULTA NAS CONSTANTES

If Not rs.EOF Then

RAZAO_LOJA = rs!tip_razao_social

FONE_DDD_LOJA = rs!tip_fone_ddd

FONE_LOJA = rs!tip_fone_num

CNPJ_LOJA = rs!tip_cgc_cpf

NF_NUM = rs!esch_nro_nota

NF_SERIE = rs!esch_ser_nota

PROD_COD = rs!esit_codigo

PROD_DIGITO = rs!esit_digito

COD_CNPJ_FORNECEDOR = rs!cnpj_fonec

End If

'##--- FIM -- EXECUTA SQL ---------------------------------------------------------

 
   
J.Carlos
Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 08/10/2008 10:55 hs            
É só colocar a chamada da impressão dentro do If...

If Not rs.EOF Then

   ...aqui....

TÓPICO EDITADO
 
Dodomr
CRICIUMA
SC - BRASIL
ENUNCIADA !
Postada em 08/10/2008 12:06 hs         
If rs.recordcount > 0 then
If Not rs.EOF Then
RAZAO_LOJA = rs!tip_razao_social
FONE_DDD_LOJA = rs!tip_fone_ddd
FONE_LOJA = rs!tip_fone_num
CNPJ_LOJA = rs!tip_cgc_cpf
NF_NUM = rs!esch_nro_nota
NF_SERIE = rs!esch_ser_nota
PROD_COD = rs!esit_codigo
PROD_DIGITO = rs!esit_digito
COD_CNPJ_FORNECEDOR = rs!cnpj_fonec
End If
else
msgbox "Não Achei!!!"
end if
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página