Ir para o conteúdo
  1. Re: Criar código automaticamente

    Wenderson Lisboa
    Por Wenderson Lisboa,
    21 horas atrás, M6 disse:

    Esse "código" é precisamente o quê?

    Um número sequencial, aleatório, uma string com dados específicos?

    Tem que ser um numero sequencial:

    procedure TFormCadUsu.SQLQuery1AfterPost(DataSet: TDataSet);
    begin
      SQLQuery1.ApplyUpdates;
      SQLTransaction1.CommitRetaining;
      SQLQuery1.Refresh;
    end;  

    • 2 respostas
  2. Re: Goto e Label não são suportados - Pascal no Android

    nunopicado
    Por nunopicado,
    10 horas atrás, Marcos Vinícius disse:

    Seria como criar uma biblioteca?

    Não, não deverá ser nenhum código.
    É mesmo nas opções do compilador, deverá haver algum local específico para isso!

    • 6 respostas
  3. Não consigo fazer o programa funcionar por inatividade. Onde estará o erro?

    Jose Antonio
    Por Jose Antonio,

    procedure BtnCalculaClick(Sender: TObject);
        procedure BtnLimpaClick(Sender: TObject);
        procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);

        procedure FormKeyPress(Sender: TObject; var Key: char);
        procedure IdleTimer1Timer(Sender: TObject);
        procedure FormCreate(Sender: TObject);

      private
       procedure AppIdle(Sender: TObject; var Done: Boolean);
       procedure AppMessage(var Msg: TMsg; var Handled: Boolean);


      public


      end;

    var
      Form1: TForm1;

    implementation

    {$R *.lfm}

    { TForm1 }


    procedure TForm1.BtnCalculaClick(Sender: TObject);
     var
      iQteCx : integer;
      nTotal, nDep,nTotalNotas,nDH, n100, n50, n20, n10, n5, n2, n1, n50cents, n25cents, n10cents, n5cents, nQteCxs : real;

    begin
       try
            n100:= StrToFloat(EditNota100.text);
            except n100:= 0;
         end;
       try
            n50:= StrToFloat(EditNota50.text);
            except n50:= 0;
         end;
       try
            n20:= StrToFloat(EditNota20.text);
            except n20:= 0;
         end;
       try
            n10:= StrToFloat(EditNota10.text);
            except n10:= 0;
         end;
       try
            n5:= StrToFloat(EditNota5.text);
            except n5:= 0;
         end;
       try
            n2:= StrToFloat(EditNota2.text);
            except n2:= 0;
         end;
        try
            n1:= StrToFloat(EditMoeda1.text);
            except n1:= 0;
         end;
        try
            n50cents:= StrToFloat(EditMoeda50.text);
            except n50cents:= 0;
         end;
        try
            n25cents:= StrToFloat(EditMoeda25.text);
            except n25cents:= 0;
         end;
        try
            n10cents:= StrToFloat(EditMoeda10.text);
            except n10cents:= 0;
         end;
        try
            n5cents:= StrToFloat(EditMoeda5.text);
            except n5cents:= 0;
         end;
         try
            nQteCxs:= StrToFloat(EditQteCxs.text);
            except nQteCxs:= 0;
         end;
         try
            nDH:= StrToFloat(EditDH.text);
            except nDH:= 0;
         end;

       nTotal:= (100* n100+ 50* n50 + 20* n20+ 10* n10+ 5* n5+ 2* n2+ n1+ 0.5*n50cents+ 0.25*n25cents+ 0.1*n10cents+ 0.05* n5cents - (nQteCxs* 108.75))+nDH;
       nDep:=(100* n100+ 50* n50 + 20* n20+ 10* n10+ 5* n5+ 2* n2);
       nTotalNotas:= n100+ n50 + n20 + n10 + n5 + n2;
       Memo1.Lines.Add( '        ');
       Memo1.Lines.Add( '        ');
       Memo1.Lines.Add( 'Doce Prazer ');
       Memo1.Lines.Add( '===========');
       Memo1.Lines.Add( '        ');
       Memo1.Lines.Add( 'Valor do Caixa - Turno ');
       Memo1.Lines.Add( '        ');
       Memo1.Lines.Add(' Valor = R$ '+ FloatToStr(nTotal));
       Memo1.Lines.Add( '        ');
       Memo1.Lines.Add( '===========');
       Memo1.Lines.Add( '        ');
       Memo1.Lines.Add( 'Quantidade de Notas');
       Memo1.Lines.Add( FloatToStr(nTotalNotas));
       Memo1.Lines.Add( '        ');
       Memo1.Lines.Add( ' Cruzeiro HEXACAMPEÃO da Copa do Brasil 2018 ');
       Memo1.Lines.Add( '        ');
       Memo1.Lines.Add( ' Nunca duvide do poder da fé!');
       EditNota100.SetFocus;
    end;

    procedure TForm1.BtnLimpaClick(Sender: TObject);
    begin
       Memo1.Clear;
       Memo1.Lines.Add('  ');
       Memo1.Lines.Add('  ');
       Memo1.Lines.Add('  ');
       Memo1.Lines.Add('  ');
       Memo1.Lines.Add(' -------------------------  ');
       Memo1.Lines.Add('  ');
       Memo1.Lines.Add('  O Doce Prazer da sua vida! ');
       Memo1.Lines.Add('  ');
       Memo1.Lines.Add(' Deus é fiel!  ');
       Memo1.Lines.Add('  ');
       Memo1.Lines.Add(' Nunca duvide do poder da fé!  ');
       Memo1.Lines.Add('  ');
       Memo1.Lines.Add(' -------------------------  ');
      EditNota100.text:= '   ' ;
      EditNota50.text:= '    ';
      EditNota20.text:= '    ';
      EditNota10.text:= '    ';
      EditNota5.text:= '    ';
      EditNota2.text:= '    ';
      EditMoeda1.text:= '    ';
      EditMoeda50.text:= '   ';
      EditMoeda25.text:= '   ';
      EditMoeda10.text:= '   ';
      EditMoeda5.text:= '   ';
      EditQteCxs.text:= '  ';
      EditDH.text:= '  ';
      EditNota100.SetFocus;
    end;

    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
    begin

    end;

    procedure TForm1.FormCreate(Sender: TObject);

      procedure AppIdle(Sender: TObject; var Done: Boolean);
        procedure AppMessage(var Msg: Msg; var Handled: Boolean);


    begin
      Application.OnMessage := AppMessage;
      Application.OnIdle := AppIdle;

    end;

    procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
    begin
      if key=#13 then begin
                              SelectNext(ActiveControl as TWinControl,True,True);
                              key:=#0;
                        end;

    end;

    procedure TForm1.IdleTimer1Timer(Sender: TObject);
    begin
      Application.Terminate;
    end;

    procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
    begin
        IdleTimer1.Enabled:= True;
    end;

    procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
    begin
      Case Msg.message of
      WM_LBUTTONDOWN, WM_RBUTTONDOWN, WM_KEYDOWN :
        IdleTimer1.Enabled:= False;
      end;
    end;

    end.
                                

    • 0 respostas
  4. Re: Voltar ao início do programa

    Almirante
    Por Almirante,

    Olá Fred,

     

    O que procuras são, como o HappyHippyHippo disse, ciclos.

    Em C++, para o efeito que queres é mais comum usar-se while(condição){} e do{}while(condição).

    No caso do primeiro tens de pedir a opção desejada ao utilizador, visto que antes de entrar no ciclo faz logo o teste à condição. No caso do segundo, não precisas de modificar o teu programa, basta meter o teu código dentro do do{}while, visto que o teste é no fim.

     

    Espero ter ajudado,

    Almirante

    • 2 respostas
  5. Re: SAFT-PT: debate de dúvidas e ideias

    bioshock
    Por bioshock,
    4 hours ago, jacPereira said:

    Mas o cartão de fidelização é o meio de pagamento. Nao tem a ver com o valor do documento mas com a forma de liquidação… ou será que estou a ver mal o filme?

    O cartão de fidelização acumula pontos e depois podes descontar esses mesmo pontos numa futura compra. A palavra chave é descontar. No caso em questão seria descontar o valor total da factura, mas eu permito que efectues o pagamento por diversos meios na mesma compra. Se tiveres uma factura de 20€, podes pagar:

    • 1,00€ vale de desconto
    • 4,00€ valor acumulado em cartão
    • 10,00€ dinheiro
    • 5,00€ multibanco

    Os dois primeiros apesar de serem formas de pagamento, entram como descontos no documento para que o cliente perceba no talão que foi realmente descontado X valor ao total.

     

    • 6237 respostas
  6. Re: Voltar ao início do programa

    HappyHippyHippo
    Por HappyHippyHippo,

    qual o teu conhecimento de ciclos de execução ?

    • 2 respostas
  7. Re: Erro: mysqli_select_db () espera exatamente 2 parâmetros, 1 dado

    HappyHippyHippo
    Por HappyHippyHippo,
    26 minutes ago, Diogo Eira said:

    isso não são erros e sim "avisos", que avisa quando uma variável não foi recebida através do POST.

    Mude:

    
    $sexo=$_POST['sexo']; 
    $data_de_nascimento=$_POST['data de nascimento'];

    Para:

    
    $sexo=@$_POST['sexo'];
    $data_de_nascimento=@$_POST['data_de_nascimento'];

    Antes de cada variável POST adicionei um @ para ignorar as "Notice" referentes à mesma.

    Repare também não pode utilizar variáveis PHP com espaços:

    
    $sql = ("INSERT INTO usuarios(email, nome, senha, sexo, data de nascimento, materia) 
    VALUES('$email', '$nome', '$senha', '$sexo', '$data de nascimento', '$materia')");

    Para:

    
    $sql = ("INSERT INTO usuarios(email, nome, senha, sexo, data de nascimento, materia) 
    VALUES('$email', '$nome', '$senha', '$sexo', '$data_de_nascimento', '$materia')");

     

    ainda tenho que ver se o phpmd ou o phpcs apanha esse tipo de brincadeiras ...

    esconder erros/warnings/avisos é uma condição imediata para eu invalidar um PullRequest.

     

    o caso indicado deverá ser processado devidamente através do null-coalescing operator:

    $dados = $_POST['field'] ?: 'dados caso não estiver definido';

     

    • 6 respostas
  8. Re: Erro: mysqli_select_db () espera exatamente 2 parâmetros, 1 dado

    Diogo Eira
    Por Diogo Eira,

    Sugeria também modificar a ligação à BD para PDO:

      $user = "root";
      $pass = "";
      $connect = new PDO('mysql:host=127.0.0.1;dbname=cadastro', $user, $pass);
    
      $email=$_POST['email'];
      $nome=$_POST['nome'];
      $senha=$_POST['senha'];
      $sexo=$_POST['sexo'];
      $data_de_nascimento=$_POST['data_de_nascimento'];
      $materia=$_POST['materia'];
    
      try {
          $connect->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION);
          $sql = "INSERT INTO usuarios(email, nome, senha, sexo, data de nascimento, materia) VALUES('$email', '$nome', '$senha', '$sexo', '$data_de_nascimento', '$materia');";
          $connect->exec($sql);
      }
      catch(PDOException $e)
      {
          $errosql = 1;
          echo $sql . "<br>" . $e->getMessage();
      }
    
      if($errosql == 1){
      	echo"<center><h1>Erro ao efetuar o seu cadastro!</h1></center>";
      }else{
      	echo"<center><h1>Cadastro efetuado com sucesso!</h1></center>";
      }

     

     

    • 6 respostas
  9. Re: Criar código automaticamente

    M6
    Por M6,

    Esse "código" é precisamente o quê?

    Um número sequencial, aleatório, uma string com dados específicos?

    • 2 respostas
  10. Re: SAFT-PT: debate de dúvidas e ideias

    jacPereira
    Por jacPereira,
    53 minutos atrás, bioshock disse:

    Viva,

    Alguém que me relembre: é possível emitir facturas a zero euros, imaginando que o desconto é de 100%? Confesso que tenho limitação no meu software que proíbe que o total do documento seja zero euros e se bem me recordo foi porque existe uma regra que dita isso..

    O problema em questão é: o cliente tem um cartão de fidelização e decide descontar todo o valor em cartão e este valor suprime o valor total da factura..

    Mas o cartão de fidelização é o meio de pagamento. Nao tem a ver com o valor do documento mas com a forma de liquidação… ou será que estou a ver mal o filme?

    • 6237 respostas
  11. Re: Erro: mysqli_select_db () espera exatamente 2 parâmetros, 1 dado

    Diogo Eira
    Por Diogo Eira,
    1 hora atrás, Erica disse:

    Agora está dando erro nas linhas

    Notice: Undefined index: sexo in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 18

    Notice: Undefined index: data de nascimento in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 19

    Notice: Undefined variable: data_nacimento in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 23

    isso não são erros e sim "avisos", que avisa quando uma variável não foi recebida através do POST.

    Mude:

    $sexo=$_POST['sexo']; 
    $data_de_nascimento=$_POST['data de nascimento'];

    Para:

    $sexo=@$_POST['sexo'];
    $data_de_nascimento=@$_POST['data_de_nascimento'];

    Antes de cada variável POST adicionei um @ para ignorar as "Notice" referentes à mesma.

    Repare também não pode utilizar variáveis PHP com espaços:

    $sql = ("INSERT INTO usuarios(email, nome, senha, sexo, data de nascimento, materia) 
    VALUES('$email', '$nome', '$senha', '$sexo', '$data de nascimento', '$materia')");

    Para:

    $sql = ("INSERT INTO usuarios(email, nome, senha, sexo, data de nascimento, materia) 
    VALUES('$email', '$nome', '$senha', '$sexo', '$data_de_nascimento', '$materia')");

     

    • 6 respostas
  12. Re: SAFT-PT: debate de dúvidas e ideias

    bioshock
    Por bioshock,

    Tinha uma ideia completamente errada, após pesquisa no google também encontrei essa afirmação: é possível emitir facturas a zero euros.

    http://ricardomcarvalho.pt/perguntas/pdf.php?cat=5&amp;id=22&amp;artlang=pt

    https://www.wisedat.pt/knowledge-base/emitir-facturas-com-valor-zero/

    Obrigado.

    • 6237 respostas
  13. Re: SAFT-PT: debate de dúvidas e ideias

    Vitor Pereira
    Por Vitor Pereira,
    52 minutos atrás, bioshock disse:

    Viva,

    Alguém que me relembre: é possível emitir facturas a zero euros, imaginando que o desconto é de 100%? Confesso que tenho limitação no meu software que proíbe que o total do documento seja zero euros e se bem me recordo foi porque existe uma regra que dita isso..

    O problema em questão é: o cliente tem um cartão de fidelização e decide descontar todo o valor em cartão e este valor suprime o valor total da factura..

    Não existe qualquer problema legal em emitir Faturas a ZERO.

    Apenas é aconselhável que o Software tenha um Parametro para o Cliente poder ativar esta função, de forma a que não aconteça por engano mas sim quando o pretende ( exemplo das Operadoras de Telecomunicações que fazem desconto de 100% na aquisição de certos produtos com fidelização )

    • 6237 respostas
  14. Re: SAFT-PT: debate de dúvidas e ideias

    bioshock
    Por bioshock,

    Viva,

    Alguém que me relembre: é possível emitir facturas a zero euros, imaginando que o desconto é de 100%? Confesso que tenho limitação no meu software que proíbe que o total do documento seja zero euros e se bem me recordo foi porque existe uma regra que dita isso..

    O problema em questão é: o cliente tem um cartão de fidelização e decide descontar todo o valor em cartão e este valor suprime o valor total da factura..

    • 6237 respostas
  15. Re: Erro: mysqli_select_db () espera exatamente 2 parâmetros, 1 dado

    Erica
    Por Erica,

    Agora está dando erro nas linhas

    Notice: Undefined index: sexo in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 18

    Notice: Undefined index: data de nascimento in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 19

    Notice: Undefined variable: data_nacimento in C:\xampp\htdocs\sistemalogin\cadastrando.php on line 23

    • 6 respostas
  16. Re: [Resolvido] Erro SIGSEGV Lazarus 1.8.4

    Wenderson Lisboa
    Por Wenderson Lisboa,
    Em 18/10/2018 às 18:39, nunopicado disse:

    Isso soa-me a Access Violation.
    Verifica se tens todos os objectos correctamente instanciados antes de usar e a sua memória libertada depois de deixarem de ser necessários.
    Mais que isso, sem ver o código, não sei dizer!

    Muito obrigado amigo, realmente avia uma redundância no SQLQuary, muito obrigado.    [RESOLVIDO]

    • 2 respostas
  17. Re: Criar código automaticamente

    Wenderson Lisboa
    Por Wenderson Lisboa,

    Bom dia amigos, mais uma vez venho solicitar sua experiência e conhecimento para decifrar um enigma. Estou criando um cadastro em Lazarus 1.8.4 - Firebird 3.5 - FlameRobin 0.9.2, e preciso criar um código automaticamente ao salvar um novo cadastro. Por favor sou estudante e peço a ajuda de quem puder contribuir.

     

    Obrigado.

    • 2 respostas
  18. Re: Goto e Label não são suportados - Pascal no Android

    Marcos Vinícius
    Por Marcos Vinícius,
    3 horas atrás, passarito disse:

    @Marcos Vinícius, que compilador é esse que estás a usar?

    Bom, eu estava usando o "Pascal Gui", mas por ele não ter muitas informações que ajudam na hora de usar o compilador, eu instalei o "Pascal N-IDE".

    Obs: Ele pode ser bom mas de vez em quando, adora apagar a lista de comandos inteira sem você nem ter terminado de fazer a lista! 😑😒

    12 horas atrás, nunopicado disse:

    Não sei dizer, nunca usei esse compilador (que presumo ser uma variante para mobile do FPC).
    Mas geralmente nas opções há lá um local onde adicionar as opções de compilação, e será aí onde poderás colocar o switch.

    Seria como criar uma biblioteca?

    • 6 respostas
  19. Re: 5 Dash cams ligadas num monitor com gravação

    edsudani
    Por edsudani,

    Bom dia Andrepereira9.

    Procure um dvr comercial. Existem muitos equipamentos desse tipo que podem atender tua necessidade de forma completa.

    Mas com certeza o custo é elevado.

    Edison

     

     

    • 3 respostas
  20. Função janelamento em Python

    João Catarino
    Por João Catarino,

    Bom dia,

    Pretendo desenvolver uma rede neuronal em Python que faça janelamento numa série de dados DataFrame.

    O objectivo é criar uma "janela temporal" que percorra os valores do DataFrame à medida que avançamos na linha temporal, ou seja, ter numa fase inicial 5 entradas (5 primeiros valores do DataFrame) que irão dar origem a uma saída (6º valor do Dataframe).
    As 5 entradas da próxima fase começará no 2º até ao 6º valor dando origem ao 7º valor. E assim por aí fora.

     

    import pandas as pd
    import numpy as np

    df = pd.read_csv('bkt.csv')
    df.head()

    df['<CLOSE>']

    bkt=df['<CLOSE>']

    ws=5 #tamanho da janela deslizante

    #print (df['<CLOSE>'])
    df_t = df.transpose()

    bkt_t=df_t.iloc[7:8]

    sz=np.size(bkt_t)

    bkt_r=[]

    #for j in range (sz-ws):
        #bkt_r[j]=[bkt_transposed(2*j) bkt_transposed(2*j+1)]

    Vi online que será a função 'range' a ser utilizada, mas como estou a dar os primeiros passos em python, necessitava mesmo de uma ajuda vossa.

    Obrigado!

    • 0 respostas
  1. Ver Mais Actividade
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.