zekasan

Obrigado pela dica

eu coloquei o seguinte e parece que funcionou and not (a.cdinscricao = '49351786001071' and a.intipoemissao = 5) é igual ao harbour, quando coloco entre parenteses ele assume um só resultado?

Seria como se fosse isso do whil .t. if CNPJ = '49351786001071' .and. intipoemissao = 5 skip loop endif . . enddo Não consegui colocar esta condição dentro do script

Não é isso, aí ele vai pegar só o que for deste cnpj com tipo de impressão que não seja 5 eu não quero que seja selecionado documentos deste CNPJ com tipo de emissão 5. EU quero pegar de todos os outros CNPJ do BD e deste CNPJ, porém deste CNPJ eu não quero os tipo 5

Bom dia, abaixo um dos select do meu prg "select count(1) as qt, sum(case when a.vlliquido = a.vltotalprestacao then (a.vlliquido - a.vlicms) "+; "when a.vlliquido <> a.vltotalprestacao then (a.vlliquido - a.vlICMScredpres) "+; "end) as valorliquido_meta, c.cdempresa as empresa_meta, "+; "convert(nvarchar(10), a.dtemissao, 103) as emissao_rela "+; "from gtcconhe a "+; "left join sisclifa b on a.cdinscricao = b.cdinscricao "+; "left join sisrepre c on b.cdrepresentante = c.cdrepresentante "+; "where isnull(a.inconhecimento,0) = 0 "+; "and a.dtemissao >= '"+DATA_SQL(DATA_INICIO_META)+"' "+; "and a.dtemissao <= '"+DATA_SQL(DATA_FIM_META)+"' "+; "and a.cdinscricao = '49351786001071' "+; "and a.intipoemissao = 5 "+; "group by c.cdempresa, a.dtemissao "+; "order by c.cdempresa, a.dtemissao " Destacado em vermelho, pego todos CTe que foram emitidos para o cnpj e que tiveram o tipo de emissão = 5 O que eu preciso também é o contrário, que ele não pegue os CTe deste CNPJ com o tipo de emissão 5 (somente estes não podem ser pegos) Podem me ajudar? Grato

Ele de vez em qdo demora prá responder

Exato, porém tem que usar com o CreateObject('InternetExplorer.Application'), senão ele não atualiza a página principal que esta o captcha, qdo vc usa o link ( "http://www.ieptb.com...eracaptcha.php") ele irá 'substituir' o captcha inicial.

Tem algum método que eu consiga jogar o código abaixo para ser exibido dentro da minha dialog? e não na página do browser? Aí eu mataria uma fase do captcha. oIE1 := CreateObject('InternetExplorer.Application') oIE1:Visible := .t. oIE1:left := 0 oIE1:top := 0 oIE1:height := 180 oIE1:width := 260 oIE1:Visible := .T. oIE1:Navigate( "http://www.ieptb.com.br/geracaptcha.php") while( oIE1:ReadyState != 4 ) HB_IdleSleep( 0 ) end while

Legal, mas eu quero pular a página original de cada site, simplificar a consulta. Tem que ser uma consulta mais ágil. Encadeada dependendo da situação do cliente eu nem passo ao próximo passo. Já bloqueio ele logo de cara

Seria um próximo passo, caso consiga ultrapassar esta barreira (rsrsrs)

A imagem do captcha eu estou conseguindo puxar, porem qdo puxo esta imagem ela já é outra diferente da primeira chamada da página. Aí tá pegando.

Obrigado pela ajuda, mas não se enquadra ainda no que eu preciso: Programa que está sendo desenvolvido: - Usuário digita o CNPJ ou CPF - O sistema verifica primeiramente no banco de dados interno se há alguma restrição para aquele cliente - Não havendo restrição ele irá procurar no www.ieptb.com.br se há algum protesto negativando o cliente - Caso não haja restrição ele irá depois na receita e no sintegra para verificar se ele está ativo. - Eu preciso que não mostre a página de cada www, vou entrar com o cnpj automaticamente em cada página, mostrando apenas o captcha de cada www em uma dialog minha. - Isto para agilizar o processo, semi-automatizando a pesquisa, porque o cliente pode estar na linha.

