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

entendeu sobre o relatorio de produção e rendimento de abate?

Agora olha so...
Se na recepção como voce ja esta incluindo dados do abate.. pode incluir por carga.. esses dados...

Oras.. se ja esta informando na recepçao a quantidade de aves abatidas.. e so colocar os campos que necessitará para comparação... compreendeu?

Nao ha necessidade do form realizado, pois parte dessa informação da está na recepção...

Em realidade teriamos que ter comecado diferente... por isso deixei voce ir norteando o programa..

Eu teria feito a recepção apenas com dados basicos da carga
ai sim o form programado e o realizado...
onde o realizado teria relacionamento com a recepção...

compreendeu?

entendi, estou fazendo a tabela aqui programadox realizado, vou criar o form, e a consulta, ai vc me ajuda a criar um segundo form com filtro de data inicio e final do programado e realizado, ainda não aprendi a fazer aquele tipo de filtro que vc faz, logo posto com as alterações.

Cumprimentos,

Agora ja que incluiu os dados do abate na recepção... adicione mais os campos Carcarca e tal... assim para cada carga teria a informação.. ai nao precisa do form realizado...

Acuse se entendeu...


A escolha agora é sua... no entanto advirto que pense sobre isso, pois alterar é mais trabalhoso que fazer...

Amigao.. nao seria melhor apenas incluir na recepção os dados que faltam?

Como peso medio por frango...
Peso peso medio por galinha

A tal da carcaça que nao sei como é...

Pense

Não, pq e diferente, vai por mim, temos que criar uma tabela programado x realizado, pois de qualquer maneira tem outro controle que vai depender desse.

cumprimentos,

Vou te enviar algo.. espere...

Abra o form Recepção..

Na segunda aba.. nos calculos abaixo do lado esquerdo abaixo do peso médio..
Veja que adicionei a media apenas para frango...

Podemos fazer assim com galinha e outras informações...

Entao creio que nao precisa do form programado... pois teremos todas as informações na recpção..

Analise e pense...

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

Cumprimentos

Boa tarde Hary,

Olhei seu exemplo, ficou bom porem não para o que iremos fazer la na frente, então vai por mim, la na frente vc vera que temos que fazer do jeito que fiz agora. Quando chegar a hora vc verá.

Segue o forme que fiz de cadastro de programado e realizado. Agora preciso de um form de consulta filtro por data inicial e data final, assim posso ver o resultado acumulado programado e o resultado acumulado realizado de um certo periodo que eu quiser. Tem que ser em outro form pq assim, la na frente bloqueamos o acesso dos forms de edição para certo usuario e deixamos liberados apenas os forms de consultas de resultados.

Cumprimentos, estou por aqui qualquer coisa podia me ensinar a fazer kkk o filtro.

