Predes

Boa tarde estou utilizando o componente de código de barras da empresa Han- Soft. Alguém conhece e pode me ajudar? Pois estou utlizando este componente e estou com dificuldades para aumentar o tamanho da imagem do código 2D que é gerada pelo componente para atender a especificação do cliente, fica muito pequeno. estou utilizando o quick report no delphi 5.

Não intendi a utilização do document.getElementById() neste caso. ele não server para recuperar o value de um campo? você esta me sugerindo trocar o frmMain.cb_cliente por document.getElementById() para verificar se o check box está marcado? assim? if (document.getElementById('cliente').checked == false) { alert('Selecione o Cliente'); return false; }

Obrigado pela resposta mais também não funcionou :(

Bom dia estou fazendo uma validação de campos asp em java script e está funcionando perfeitamente no IE e no Chrome porém no fire fox ele simplesmente ignora, e faz a inclusão do registro sem checar os campos, estava em dúvida se postava no fórum do asp ou no java script. Segue exemplo de parte do código. function validar() { if (frmMain.cb_cliente.checked == false) { alert('Selecione o Cliente'); return false; } if (frmMain.cliente.value == 0) { alert("Selecione o Cliente"); frmMain.cliente.focus(); return false; } if (frmMain.nome_codigo.value == 0) { alert("Selecione o Produto"); frmMain.nome_codigo.focus(); return false; } <form name="frmMain" method="post" action="action_incluinq.asp"> <input id="Submit1" type="submit" value="Enviar" onclick="return validar()"/> Dessa forma está funcionando perfeitamente no IE e no Chrome. Grato Juan

Otima dica, funcionou perfeitamente. Agora se eu quiser exportar os dados para um modelo préviamente pronto do excel (Layout, cabeçalho,etc.) como eu poderia fazer?

ahaha ta OK... Abraço!

Verdade por isso acabei utilizando seu codigo que é muito mais complexo e exato, mais acho q pra o que eu iria usar só receberia como data juliana de 1 a 365 talvez não tivesse problema onde o dia 31/12/08 equivale ao dia '00' , não sei, porem é melhor não arriscar até porque é meu primeiro projeto delphi e sql prefiro confiar em vocês que tem mtoo mais experiencia!

Caro Jhonas novamente agradeço pela atenção, seu código foi de grande ajuda em meu projeto, e referente ao erro no código que estava utilizando corrigi só pra constar hehehe... quem tiver algo parecido não é completo como o do amigo Jhonas porém ta ai! var Ano, Mes, Dia: Word; datafinal:string; data:tdate; dataj:integer; dataj:=StrToInt(edit1.text); datafinal:='31/12/'+IntToStr(Ano-1); data:=StrToDate(datafinal); MaskEdit1.text:=DateTostr(data+dataj); Edit1.text:=''; Abraço!

Eu ande vendo sobre esse DateUtils e ao que parece ele pertence ao delphi 6, aqui estou utilizando o 5 tem algo parecido para delphi 5? eu estava tentando fazer da segunite maneira: DecodeDate (Date, Ano, Mes, Dia); dataj:=(editjulian.text); //(recebe o valor Juliano inserido pelo usuário) datafinal:='31/12/' + IntToStr (Ano - 1); Resultado:=StrToDate(datafinal)+ StrToDate(dataj); ----> to com problema na hora de somar esses 2 valores Result:=FloatToStr(resultado); meconvert.text:=result; Meu problema é na hora da soma dos valores porque o valor juliano não é uma data valida para ser um Date e a Data não é um valor valido pra integer se conseguisse somar esses valores devolvendo uma data ##/##/## já resolveria! Mais vlw pela atenção!

Bom dia, possuo uma função para converter data gregoriana para juliana q é a seguinte: function Data_Juliana(Data_Atual: TDateTime): String; var Ano, Mes, Dia: Word; Data_Final, Data_Inicial: String; Resultado: Real; begin DecodeDate (Date, Ano, Mes, Dia); Data_Final := DateToStr (Data_Atual); Data_Inicial := '31/12/' + IntToStr (Ano - 1); Resultado := StrToDate (Data_Final) - StrToDate (Data_Inicial); Result := FloatToStr (Resultado); end; A dúvida é: como faço o contrario? de juliana para gregoriana?

Gente voltei a esse projeto e surgiu uma necessidade do seguinte: Esse campo sequencia é zerado diariamente, porem o usuario alterna entre produtos varias vezes por dia ou seja o produto1 já esta na sequencia 16, o usuario muda para produto2 q a sequencia ainda é 0, quando ele voltar para o produto1 ele tem q continuar a partir do 16, e tem q ser assim com todos items, se fosse só com 2 ficaria facil porem são varios produtos tenho que armazenar a sequencia de cada um pra poder continuar de onde parou. eu estou usando um DBEdit para selecionar o item! Mais uma vez preciso da ajuda de voces! desde já agradeço

Mais uma vez acertaram em cheio...vlw Jhonas vlw Micheus funcionou perfeitamente!

Simples assim? :lol: Muito obrigado Jhonas funcionou perfeitamente, agora se não for pedir d+ existe alguma função igual ao FormatDateTime one eu consigo por exemplo do ano YYYY extrair só YY, queria receber em outro campo o valor "sequencia" que é inteiro (1,2,3) queria q ficasse (001,002,003) tentei receber num formato de um mask edit mais não consegui! Mais realmente vocês já me ajudaram muito, obrigado + uma vez!

Obrigado Jhonas. Se alguém puder me ajudar na questão acima, estou precisando urgente! Como faço pra a variavel CONT receber o Ultimo registro do campo Sequencia ao invés do Primeiro?

Obrigado Micheus, atendeu perfeitamente, agora pra não ficar criando outro tópicos sobre este meu projeto, caso possam me ajudar ficarei agradecido, a duvida agora é a seguinte: Tenho um campo sequencia onde ele incia no "1" e a cada leitura acresce 1. Fiz da seguinte maneira (não sei se a melhor pois é meu primeiro projeto, aceito sugestões). if (LblStatus.caption <> '') and QrLeitura.FieldValues['sequencia']=null then Se não Tiver nenhum Registro recebe 1 begin cont:=1; QrLeitura.Append; QrLeitura.FieldValues ['Cracha']:=Dblogin.text; QrLeitura.FieldValues ['data']:=now; QrLeitura.FieldValues ['Produto']:=DbProdutos.Text; QrLeitura.Fieldvalues ['medida']:=SttPeso.caption; QrLeitura.FieldValues ['Status']:=LblStatus.Caption; QrLeitura.FieldValues ['Funcionario']:=DbOpe.Text; QrLeitura.FieldValues ['sequencia']:=cont; QrLeitura.Post; QrLeitura.close; QrLeitura.open; end else if (LblStatus.Caption <> '')and (QrLeitura.FieldValues['sequencia']<>null) then begin cont:=QrLeitura.FieldValues['sequencia']; QrLeitura.Append; QrLeitura.FieldValues ['Cracha']:=Dblogin.text; QrLeitura.FieldValues ['data']:=now; QrLeitura.FieldValues ['Produto']:=DbProdutos.Text; QrLeitura.Fieldvalues ['medida']:=SttPeso.caption; QrLeitura.FieldValues ['Status']:=LblStatus.Caption; QrLeitura.FieldValues ['Funcionario']:=DbOpe.Text; QrLeitura.FieldValues ['sequencia']:=cont+1; QrLeitura.Post; QrLeitura.close; QrLeitura.open; end end; A intenção era se já tivesse registro no campo Sequencia a variavel CONT receberia esse valor e acresceria 1, e isto está acontecendo, porem ele sempre acresce 1 no primeiro registro (que é 1) então os próximos sempre ficam 1 + 1. Como faço pra a variavel CONT receber o Ultimo registro do campo Sequencia ao invés do Primeiro? Obrigado mais uma vez!