[Resolvido][Desenvolvimento] Sistema para frigorífico de aves

Adicionei antes do código da atualização a nova linha inserindo ja o produto e a data atual

CurrentDb.Execute "INSERT INTO Codigo(CpCodBarras,CpCodEms, CpNome, CpTotalItens, CpData) Values (" & StrBarra & ",'','','', #" & Date & "#)"


No inicio do código uma cláusula que checa se existe algum campo na tabela com a data atual, se sim.. significa que ja foi atualizado hoje... e encerra o código.

If DCount("*", "Codigo", "cpData=#" & Date & "#") > 1 Then
MsgBox "Este registro ja foi atualizado", vbInformation, "Atenção"
Exit Sub

Caso nao prosegue o código e cria a nova linha com a data atual atualizando em seguida a mesma...


http://dl.dropbox.com/u/26441349/Leitor_de_codigo.rar

Quanto ais relatorios famos o fazer por form que falta...

Veja qual o prmeiro e me fale, especifique tambem como o quer..

Faremos isto amanha.

Cumprimentos

testei aqui ta dando errado, ele atualiza repetindo os dados, não ficou certo. basta vc digitar um codigo ai na tab barrar, depois ir la atualizar e vc vera que dar erro.

Cumprimentos,

Boa noite Hary,

Terminei o controle de apontamento por leitor de codigo de barras.

veja o seguinte:

1-Tenho a tabela cadastro, no qual cadastro um codigo de barra, o codigo da empresa do produto e o nome do produto e um formulario para o cadastro.
2- Tenho a tabela barras no qual os dados de apontamentos bruto são lançados la via pelo frmAponta.
3- tenho a consulta barras no qual resume os dados apontados.
4 tenho a consulta1 no qual no qual ela adiciona os dados resumidos na tabela resumo.

Fica tudo separado por data, resumido por quantidade.

Por favor veja e pense como podemos melhorar, para automatizar tudo por um botão, ou seja, após encerrar o apontamento do dia, clicamos em um botão, ele execulta as 2 consultas lançando os dados na tabela resumo, e limpa os dados da tabela barras.

Aquele que vc fez não deu certo.

Cumprimentos,