Obrigado pelas sugestões, vamos fazendo um mixer e testando.

Não é bem isso que eu preciso, o site http://www.ieptb.com.brmostra um captcha na página, preciso pegar este captcha e jogá-lo na minha dialog, para depois tratar a segunda página que vem com a pesquisa.

Bom dia, alguma alma caridosa poderia me dizer como eu pego esta bendita imagem (www.ietpb.com.br) e a coloco em uma dialog? Já vasculhei em todo canto e não consegui, nadei e morri na praia. Esta imagem é gerada pelo link "http://www.ieptb.com.br/geracaptcha.php". Obrigado.

Function SemanaMes( data ) return (week(data) - week(bom(data)) + 1)

Kabiaba, a função não muda apenas a cor do título, ela muda a cor do título, da moldura e faz o arredondamento da moldura tb...

Bom dia, é um assunto abordado várias vezes, achei este código em C# para alterar as cores do group-box, é possível usarmos no Five com xHarbour? Alguém poderia 'traduzir' ? * borderColor = Cor da borda * textColor = Cor do texto do título do groupbox * radius = Define a curvatura da borda public class myGroupBox:GroupBox { private Color borderColor; private float radius; private Color textColor; public Color BorderColor { get { return this.borderColor; } set { this.borderColor = value; } } public float Radius { get { return this.radius; } set { this.radius = value; } } public Color TextColor { get { return this.textColor; } set { this.textColor = value; } } public myGroupBox() { this.borderColor = Color.Black; this.textColor = Color.Black; this.radius = 8; } protected override void OnPaint(PaintEventArgs e) { GraphicsPath gp = new GraphicsPath(); gp.AddArc(e.ClipRectangle.X + e.ClipRectangle.Width - 2 - (radius * 2), e.ClipRectangle.Y + 8, radius * 2, radius * 2, 270, 90); gp.AddArc(e.ClipRectangle.X + e.ClipRectangle.Width - 2 - (radius * 2), e.ClipRectangle.Y + e.ClipRectangle.Height - 2 - (radius * 2), radius * 2, radius * 2, 0, 90); gp.AddArc(e.ClipRectangle.X, e.ClipRectangle.Y + e.ClipRectangle.Height - 2 - (radius * 2), radius * 2, radius * 2, 90, 90); gp.AddArc(e.ClipRectangle.X, e.ClipRectangle.Y + 8, radius * 2, radius * 2, 180, 90); gp.CloseFigure(); e.Graphics.DrawPath(new Pen(borderColor), gp); Size tSize = TextRenderer.MeasureText(this.Text, this.Font); Rectangle textRect = e.ClipRectangle; textRect.X += 15; textRect.Width = tSize.Width; textRect.Height = tSize.Height; e.Graphics.FillRectangle(new SolidBrush(this.BackColor), textRect); e.Graphics.DrawString(this.Text, this.Font, new SolidBrush(textColor), textRect); } } }

ELSEIF ::cUF == "RJ" oActiveXdo:All:Item("CGC",0):Value := cCnpj * oActiveXdo:All:Item("cod_img",0):Focus() oActiveXdo:All:Item("recaptcha_response_field",0):Focus()

Boa tarde, é possível com a versão 12.07 do five deixar a ribbon bar no estilo 2010 black?

Exemplo retirado do site indicado pelo Gilmer * Connect to SMTP server then send email Function SendMail(ToList, Subject, Message) Local Kode Local SmtpHost Local SmtpUser Local SmtpPass Local SmtpFrom Local SmtpRepl y Local ccList Local bccList Local Attachments SmtpHost = "smtp.my-isp.com" SmtpUser = "my-user-name" SmtpPass = "my-password" SmtpFrom = "<mike@my-isp.com>" SmtpReply= "<mike@my-isp.com>" ccList = Chr(0) bccList = Chr(0) Attachments = Chr(0) * specify the port to connect on (default port is 25) seeIntegerParam(0, SEE_SMTP_PORT, 587) * enable "SMTP Authentication" Kode = seeIntegerParam(0, SEE_ENABLE_ESMTP, 1) * specify the user name and password for SMTP authentication seeStringParam(0, SEE_SET_USER, SmtpUser) seeStringParam(0, SEE_SET_SECRET, SmtpPass) * connect to SMTP server Kode = seeSmtpConnect(0, SmtpHost, SmtpFrom, SmtpReply) * error ? (negative return Kodes are errors) if Kode < 0 return Kode endif * send email to list of recipients (ToList) Kode = seeSendEmail(0,ToList,ccList,bccList,Subject,Message,Attachments) return Kode

