Ir para conteúdo
Fórum Script Brasil

Gil Kléber

Membros
  • Total de itens

    93
  • Registro em

  • Última visita

Sobre Gil Kléber

  • Data de Nascimento 24/12/1979

Contatos

  • MSN
    gilfernandes@ymail.com

Perfil

  • Gender
    Male
  • Location
    São Paulo

Gil Kléber's Achievements

0

Reputação

  1. Olá pessoal... Estou com um sisteminha pronto para controle de vendas no balcão e um estoque simples, o proprietário do estabelecimento me pediu pra emitir nota fiscal paulista e imprimir o cupom naquela impressorinha... Gostaria de uma orientação de como fazer, se é simples, quais os custos... Vocês poderiam me ajudar? Obrigado! Abraços....
  2. não sei fazer isso.. poderia me dar um exemplo, uma prévia?
  3. Olá pessoal! Estou tentando fazer com que, em um lançamento de controle de caixa, após preencher os dados do pagamento, especificar qual o cartão de crédito da venda, e o numero de parcelas, o sisteminha armazene esse dados em uma outra tabela, para que eu possa controlar o recebimento de cada parcela por parte da administradora do cartão. O problema está para gerar as parcelas dando uma sequência de data de crédito respectivas. Por exemplo, na caixa de texto tipo, a coluna 3 armazena o prazo (depois de quantos dias receberei a primeira parcela, por parte da adm). Ex.: Visa Crédito - 31 dias Visa Débito - 1 dia Mas por exemplo, se eu fizer uma venda em 4 vezes, no crédito.. receberei da seguinte forma 1- dataVenda + 31 dias 2- dataVenda + 61 dias 3 - dataVenda + 91 dias 4 - dataVenda + 121 dias tipo, pra cada parcela aumentam 30 dias Como fazer isso no código? Acredito que seja por meio de um looping e uma variável, mas infelizmente não consegui passar daqui. Eis o código.. abraços a todos! For I = 1 To Me.txtNumParcelas rs.AddNew rs("idLivroCaixa") = Me.idLivroCaixa rs("Parcela") = I & "/" & Me.txtNumParcelas rs("VlBruto") = Me.Valor_LC / Me.txtNumParcelas rs("VlLiquido") = (Me.Valor_LC * Me.Tipo.Column(2)) / Me.txtNumParcelas rs("Paciente") = Me.Discriminação rs("Cartão") = Me.Tipo.Column(1) rs("Titular") = Me.titularCheque rs("dtCredito") = Me.Data + Me.Tipo.Column(3) rs("dtVenda") = Me.Data rs.Update Next
  4. Gil Kléber

    Back-End virtual

    Cara, pra falar a real, eu não tenho noção de como fazer isso. você pode me indicar um site, um tutorial, ou algo do gênero? Obrigado!
  5. Gil Kléber

    Back-End virtual

    Hum... acho que entendi. E você sabe onde eu poderia obter essas informações?
  6. Opa! porque nesse caso, ele tem a opção de SAIR salvado o registro, SAIR sem salvar e NÃO sair.. Ainda acha que pode ficar melhor? Obrigado!
  7. Olá pessoal!! Me deparei com uma necessidade que me deixou com os cabelos em pé! É possível manter o BE do banco de dados em um disco virtual ou algo parecido, para que possa ser acessado por Front-ends, de qualquer lugar? Sei que não deve ser nada fácil, mas... Abraços a todos!!!
  8. Olá pessoal!!! É o seguinte... tenho um formulário de pedidos, que, quando clico no botão fechar, ele verifica alguns parâmetros e dependendo da resposta da MSGBOX, ele admite algumas ações. :vbYes = ... :vbNo= ... : vbCancel = Ele cancela o fechamento do formulário. Como fazer isso? Eis o famigerado código: Private Sub Form_Close() If Me.FinalizarVerificar = 1 Then If CurrentProject.AllForms("frmPedidoVizual").IsLoaded Then Forms![frmPedidoVizual]![frmPedidoDetalheVizual].Form.Requery End If Else Dim resultado As VbMsgBoxResult resultado = MsgBox("Deseja finalizar o pedido?", vbYesNoCancel, "Confirmar Saída") If resultado = vbYes Then Cancel = True Call cmdFinalizar_Click 'Chama todo o procedimento incluído no botão FINALIZAR ElseIf resultado = vbNo Then DoCmd.Close ElseIf resultado = vbCancel Then Cancel = True End If End If End Sub já tentei com docmd.cancelEvent e também não funcionou.. ele continua fechando o formulário. alguém tem uma idéia do que pode estar acontecendo? Abraços a todos!!! End Sub
  9. Ola pessoal. Tenho uma consulta com a seguinte estrutura: INSERT INTO niverMes ( Nascimento, nomeCompleto, Endereço, Endereço2, CEP ) SELECT Informaçõesgerais.Nascimento, [primeiroNome] & " " & [sobrenome2] AS nomeCompleto, [endRes] & " - " & [bairroRes] AS Endereço, [CidadeRes] & " - " & [uFRes] AS Endereço2, Informaçõesgerais.CepRes FROM Informaçõesgerais WHERE ((([endRes] & " - " & [bairroRes])<>" - ") AND ((Informaçõesgerais.CepRes)<>"") AND ((Informaçõesgerais.Situa)="12" Or (Informaçõesgerais.Situa)="13" Or (Informaçõesgerais.Situa)="14" Or (Informaçõesgerais.Situa)="15") AND ((Month([nascimento]))=Month(Date()))) ORDER BY Day([nascimento]); Gostaria de remover os espaços em brancos que às vezes aparece no campo [CidadeRes], na propria consulta. Tem como? O problema é que muitas vezes, ao invés de me retonar assim: São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. às vezes, dependendo de como foi inserido o Dado no programa que possui a base de dados em MDB, aparece assim São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. Como estou aproveitando os dados do MDB pra preparar uma mala direta, vai me estragar as etiquetas.... Sabem me ajudar? Abraços!!!
  10. Consegui colocar pra funcionar assim, no evento AO ABRIR If IsNull(Me.txtSubtotal) Or Me.txtSubtotal = 0 Then msgbox "Não há registros de pagamento para esse paciente no período selecionado" Cancel = True End If Obrigado MESMO pela ajuda!!
  11. Cara.. parece bincadeira.. mas o seu está igual ao meu e não fnciona. Ele NÃO FECHA!!! O seu fechou.. o meu não... olha o código como está: Private Sub Form_Load() Me.txtSubtotal = Nz(DSum("valor_LC", "LivroCaixa_Consulta_Entrada_PorPaciente"), 0) If IsNull(Me.txtSubtotal) Or Me.txtSubtotal = 0 Then msgbox "Não há registros de pagamento para esse paciente no período selecionado" DoCmd.Close acForm, "Form_LivroCaixa_EntradaPorPaciente" End If End Sub Um form dentro do outro, o sub como folha de dados, exatamente como você fez...
  12. já tentei isso, e nada.. Acho que tem a ver com Um form dentro do outro...
  13. Olá pessoal! Bom dia!! Tenho um form principal que tem apenas um campo TOTAL, que é uma soma dos campos VALOR_LC de um subformulário folha de dados que está inserido no mesmo. Não sei se fui claro Tenho um subform, folha de dados, que mostra todos os pagamentos do período selecionado. Este sub está inserido em outro Form, que só tem um campo TOTAL, que recupera a soma do campo VALOR_LC do sub. Agora fui mais claro Eu queria fazer algo que se não tivesse nenhum pagamento no período selecionado, ou se o valor=0,00 ele mostrasse uma mensagem "NÃO HÁ PAGAMENTOS" e FECHASSE automaticamente o form principal Consigo fazer as verificações (se vazio ou = 0,00) mas não consigo colocar pra fechar NEM A PAU! alguém me ajuda?? Abraços a todos!!!
  14. baixe um progaminha chamado SaveAsPDF, http://www.microsoft.com/download/en/detai...=en&id=9943 depois, faça um botão no seu formulário e cole o seguinte código no evento AO CLICAR DoCmd.SendObject acSendReport, "como_ficará_o_nome_do_PDF", "pdf", "email_destino", "email_remetente", , "Assunto do email", "Corpo da mensagem" Espero ter ajudado
  15. Olá pessoa.. bom dia! Essa mensagem começou a a aparecer apenas quando eu abro o Access 2007: there was a problem sending the command to the program Procurei na internet e vi referencias a esse erro no Excel, e do Access achei um post falando pra fazer alteração no Registro, algo relacionado com a chave .MDB, mas as opções lá dentro não batem com as do post. Acho que é de versão diferente.... alguém sabe como resolver? Abraços a todos e um ótimo dia!
×
×
  • Criar Novo...