[Resolvido]Data Juliana

Prezados amigos

Estou criando uma tabela que irá conter Ordem de Produção. Mas, gostaria de gerar o número de lote da fabricação de forma automática. Portanto estou querendo criar a seguinte situação:

Campo: NrLote. Formato: Texto. No valor padrão, ao colocar uma expressão ="LP"&"-"&Data()&"."&[OPCod].

o Campo [OPCod] é o número da Ordem de Produção.

Então, quero exibir assim, mas como valor padrão:

LP-40973.3 - LP: Lote Produção - 40973: Data Juliana equivalente a 05/03/2012 . 3: Nr. Automático da OP [OPCod]

Tem como fazer isso por expressão sem precisar programar VBA (que eu não entendo) para aparecer como valor padrão?

Não entendi bem, mas pelo que parece, você já tem todos os dados em campos da tabela e quer concatená-los, é isso? Você quer apenas exibir essa concatenação em um campo do formulário? Pelo que entendi, não precisa gravar essa concatenação em tabela, uma vez que já teria todos os campos.

Não entendi bem, mas pelo que parece, você já tem todos os dados em campos da tabela e quer concatená-los, é isso? Você quer apenas exibir essa concatenação em um campo do formulário? Pelo que entendi, não precisa gravar essa concatenação em tabela, uma vez que já teria todos os campos.

Prezado Criquio

O número de lote tem que ser gravado, uma vez que é único e não pode ter outro similar dentro da tabela, e portanto, precisa ser gravado.

A questão é simples. Preciso gerar um número de lote de forma automática, sem a interferência do usuário.

Para tanto, quero colocar um valor padrão. Quando quero colocar data padrão, coloco no valor padrão =Agora() e bloqueio no formulário a opção de editar o campo. É o mesmo caso do número de lote.

A situação é assim. Optei pela data juliana por ser numeração serial, porisso, a cada dia terei um número serial novo. Preciso juntar o número da OP [OPCod] para individualizar o lote, senão, todos sairiam com o mesmo número no dia.

Por esta razão é que preciso de uma expressão para o campo valor padrão.

LP = Lote de Produção
Data Juliana = número serial do dia
OP [OPCod] = número da ordem de produção

Agora, se não for possível colocar o número da OP [OPCod], gostaria que os amigos contribuíssem com o seguinte:

Substituiria o campo OP pela hora serial.

Mas como fazer?

Poderia tambem ser o código do registro+data completa + hora completa: 0001-02032012-134827. Mas como você já tem todos esses dados gravados, não precisa gravar esse campo. Basta buscar os dados na hora da exibição no formulário ou relatório.

Poderia tambem ser o código do registro+data completa + hora completa: 0001-02032012-134827. Mas como você já tem todos esses dados gravados, não precisa gravar esse campo. Basta buscar os dados na hora da exibição no formulário ou relatório.

Criquio acho que você não entendeu. Esta informação tem ficar gravada sim. Pois tenho que recuperá-la mais tarde. Caso dê algum problema no item que foi fabricado, preciso localizar a informação dentro de uma pesquisa para verificar qual a OP que pertence ao lote. Para então localizar área que fabricou, localizar o funcionário e também os fornecedores de materiais. Todos estarão ligados a este número de lote.

Não posso simplesmente fazer uma busca por estes campos, como você sugeriu. Tanto que a indexação do campo não pode permitir registros duplicados. Cada lote é único. Pois quando o auditor do Inmetro vier na empresa fazer a auditoria, é necessário toda esta relação de amarração e individualização do histórico.

Ainda não entendi muito bem o que realmente está tentando fazer. Talvez seja o caso de se ter um um evento que coloque isso no campo, pois se colocar uma expressão na origem do campo, ele perde o vínculo com a tabela. Talvez no evento "Após atualizar" do último campo que servirá como base, você colocaria isso via vba:

Me.NomeDoCampo = "..."

Então Criquio, acho que deveria ser alguma coisa de vba para gerar o número de lote ao atualizar o campo nº de lote. Só que não sei como fazer isso. E importante, a data deve ser juliana.

Olá Ddoc

Em primeiro lugar, você sabe o que é valor padrão?
Como o nome já diz; é um valor numérico ou texto que sempre será exibido numa caixa de texto em todos os registros que ainda não foi digitado nada nela.
Exemplo: Em um cadastro de cliente temos o campo cidade e estado.
Como a maioria dos clientes serão da cidade local, colocamos como valor padrão o nome dessa cidade e estado, assim só daremos {Enter} nesses campos e só iremos alterar esse valor padrão se o cliente for de outras cidades.
Então creio que o valor padrão não se aplica na tua situação:

E para fazer esse código para o Nº Lote, terá que usar o vba.