[url=http://www.4shared.com/file/zmM2sD9i/GestaoPCP22_2.html]

Hary não esquenta, assim ficouu bom. la na frente a gente aautomatiza o rendimento, não daria para puxar os dados la da forma que iriamos fazer, assim ficou melhor.

Cumprimentos,

Baixei o que me enviou.. Especifique agora o que pretende neste...

Cumprimentos

Agora preciso de outro form no qual eu possa filtrar por data inicial e final os dados de programado x realizado.

exemplo: data inicial 01/09/2011 data final 06/09/2011, dai me traria o total desse periodo de frango programado e realizado, galinha, carcaça.

Entendeu?
Cumprimentos,

olha o que ja fizemos e o que falta:

Gestão Granja =ok
Gestão Caminhão =ok
Gestão Recepção =ok
Gestão Peso médio
Gestão Produto o=k
Gestão programação de produção
Gestão produção
Gestão rendimento
Gestão subproduto
Gestão condenação Parcial Kg
Gestão condenação total por doença
Gestão almoxarifado
Gestão de ocorrências de abate


hehehe

Depois voce vai arrumar a disposição deste forms não?

Tamanhos, designer etc... Correto?

Eu percebi que esta fazendo os novos forms, baseado em forms ja existentes..

Tem que tomar cuidado para retirar os códigos que não sao utilizados neste novo form compreendeu?

ok blz, quando vc me enviar ai de novo eu limpo oq tiver vinculado.

cumprimentos,

Eu limpei.. mas ao criar novo form.. se o codigo nao é usado no novo form.. tem que exclui-lo

Neste for que filtrara o programado x realizado

Quais os filtros que quer?
alem da data..

apenas data mesmo, lembrando que vai ter que gerar relatorio depois de acordo com o filtro de data tambem.

Abraços

Que macro é essa que colocou no campo da data no form recepção???

Puts.. voce encheu tudo de macro..
Pra que isso?

Ata, é uma macro que vai pulando os campos do filtro depois que eu acrescento algo. assim facilita o usuario evitar que usar tab ou mouse.

Não coloque Macros sem me avisar... Estamos fazendo tudo em vb..

Não temos porque aplicar macros..

Veja o simples:

Private Sub CboGranja_Change()
Me.CboPlaca.SetFocus
End Sub

Tem algum material de estudo que me ensine esses vbas?

Abra o form novo que criei...
abaixo da lista adicione todos os campos que quer cálculos..

Tomando cuidado para renomear a caixatexto (em Azul) com o nome correto..

e retorne

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

Cumprimentos

Hary,

Desculpe mais não pode ser daquela forma, tem que ser no formato igual ao form realizado x programado que eu montei, a unica diferença e o filtro. Ou seja, não por lisbox e sim por caixa de texto, seria a copia do form que montei porem com filtro que totalizam nas caixas.

Entendeu?

Cumprimentos,

Tem que ser igual a printscreen que eu te enviei hoje, veja nela como sera o form de filtro.

Abraços,

Boa noite Hary,

Olha aqui como eu precisava que fosse o form de filtro por data: porem não consegui fazer o filtro.

olha no frmCnsProgramadoXRealizado

Da uma olhada por favor

Cumprimentos,



[url=http://www.4shared.com/file/d5Inz3IQ/GestaoPCP22_3.html]

Amigão.. a list pode ate ficar em oculto... aplique as caixas com as somas e diferenças que pretende que eu monto pra ti....

Que diferença faz ter a lista ou não? ela so sera utilizada para fazer a soma.. podemos inclusive deixá-la em oculto... a questao de parecer com o outro é mera estetica.. o importante é o resultado pretendido...

Neste modelo que te enviei aplique as caixas texto e descreva quais resultados quer que apresentem...

Cumprimentos

foi isso que pedi pra voce.. talvez nao tenha entendido... Utilizarei o filtro na list.. filtrando as datas somo as coluna e as aplico na caixa texto amigão...
Tambem poderemos utilizar o recordset...ao invés da listBox...

Sinto mas voce entendeu mal...

Agora quanto a nao querer exibir a list é uma questão de estetica somente...

Depois do almoço faço isto pra ti, pois tenho trabalho aqui agora.. E dia de visita e tenho que cadastrar a s digitais de todos os visitantes..

Cumprimentos.

Bom dia Hary,

Em relação a consulta por data inicial e final, entendi sim, ele retorna os dados em listbox e depois retorna o total em caixa de texto. Porem e como vc falou, a estetica não irá se adequar, porem depois que tivermos a consulta por data inicial e data final que retnorne os dados em caixa de texto, eu irei criar outras caixas que me darão as diferenças entre o programado e realizado, percentual de atendimento, irei encher a tela do form com indicadores.

Ok vou aguadar vc após o almoço para finalizarmos essa parte.

Cumprimentos,

Amigao.. voce nao esta entendendo... O form é o mesmo list sera apenas para consulta dos dados... Aguarde e vou fazer isso.. se utilizarmos a list.. ela ficara em oculto e a soma de colunas preenchera as caixas texto que quer. depois de posse das informaçõs da soma das caixa teremos outras com a diferença compreendeu?

ok vou aguardar vc para ver como fica.

Abraços,

Bem este novo form utilizamos uma forma diferente.. ate agora utilizamos SQL em todos..
Porem neste agora carregamos a SQL em um RecordSet.. e utilizo do loop para percorrer todos os registros no recordset, somando-os a cada loop..

Veja o código e observe a logica de utilização...

Veja o que falta.. há caixas texto que nao faz referencias na tabela..
Veja e retorne

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

Cumprimentos.

Hary,

Ficou perfeito, vou fazer uns ajustes pois o peso médio não se soma, apenas o peso total, e na caixa de texto faço uma expressão de divisão pelo peso total dividido pelo numero de cabeça.

Obrigado,

Hary,

Não deu certo o formulario, ele tinha que ser baseada na consulta, pois se vc viu nela tinha um campo calculado, aonde multiplicava o peso médio do dia x o numero de aves recebidas e gerava um total kg recebido, e diretamente na tabela como foi feito a consulta sql não tenho esse valor.

Entendeu?

Cumprimentos,

Hary,

Se eu mudar a origem da sql ao inves de pegar os dados da tabela pegar os dados na consulta dar certo? ajustando alguns campos na sql ou seja trocando o peso médio, pelo campo peso médio total?

Cumprimentos,

Claro.. a consulta funciona como uma tabela.. podes carregar o recordset com a consulta...

Tente faze-lo ai.. não é dificil se observar o código verá que tem fácil compreensão...
Apenas substitua o SQL pela consulta...

Compreendeu?

Qualquer coisa avise-me que o faço.. mas tente ai..
Eu nem percebi essa questao da consulta.. por isso a exclui sem perceber que faria falta...

Agora a consulta nao é na origem do form..
Pegue a sql da consulta e substitua pela sql da tabela comprendeu?

Olá Hary,

Fiz as alterações na sql, mudei para a consulta, alterei os campos, está tudo ok agora. Vou criar a proxima tabela para prosseguirmos outras gestões.

Cumprimentos e obrigado.

Fases do trabalho:


Gestão Granja =ok
Gestão Caminhão =ok
Gestão Recepção =ok
Gestão Peso médio =ok
Gestão Produto o=k
Gestão programação de produção
Gestão produção
Gestão rendimento
Gestão subproduto
Gestão condenação Parcial Kg
Gestão condenação total por doença = vamos criar essa agora
Gestão almoxarifado
Gestão de ocorrências de abate

Este foi o que fiz.. veja se esta igual ao teu..

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

Acho que o meu ta diferente veja abaixo:



[code]Private Sub btfiltrar_Click()
Dim rs As DAO.Recordset
Dim StrSQL As String
Dim StrFrangoPadraoProgramado As Double, StrPesoMedioTotalFP As Double
Dim StrCarcacaProgramado As Double, StrPesoMedioTotalc As Double
Dim StrGalinhaProgramado As Double, StrPesoMedioTotalg As Double
Dim StrFrangoPadraoRealizado As Double, StrPesoMedioTotalFPR As Double
Dim StrCarcacaRealizado As Double, strPesoMedioTotalCR As Double
Dim StrGalinhaRealizado As Double, StrPesoMedioTotalGR As Double


If IsNull(DataInicial) = True Or Me.DataInicial = "" Or IsNull(DataFinal) = True Or Me.DataFinal = "" Then
MsgBox "é obrigatório o preenchimento dos campos Data Inicial e Data Final" & vbCrLf & _
"para efetuar a consulta", vbCritical, "Atençao!"
Exit Sub
Else
StrSQL = "SELECT csnProgramadoXRealizado.ID_Programado, csnProgramadoXRealizado.CpData AS DATA," _
& "csnProgramadoXRealizado.CpFrangoPadraoProgramado, csnProgramadoXRealizado.PesoMedioTotalFP," _
& "csnProgramadoXRealizado.CpCarcacaProgramado, csnProgramadoXRealizado.PesoMedioTotalc," _
& "csnProgramadoXRealizado.CpGalinhaProgramado, csnProgramadoXRealizado.PesoMedioTotalg," _
& "csnProgramadoXRealizado.CpFrangoPadraoRealizado, csnProgramadoXRealizado.PesoMedioTotalFPR," _
& "csnProgramadoXRealizado.CpCarcacaRealizado, csnProgramadoXRealizado.PesoMedioTotalCR," _
& "csnProgramadoXRealizado.CpGalinhaRealizado, csnProgramadoXRealizado.PesoMedioTotalGR" _
& " FROM csnProgramadoXRealizado" _
& " WHERE ((csnProgramadoXRealizado.CpData >=#" & Format(Me.DataInicial, "mm/dd/yyyy") & "#) And (csnProgramadoXRealizado.CpData <=#" & Format(Me.DataFinal, "mm/dd/yyyy") & "#))" _
& "ORDER BY csnProgramadoXRealizado.CpData;"

Set rs = CurrentDb.OpenRecordset(StrSQL)


Do While Not rs.EOF
StrFrangoPadraoProgramado = StrFrangoPadraoProgramado + rs!CpFrangoPadraoProgramado
StrPesoMedioTotalFP = StrPesoMedioTotalFP + rs!PesoMedioTotalFP
StrCarcacaProgramado = StrCarcacaProgramado + rs!CpCarcacaProgramado
StrPesoMedioTotalc = StrPesoMedioTotalc + rs!PesoMedioTotalc
StrGalinhaProgramado = StrGalinhaProgramado + rs!CpGalinhaProgramado
StrPesoMedioTotalg = StrPesoMedioTotalg + rs!PesoMedioTotalg
StrFrangoPadraoRealizado = StrFrangoPadraoRealizado + rs!CpFrangoPadraoRealizado
StrPesoMedioTotalFPR = StrPesoMedioTotalFPR + rs!PesoMedioTotalFPR
StrCarcacaRealizado = StrCarcacaRealizado + rs!CpCarcacaRealizado
strPesoMedioTotalCR = strPesoMedioTotalCR + rs!PesoMedioTotalCR
StrGalinhaRealizado = StrGalinhaRealizado + rs!CpGalinhaRealizado
StrPesoMedioTotalGR = StrPesoMedioTotalGR + rs!PesoMedioTotalGR


rs.MoveNext

Loop

Me.CpFrangoPadraoProgramado = StrFrangoPadraoProgramado
Me.CpPesoMedioProgramadoFP = StrPesoMedioTotalFP
Me.CpCarcacaProgramado = StrCarcacaProgramado
Me.CpPesoMedioProgramadoC = StrPesoMedioTotalc
Me.CpGalinhaProgramado = StrGalinhaProgramado
Me.CpPesoMedioProgramadoG = StrPesoMedioTotalg
Me.CpFrangoPadraoRealizado = StrFrangoPadraoRealizado
Me.CpPesoMedioRealizadoFP = StrPesoMedioTotalFPR
Me.CpCarcacaRealizado = StrCarcacaRealizado
Me.CpPesoMedioRealizadoC = strPesoMedioTotalCR
Me.CpGalinhaRealizado = StrGalinhaRealizado
Me.CpPesoMedioRealizadoG = StrPesoMedioTotalGR

rs.Close
Set rs = Nothing
End If
End Sub

Voce nao precisa inserir na SQL a Consulta em si.. APenas os campos não acoplados com os calculos como no meu...

Da forma que fiz o banco fica mais enxuto.. pois da forma que fez.. a SQL pesquisa na consulta que pos sua vez consulta a tabela...

Da forma como fiz é necessário apenas as tabelas e os calculos sao feitos diretamente na SQL..

Compreendeu?

Faça as correções utilizando o exemplo que te enviei...
é melhor.

Cumprimentos

Ok então, vou fazer as correções mais antes uma duvida sobre o proximo passo.

Faremos o controle de condenações totais por doença.


Teremos campos como, data, Granja, doença 1, doença 2. etc.

Porem o cadastro e feito por granja. por dia teremos varias granjas, e cada granjas tera varias doenças.

Facil de fazer isso? Pois depois que eu criar essa tabela, teremos um form cadastro, e outro form para consultar as doenças, tendo dois filtros, um filtro de data inicial e data final e outro filtro granja.

Entendeu?

Abraços

Hoje nao estou mais conseguindo pensar direito.. Estou muito cansado.. Faça a tabela e amanha continuamos..

Tenha uma ótima noite.

ok boa noite, bom inicio de semana.

Abraços,

Boa noite,

Criei a tabCondenasTotais, com os campos, id_codCondenas; cpData; CpCodGranja; CpNomeGranja; e outros com nomes das doenças;.

Criei um formulario para cadastrar as informações de condenações, no qual serão varias granjas por dia e varias doenças por granja. Até aqui está tudo ok.

Agora preciso e não achei como fazer o seguinte? criei no formulario uma caixa de combinação no qual eu seleciono o codigo da granja, e criei uma caixa de combinação para o nome da granja. Porem para o nome da granja pode ser caixa de texto, desde que quando eu seleciono o codigo da granja na caixa de combinação, na caixa de texto ja apareça no nome da granja. e que essas informações sejam cadastrada na tabcondenações.




Fiz uma consulta qrygranja para a caixa de combinação, porem estou achando que seja desnecessaria.

Veja o que pode me ajudar por favor, so falta isso para terminar e criar a consulta de condenação.

Cumprimentos,
[url=http://www.4shared.com/file/uLK6NImE/GestaoPCP25.html]

Essa tabela tem que ser relacionada com a tblGranja assim cada granja teria cadastrado suas coindenaçòes por data...

Verei aqui.. e retorno..

Explique com mais detalhes a duvida..

Cumprimentos

Amigão.. uma critica...
As caixas texto que cria. ficam todas desordenada.. rótulos passando por cima das caixas
Rotulos maiores ou menores que as caixas...

Tente fazer ja tudo organizado, com tamanhos harmônicos...