datilas

vc ja tentou assim: WebBrowser1.OleObject.Document.all.Item('usuario', 0).value := usuario.Text;

nem sempre a pagina salva tem todos os elementos nessesarios, mas não cutsta nada tentar, envia ai.

eu não tenho o login então fica dificil testar

alguma previsão para subir para o svn?

no ACBrValidador tem a opção ExibeDigitoCorreto, eu uso assim eu envio 8 digitos sendo o ultimo um numero aleatório e mando validar então o componente exibe o digito correto então eu uso copy(minhabarra,1,7)+ACBrValidador1.DigitoCalculado; sempre funcionou comigo só para ter ideia, vc pode usar o demo assim procedure TfrValidador.bValidarClick(Sender: TObject); begin bFormatarClick( Sender ); ACBrValidador1.Documento := edDocto.Text ; ACBrValidador1.Complemento := edComple.Text ; ACBrValidador1.IgnorarChar := edIgnorar.Text ; if ACBrValidador1.Validar then mMsgErro.Text := 'Documento OK' else Begin mMsgErro.Text := ACBrValidador1.MsgErro ; mMsgErro.Lines.Add(Copy(edDocto.Text,1,7)+ACBrValidador1.DigitoCalculado); end; end; ou se vc preferir pode usar a função do próprio componente adicionar na uses Math function CalcularDV(ACodigoGTIN: String): String; var Dig, I, DV: Integer; begin DV := 0; Result := '' ; // adicionar os zeros a esquerda, se não fizer isso o cálculo não bate // limite = tamanho maior codigo (gtin14) - 1 (digito) //ACodigoGTIN := PadR(ACodigoGTIN, 13, '0'); While Length(ACodigoGTIN) < 13 do ACodigoGTIN := '0'+ACodigoGTIN; //eu alterei aqui for I := Length(ACodigoGTIN) downto 1 do begin Dig := StrToInt(ACodigoGTIN[I]); DV := DV + (Dig * IfThen(odd(I), 3, 1)); end; DV := (Ceil(DV / 10) * 10) - DV ; Result := IntToStr(DV); end;

como o Daniel disse esse processo é automatico, faça um reset na impressora e depois a calibragem para ela reconhecer o tamanho das etiquetas. Exemplo: http://www.youtube.com/watch?v=7DbgdRBIuSw

na minha opinião dbedits são para manipular dados diretamente no banco (o que não é recomendado no seu caso por ser on-line), a não ser que vc esteja manipulando os dados na memoria ex: ClientDataset sem conexão com o banco, no meu caso eu uso edits e só envio informações para o banco na hora de gravar a informação de preferencia com query pois table deixa a aplicação muito lenta mesmo usando filtered isso no caso que você especificou (Online) sei que no zeos é posivel fazer append post mesmo usando query mas não recomendo por ser muito lento o ideal é manipular os dados na memoria é só depois gravar com execsql, no caso eu uso edis pois dbedits só são possiveis de manipular com o dataset aberto

Você teve algum progresso com esta impressora?

camtasia sempre usei muito bom

Google: Como Usar Zebedee http://www.devmedia.com.br/forum/zebedee-algum-sabe-configurar/288909 http://seucolega.wordpress.com/2008/06/04/conectando-firebird-zebedee/

eu acho que deve ser alguma coisa com o tipo de parametro (WideString)

você poderia postar ele

para buscar o retorno eu faço assim: procedure TForm1.Button1Click(Sender: TObject); var WS: FeixeWebSoap; clie : Cliente; begin Memo1.Lines.Clear; WS := GetFeixeWebSoap(); try WS.Clientes(edit1.Text,edit2.Text) ; Memo1.Lines.Add(clie.CNPJ); Memo1.Lines.Add(clie.Raz_oSocial); Memo1.Lines.Add(clie.NomeFantasia); except on E : exception do Memo1.Lines.Add(E.message); end; end; o problema esta sendo com a conexão que sempre retorna este erro: Server was unable to process request. ---> String reference not set to an instance of a String. Parameter name: s

vc ja tentou usando um for i:= 0 to Registro.Count -1 do Begin variavel1 := Registro[i].FEstabelecimento; variavel2 := Registro[i].FAmbiente; variavel3 := Registro[i].FDataEHora; continua sua rotina End;

sim a messagem do certificado vai sempre aparecer, não consegui passar por cima dela, se vc conseguir posta ai pra gente

eu acho que o erro deve ser de permisão no windows, eu uso o delphi 7 na minha aplicação esta rodando normal, sinto muito mais não tenho como testar no xe2

qual delphi vc ta usando?

a unica mensagem que aparece é: "Para Fazer o Download é nessesario possuir um Certificado de cliente clique ok para fazer o download"

a unica coisa que uso é não lembro qual esta funcionando. testa ai: function DownloadFile(Source, Dest: string): Boolean; begin try Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0; except Result:= False; end; end; function TfrmPrincipal.DownloadFile(SourceFile, DestFile: string): Boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: File; sAppName: string; begin sAppName := ExtractFileName(Application.ExeName); hSession := InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0); try hURL := InternetOpenURL(hSession,PChar(SourceFile),nil,0,0,0); try AssignFile(f, DestFile); Rewrite(f,1); repeat InternetReadFile(hURL, @Buffer,SizeOf(Buffer), BufferLen); BlockWrite(f, Buffer, BufferLen) until BufferLen = 0; CloseFile(f); Result := True; finally InternetCloseHandle(hURL) end finally InternetCloseHandle(hSession) end; end; no evento OnFileDownload do TEmbeddedWB function TfrmPrincipal.WebBrowser1FileDownload(pmk: IMoniker; pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo; pszHeaders, pszRedir: PWideChar; uiCP: Cardinal): HRESULT; begin if DownloadFile (pszRedir,'C:\teste.xml') then Begin ShowMessage('Download Concluído.'); End; end; pelo menos na minha aplicação não pergunta onde vai salvar.

tenta esse: sourceforge.net/projects/utilitarioserp/files/ ta uma bagunça mais funciona até hoje

Voce ja tentou gerar o Hash com indy pode não funcionar mas vale a pena tentar

Até onde eu sei vc tem que usar Municipio: 9999999|Exterior| Uf: 99|EX e o codigo da pais de destino segue a tabela em anexo:

apenas uma observação se eu faço a busca pelo cep 04538-133 que é de são paulo-sp o IBGE_Municipio retorna : 1303908-São Paulo de Olivença-am pois ele é o primeiro resultado recebido pela palavra são paulo Então minha sugestão seria For cont := 0 to fACBrIBGE.Cidades.Count -1 do Begin if fACBrIBGE.Cidades[cont].Municipio+fACBrIBGE.Cidades[cont].UF = Municipio+UF Then IBGE_Municipio := IntToStr( fACBrIBGE.Cidades[cont].CodMunicio ); end; pois o retorno de são paulo é: Cod UF: 13 UF: AM Cod.Município: 1303908 Município: São Paulo de Olivença Área: 19745,90 -------------------- Cod UF: 24 UF: RN Cod.Município: 2412609 Município: São Paulo do Potengi Área: 240,43 -------------------- Cod UF: 35 UF: SP Cod.Município: 3550308 Município: São Paulo Área: 1521,10 -------------------- Cod UF: 43 UF: RS Cod.Município: 4319307 Município: São Paulo das Missões Área: 223,89 --------------------

Faço das palavras do isaque as minhas

então tudo bem. mas eu gostaria de saber se teria como amarrar o acbribge com o acbrcep igual ao acbrnfe e o acbrdanfe dessa forma a busca seria automática eu digo isso para facilitar ainda mais o uso do componente (o componente é ótimo), visto que o código do ibge hoje em dia para nós é uma necessidade pois eu receberia ACBrCEP1.Enderecos.municipio ACBrCEP1.Enderecos.IBGE_Municipio como esta hoje eu receberia ACBrCEP1.Enderecos.municipio ACBrIBGE1.Cidades.CodMunicio caso não tenha como fazer tudo bem. (eu ja tentei fazer isso mas eu não tenho experiencia com componentes e não consegui) gostaria de dizer que os componentes são ótimos uso quase todos isso não é uma critica, é apenas uma sugestão. desde ja agradeço a atenção.