Recife

Jhonas boa tarde, é como se não existisse as funções que são as quatro operações, onde passo dois parâmetros e no lado server realiza o calculo. já tentei de varias formas mais não consigo ter retorno devido ao access violation. // ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: // WSDL : http://localhost:8081/WebService.coServico/wsdl/IOperacoes // Encoding : utf-8 // Version : 1.0 // (03/01/2012 11:22:27 - 1.33.2.5) // ************************************************************************ // unit IOperacoes1; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; type // ************************************************************************ // // The following types, referred to in the WSDL document are not being represented // in this file. They are either aliases[@] of other types represented or were referred // to but never[!] declared in the document. The types from the latter category // typically map to predefined/known XML or Borland types; however, they could also // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !:double - "http://www.w3.org/2001/XMLSchema" // ************************************************************************ // // Namespace : urn:OperacoesIntf-IOperacoes // soapAction: urn:OperacoesIntf-IOperacoes#%operationName% // transport : http://schemas.xmlsoap.org/soap/http // style : rpc // binding : IOperacoesbinding // service : IOperacoesservice // port : IOperacoesPort // URL : http://localhost:8081/WebService.coServico/soap/IOperacoes // ************************************************************************ // IOperacoes = interface(IInvokable) ['{CC60E911-02EC-E7B1-52F5-0BE69C35D74A}'] function Somar(const x: Double; const y: Double): Double; stdcall; function Subtrair(const x: Double; const y: Double): Double; stdcall; function Mutiplicar(const x: Double; const y: Double): Double; stdcall; function Dividir(const x: Double; const y: Double): Double; stdcall; end; function GetIOperacoes(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): IOperacoes; implementation function GetIOperacoes(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IOperacoes; const defWSDL = 'http://localhost:8081/WebService.coServico/wsdl/IOperacoes'; defURL = 'http://localhost:8081/WebService.coServico/soap/IOperacoes'; defSvc = 'IOperacoesservice'; defPrt = 'IOperacoesPort'; var RIO: THTTPRIO; begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; try Result := (RIO as IOperacoes); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end; initialization InvRegistry.RegisterInterface(TypeInfo(IOperacoes), 'urn:OperacoesIntf-IOperacoes', 'utf-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IOperacoes), 'urn:OperacoesIntf-IOperacoes#%operationName%'); end. Este endereço "http://localhost:8081/WebService.coServico/wsdl/IOperacoes" consigo visualizar no webbrowser.

Verifica a possibilidade de usar o ACBrNFe. Utilizei e facilitou muito minha vida nas rotinas de NFe

beleza, Então, se o campo data_venda é do tipo data/hora por que passar uma string e não um datetime ( podendo fazer uma conversão strtodatetime(MaskEdit1.Text) ) ?? Posso esta enganado, pois não trabalho a um bom tempo com acess. Qualquer coisa posta ai.

Bom dia Pessoal, Estou com um problema em consumir webservice feito em delphi por uma aplicação tmb em delphi. Foi criado um webservice, em que consigo visualizar a WebService - Service Info Page, do mesmo. Criei uma aplicação cliente que utiliza este webservice para acessar as funções e me retornar o valor solicitado. Porém, toda vez que chega na chamada do método da problema de acess violantion. Abaixo, coloco o código utilizado: procedure TFExemplo.BitBtn1Click(Sender: TObject); var Servico: IOperacoes; valor1, valor2: Currency; begin Servico := HTTPRIO1 as IOperacoes; valor1 := StrToCurr(Edit1.Text); valor2 := StrToCurr(Edit2.Text); Edit3.Text := CurrToStr(Servico.Somar(valor1,valor2)); [b]<---- aqui que esta dando o acess violantion[/b] end;

Fabio -2012, bom dia você poderia especificar se seu campo data_venda é string ou date. E tmb, se você esta realizando uma consulta, como que grava no campo data ?? Não entendi seu questionamento. Se seu campo data_venda for do tipo date, recomendo usar datetimepicker, fica melhor para trabalhar.

Jhonas, Mais uma vez muito obrigado por sua ajuda. Desculpe-me pela demora, mais estava envolvido em uma homologação de NFe. [Problema Resolvido]

Pessoal Bom Dia, Estou com um sistema em que possui um menu principal e nele um sub-menu Modelos, em que nele gostaria que ao clicar abri-se um dialog ( opendialog ) e ao setar o caminho da pasta onde encontra-se os documentos words ( são os modelos já prontos ) abri-se o word. Tipo como usamos com o método winexec para abrir um notepad. Agradeço a ajuda de todos.

Bom dia Faz um relacionamento de suas tabelas Clientes com Itens_Ordem através do CLIENTES_CODIGO tipo select * from clientes C, Itens_ordem I where c.CODIGO CLIENTE = I.CODIGO CLIENTE order by I.OC_NUMERO Com isto você terá os resultados das duas tabelas que são correspondentes. O próximo passo é distribuir dentro dos componentes do quick report (caso esteja usando esse relatório). Espero ter Ajudado. Abraços

