ADO

ALVAROBESSA 23/04/2012 15:49:59
#400539
Estou com umm problema na conexao ADO em vb6.O sistem o possui lojas, cada uma idependente da outra.Existem alguns parametros de bloqueio, como o uf do cliente tem que ser o mesmo UF da loja.So que quando por exemplo estou na loja natal o UF que o ADODC recebe sempre e o UF de fortaleza.Gostario se possivel de saber como set a Loja e o UF em questão.Obrigado
GOODSPEAKERS 23/04/2012 15:59:19
#400540
Ola.

Pode ser mais claro na questão......
ALVAROBESSA 23/04/2012 16:47:09
#400552
Esse e o codigo que chama a loja.
As lojas sao Fortaleza,Natal

Private Sub CboLojaOrc_Change()
On Error GoTo LbErro
If CboLojaOrc.Text <> [Ô][Ô] Then
[ô]DtcLoja.Recordset.Bookmark = CboLojaOrc.SelectedItem
If CboLojaOrc.BoundText <> VlCdLojaOrc Then
[ô] If MsgBox(VgNmUsuario & [Ô], esse orçamento pertencerá a [Ô] & CboLojaOrc.Text & [Ô] ?[Ô], vbQuestion + vbYesNo + vbDefaultButton2, [Ô]Validação[Ô]) = vbNo Then
[ô] CboLojaOrc.BoundText = VlCdLojaOrc
[ô] CboLojaOrc.SetFocus
[ô] Exit Sub
[ô] Else
VlCdLojaOrc = CboLojaOrc.BoundText
CboLojaOrc.SetFocus
[ô] End If

SlLimpar

CboLojaOrc.SetFocus

If Not FlPreparaOrc(CboLojaOrc.BoundText) Then
Exit Sub
End If
End If
Else
SlLimpar
CboLojaOrc.SetFocus
End If
Exit Sub
LbErro:
Call SgErro(Err)
End Sub

Private Sub CboLojaOrc_DblClick(Area As Integer)
On Error GoTo LbErro
CboLojaOrc.Text = [Ô][Ô]
[ô]Set CboLojaOrc.RowSource = Nothing
VlSql = [Ô]SELECT * FROM Loja L [Ô]
VlSql = VlSql & [Ô] WHERE FlInativo = 0[Ô]
[ô]vlSql = vlSql & [Ô] WHERE CdLoja IN (SELECT CdLojaOrcamento FROM RegraVenda WHERE CdLojaLogada = [Ô] & VgLoja & [Ô])[Ô]
VlSql = VlSql & [Ô] ORDER BY NmLoja[Ô]
[ô] Set RsCboLojaOrc = FgADOGetRecordset(VlSql)
[ô] Set CboLojaOrc.RowSource = RsCboLojaOrc
Set DtcLojaOrc.Recordset = FgADOGetRecordset(VlSql)
Set CboLojaOrc.RowSource = DtcLoja.Recordset
Exit Sub
LbErro:
Call SgErro(Err)
End Sub


Essa e a condiçao a ser executada



If DtcLojaOrc.Recordset!CdUf = [Ô]CE[Ô] Or DtcLojaOrc.Recordset!CdUf = [Ô]RN[Ô] Then
If CboUf.Text <> [Ô][Ô] Then
If DtcLojaOrc.Recordset!CdUf <> CboUf.Text Then
MsgBox VgNmUsuario & [Ô], loja do pedido deverá ser da mesma UF do local de entrega![Ô], vbExclamation
CboLojaOrc.SetFocus
Exit Function
End If
Else
If DtcLojaOrc.Recordset!CdUf <> VlUfCliente Then
MsgBox VgNmUsuario & [Ô], loja do pedido deverá ser a mesma UF do cliente![Ô], vbExclamation
CboLojaOrc.SetFocus
Exit Function
End If
End If
End If

Se a loja for difrente da Uf do cliente nao permite a venda.
So que o ADOdc so traz como retorno a loja 1 que e Fortaleza
FILMAN 23/04/2012 17:08:42
#400558 Resposta escolhida
Pelo que entendi lendo o seu código vai retornar somente um UF mesmo que é a da LOJALOGA

Tenta fazer assim

VlSql = [Ô]SELECT * FROM Loja L WHERE FlInativo = 0 [Ô]
VlSql = VlSql & [Ô]AND CdLoja IN (SELECT CdLojaOrcamento FROM RegraVenda WHERE CdLojaLogada = [Ô] & VgLoja & [Ô])[Ô][Ô]
VlSql = VlSql & [Ô] ORDER BY NmLoja[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar