MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Projeto Ordem de Serviço

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1046
    Registrado : 01/07/2011

    Projeto Ordem de Serviço Empty Projeto Ordem de Serviço

    Mensagem  Connekta Informatica em 28/6/2016, 20:06

    Boa Tarde, eu desenvolvendo um projeto de ordem de serviço. A minha duvida ate agora é como fazer um formulário de Baixa de OS eos campos que devo adicionar na tabela de Ordem de Serviços. Alguem tem alguma ideas. Ou uma imagem de algum sistema feito em access de ordem de serviço?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 745
    Registrado : 30/08/2010

    Projeto Ordem de Serviço Empty Re: Projeto Ordem de Serviço

    Mensagem  gilberlanio em 28/6/2016, 20:25

    Tenho esse
    Uso campo está para concluir a ordem de serviço
    Projeto Ordem de Serviço 160u0pw


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1046
    Registrado : 01/07/2011

    Projeto Ordem de Serviço Empty Sistema Integrado de OS e Vendas

    Mensagem  Connekta Informatica em 21/7/2016, 02:06

    Boa Noite, há alguns dias atras montei um negocio para mim, onde vendo peça, acessórios de informatica e prestação de serviços. Mas primeiro vamos começar pela parte da venda.

    Bom! Como faço uma estrutura da tabela ( ou das tabelas ) para incluir as vendas e os orçamentos?

    Alguém tem algum modelo?

    Desde já muito obrigado.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Cesar Quintanilha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/08/2016

    Projeto Ordem de Serviço Empty Ajuda

    Mensagem  Cesar Quintanilha em 22/8/2016, 19:27

    Connekta Informática, tudo bem?

    Já conseguiu a ajuda que precisava?

    O que você precisa especificamente?

    Quando você vende, ou fornece algum serviço é gerado algum cupom, ou nota de venda/prestação de serviço?

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1046
    Registrado : 01/07/2011

    Projeto Ordem de Serviço Empty Re: Projeto Ordem de Serviço

    Mensagem  Connekta Informatica em 26/5/2017, 13:45

    Bom dia

    Estou com um projeto de um sistema de Ordem de Serviços, mas surgiu uma questão, como colocar o preenchimento obrigatório na função abaixo, eu coloque o seguinte código, mas ele continua inserindo com o campo em branco:


    Função que usei:
    Código:

    If IsNull(Me.DataAbertura) Or Me.DataAbertura = "" Then
    MsgBox "Por favor, digite a Data de Abertura da Ordem de Serviço.", vbCritical, "Aviso"
    Me.DataAbertura.SetFocus
    Exit Sub
    End If

    ...


    Função do Botão btnSalvar
    Código:


    Dim seq, NovoCod As Integer
    NovoCod = 1
    If IsNull(Me.ID) Or Me.ID = "" Then
    Call CamposObrigatorios

    'Verifica se o campo ID da Tabela esta vazio caso esteja inseri um novo
    If IsNull(DLookup("ID", "tbl_OrdemServicos")) Then
    Me.ID = ""

    CurrentDb.Execute "Insert Into tbl_OrdemServicos(ID, DataAbertura, HoraAbertura, DataConclusao, HoraConclusao, DataPrevisao, IDTecnico, IDSituacao, " & _
    "IDCliente, Equipamento, Marca, Modelo,NumSerie,Acessorios,ProbInformado,LaudoTecnico, Solucao,Observacao, " & _
    "TotalPeca, TotalServico, SubTotal,Desconto,TotalGeral) " & _
    "Values (""" & NovoCod & """,""" & Me.DataAbertura.Value & """, """ & Me.HoraAbertura & """, """ & Me.DataConclusao & """, """ & Me.HoraConclusao & """, " & _
    """" & Me.DataPrevisao & """, """ & Me.IDTecnico & """, """ & Me.IDSituacao & """, """ & Me.IDCliente & """, """ & Me.Equipamento & """, " & _
    """" & Me.Marca & """, """ & Me.Modelo & """, """ & Me.NumSerie & """, """ & Me.Acessorios & """, """ & Me.ProbInformado & """, " & _
    """" & Me.LaudoTecnico & """, """ & Me.Solucao & """, """ & Me.Observacao & """, """ & Me.TotalPeca & """, """ & Me.TotalServico & """, """ & Me.SubTotal & """, " & _
    """" & Me.Desconto & """, """ & Me.TotalGeral & """)"
    Me.ID = DLast("ID", "tbl_OrdemServicos")

    MsgBox "Dados inserir com sucesso!", vbInformation, "Aviso"
    Call LimparCampos
    Me.lstProdServ.Requery

    Else

    seq = DLast("ID", "tbl_OrdemServicos") + 1


    CurrentDb.Execute "Insert Into tbl_OrdemServicos(ID, DataAbertura, HoraAbertura, DataConclusao, HoraConclusao, DataPrevisao, IDTecnico, IDSituacao, " & _
    "IDCliente, Equipamento, Marca, Modelo,NumSerie,Acessorios,ProbInformado,LaudoTecnico, Solucao,Observacao, " & _
    "TotalPeca, TotalServico, SubTotal,Desconto,TotalGeral) " & _
    "Values (""" & seq & """,""" & Me.DataAbertura.Value & """, """ & Me.HoraAbertura & """, """ & Me.DataConclusao & """, """ & Me.HoraConclusao & """, " & _
    """" & Me.DataPrevisao & """, """ & Me.IDTecnico & """, """ & Me.IDSituacao & """, """ & Me.IDCliente & """, """ & Me.Equipamento & """, " & _
    """" & Me.Marca & """, """ & Me.Modelo & """, """ & Me.NumSerie & """, """ & Me.Acessorios & """, """ & Me.ProbInformado & """, " & _
    """" & Me.LaudoTecnico & """, """ & Me.Solucao & """, """ & Me.Observacao & """, """ & Me.TotalPeca & """, """ & Me.TotalServico & """, """ & Me.SubTotal & """, " & _
    """" & Me.Desconto & """, """ & Me.TotalGeral & """)"
    Me.ID = DLast("ID", "tbl_OrdemServicos")

    MsgBox "Dados inserir com sucesso!", vbInformation, "Aviso"
    Call LimparCampos
    Me.lstProdServ.Requery

    End If

    Else

    CurrentDb.Execute "Update tbl_OrdemServicos Set DataAbertura = ('" & Me.DataAbertura & "'), HoraAbertura = ('" & Me.HoraAbertura & "'), " & _
    "HoraConclusao = ('" & Me.HoraConclusao & "'), DataPrevisao = ('" & Me.DataPrevisao & "'), IDTecnico = ('" & Me.IDTecnico & "'), " & _
    "IDSituacao = ('" & Me.IDSituacao & "'), IDCliente = ('" & Me.IDCliente & "'), Equipamento = ('" & Me.Equipamento & "'), " & _
    "Marca = ('" & Me.Marca & "'), Modelo = ('" & Me.Modelo & "'), NumSerie = ('" & Me.NumSerie & "'), Acessorios = ('" & Me.Acessorios & "'), " & _
    "ProbInformado = ('" & Me.ProbInformado & "'), LaudoTecnico = ('" & Me.LaudoTecnico & "'), Solucao = ('" & Me.Solucao & "'), " & _
    "Observacao = ('" & Me.Observacao & "'), TotalPeca = ('" & Me.TotalPeca & "'), TotalServico = ('" & Me.TotalServico & "'), " & _
    "SubTotal = ('" & Me.SubTotal & "'), Desconto = ('" & Me.Desconto & "'), TotalGeral = ('" & Me.TotalGeral & "'), " & _
    "DataConclusao = ('" & Me.DataConclusao & "') Where ID =" & Me.ID

    MsgBox "Dados atualizado com sucesso!", vbInformation, "Aviso"
    Call LimparCampos
    Me.lstProdServ.Requery

    End If




    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Conteúdo patrocinado

    Projeto Ordem de Serviço Empty Re: Projeto Ordem de Serviço

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 01:54