Bom Dia Pessoal, Tenho um sistema que tem um rotina de impressão de cheque feito em delphi 7 e utilizando firebird 2.1. A saída dessa impressão esta voltada para a porta LPT1, porém meu cliente trocou de impressora ( LX300+II) e PC ( Nesse novo PC não possui porta LPT1) então esta ligado a porta USB. O problema é que chega até imprimir, porém não esta saído o valor numérico do cheque(só apresenta ponto e a vírgula separadora dos centavos ), todas as outras informações saem perfeitas. Não sei se seria problema de porta ou mesmo de componente, pois uso um QRDBText para apresentar as informações de valor e na propriedade mask esta com o seguinte formato R$ ###,##0.00 Quando imprimo na impressora que esta na porta LPT1 sai perfeito, porém é uma LX 300 e o micro tem porta LPT1.

agradeço a atenção e desp. ela demora do retorno. considero o problema resolvido

Bom dia, Estou precisando de uma orientação de como fazer que uma aplicação inicie ao ligar o PC, sem utilizar o envio do atalho da aplicação para o menu Iniciar. Explicando melhor, tenho uma aplicação que ela fica rodando direto no servidor de um cliente, em que ele fica pesquisando se existe pacotes em o usuário cria e esta aplicação tem a responsabilidade de pegar estes pacotes e enviar para um servidor da matriz. Pois, quem gera os pacotes são lojas e quem recebe é a Matriz que gerencia essas lojas. Então, o pessoal do suporte só teria a responsabilidade de instalar o executável no servidor.

para verificar se existe uma determinada data dentro da sua tabela, não é preciso procurar dentro de uma data inicial e uma data final, basta procurar diretamente pela data Select count(*) EXISTE from Fechamentodia where codemp <> 99 and codemp >=:codEmpI) and codemp <=:codEmpF and dia = :datai abraço Jhonas, mais uma vez obrigado. Resolveu meu problema. Um Abraço.

Boa Tarde, Estou com uma sentença SQL em que preciso verificar se não existe uma data compreendida entre data inicial e data final a sentença segue abaixo: Select count(*) EXISTE from Fechamentodia where codemp <> 99 and codemp >=:codEmpI) and codemp <=:codEmpF and dia >=:dataini and dia <=:datafim Se eu passar um data inicial que exista na tabela com uma final que não exista o resultado será que EXISTE > 0 O meu objetivo com essa consulta, conforme mencionei acima, é justamente dentro de um período informado(inicial e final) verificar se a data não existente na tabela, para que dentro do meu código possa tomar ações. Estou utilizando Delphi 7 e Firebird 2.1

para solução do problema na chamada da função deve ser da seguinte forma: <?php echo lista_estados();?> dessa forma dara certo. [Problema resolvido]

Ola pessoal, Sou iniciante em PHP, e estou estudando criando um cadastro de usuário,porém tem um combo em que criei uma função mais não esta carregando abaixo segue o codigo: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <title>Cadastro de usuários</title> </head> <?php function lista_estados($_nome_campo="USR_UF",$MULT=FALSE){ $_ufs = array("SP" => "São Paulo", "RJ" => "Rio de Janeiro", "MG" => "Minas Gerais", "BA" => "Bahia", "PE" => "Pernambuco", "RS" => "Rio Grande do Sul", "AM" => "Amazonas", "CE" => "Ceará", "AL" => "Alagoas", "SE" => "Sergipe", "PB" => "Paraíba"); $_ret ="<SELECT NAME='$_nome_campo'"; $_ret.=($MULT) ? " MULTIPLE" : ""; $_ret.=">\n"; foreach($_ufs as $_chv => $_vlr){ $_ret.="<OPTION VALUE='$_chv'>$_vlr</OPTION>\n"; } $_ret.="</SELECT>\n"; return $_ret; } ?> <body> <form name="usr" method="post" action="cadastra_usuario.php5"> <table border="0" cellpadding="5" cellspacing="5"> <tr> <td colspan="2" height="30" bgcolor="#8CDAFF"> <b>Cadastro de Usuário</b> </td> </tr> <tr> <td colspan="2" height="30"><font color="#0000A0"> <b>Informe seus dados:</b></font> </td> </tr> <tr> <td width="25%" height="30">Nome:</td> <td height="30" > <input type="text" name="USR_NOME" size="30"> </td> </tr> <tr> <td width="10%" height="30" valign="top">Endereço:</td> <td height="30"> <textarea name="USR_ENDERECO" cols="60" rows="5"></textarea> </td> </tr> <tr> <td width="10%" height="30">Bairro:</td> <td height="30"> <input type="text" name="USR_BAIRRO" size="30"> </td> </tr> <tr> <td width="10%" height="30" class="login">Cidade:</td> <td height="30"> <input type="text" name="USR_CIDADE" size="30"> </td> </tr> <tr> <td width="10%" height="30" class="login">Estado:</td> <td height="30"> <?=lista_estados();?> </td> </tr> <tr> <td width="10%" height="30">E-mail:</td> <td height="30"> <input type="text" name="USR_EMAIL" size="30"> </td> </tr> <tr> <td width="10%" height="30">Login:</td> <td height="30"> <input type="text" name="USR_LOGIN" size="10"> </td> </tr> <tr> <td width="10%" height="30">Senha:</td> <td height="30"> <input type="password" name="USR_SENHA" size="10"> </td> </tr> <tr> <td width="20%" height="30">Confirmação de Senha:</td> <td height="30" align="left"> <input type="password" name="USR_SENHA2" size="10"> </td> </tr> <tr heigth="60" valign="bottom"> <td width="20%"></td> <td height="30" valign="bottom"> <input type="submit" value=" OK "> <input type="reset" value=" Limpar "> </td> </tr> </table> </form> </body> </html> Quando executo o script os estados não aparecem, só o nome estado. Onde pode estar o erro,pois não estou conseguindo identificar?

