[Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

Bom dia Adilson

Me ajudar a resolver o problema das somas Custo Parcial.
Custo Parcial não somas os valores dos campos Custo Total corretamente.

Outra coisa vc possui algum material de estudo, para que eu passa me aprofundar nesse assunto de programação.
Qual a melhor linguagem de programação para se fazer esses tipos programinhas, seria no Access, VBA, HTML..etc.
Estou gostando de fazer esses programas, mas a dificuldade me esta me atrapalhando um pouco.

Desde já agradeço a atenção.
Obrigada.

Me fale como você quer que seja efetuado esse calculo.

Quanto a Linguagem de Programação.

Você está no caminho certo. Continue aqui no fórum conosco quevocê vai aprender muito. Aprenderemos juntos.
VBA for Access resolve a maioria dos nossos problemas (estou fazendo um sistema em Access 2007 em rede). Continue conosco.

Quanto a Material de estudos na web você encontra a "rodo"

Cadastre-se no www.apostilando.com (é gratuito) e baixe as apostilas que você quiser (tem ótimas lá)

e também o baixebr

www.baixebr.org (tem e-books ótimos)

Aguardo o retorno


Adilson

Adilson

A soma seria dos campos CustoTotal, somados e exibidos no campo CustoPArcial.

A soma dos valores não está batendo, com o valor exibido no CustoParcial.

Vi o site que vc me mandou e ja baixei alguns materiais para estudar.

Abraços.

Lau,

o erro está no seguinte evento:


Private Sub CustoParcial_GotFocus()


If IsNull(Me.CustoTotal1.Value) = True Then
vCustoTotal1 = 0
ElseIf Me.CustoTotal1.Value = "" Then
vCustoTotal1 = 0
ElseIf Me.CustoTotal1.Value = 0 Then
vCustoTotal1 = 0
Else
vCustoTotal1 = Me.CustoTotal1.Value
End If

A parte em vermelho depois de Me.CustoTotal coloque o numero 1 (um) assim Me.CustoTotal1.Value
Ele tá pegando o valor da caixa anterior.

Corriga que vai dar certo


Atenciosamente,

Adilson

Adilson

Estou quase terminando minha ficha técnica.
Ainda estou com o problema de armazenamento de dados.
O que vc me passou cadastra registros e não armazena os produtos, em um determinado código (Unica Ficha).

Ex. Ficha (1) - Empresa|Item|Rendimento|Categoria|Porção| Produto|Qtd|Unidade|FatorCorr|QtdBruto|CustoBr|CustoTota|....|CustoParcial|...|ModoPreparo|ElaboradoPor

Onde | Produto|Qtd|Unidade|FatorCorr|QtdBruto|CustoBr|CustoTota| - são informações de outra tabela. E são varios itens na mesma Ficha(1)
Arroz 1 kg 1,25 1,25 3,28 4,10
Feijão 1 kg 1,25 1,25 3,28 4,10


Eu preciso armazenar esses dados para no futuro, Consultar, imprimir, alterar, incluir, salvar e excluir.
Não sei se consegui me expressar direito.

Boa tarde, Lau.

Preciso ter uma visão geral do que você quer para poder te ajudar: Tenho muito interesse em te ajudar.

Seja breve em seu relato e me dê uma noção panorâmica do seu projeto. Com um certo detalhamento neste último item que você solicitando que podemos fazer (nem se preocupe).

Atenciosamente,

Adilson

Bom dia Adilson

Desculpe pela demora em responder, mas tive uns probleminha aqui no trabalho, e tive que parar esse programa, e resolver outro.
Então, hoje estou retornando para Ficha técnica. E gostaria de pedir se você puder claro, me ajudar a finalizar até o final dessa semana. Eu sei que não pode pedir isso aqui.
A Ficha técnica para terminar precisa:
- Armazenar os dados, inclusive, os ingredientes, para no futuro consultar e alterar, caso seja necessário.
- Imprimir relatório das fichas criada.
- Quando salvar ou clicar em novo, limpar todo formulário, inclusive os dos ingredientes.
- Ação aos botões: Alterar/Consultar/Salvar/Novo/Imprimir/Visualizar/Excluir

Ficha Técnica0510.accdb


Abraços

Bom dia,

Sempre que puder teajudarei até aonde sei o forum é justamente para esta finalidade. Ajudarmos uns aos outros a irem mais longe na VBA for Access.

Estou pegado tambémcom meu projeto que meu cliente foi gostando do desenrolar do Projeto e foi colocando mais situações.

Mas vou tentar ver se conseguiremos fazer o que quer até o final de semana, creio que dá.

Outra coisa, tente criar uma conta no www.dropbox.com é o melhor serviços para as nossas atividades.

Atenciosamente,

Adilson

Lau,

1º) Você precisa vincular os objetos do form Ficha Técnica aos campos na respectiva tabela, por exemplo:

O campo Ingredientes (Caixa de Combinação) você terá que criar um campona tabela ficha técnica para salvar a informação do ingrediente selecionado nele e na propriedade Fonte do Controle você selecionar o campo ingrediente, para qu ele possa salvar corretamente a informação e assim sucessivamente nos outros campos. Temos vários colunas:

Ingredientes / quant liquida / unidade / fator de corr / quanto bruta / custo bruto e custo total, poiis cada coluna desta no seu formulario precisa que tais campos sejam vicnulados ao respectivo campo na tabela.


2º) Coloquei os botoes e uma combo de menus para abrir outros form atraves do ativo, agora é só você acrescentar nos outros forms com as devidas alterações.

e depois passaremos para o passo seguinte.

Segue o link:

http://dl.dropbox.com/u/37804873/Ficha%20T%C3%A9cnica0510.accdb

Abraços

Adilson

Boa tarde Adilson

Estive trabalhando na ficha tecnica, fazendo o que vc me pediu.
O que ocorre:
Eu tive que criar na tabela,muitos campos, para armazenar os valores dos ingrediente( QtdLiquida, QtdLiquida1,QtdLiquida2,....,QtdLiquida14,Unidade, Unidade1,...e assim sucessivamente) A tabela ficou enorme.Os outros campos tbm aparecem.
Sendo que ocorre o seguinte fato no campo "QtdBruto", esta arredondando o valor.
Dos botão que vc criou, preciso de um, visualizar o relatorio, e outro para imprimir. Não sei onde encontro esses modelos de botões.

Ah vi os videos tambem muito interessante, dar uma visão, muito boa pra quem esta começando na area de TI. As analises que tem que ser feitas, a valorização do profissional. Excellente.
Se tiver mais pode me mandar, agradeço muito.
Abraços.

Boa Noite, Lau.

Quanto ao campo "QtdBruto", está arredondando, você vai no Janela de Código aonde está a criação da variável que armazena na memória o respectivo valor. Por exemplo:

Dim vQtdBruto as Long

Mude para

Dim vQtdBruto as Currency.

Quanto aos botões para imprimir e visualizar relatório você usa no evento click dos botões os seguinte códigos:

Imprimir: DoCmd.OpenReport "NomedoRelatorio", acViewPreview


Visulaizar Relatorio: DoCmd.OpenReport "NomedoRelatorio", acViewReport


Quanto aos vídeos postarei mais no meu blog:

http://moriabereiasolucoes.wordpress.com

está em fase de construção mais postarei todo o curso de Análise de Sistemas nele.


Atenciosamente


Adilson

Boa Noite Adilson

E esses botões onde acho eles?
Abraços

Adilson

Verifiquei o codigo QtdBruto esta assim:

Private Sub QtdBr12_GotFocus()

Dim vQtd12 As Single
Dim vFatorCorr12 As Single
Dim vTotal12 As Single

vQtd12 = Me.Qtd12.Value
vFatorCorr12 = Me.FatorCorr12.Value

vTotal12 = vQtd12 * vFatorCorr12

Me.QtdBr12.Value = vTotal12

End Sub

A variavel vQtdBruto, aparece no calculo custo total, este esta calculando certo.

Você encontra na aba Design .


Quando você lica no formulário logo acima dele tem a guia Design onde ocê encontra vários objetos é só passar o mouse em cima sem clicar que aparece o nome de cada um depois você clica em botão e vem para o formulário clica segura e arrasta e desenha no formulário do tamanho que desejar.


Adilson

Adilson

Esse tipo de botão eu sei colocar, mas você colocou uns diferente, e eu queria colocar assim tambem.

Abraços.

Entendi.

Você entra no site http://www.iconesbr.net/ que você acha os ícones. Os ideais para o access e de 32X32 pixel, depois na propriedade imagem do botão você seleciona a imagem desejada.
Geralmente uso a largura de 1,7 cm e a altura de 1,4. Na propriedade estilo do fundo você coloca transparente. Embaixo do botão e bem juntinho você coloca um rótulo com a propriedade legenda (o nome desejado para o botão). Voilá.



Atenciosamente,

Adilson

Boa Tarde Adilson

Você pode me ajudar a finalizar um outro projeto.
Eu já abri um tópico, e quem estava me ajudando era o Avelino, sendo que ele não me responde.
Se vc puder me dar um help
Agradeço desde já.

