robledo

Tenho esta situação, Microsoft windowsCommon controls 6.0 (sp4) em uso Microsoft windowsCommon controls-2 6.0 (sp4) fora de uso Pergunta... é a mesma coisa ou são componentes diferentes? e continuo com o problema.... agora tirando a referencia do form, ele me dá o erro na hora que vou gerar o setup... alguém me ajude.... to com o corda no pescoço. Att.: Robledo

Show cara... perfeito... Funcionaou que foi bonito!!!! Obrigadão!

O que fiz... coloquei assim $envia = mail("imaginareventos@gmail.com","Confirmação de convidados",$imagcmsg); E para que eu queria acho que resolvel, fui na dica que me deu, se ele só envia o e-mail mesmo... apartir dai só está dando um erro de envio pois o meu servidor de e-mail não está configurado. Warning: mail() [function.mail]: Failed to connect to mailserver at "localhost" port 25, verify your "SMTP" and "smtp_port" setting in php.ini or use ini_set() in C:\Program Files\Apache Group\Apache2\htdocs\Imaginar\enviar.php on line 54 e minha porta de comunicação 25 está bloqueada. Você pode me ajudar?

é justamente este abaixo Fatal error: Call to undefined function ultramail() in C:\...\htdocs\Imaginar\enviar.php on line 54

Se eu tiro a linha que está dando erro... ele continua indicando a referencia!

O que seria então este ultramail? se ela não é uma função e não tem nada ralacionado a mesma junto com os códigos que eu tenho ou que vieram?

Pior que já.... Quando desmarco, o vb diz que a propriedade está sendo usada... ai não consigo retirar e se for acrescentar uma mais atual ela fala que já existe uma e não pode colocar outra... Aff Esse vb só me arruma para a cabeça! Me ajudem!

Galera, me ajudem please Baixei o um codigo do Virtual e-mail do site que envia um conteúdo de um formulário para um e-mail. Neste código existe uma linha que está dando erro... $envia = ultramail('imaginareventos@gmail.com',"$QtdConv",$imagcmsg); este ultramail o que é isso? se for uma função como ela pode ser modificada neste codigo? Aguardo Robledo Novo no PHP

Galera... Estou com um problema sério e urgente... quando estou abrindo o meu projeto: Erros during load. Refer to 'c:\CCA-FONTES 04.01()...\frmMain.log' for details Indo até o arquivo frmMain.log me passa o seguinte problema: Line 1907: Class MSComCtl2.DTPicker of control DTPicker1 was not a loaded control class. que poderia ser tal problema? Obs.: E em tempo de execução, tb encontro o mesmo problema... Porfavor algum me ajude! Att Robledo

Cara esta é a função completa, desta forma funciona, estou determinando na query um valor fixo para o que eu quero('Lojas Celular'), mas tenho que fazer buscar o valor da combo no momento do click entende? então ai onde está o ('Lojas Celular') tem que ficar o valor clicado no momento. Public Function rstCarregachf() As WeDoUtils.AFRecordset Dim sQuery As String Dim lResult As Long Dim sErrMsg As String On Error GoTo rstCarregachf_Error Set rstCarregachf = Nothing sQuery = "select a.agent_id, b.group_name from adm_agent_group a, adm_group b Where a.group_id = b.group_id and b.group_name = 'Lojas Celular' " Set rstCarregachf = myAFConnection.ExecQuery(sQuery, lResult, sErrMsg, "NO_PARAMETER") If rstCarregachf Is Nothing Then SetError "-1", "Erro na query " & sQuery myLog.OpenLog App.Path & "\log.log", "" myLog.WriteLog MODULE_NAME, "rstCarregachf", 1, "Erro na query " & sQuery myLog.CloseLog Set rstCarregachf = Nothing Exit Function End If Exit Function rstCarregachf_Error: SetError Err.Number, Err.Description myLog.OpenLog App.Path & "\log.log", "" myLog.WriteLog MODULE_NAME, "rstCarregachf", 1, GetLastErrorDesc myLog.CloseLog Set rstCarregachf = Nothing End Function

Tentei assim: Public Function rstCarregachf() As WeDoUtils.AFRecordset Dim sQuery As String Dim lResult As Long Dim sErrMsg As String On Error GoTo rstCarregachf_Error Set rstCarregachf = Nothing sQuery = "select a.agent_id, b.group_name from adm_agent_group a, adm_group b Where a.group_id = b.group_id and (b.group_name = frmAddAgent.cboGrupo.Text) Set rstCarregachf = myAFConnection.ExecQuery(sQuery, lResult, sErrMsg, "NO_PARAMETER") Não deu certo! é isso mesmo?