[url=http://www.4shared.com/document/0yTPfXKf/Leitor_de_codigo_final.html]

Enquanto vc ver isso, vou ajustando aqueles formularios que vc falou, para fazermos os relatorios.

Boa noite,

Pronto está editado os nomes dos forms e os rotulos.

Podemos fazer os relatorios.

Cumprimentos,

[url=http://www.4shared.com/file/SIwUN5fo/GestaoPCP28_2.html]

Aqui não esta dando erro.. A que erro se refere?

Voce fala que repete os códigos na tblCodigo? Mas la tem a data que os diferencia...

Voce tem que se decidir primeiro AMigao.. esta querendo tudo a uma vez.. e isso nao é certo.. ou continuamos com os relatorios ou com codigos...

Quanto ao que fiz não ter dado certo...não basta voce apenas falar que nao deu certo..

Ele deu certo Sim!!! talvez não seja o que precisa.. mas deu certo..
Aponte entao a modificação e não simplesmente falar que não deu certo.

Obrigado.

Veja este agora... esta fazendo a contagem e atualização dos códigos..
Ele cria um registro novo por data para cada codigo de barra na tbl Barras e atualiza a quantidade de registro contidos na tbl Barras

Cumprimentos.

http://dl.dropbox.com/u/26441349/Leitor_de_codigo.rar

Calma está bravo por que. Fiz o teste e não havia dado certo, mais deixa pra la, vamos continuar com os relatorios hoje.

E não estou querendo tudo de uma vez, apenas estavamos tentando criar um prototipo, mais pode deixar.

Vamos seguir com os relatorios.

1-O primeiro relatorio e o de cadastro de caminhão, pois quando alguem pedir informações de um caminhão é so imprimir ou enviar um relatorio.

Cumprimentos,

To bravo não amigão.. hehehe.. e que a forma com que falou parece que o que fiz está errado, o que não é verdade.. apenas pode ser que não seja o que precisa...

Cumprimentos.

Vaja o novo exemplo que te enviei..

E baseado nele esclareca as modificações.

Vamos criar esse prototipo agora.. Gosto de desafios..

testei aqui o que vc me enviou e não deu certo. E codigo de barras final 91 está separando por data, porem o codigo final 58 não esta separando por data, sempre lança na data que ja tem la.

Cumprimentos,

Eis ai...
Ja tem tem uma data la 01/09/2011

Exeperimente clicar no botão.

http://dl.dropbox.com/u/26441349/Leitor_de_codigo.rar

Cumprimentos.

Ainda está dando erro, agora é o seguinte erro, eu jogo o codigo de barras, clico no botão atualizar, e ele joga um codigo diferente do que eu lancei na tabela de resumos.

Impossível isto..

Acabei de testar, veja:

http://dl.dropbox.com/u/26441349/Leitor_de_codigo.rar

Veja agora...
Havia um erro em formatação de data..

http://dl.dropbox.com/u/26441349/Leitor_de_codigo.rar

Cumprimentos.

Deu erro, mudei a data do pc para o dia 20/09 lancei dados, mudei a data do pc para o dia 21/09 lancei dados, mudei a data do pc para o dia 22/09 lancei dados,

Porem acumulou os dados e não separarou por data, manteve apenas a ultima data de lançamentos e não todas as datas.

Cumprimentos,

Veja as opcões regionais do seu PC pois aqui no meu deu certo...

Fiz conforme falou no post acima. Veja o resultado:

http://dl.dropbox.com/u/26441349/Leitor_de_codigo.rar

Ok Hary, Anoite eu testo de novo, podemos continuar os relatorios?

JA temos o relatorio cadastro de granja, o relatorio resumo recepção de aves.

Precisamos agora dos relatorios de cadastro de produto com a foto do produto, relatorio do cadastro de caminhão, relatorio do programado x realizado.

Se mudar ir vinculando, anoite faço todas as formatações etc. Vou em uma fabrica agora fazer um teste de umas caixas.

Cumprimentos,

Dingo Bel, Dingo Bel, Dingo Bel... hehe o natal está proximo... rsrs

Eis ai.. Tem dois botões no frmCadProduto.. um abre todos o outro abre filtrado..

Arrume o design dos campos no relatorio..

Aguardo.

http://dl.dropbox.com/u/26441349/GestaoPCP29.rar

Boa noite Hary,

Em relação ao leitor de codigo de barras não deu certo, a data continua sendo a mesma, mesmo eu alterando a data do meu pc, simulei 3 dias e no resumo so aparece a ultima data.


Em relação ao relatorio de produto, não deu certo, o form agora não está inserindo as duas fotos no form, vc alterou alguma coisa.

Favor checar, cumprimentos,

Boa noite Hary,

Andei fazendo uns testes com o arquivo que estou te enviando, e deu certo o apontamento por leitor.

veja:

Eu lanço o codigo de barras no frmAponta, no qual tenho a caixa de texto para apontar e a caixa de texto de data, no qual uso uma função no valor padrão =data() assim ela lança os dados do dia no apontamento.

Depois clico no botão atualização, no qual atualiza a cnsbarras e joga os dados resumidos na tabresumo.

agora o ruim e que na tabresumo não tenho aparecendo o nome do produto e codigo da empresa, e nem a quantidade kg do produto.

E para resolver isso como não tenho conhecimento, iria criar mais tabelas e consultas para chegar na informação final, que seria, codigo de barra, codigo empresa, quantidade caixa apontada e kg apontado de cada codigo.

Ainda não entendi pq o que vc fez não deu certo, ele sempre fica apenas a ultima data e não todas as datas apontadas.

Cumprimentos,

[url=http://www.4shared.com/document/WcR0pZfO/Leitor_ok.html]

Se viu o que fiz aqui.. aqui funcionou... Veja suas configurações de data do windows.. nas opções regionais...

Agora mesmo cliquei no botão e carregou a soma de todos os codigo para o dia de hoje 24/09/2011

Cumprimentos.

Se abrir o Código do formulário vai observar que no comando que cria a nova linha
CurrenteDb.Execute INSERT INTO..... na parte que esta Format(Date,"mm/dd/yyyy") tente inverter para "dd/mm/yyyy"


Mas veja antes suas configurações do windows

Nao entendi direito a sua dúvida sobre o frm de Barras...

Pra que a data no apontamento? qual é a tabela que falou que recebe o apontamento do dia?
Ela não vai ser deletada no final? então praque a data?


Explique direito a logica do que fez para que eu possa entender.

Cumprimentos

Cara... eu so perdi tempo fazendo aqueles codigos pra ti... Ele funcionou e voce ao menos se esforcou para tentar descobrir qual o problema... simplesmente ignorou e fez de outra forma..

Sinto mas isto não é trabalhar em parceria..
Me fez perder um precioso tempo.....

Seu relacionamento esta mal
Não pode esta relacionando o codigo de barras que é texto.. esta errado.. tem que ser numerico e relacionado com um numero simples

27898423421758 - 1

~Voce não relacionou nada ali..

Calma Tche,

Analisei sim os codigos, mudei para dd/mm/yyyy, dai tambem não mudou nada. Então analisei as opções regionais e estava tudo ok.

Então eu não sei o que acontece que aqui não dar certo, hoje ja testei duas vezes e nada. lança com varias datas, mais o resumo so mantem a ultima data dos dados.

Cumprimentos,

Faça um teste para 3 dias e me envie...

Quanto ao que me enviou, coloquei a cns Barras em VBA... explique a lógica disso?

Pois em uma das tabelas não contem o código de barras e sim a numeração 1, 2, ....
Desta forma não consegue relacionamento..

Como isso é transferido do leito para a tabela?
com o código de barras ou a numeração 1, 2 ....?

Prefiro tudo por codigo tudo, como vc fez. E sim quero trabalhar em parceria, não e pq eu testei o exemplo que me mandou, e depois fiz um anoite tentando achar uma solução que deixei de está trabalhando em parceria.

Imagina o que seja o problema da data? pois sempre resumo e não agrupa por data, mantem sempre a ultima data apenas.

Cumprimentos, melhor deixar isso pra la e continuar com os relatorios, vc está se estressando muito.

Não se importe com os Picos de Strees.. sempre haverão alguns hehehe

Faça o que te pedi.. pegue o exemplo que te enviei.. faça res atualizações com 3 datas diferentes e me envie..

Quanto ao que me enviou a consulta que criou tem resultado satisfatório tambem.. e é ate mais simples..
No entando leia o post acima e me esclareça as minhas questões.

Agora eu quero resolver isto.

Mandei comprar o leitor..
Vamos finalizar logo isso.

Cumprimentos

Olá,

Segue o que eu havia feito antes, mudei os codigos de barras 1, 2, 3, para codigos de barras grandes para vc entender.

Não sei fazer consulta via vba.......por isso fiz a mida antiga.

Segue modelo para vc entender.

ordem de como funciona, eu entro no formAponta, dou foco na caixa de texto e fico apontando com o leitor as caixas aqui. a Caixa de texto data, ja está configurada para preencher automaticamente a data do dia por valor padrão.

Esses dados são inseridos na tabela barras, dai quando clico no botão atualizar ele atualiza pro meio de consulta de adicionar os dados na tabela resumo. E pronto, no outro dia basta eu limpar os dados da tabela barras a apontar de novo a produção.

Entendeu?

[url=http://www.4shared.com/document/oXGSElZR/Leitor_ok_2.html]

ok vou ver a que vc me mandou, preencher 3 datas e te envio.

Cumprimentos,

Explique a questao do nome do produto etc.. quer que ele vá onde?
Descreva a sequencia cronológica, citando as tabelas e como elas devem ficar apos o evento...

De uma descrição...

No final de todo o processo do programa de apontamento preciso que a tabela final contenha. Codigo de barras, codigo produto empresa, nome do produto, quantidade caixa apontada e quantidade kg apontada (o campo quantidade kg é: quantidade caixa X peso da caixa.

O processo e o que eu escrevi acima:

Eu aponto as caixas, elas são inseridas na tabela barras, os codigos de barras e a data.

Depois clico no botão atualização, o mesmo atualiza a cnsbarras jogando os dados resumidos da tabela barras para a tabela resumo.

Cumprimentos,

Descreva os passos... mais ou menos assim:

Pego a informção no leitor...
Lança na tabela x
Na tabela x a informação aparece desta forma: xxxxxxxxxxxxxxx
Clica no botao...
Transfere os dados pra tabela y....
Ficando a y desta forma: xxxxxxxxxxxxxxxxxxxxx


Compreendeu?

Falou que atualiza cnsBarras... Consultas não sao atualizadas e sim tabelas...
A cnsBarras é que faz a atualização.

Deixa pra la, te expliquei da forma que eu sei, vc não entendeu.

Não sei qual e sua duvida.

Pois falei que o leitor vai lançado os dados do fmr aponta, e que de la o form lança os dados na tabela barras. tenho uma consulta simples da tabela barra no qual quantifica, e tenho uma consulta de adição, no qual por meio de botão execulto ela, e ela joga os dados na tabela resumo.

Os campos vc viu ai nas tabelas.

Cumprimentos,

Boa tarde Hary,

Existe algum comando ou função que faça excluir todos os registros de uma tabela?

Abraços,

Boa tarde Hary,

No botão de atualizar os dados lidos pelo leitor de codigo de barras e resumir eles por quantidade e datas, incluir a seguinte função.

Private Sub Comando13_Click()
aqui execulta a consulta adição, no qual adiciona os dados na tabela resumo.
DoCmd.OpenQuery "cnsbarras"
Aqui eu limpo a tabela barras no qual recebe os dados do leitor sem está resumido
DoCmd.RunSQL "Delete * From barras"

End Sub

E vc sumiu, ta preso ai? rs

Veja ai... Ao clicar no botão... Manda o código para a tblResumo, ja com as quantidades, e atualiza o campo CpIDCOdBarras com a ID do Produto na tblCadastro, ficando o mesmo relacionado..

Depois de clicar no botão abra a CnsCadastro_Reusumo e observe...

Falta inserir apenas o codigo para ao final deletar tudo na tblBarras...

Veja ai...

Código corrigido:

Código:


Private Sub Comando13_Click()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim ws As DAO.Workspace
Dim StrSql As String
Dim StrBarra As Double, StrCodBarra As Double

CurrentDb.Execute "INSERT INTO tabresumo ( CpCodBarras, [CpData por dia], Cpcaixas )" _
            & " SELECT DISTINCTROW barras.CpCodBarras, Format$([barras].[CpData],'dd/mm/yyyy') AS [CpData por dia]," _
            & " Count(*) AS Cpcaixas FROM barras" _
            & " GROUP BY barras.CpCodBarras, Format$([barras].[CpData],'dd/mm/yyyy')" _
            & " ORDER BY Format$([barras].[CpData],'dd/mm/yyyy');"

Set ws = DBEngine.Workspaces(0)
Set Db = ws.OpenDatabase(CurrentProject.Path & "\LeitorBarra.mdb", False, False, "MS Access;PWD=senha")

StrSql = "SELECT * FROM tabCadastro"
Set Rs = Db.OpenRecordset(StrSql)
If Rs.RecordCount = 0 Then
        MsgBox "sem registro selecionado", vbInformation, "Atenção"
Else
Do While Not Rs.EOF
StrCodBarra = Rs!CpIDCodBarras
StrBarra = Rs!CpCodBarras
    CurrentDb.Execute "UPDATE TabResumo SET CpIDCodBarras= " & StrCodBarra & "  WHERE CpCodBarras =" & StrBarra & ";"
Rs.MoveNext

Loop
  MsgBox "Fim da Pesquisa", vbInformation, "Atenção"
DoCmd.RunSQL "Delete * From barras"
End If
End Sub


pega leve amigão,

O que eu faço com isso?com esses codigos? vc mudou alguma coisa ai na que eu te enviei?

kkk avançado mesmo so o meu status aqui do forum, na pratica e nivel -1

kkk Desculpe-e esqueci do Link kkkkkk


http://dl.dropbox.com/u/26441349/LeitorBarra.rar

Agora simmmmmmmmmmmmmmm deu tudo certo, e incluir o codigo (DoCmd.RunSQL "Delete * From barras") que limpa a tabela barras.

Ficou perfeito, e agora como faço para criar o resumo do resumo, ou seja, que apareça os campos codigo de barra, quantidade caixa, codigo produto empresa, nome do produto, e quantidade kg do produto?

Cumprimentos,

No Código bem abaixo da variável StrBarra..... Aplique o código a seguir.. ele serve para cancelar o evento caso não haja ainda apontamentos na tbl Barras

'Abaixo da linha em azul aplique o código que segue
Dim StrBarra As Double, StrCodBarra As Double

If DCount("*", "Barras") = 0 Then
MsgBox "Não há lançamentos de novos apontamentos", vbCritical, "Atenção"
Exit Sub
End If

opa maravilha, testei aqui, perfeito............

Parabens Hary,

O nome da empresa á simples.. Crie uma tabela com os dados do frigorifico.. depois me envie..

Na CnsCadastro_Resumo pode observar que ja tens todos os dados advindo das duas tabelas...
O Nome da empresa, aplicaremos nesta consulta a seguinte linha em um campo não acoplado
Empresa: DLookup("CbNomeEmpresa", "TblEmpresa")

Agora quanto a quantidade de kg.. todas as caixas tem peso igual?

Porque ai na tblResumo está o total de caixa por produtos..

Se as caixas tem peso semelhante basta um campo não acoplado fazendo a multiplicação
TotalKg: ([CpCaixas)] x N

Onde N é o peso

Não falei nome da empresa, falei nome do produto hehehe e codigo do produto..

Não, os pesos das caixas são diferentes.

Cumprimentos,

O que falta então?