Tchê a um minuto atraz tudo ok, rodando o projeto, abrindo o janelinha modal com os saldo solicitados etc, etc.
Precisei adicionar uma propriedade publica a minha classe. Simples! Vou rodar o projeto e então o erro:
'Resource TfrmModalSaldosLocais Not Found'. Galera sinceramente eu não entendi nada, de onde partiu esse erro. Vou iniciar minhas pesquisas a respeito, se alguém souber e quiser compartilhar o conhecimento agradeço.
Pergunta
DanielR
Bom dia a todos!
Tchê a um minuto atraz tudo ok, rodando o projeto, abrindo o janelinha modal com os saldo solicitados etc, etc.
Precisei adicionar uma propriedade publica a minha classe. Simples! Vou rodar o projeto e então o erro:
'Resource TfrmModalSaldosLocais Not Found'. Galera sinceramente eu não entendi nada, de onde partiu esse erro. Vou iniciar minhas pesquisas a respeito, se alguém souber e quiser compartilhar o conhecimento agradeço.
Daniel
code:
var
loOrdemBaixa : TOrdem_Producao_baixa;
loSaldoEstoque : TSaldoInicial;
frmModalSaldos : TfrmModalSaldosLocais;
begin
loOrdemBaixa := TOrdem_Producao_baixa.create(Tutil.GetConn);
loSaldoEstoque := TSaldoInicial.create(Tutil.GetConn);
frmModalSaldos := TfrmModalSaldosLocais.Create(self); o erro aconteceu aqui
try
with cds_produtosDaOrdem do
begin
self.OP := FieldByName('OP').AsInteger;
self.produto:= FieldByName('produto').AsInteger;
self.ordem := loOrdemBaixa.ProximaOrdem(loOrdemBaixa.GetEmpresa,FieldByName('OP').AsInteger,FieldByName('produto').AsInteger);
self.qtd := FieldByName('qtd').AsFloat;
self.fator := doCalculaMaxBaixadoOP(loOrdemBaixa.GetEmpresa,FieldByName('OP').AsInteger,FieldByName('produto').AsInteger, (FieldByName('qtd').AsFloat * FieldByName('fator').AsFloat));
edt_OP_baixa.Text := inttostr(self.OP);
edt_produto.Text := inttostr(self.produto);
edt_Ordem.Text := inttostr(self.ordem);
edt_qtd.Text := floattostr(self.qtd);
loSaldoEstoque.EMPRESA := loSaldoEstoque.GetEmpresa;
loSaldoEstoque.PRODUTO := self.produto;
loSaldoEstoque.MES := Tutil.doMes;
loSaldoEstoque.ANO := Tutil.doAno;
frmModalSaldos.Saldo := loSaldoEstoque;
frmModalSaldos.SaldoNecessidade := self.fator;
if frmModalSaldos.ShowModal = mrOk then
begin
edt_local.Text := inttostr(frmModalSaldos.Local);
edt_fator.Text := floatTostr(frmModalSaldos.saldoAserUtilizado);
self.NomeLocal := frmModalSaldos.NomeLocal;
self.saldoDisponivel := frmModalSaldos.saldoAserUtilizado;
end;
edt_fator.SetFocus;
edt_fator.SelectAll;
end;
finally
frmModalSaldos.Free;
loOrdemBaixa.Free;
loSaldoEstoque.Free;
end;
end;
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.