Minha duvida exatamente é como pegar esta propriedade e colocala neste select sQuery = "select a.agent_id, b.group_name from adm_agent_group a, adm_group b Where a.group_id = b.group_id and b.group_name = 'Propriedade .text'" Entende?

Boa tarde, Gostaria de saber como usar uma variável ou um valor de uma combo em um select. Ou seja, tenho duas combos uma dependendo do resultado da outra. ele só abrirá a segunda combo quando a primeira tiver sido escolhida. Tenho que pegar o valor da primeira combo jogar a na query da segunda e dar o resulatado... alguém já fez isso? Obrigado

É um componente que eu racionalmente faço a referencia do mesmo mas não consigo sair do erro... é uma variavel do tipo do componente... Entende? Que pode ser? pode ser o ocx? que está com problema? ou não registrado ou registrado errado? sei lá!?!??! At+ obrigado

Cara... Teoricamente Funcionou.... o que é este VBA? mas parou em outro erro, Method or data member not found Nesta função no ponto em vermelho... Private Sub Form_Load() FrmMain.Width = 15480 FrmMain.Height = 11220 FrmMain.Top = 0 FrmMain.Left = 0 Me.trmEnd.Enabled = False Me.CRMControl1.Top = 0 Me.CRMControl1.Left = 0 Me.CRMControl1.Logo = App.path & "\pic\Logo.bmp" Me.CRMControl1.path = App.path Me.CRMControl1.AppId = 1 Me.CRMControl1.Visible = False Me.CRMControl1.Minor = App.Minor Me.CRMControl1.Major = App.Major Me.CRMControl1.Revision = App.Revision If Me.CRMControl1.Begin() Then Screen.MousePointer = vbHourglass Set myConfig = CRMControl1.Config() Set myCollAgentProperties = myConfig.GetCollAgentProperties() If CheckVersion() Then Me.CRMControl1.AddTab "CUSTOMER", "Cliente", App.path & "\pic\cliente.bmp", Me.IntCustomerInfo, False, True 'Billing Me.CRMControl1.AddTab "BILLING", "Billing", App.path & "\pic\Billing.ico", Me.intBilling, False 'BRS06BRT02900 - WGC 10.01.2007 joao.msilva@wedoconsulting.com ' Motivo: ATIVACAO WGC If ACTIVAR_WGC = True Then ' If CRMControl1.bIsAcessoWGC = True Then Me.CRMControl1.AddTab "WGC", "WGC", App.path & "\pic\Net.bmp", Me.intWGC, True ' End If End If 'CampaignSearch 'Este tab deve ficar disponível só para quem de direito 'CCADMIN If CRMControl1.bIsCollectionConsultant Then Me.CRMControl1.AddTab "CAMPAIGNSEARCH", "Grandes Clientes", App.path & "\pic\parcela_hist.bmp", Me.intCampaignSearch, True 'Inicialização do DataCustomer Set myDataCustomer = New WeDoCustomer.DataCustomer If Not myDataCustomer.InitControl(myConfig, _ myConfig.AFConnection, _ myConfig.LogObject) Then Screen.MousePointer = vbDefault CallEnd End If cmdRadicalCpf.Visible = True End If If CRMControl1.bIsConnectedToICS Then 'Parcelamento Me.CRMControl1.AddTab "PARCELAMENTOS", "Parcelamentos", App.path & "\pic\parcela.bmp", intParcelamento, False 'Me.CRMControl1.AddTab "HIST_PARCELAMENTO", "Histórico de Parcelamentos", App.path & "\pic\Billing.ico", Me.intHistParcel, False 'Promessas Me.CRMControl1.AddTab "PROMESSAS", "Promessas", App.path & "\pic\promessa.bmp", intPromessas, False 'Campanha --- cristina Me.CRMControl1.AddTab "CAMPANHA", "Campanhas", App.path & "\pic\Net.bmp", intCampanha, False intParcelamento.Visible = True intPromessas.Visible = True intCampanha.Visible = True Else MsgBox "A ligação ao ICS falhou. O CCA estará funcionando em standalone", vbInformation, "CCA" End If 'Histórico de Ações Me.CRMControl1.AddTab "HIST_ACCOES", "Histórico Ações", App.path & "\pic\Find_cust.bmp", Me.intHistAccoes, False 'DESCONTINUADO bfonseca 17-02-2004 'Me.CRMControl1.AddTab "WORK_ORDERS", "Ordens", App.path & "\pic\work_orders.bmp", Me.intWorkOrders, False Me.CRMControl1.BeginApp Me.CRMControl1.Visible = True Me.Refresh Screen.MousePointer = vbDefault 'mostra o User e o Grupo Me.Caption = Me.Caption & " -- Usuário: " & myConfig.UserID & " -- Grupo: " & myConfig.GroupId & " -- Campanha: " & myConfig.Campaign.Name Else Screen.MousePointer = vbDefault CallEnd End If Else CallEnd Screen.MousePointer = vbDefault End If wdpBilling_Invoices.Caption = "Faturas em Aberto" ...