Jhonas, Valeu pela orientação, pois este problema vinha persistindo a muito tempo. Cheguei até formatar a máquina(quando a cabeça não pensa o corpo padece). Dai analisei que o problema poderia estar no Delphi ou quick report. Obrigado pela instrução [Problema resolvido]

você iria apresentar isto em relatorio ?? onde você iria exibir esses resultados??

Oi Denispe, Se eu entendi o que você esta querendo, ao invés de você por no laço, por que você não cria uma variável inteira e passa para ela o recordcount do seu dataset. EX: N:= dataset.recordcount; Lembre-se que se você quiser apresentar em tela terá que converter para string.(inttosrt). Abraços.

Procura passar os valores sem virgula devido a valores do tipo float, currency não recebe virgula. EX: 8000.64

Olá Pessoal, Estou com um problema para acessar relatórios no quick report. Uso Delphi 5 e Quick Report 3.07 Pro. Na abertura dos fontes do projeto ao abrir uma unit de relatório a mesma apresenta o seguinte erro: " Error Creating form: Ancestor for 'TFBaseRel' not found. Quando tento abrir um relatório herdado por ele da a msg de erro: " Error Creating form: Access violation at address 40003C4C in module 'Vcl50.bpl'. Read of address 5201D9F4 Este TFBaseRel é a tela pai de nossos relatórios. Já excluir o .dfm e .pas do BaseRel e incluir de novo no projeto, porém continua dando o mesmo problema. Deletei o .dfm e .pas e pois um outro (devido a corrupção de arquivo) mais não resolveu Detalhe este problema consegui resolver excluído o Delphi 5 e reinstalando novamente, deu certo. Mas, sempre retorna o mesmo problema. Gostaria de uma solução para não ocorra esse tipo de problema. Grato.

você pode no exit do seu edit1db passar o valor que esta setado nele para o campo da tabela que você quer que seja carregada.

Gabriel, Cria um campo calculado na sua query que alimenta seu grid e no evento oncalcfields crie uma condição e passe o valor para o campo calculado que você criou. Lembrando que a propriedade requestlive deve estar como verdadeira

Pessoal, depois de muito trabalhar em cima dessa dúvida, consegui editar dentro do dbgrid. Utilizei no momento da abertura da minha query (verificando se a mesma era <> de IsEmpty) alterar seu estado para Edit e o requestlive para true. Depois a coluna que estou querendo alterar a sua propriedade Readonly para false, no doubleclick do dbgrid coloquei um post na query que esta ligada ao dbgrid, há tem também na propriedade options do DBBGRID que ficou da seguinte maneira: dgeditng = true; dgalwaysshoeeditor = true; dgtitles = true; dgindicator = true; dgcolumresize = true; dgcollines = true; dgrowlines = true; dgtabs = true; dgalwayssowslection = false; dgconfirmdelete = false; dgcancelonexit = false; dgmultiselect = false;

Olha benaia, usu o ibexpert a mais de 05 anos e não sei o que o significa o faltam tantas alterações na tabela XX,porém continuo a usar sem problemas nenhum. E sempre tem umas atualizações que o próprio Ibexpert avisa para atualizar.

nsousa, para você gravar no banco na forma desejada basta fazer o calculo de porcentagem. EX: 5,00% -----> 5 /100 = 0,05. ficaria +/- assim: edit1.text = 5,00 porcentagem := 0; porcentagem := strtofloat(edit1.text) /100; query1.fieldbyname('perc').asfloat := porcentagem; Quanto ao que o usuário ira digitar no campo de entrada fica por sua conta com você ira apresentar para o mesmo.