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;  

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!

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.
                            

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

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.

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

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';

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>";
  }

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

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

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?

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')");

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&id=22&artlang=pt

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

Obrigado.

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 )

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..

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

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]

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.

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?

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

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!