Ir para conteúdo
Fórum Script Brasil

Sames Davis

Membros
  • Total de itens

    9
  • Registro em

  • Última visita

Sobre Sames Davis

Sames Davis's Achievements

0

Reputação

  1. Olá pessoal, Estou precisando de descobrir onde está o erro no meu código abaixo onde a ideía é se eu selecionar uma foto, eu envio essa foto para o Storage do Firebase e logo em seguida tenho de recuperar o link para de download da foto para eu gravar no campo de imagem da classe de clientes. O problema que está acontecendo é que mesmo tendo a foto o onSuccess(UploadTask.TaskSnapshot taskSnapshot) não está funcionando public class ClientescadActivity extends AppCompatActivity { private Toolbar toolbarcadcli; private TextInputEditText edtNomeCli; private TextInputEditText edtTelefoneCli; private Clientes clientes; private ImageView imgCli; private Uri filepath; private final int REQUEST_CODE = 1234; public static final String FB_STORAGE_PATH = "image/"; @Override protected void onCreate(Bundle savedInstanceState) { super.onCreate( savedInstanceState ); setContentView( R.layout.activity_clientescad ); toolbarcadcli = findViewById( R.id.toolbarcadcli ); setSupportActionBar( toolbarcadcli ); edtNomeCli = findViewById( R.id.edtNomeCli ); edtTelefoneCli = findViewById( R.id.edtTelefoneCli ); edtTelefoneCli.addTextChangedListener(new PhoneNumberFormattingTextWatcher()); imgCli = findViewById(R.id.imgCli); imgCli.setOnClickListener(new View.OnClickListener() { @Override public void onClick(View v) { ChooseImage(); } }); RealTime.InicializaFirebase (getApplicationContext(), "Clientes"); } private void ChooseImage() { Intent intent = new Intent(); intent.setType("image/*"); intent.setAction(Intent.ACTION_GET_CONTENT); startActivityForResult(Intent.createChooser(intent,"Selecione uma foto"),REQUEST_CODE); } @Override protected void onActivityResult(int requestCode, int resultCode, Intent data) { super.onActivityResult(requestCode, resultCode, data); if(requestCode == REQUEST_CODE && resultCode == RESULT_OK && data != null && data.getData() != null) { filepath = data.getData(); try { Bitmap bitmap = MediaStore.Images.Media.getBitmap(getContentResolver(),filepath) ; imgCli.setImageBitmap(bitmap); }catch (FileNotFoundException e) { e.printStackTrace(); }catch (IOException e) { e.printStackTrace(); } } } @Override public boolean onCreateOptionsMenu(Menu menu) { MenuInflater inflater = getMenuInflater(); inflater.inflate( R.menu.menu_clientes_cad,menu ); return super.onCreateOptionsMenu( menu ); } private boolean ValidaCampos() { boolean res; String nome = edtNomeCli.getText().toString().trim(); String phone = edtTelefoneCli.getText().toString().trim(); clientes.setNome(nome); clientes.setTelefone(phone); if (res = IsFieldEmpty( nome )) { AlertDialog.Builder dlg = new AlertDialog.Builder(this); dlg.setTitle(R.string.title_atencao); dlg.setMessage(R.string.message_cliente_obrigatorio); dlg.setNeutralButton("Ok",null); dlg.show(); edtNomeCli.requestFocus(); } return res; } private void SalvarDados() { clientes = new Clientes(); if (ValidaCampos() == false) { try { StorageReference ref; clientes.imagem = "https://firebasestorage.googleapis.com/v0/b/salaobeleza-29ca9.appspot.com/o/image%2Fphotoprofile.png?alt=media&token=ff42f8a8-1a21-43c1-9251-6b227a99c0cd"; if(filepath != null) { ref = RealTime.storageReference.child(FB_STORAGE_PATH + System.currentTimeMillis() + "." + getImageExt(filepath)); ref.putFile(filepath) .addOnSuccessListener(new OnSuccessListener<UploadTask.TaskSnapshot>() { @Override public void onSuccess(UploadTask.TaskSnapshot taskSnapshot) { clientes.imagem = taskSnapshot.getDownloadUrl().toString(); } }); } String mId = RealTime.databaseReference.push().getKey(); RealTime.databaseReference.child(mId).setValue(clientes); Toast.makeText(ClientescadActivity.this, R.string.message_cadasto_sucesso, Toast.LENGTH_SHORT).show(); finish(); }catch (Exception ex){ AlertDialog.Builder dlg = new AlertDialog.Builder(this); dlg.setTitle(R.string.title_atencao); dlg.setMessage(ex.getMessage()); dlg.setNeutralButton("Ok",null); dlg.show(); } } } private boolean IsFieldEmpty(String valor) { boolean resultado = (TextUtils.isEmpty( valor ) || valor.trim().isEmpty()); return resultado; } @Override public boolean onOptionsItemSelected(MenuItem item) { switch (item.getItemId()) { case R.id.action_cli_cad_ok: SalvarDados(); break; case R.id.action_cli_cad_remove: Toast.makeText( this, "Removendo...", Toast.LENGTH_SHORT ).show(); break; } return super.onOptionsItemSelected( item ); } public String getImageExt(Uri uri) { ContentResolver contentResolver = getContentResolver(); MimeTypeMap mimeTypeMap = MimeTypeMap.getSingleton(); return mimeTypeMap.getExtensionFromMimeType(contentResolver.getType(uri)); } }
  2. Funciona no office2016, porém o outlook tem que estar FECHADO. Ele envia o email. No office2007 acontece ao contrario, o office tem que estar aberto para enviar, usando o mesmo código
  3. Olá pessoal, Tenho um sistema que roda em vários micros e cada um deles com versões diferentes do office. O meu código não está dando certo, segue referenciei o outlook e usei o imports Imports Microsoft.Office.Interop Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click Cursor.Current = Cursors.WaitCursor Try Dim tempApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application 'Dim tempApp = GetObject(, "Outlook.Application") Dim tempNS As Outlook.NameSpace Dim MailFolder As Outlook.MAPIFolder tempNS = tempApp.GetNamespace("MAPI") tempNS.Logon(, , True, True) Dim newMail As Outlook.MailItem = Nothing MailFolder = tempNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderOutbox) newMail = MailFolder.Items.Add(Outlook.OlItemType.olMailItem) With newMail .To = txtPara.Text .Subject = txtAssunto.Text .Body = txtMensagem.Text .Send() End With newMail = Nothing MailFolder = Nothing tempNS = Nothing tempApp = Nothing DialogResult = DialogResult.Yes Catch ex As Exception MsgBox(ex.ToString()) DialogResult = DialogResult.No Finally Cursor.Current = Cursors.Default End Try End Sub se eu usar essa linha Dim tempApp As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application ele só funciona no office2007 se eu usar essa linha, ele dá a mensagem de que não posso criar objeto activex Dim tempApp = GetObject(, "Outlook.Application") o que faço ?
  4. Olá pessoal, Aqui na empresa temos o seguinte cenário: Servidor: Windows Server 2008 R2 64bits Internet com Velox de 2MB ( só chega essa velocidade por aqui, não tem como aumentar) Rede com 12 máquinas, todas com Windows7 32bits Distribuição da Internet via Wirellles, com DHCP fixo no roteador CISCO e em cada máquina, inclusive no servidor. O que está acontecendo é que de tempos em tempos, às vezes até duas vezes por semana, tenho de reiniciar o servidor porque a Internet não funciona mais, e só volta a funcionar depois que eu reinicio o servidor. Esse problema tem me trazido um certo desconforto aqui na empresa, estou tentando buscar uma solução para esse problema e não encontro, me ajudem por favor. Se for necessária mais alguma informação me pergutem. Sames Davis samesd@gmail.com
  5. Olá pessoal, Estou precisando de resolver um problema, tenho uma aplicação montada em 4 camadas -Acesso a Dados -Apresentação -Objeto de Transferência -Negócios Minha connectionstring ficou definida na camada de acesso a dados, mas ficou fixa enquanto eu estava desenvolvendo o sistema, onde o local era E:\SISTEMAS\CSHARP\MEUSISTEMA Mas como vou enviar esse sistema para meu cliente, quero que essa localização possa mudar independente de onde ele estiver executando o sistema ou até mesmo em um drive de rede. Como tenho pouca experiência em c# estou aqui pedindo ajuda. Alguém pode me orientar o que devo fazer? Sames
  6. Olá pessoal, tenho esse código em VB.NET e que funciona, mas como sou iniciante no C#.NET eu não estou sabendo como fazer, alguém pode me ajudar? Protected Overrides Sub onkeypress(ByVal e As System.Windows.Forms.KeyPressEventArgs) If Not Char.IsNumber(e.KeyChar) And Not e.KeyChar = vbBack And Not e.KeyChar = "." And Not e.KeyChar = "," Or e.KeyChar = Chr(13) Then e.Handled = True Else MyBase.onkeypress(e) End If End Sub Eu até comecei a fazer, mas não deu certo protected override void onkeypress(KeyPressEventArgs e) { if ((e.KeyChar.CompareTo((char)Keys.Return)) == 0 && e.KeyChar.Equals(Keys.Back) && e.KeyChar.Equals(Keys.) || !Char.IsNumber(e.KeyChar)) { e.Handled = true; } }
  7. Olá pessoal, Preciso de utilizar a função LAST em um instrução SQL, mas no MySQL não vi ainda essa função SELECT LAST(IDCOMPRA) AS ULTCOMPRA FROM TBLCOMPRAS Alguém pode me ajudar?
  8. Pessoal, Estou recorrendo a vocês porque realmente estou precisando de ajuda. Preciso de montar um relatório no Crystal reports, usando o Visual Studio 2010 em apenas um arquivo .rpt onde seja possível em apenas um registro da tabela, que eu possa imprimir parte dos dados em uma folha e quando o usuário clicar para imprimir a segunda folha, ele vai virar a folha e clicar em imprimir. Deve ser algo simples, mas como não conheço quase nada dos recursos do Crystal Reports estou com dúvida. Até o momento eu consegui montar apenas a parte da frente, está funcionando bem, mas a segunda parte eu não sei onde colocar, vou mostrar pra vocês como está definido o meu relatório. Section 1 ( cabeçalho do relatório) ----------------------------------------------------------------------------------------------------------------------------- AQUI COLOQUEI O CABEÇALHO DO MEU RELATÓRIO Section 2 ( cabeçalho da página) ----------------------------------------------------------------------------------------------------------------------------- AQUI COLOQUEI OS DO MEU RELATÓRIO Section 3 ( Detalhes) ----------------------------------------------------------------------------------------------------------------------------- Aqui não tem nada Section 4 ( Rodapé do relatório) ----------------------------------------------------------------------------------------------------------------------------- Aqui não tem nada Section 5 ( Rodapé da página) -----------------------------------------------------------------------------------------------------------------------------
  9. Estou precisando montar um relatório desacoplado no Crystal Reports, coloquei alguns campos Unbound e o conteúdo desses campos serão baseados em variáveis. crReportDocument.Load(strReportPath) crReportDocument.SummaryInfo.ReportAuthor = "Methodus" crReportDocument.SummaryInfo.ReportTitle = TitleReport crReportDocument.ReportDefinition.ReportObjects("ReceberVenc120dias").text = varRcbvenc120 "text não é membro de reportobjects" Está dando erro nessa última linha, alguém pode me ajudar?
×
×
  • Criar Novo...