Precisamos saber de onde vem os dados seguintes:

LP = Lote de Produção
Esse será com incremento automático
Data Juliana = número serial do dia
dataatual
Sugestão, ao invés de usar data serial,pode-se usar assim 060320021920.
Observe que dessa maneira poderá ler diretamente, mas é apenas sugestão.
OP [OPCod] = número da ordem de produção
Esse número de onde vem?

Precisamos saber se esses códigos já existem, se são digitados, automáticos (estão em outra tabela?)

Porque teremos que fazer o algoritmo em VBA para concatenar esses valores e produzir e gravar o resultado que você necessita.

Uma dúvida

LP-40973.3 - LP: Lote Produção - 40973: Data Juliana equivalente a 05/03/2012 . 3: Nr. Automático da OP [OPCod]
Esses valores em marrom, são assim mesmo, não estão repetidos?

No aguardo

Abraços

Eu não sou muito fã de usar a propriedade Valor Padrão porque ela não é muito dinâmica. Ainda mais quando se precisa juntar diversos campos.

LP = Lote de Produção
Esse será com incremento automático
Data Juliana = número serial do dia
dataatual
Sugestão, ao invés de usar data serial,pode-se usar assim 060320021920.
Observe que dessa maneira poderá ler diretamente, mas é apenas sugestão.
OP [OPCod] = número da ordem de produção
Esse número de onde vem?

Precisamos saber se esses códigos já existem, se são digitados, automáticos (estão em outra tabela?)

Porque teremos que fazer o algoritmo em VBA para concatenar esses valores e produzir e gravar o resultado que você necessita.

Uma dúvida

LP-40973.3 - LP: Lote Produção - 40973: Data Juliana equivalente a 05/03/2012 . 3: Nr. Automático da OP [OPCod]
Esses valores em marrom, são assim mesmo, não estão repetidos?

LP = Lote de Produção - São letras que identificam o lote fabrica. Quando é feito aquisição de outras empresas a identificação vem como LC - Lote Comercial.

O número 3 (LP-40973.3) é o número sequencial da ordem de produção (código, numeração automática). É o único valor que está gravado na tabela de ordem de produção.

A data juliana será número calculado. E o LP é uma string - tipo: ="LP"&"-"&DataJuliana&"."&[OPcod]

Não sei se consegui me explicar... Na imagem em anexo o nº op é OPLotePrimario

ddoc

Dessa maneira iremos longe, você tentando explicar e nós tentando entender.

Como desenvolvedor do teu aplicativo, é o único que o conhece bem.

Melhor seria, postar parte do teu aplicativo com os formulários e tabelas em questão para que possamos entender direitinho e construir o número de lote final.
Creio que somente vendo como funciona o teu aplicativo, que poderemos definir como construir essa sequencia.

No aguardo, amigo

Veja o exemplo que eu fiz se serve para alguma coisa.

Baixar

http://www.4shared.com/office/jQYVahhE/cotando.html


casilveira

Casil

Já vi teu exemplo

Eu preciso que me diga exatamente como quer a sequencia final, pois em cada post está de uma maneira diferente.

Coloque com dados para eu poder ver a formatação;
Considere a data juliana como 185 que é a data de hoje.

abraços

Balen

Quem fez a pergunta foi o ddoc eu só sugeri uma forma de criar a sequencia...

Aliás é a primeira vez que vejo falar em data juliana... kkk

Abraços

Casil

Desculpe minha falha, já to ficando meio louco.

Grande abraço

Olá amigos!

Na consulta ADD que utilizo para adicionar dados a tabela, realizei a seguinte operação no campo lote:

Código:

Lote: "LP" & "." & Format(Agora();"hhnn") & "." & Format(Agora();"ww") & "." & Format(Agora();"yy") & "." & [OPCod]

Portanto, quando atualizo o primeiro campo após o campo da chave primária [OPCod], ele imediatamente calcula o número que preciso. Acabei esquecendo essa confusão de data juliana e criei uma nova situação.

Como mencionei, não sou nem razoável em VB, portanto, tenho que achar solução em expressões.

Mas, obrigado a todos pela tentativa em me ajudar.

Meu respeito a todos daqui!

ddoc

Valeu pelo retorno

Boa sorte!

Olá Amigos,

Estou fazendo um programa onde eu preciso colocar a data de Vencimento ... tipo 01/05/2017 ... e eu queria transformar em Data Juliana.

Alguém poderia me ajudar?

Abraços,

Anderson

Boa noite pessoal,

Consegui já... e pra deixar minha contribuição, criei um sisteminha básico só pra converter Data de Vencimento em Data Juliana.
Espero que possa ajudar alguém que tenha a mesma dúvida.

Abraços