Você já verificou as regras de compartilhamento da pasta? usuários que tem acesso a ela (leitura e escrita)

parte de programa que uso: Function EnviaMail() //(oassunto,odestino,otexto) local cUser := Space(50), cPass := Space(15), cRemt := Space(50), ; cDest := Space(250), cTime, cAssuntoE := Space(500),; cCC := "", cCCO := "" local oDlg, oSay[12], oBtn[2], nItem := 0 local cDados, i private oGet[8] if IsInternet() == .f. msgstop("Necessário conexão com internet."+CRLF+"Operação cancelada","Informação") return .f. endif cTxt := CORPO cAssuntoE := ASSUNTO cDest := FATURA->EMAI Private oCab, oGru, oCon, oCod, oMenu, lSair := .f., oM2, lCheck := .t. if( lRet := Config_Mail(Lower(alltrim(iEMAIL_CONTA)),Alltrim(iEMAIL_SENHA),Lower(Alltrim(iEMAIL_CONTA)),; Lower(Alltrim(cDest)),Lower(Alltrim(cCC)),Lower(Alltrim(cCCO)), cTxt, cAssuntoE ), ; oText_Log:Add("Fatura "+FATURA->NUME+" enviada com sucesso para o e-mail "+FATURA->EMAI+" - "+time()),) Return Nil Function Config_Mail(cUser,cPass,cRemt,cDest, cCC, cCCO, cTxt, cSubject) local lRet := .f. local oCfg, oError local cServ := iEMAIL_PROVEDOR local nPort := iEMAIL_PORTA local lAut := iEMAIL_AUTENTICA local lSSL := iEMAIL_SSL * cUser := email_usuario TRY oCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cServ :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := nPort :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := lAut :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := lSSL :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := cUser :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := cPass :Update() END WITH lRet := .t. CATCH oError oText_Log:Add("ERRO: problema na configuração CDO.Configuration na Fatura "+FATURA->NUME+" ,e-mail "+FATURA->EMAI+" - "+time()) /* MsgInfo( "Não Foi possível Enviar o e-Mail!" +CRLF+ ; "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ; "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ; "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensaje: " + oError:Description, "Atenção" ) */ END //--> FIM DAS CONFIGURAÇOES. if lRet lRet := Envia_Mail(oCfg,cRemt,cDest, cCC, cCCO, cTxt, cSubject) endif Return lRet Function Envia_Mail(oCfg,cFrom, cTo, cCC, cBCC, cMsg, cSubject) local cToken local lRet := .f. cTo := cTo //--> PARA cCC := cCC //--> COM COPIA cBCC := cBCC //--> COM COPIA OCULTA TRY oMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration := oCfg :From := cFrom :To := cTo :CC := cCC :BCC := cBCC :Subject := cSubject :TextBody := cMsg //:HTMLBody = cMsg :AddAttachment(ARQUIVO_PDF) :Send() END WITH lRet := .t. CATCH oText_Log:Add("ERRO: problema na configuração CDO.Message na Fatura "+FATURA->NUME+" ,e-mail "+FATURA->EMAI+" - "+time()) lRet := .f. END Return lRet

Daniel, pode mostrar o caminho das pedras? Preciso de algo como base para fazer funcionar esta DLL. É muito importante para mim. OBRIGADO<

Boa tarde, achei este tópico no CodeProject http://www.codeproject.com/Articles/42852/Reading-Barcodes-from-an-Image-III fiz o download de todos os arquivos, porém não consegui fazer funcionar a dll no fivewin. alguém pode me ajudar? É uma dll interessante para extrair o code128 de uma imagem.