Abraços

Continuemos aqui então

Pegue suas duvidas e post aqui.

Esse Tópico está omo pojetos em desenvolvimento, podemos seguir até concluir seu projeto.



Adilson

Adilson
Segue abaixo o outro projeto que estou finalizando.

No formulário (Controle Recebimento), eu coloquei um campo (Repasse), esse campo busca na tabela (ControledeRepasse) a soma dos campos "Valor" do referido mês informado na combo do formulário (Controle Recebimento).


Resumindo: Eu quero pegar o valor total, da tabela "Controle Repasse", por mês. E mostrar esse valor no formulario "Controle Recebimento".

No formulario Controle Recebimento, tem dois campos Tar.Transferencia e impressão, que precisa armazenar os valores que são digitados neste campo. O que tenho que fazer nesse caso, uma vez que os valores são lançado por mes. Esses campos estao criado na tabela "Controle Recebimento", sendo que nessa tabela nada esta sendo armazenado, nem os outros campos, porque estes possui formulas.E fiz direto no formulario.Porque esse formulario serve apenas para consulta, os unicos campos que irão ser guardados, seria, a Tar.Transferencia, impressão, saldo disponivel, e a ultima data atualização.

Segue arquivo.
BD_FRB - Atualização 2011_r1.accdb

Obrigada pela atenção.

Lau,

Segue o link de uma possibilidade para ver se resolve seu problema.


http://dl.dropbox.com/u/37804873/bd_frb%20-%20atualiza%25c3%25a7%25c3%25a3o%202011_r1.accdb

ao lado da caixa de texto tem uma listbox é só clica na data que aparece na caixa de texto repasse o valor.

Quanto a situação debaixo do post anterior explique melhhor.


Adilson

Bom dia Adilson

Vi as alterações, no sistema, sendo que eu queria ver com você, se num tem como puxar essa soma pela combobox.
Quando selecionar o mes na combobox, aparece no campo repasse a soma daquele mes.

Agora sobre os campos (Tar.Transferencia e impresão), esses campos são lançados nesse formulario (Controle Recebimento), eles são lançados por mês, não são valores fixos, eles alteram a cada mes, ou seja, cada mes eh lançado um valor. Sendo que eles não armazenam. Ex:
mes julho foi lançado Tar.Transferencia - 125,00 e impresão - 189,00
mes Agosto foi lançado Tar.Transferencia - 155,00 e impresão - 205,00

Eu preciso armazenar esses valores, para quando abrir o formulario selecionar o mes, eles retornam nos seus respectivos campos.

Quanto ao colocar no combo estou tentando, tenho pedido ajuda a outros colegas deste forum e de outros para podermos solucionar seu problema. Aquela do list foi provisoria.

Vou verificar a situação deste ultimo post.


Adilson

Para armazenar os valores dos campos (Tar.Transferencia e impresão) você tem que ir na propriedade Fonte do Controle e selecionar o respectivo campo na tabela do formulário.

Se é isso que você quer.

Adilson

Adilson

Isso eu fiz, salvei,mas quando entro pra lançar o mes seguinte,apaga o anterior.

Abraços.

Pelo que estou vendo aqui, salvo quase tudo.

Só não salva alguns campos na parte inferior do formulário pois as formulas estão na propriedade fonte do controle, justamente a propriedade que salva na tabela as informações. e na parte superior do formularios as caixa de texto abaixo da combo não estão acopladas aos campos da tabela.

Acople pela propriedade Fonte do Controle e vai salvar.

Adilson

Então:

Na verdade, esse formulario seria somente para consulta, e impressão de relatorio.
Por isso coloquei as formulas ali, que são somas de somas, os que são valores fixos, e coloquei o valor, e os que calculam coloquei a formula.
Na parte de cima tem um código que puxa as informações.
Na parte de baixo eu coloquei algumas formulas.
E esses campos são os unicos que serão armazenados, por serem valores que variam no mes.
Abraços.

Então:

Os campos que você quer que armazene, você acopla ele ao respectivo campo na tabela e se tive função na Propriedade Fonte do Controle você coloca em um evento. Por exemplo no evento gotfocus ou lostfocus de outro objeto.


Adilson

Boa tarde,

Lau segue o link para sua apreciação.


http://dl.dropbox.com/u/37804873/Atualiza.accdb

Atenciosamente

Adilson

Bom dia Adilson

Muito obrigada pela força vou dar uma olhada.
Me diga uma outra coisa na coluna despesa,onde tem os campos ( impressão e aceig)esses valores vem de um tabela parametros, como faço para fazer um evento puxando essas informações, para esse formulario.