Não tem um numero.... só a menságem... Será que pode ser um problema de referencia? Obrigado! Por favor alguém me responde!!! estou sem conseguir rodar meu código por conta deste problema!

AI vai um desafio a todos que possam me ajudar. Estou com um problemão... Este código rodava normalmente, fiz umas modficações no windows, então começãoram a aparecer vários erros, consegui arrumar alguns add referencias e componentes... este por insistencia continua " Expected array" na função que estou postando abaixo exatamente na linha que está left em vermelho... Socorro alguém me ajude... Public Function CheckVersion() As Boolean Dim strMajor As String Dim strMinor As String Dim strBuild As String Dim strPath As String Dim strVersion As String Dim intResponse As Integer Dim intWhere As Integer On Error GoTo errCheckVersion strVersion = myCollAgentProperties.Item("VERSION").Value intWhere = InStr(1, strVersion, ".", vbTextCompare) strMajor = Left(strVersion, intWhere - 1) strVersion = Right(strVersion, Len(strVersion) - intWhere) intWhere = InStr(1, strVersion, ".", vbTextCompare) strMinor = Left(strVersion, intWhere - 1) strBuild = Right(strVersion, Len(strVersion) - intWhere) strPath = myCollAgentProperties.Item("PATH").Value If App.Major <> strMajor Or _ App.Minor <> strMinor Or _ App.Revision <> strBuild Then MsgBox MSG_INVALIDVERSION, vbExclamation, "CCA" If App.Major = strMajor And _ App.Minor = strMinor And _ App.Revision < strBuild Then If MsgBox(MSG_EXISVERSION, vbYesNo + vbQuestion) = vbYes Then Upgrade strPath CheckVersion = False Else MsgBox MSG_VERSIONNOACTUAL, vbOKOnly + vbInformation CheckVersion = True End If Else MsgBox MSG_VERSIONNOUPEGRA, vbOKOnly + vbExclamation CheckVersion = True End If Else CheckVersion = True End If Exit Function errCheckVersion: CheckVersion = True End Function Obrigado....

Senhores... Estou com um problema parecido mas como eu uso um private sub para chamar uma classe e nesta chamada está dando o erro 424 Run-time alguém sabe o que pode ser? o código: Private Sub Command1_Click() WeDoPanelCC.Visible = True WeDoPanelCC.SetFocus Dim myInvoices As WeDoCustomer.Invoices Call BuildGridBoletosAtivos(wdBoletosAtivos) Call BuildGridHistoricoBoletos(wdHistoricoBoleto) 'Popula a Grid de Ultimas Facturas If gbSelecionado = True Then Não entra neste If For Each myInvoices In myCustomer.GetLastBoletosAtivos(myCustomer.CustomerId) Call InsertValuesBoletosAtivos(myInvoices, wdBoletosAtivos) 'Call InsertValuesHistoricoBoleto(myInvoices, wdgLastInvoices) Next wdgLastInvoices.InserePicture ("wdBoletosAtivos"), App.path & "\pic\Find_cust.bmp", ("Sim") Else For Each myInvoices In myCustomer.GetLastBoletosAtivos(myCustomer.CustomerId) Erro nesta chamada de Método Call InsertValuesBoletosAtivos(myInvoices, wdBoletosAtivos) 'Call InsertValuesHistoricoBoleto(myInvoices, wdgLastInvoices) Next wdgLastInvoices.InserePicture ("wdBoletosAtivos"), App.path & "\pic\Find_cust.bmp", ("Sim") End If End Sub

O problema é que tenho que usar este componente que estou usando... pois é um sistema com componentes proprios! Este que acho que é o problema!

Senhores... A linha que está da do o erro é esta. myGrid.AddLine (Sendo que myGrid é um componente) e a query está assim: sQuery = "SELECT b.customer_id ," & _ " b.account_id ," & _ " decode(b.long_distance_code,null,'',ltrim(b.long_distance_code,0))" & _ " ||'-'|| b.terminal_number ," & _ " a.billing_due_amount," & _ " a.created_date, " & _ " a.bill_due_date," & _ " case when nvl(a.billing_due_amount,0) > 0 and a.cancel_date is null and " & _ " a.payment_date is null then 'Ativo' else 'Inativo' end 'Situação'" & _ "FROM ics_cc_x_hotbilling_info@ICSHOM a, ics_it_t_account@ICSHOM b " & _ "where a.account_id = b.account_id " Que acham?