Os campos (correios e tar/custo) tambem vem dessa tabela, mas são mutiplicados pela qtd de boletos: Tar/Custo=([Texto103]*2,49), correios=([Texto100]*1,10)

Abraços

Boa tarde,


Você pode fazer esta tabela no seu bd e acoplá-la a um subform e no evento gotfocus ou lostfocus de qualquer caixa de texto que você achar mais apropriada chamar esse subform abrir e fechar.

É a mesma situação que foi resolvida a sua situação anterior, abra a combo de datas e veja que tem uma chamada de um subform e fechando ele depois que ele adiciona dados no campo repasse, e só fazer igual só que não no evento do combo mas lost ou got focus de uma caixa de texto desejada.

E no subform estará todas as informações necessárias da respectiva tabela que será jogado no form controle recebimento pgto.

Veja o sub form sub_repasse é só copiar o modelo adaptando para a sua realidade.

Abraços,

Adilson

Bom dia Adilson

Estou com problema no relatório, Controle Recebimento, esta dando erro de compilação.

Esse relatório precisa mostrar as informações do formulário Controle recebimento.

No formulário Controle recebimento eu coloquei umas combobox, para puxar os valores das tabelas. Só que com isso não consigo somar o Total das Despesas, dá erro.

Eu tentei na tarifa de transferência ,criar igual vc fez no repasse, mas não consegui,tenho que estudar mais.
Segue o arquivo com as alterações que eu fiz.
Atualiza.accdb


Obrigada.

Lauders,


Quanto ao problema no Relatório você cria primeiro uma consulta baseada na tabela que origina os dados que quer por no relatório e depois você cria o relatório com base na consulta. Quando você for criar a consulta as contém informações de duas tabelas, na propria consulta relacione-as, ou seja escolha os campos de uma tabela e depois da outra e voilá, só é partir depois para a criação do relatorio.

Quanto a este item que você citou:

Eu tentei na tarifa de transferência ,criar igual vc fez no repasse, mas não consegui,tenho que estudar mais.

É só estudar aquela parte que t passei e fazer. Estudar e Adaptar.

Atenciosamente,

Adilson

Adilson

Então, quero começar aprender e entender, veja se estou correta.

Olhando o vc criou, foi feito um segundo filtro, eu vou ter que fazer um terceiro filtro?

Foi criado um sub-formulario, sendo que não sei se este foi criado para puxar a soma.

Sendo que eu quero puxar uma informação da tabela
Tar_Transf, para o formulário Controle Recebimento sem calculos.
Estou correta? O processo seria esse?

Exato

Adilson

Adilson

Quando coloquei as combobox, os valores da tabela aparecem.
Agora eu não estou conseguindo somar as caixas de texto e as comboboxs.

Tem como somar( cxtexto + combobox)?

Criei a consulta para visualizar o relatório, mas esta dando erro "3615 - tipo não coincidente na expressão"

Abraços.

Dim vCaixadetexto as tipo de dados
dim vcombo as tipo de dados
dim total as tipo de dados

vcaixadetexto = caixadetexto.value
vcombo = combo.value

total = vcaixadetexto + vcombo

Adilson

Coloquei assim




Private Sub Texto90_GotFocus()
Dim vtexto87 As Integer
Dim vtexto86 As Integer
Dim vCbo145 As Integer
Dim vCbo143 As Integer
Dim vCbo141 As Integer
Dim vTotal As Integer


vtexto87 = Texto87.Value
vtexto86 = Texto86.Value
vCbo145 = Cbo145.Value
vCbo143 = Cbo143.Value
vCbo141 = Cbo141.Value

vTotal = (vtexto87 + vtexto86 + vCbo145 + vCbo143 + vCbo141)
vTotal = Texto90.Value

End Sub

Mas da erro em tempo de execução '424' objeto não encontrado.
Atualiza_2.accdb


Abraços

Voce tem que informar ao Compilador que objeto vai receber o resultado.

Dim vtexto87 As Integer
Dim vtexto86 As Integer
Dim vCbo145 As Integer
Dim vCbo143 As Integer
Dim vCbo141 As Integer
Dim vTotal As Integer


vtexto87 = Texto87.Value
vtexto86 = Texto86.Value
vCbo145 = Cbo145.Value
vCbo143 = Cbo143.Value
vCbo141 = Cbo141.Value

vTotal = (vtexto87 + vtexto86 + vCbo145 + vCbo143 + vCbo141)
vTotal = Texto90.Value


Exemplo:

Caixadetexto.value = variável (tá errada a ordem do que está em vermelho, a ordem é essa).

Outro detalhe:

Você colocou um objeto inexistente no seu form o text87 (olhei e não achei no form, verifique isso)


Verifique no evento gotfocus do texto90 que coloquei uma linha de código assim

if isnull(me.text.value)......

replique ela para as outras variáveis, pois se não tiver valor em alguma caixa de texto ou combo participante da formula ele acrescenta o zero evitando assim erro.

Coloquei um ' (apostrofo) como se fosse um comentário no text87 que não existe em seu form para evitar que o compilador execute e gere o erro.

segue o link verifique o que fiz e mude conforme sua necessidade


http://dl.dropbox.com/u/37804873/atualiza_2.accdb


Adilson

Adilson

Aceitei, os nomes da caixa de texto, estava errado mesmo.
So que a soma, não esta batendo, da uma diferença.
ja verifiquei as caixa de texto e as combobox e continua dando diferença.

O campo tar.transf, estava aparecendo muitos numeros. mudei o formato, mas não aparece o R$.

Me passe o bd com as alterações feitas para que eu possa dar uma olhada

Bom dia Adilson

Segue o BD, para verificar as somas.O relatorio tbm não está aparecendo, criei a consulta, mas esta dando erro.

atualiza_2.accdb

Abraços

Quais somas não estão dando certo.

Me informe os nomes dos objetos

Adilson

Olhe só você não tinha feito o que te sugeri. Colocar o IsNull em todas as variáveis.

Dim vtexto80 As Currency
Dim vtexto86 As Currency
Dim vCbo145 As Currency
Dim vCbo143 As Currency
Dim vCbo141 As Currency
Dim vTotal As Currency

If IsNull(Me.Texto80.Value) = True Then vtexto80 = 0 Else vtexto80 = Me.Texto80.Value
If IsNull(Me.Texto86.Value) = True Then vtexto86 = 0 Else vtexto86 = Me.Texto86.Value

If IsNull(Me.Cbo145.Value) = True Then vCbo145 = 0 Else vCbo145 = Me.Cbo145.Value
If IsNull(Me.Cbo143.Value) = True Then vCbo143 = 0 Else vCbo143 = Me.Cbo143.Value
If IsNull(Me.Cbo141.Value) = True Then vCbo141 = 0 Else vCbo141 = Me.Cbo141.Value


vTotal = (vtexto80 + vtexto86 + vCbo145 + vCbo143 + vCbo141)

Texto90.Value = vTotal

Coloquei e outro detalhe no Me.Texto80.Value as vari´veis estavam trocadas ao invés de vTexto80 estava vTexto86, você trocou por isso a soma tava dando erro.

Segue o link

http://dl.dropbox.com/u/37804873/atualiza_2.accdb

Veja se isso resolve segue o link

Atenciosamente,

Adilson

Adilson

Me desculpas, mas a soma, não esta indo.
E o relatório está dando erro '3615', já criei a consulta mas não foi.
Obrigada

me informe que campo soma é (o nome da caixa texto )no form e qual relatorio (qual botão de qual form aciona o relatorio que da erro.

Adilson

Adilson

O campo que soma o nome é(Texto90)
No formulário "Controle Recebimento", tem um botão Relatório, que abre o Relatório "Controle Recebimento" , sendo que esta dando erro. Não abre com as informações do formulario "Controle Recebimento".

Boa tarde, Lau

Olhe só a linha de código que você tem:

Option Compare Database
Dim filtro As String
Dim StrVinculo As String


Private Sub Comando128_Click()
DoCmd.OpenReport "CONTROLERECEBIMENTO", acViewPreview, , , , filtro
End Sub

o Erro está marcado em vermelho, essa variável teria que ser infomado a ela qual o caminho da tabela e os campos desejados que armazenam dados do form para serem exibidos no relatório.

Crie uma consulta somente com os campos da tabela que armazena os dados do form controle de recebimento e gere seu relatório.

E no Comando128 recodifique a abertura o relatório.

Atenciosamente,

Adilson

Adilson

essa informação ja estava antes. E estava funcionando partes, pelo menos a parte de cima exibia, e as formulas que eu copiei, para o relatorio.
O erro começou quando eu criei a consulta,e associei ao relatorio essa consulta.

Obrigada.

Como você fez essa consulta e colocou ela aonde no relatório?

Bom dia Adilson

Eu coloquei na fonte de controle a consulta.
Já tentei aqui, voltei a forma anterior, onde só aparecia, uma parte do relatório, agora nada funciona.
Só está faltando o relatório e as somas do formulário 'Controle Recebimento' para terminar, se vc puder me ajudar agradeço muito.
Segue meu BD.

Atualiza_21.accdb

Abraços.