Ir para conteúdo
Fórum Script Brasil

Antonio Maucyr Pasqualli F

Membros
  • Total de itens

    43
  • Registro em

  • Última visita

Tudo que Antonio Maucyr Pasqualli F postou

  1. Prezados, Estou iniciando agora no flash, sempre trabalhei com delphi e java, então me desculpem os termos usados, bom, eu preciso de uma ajuda para fazer um "sistema" que "clone" oque foi digitado, ele sera um form, com algum dados para o cliente preencher e no final do form ele tera tipo um resumo de tudo oque o cliente digitou. alguém pode me ajudar? PS : o sistema não tera banco de dados e tudo deve "rodar" em flash Desde já muito obrigado
  2. Ola amigos, Por favro me tirem uma duvida, os skin do site http://www.almdev.com/, posso usar em qual componente?VCLSKIN?qual versão Obrigado
  3. ola amigos, Tenho um sistema de automação comercial em delphi com bd em firebird, tambem tenho um site, meu provedor "suporta" apenas mysql, gostaria de poder acessar atraves do site as informações do sistemas (como vendas, estoques etc ... ), alguém saberia onde encontro material ou algo pronto, no sentido de migração, a parte complicado é que isso deve ser feito de forma automatica, tipo o sistema automaticamente migrasse e exportasse para meu bd em mysql. Obrigado!
  4. Prezados, alguém pode me ajuda ? Preciso listar as maquinas que estã conectadas em minha rede Obrigado
  5. Prezados, alguém pode me ajuda, preciso de um aplicativo que lista as maquinas que estão em minha
  6. Ola amigos, preciso fazer uma especie de ipconfig, mas com o delphi, tipo ao clicar em um botão ele mostre em um memo as informações que obteria em atraves do ipconfig no MSDOS. alguém sabe como faço para opter esse resultado? Obrigado!
  7. Ola amigos? alguém possui estas dll's ou sabe onde possa baixar, dei uma "googada", mas, sem sucesso? - p05.dll - wsc32.dll
  8. Ola pessoal, Bom estou com a seguinte dificuldade, tenho um sistema X com bd firebird, vou começar a utilizar um sistema Y, mas, irei continuar com um bd firebird, oque ocorre é o seguinte, como tenho dados no bd do sistema X gostaria de migrar para o sistema Y, mas, quero migrar apenas os dados da tabela fornecedores, vou tentar ilustrar -------------------------------------------------------------------------------------------------------------------------- SISTEMA X bdx.fdb ----------------------------------- tbl_fornecedores -------------------------------------------------------------------------------------------------------------------------- SISTEMA Y bdy.fdb ----------------------------------- fornec -------------------------------------------------------------------------------------------------------------------------- alguém conhece um sistema que faça isso ou conhece uma forma de fazer isso? Obrigado!
  9. Ola amigos, acredito que este não seja o lugar correto para minha duvida, mas, vamos la Tenho um sistema para supermercado e preciso atualizar o bd antes de passar para o cliente, preciso atualiza os itens do estoque tenho 16.000 itens cadastrado que recebi mais 22.653, estes itens estão em xls, como faço pra passar, migrar para fbd? Obrigado !
  10. Ola amigos, peguei um AC para dar suporte, o cliente quer alterar o icone do sistema e algumas informações referente a versão, mas estas opções estão bloqueadas, o resto do sistimas consigo alterar e compilar normalmente apenas esta parte de alterar icone não esta disponivel alguém sabe como faço para desbloquear? Obrigado!
  11. Ola amigos, alguém sabe como instalar este componente? tentei achar alguma coisa na web mas não encontrei nada.
  12. Ola amigos, estou com a seguinte duvida, é possivel criar um pdv em asp? A historia é a seguinte, fiz um site com e-mail em asp para um cliente, apos aprovação ele me questionou sobre a criação do pdv em asp, o mesmo ficaria no site. Exemplo www.meusite.com.br - pagina com ecommerce www.meusite.com.br/admin - area administrativa (relatorios, acessos e tal) www.meusite.com.br/pdv - ponto de venda Ou seja o sete seria um sistema de automação completo alguém tem alguma coisa sobre pdv em asp, vi alguns em php, mas, como o site esta em asp, queria manter o padrão.
  13. Cara da uma olhada neste tutorial http://imasters.uol.com.br/artigo/3377?cn=3377&cc=254
  14. Ola amigos, estou com o seguinte dilema, preciso expotar para xml, bom, fiz um forma com algumas informações tipo nome endereço telefone Oque preciso é exportar esses dados para um documento xml, isso é possivel?
  15. Pessoal, alguém já passou por este problema, instalei o windows vista e agora não consigo rodar programas com firebird 1.5, informa que não foi localizado, atraves do "DOS" ou de outros programas para gerenciar o bd consigo normalmente, o delphi esta rodando 100% o interbase também em alguns momentos da erro, não inicia. alguém sabe como resolver isso? Obrigado!!!!!!!!
  16. Jhonal foi mal, não me "toquei" na duplicação, Achei o erro, era um erro muito "bobo", ele esta na data, o meu windows esta dd/MM/aaaa, acho que é o firebird ou o "script" esta mm/DD/aaaa, descobri isso as 5:30 da manha quando resolvi testar e deu certo, bom agora outra duvida, como faço para que fique dd/MM/aaaa? Obrigado pela força jhonas!
  17. Vlw pela dica amigo, bom, eu utilizo firebird 1.5 preciso realizar o controle de caixa, tem dois campos, um ele entra com a data inicial e outro com a tada final, então ele fica sabendo quanto esta "entrando", mas ele da o erro: Dynamic SQL error SQL error code=303 conversion error from string "19/04/2009" incompatible column/host variable data type Error code: 249 Segue o link com as imgs uma do erro e outra do aplicativo (parte dele onde ocorre o erro) http://ube-167.pop.com.br/repositorio/9088/meusite/001.JPG http://ube-167.pop.com.br/repositorio/9088/meusite/002.JPG Agora o fonte de como estou fazendo: ----------------------------------------------------------------------------------- unit ufluxo; interface uses printers, mmsystem, Windows, variants, Messages, clipbrd, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Grids, DBGrids, ComCtrls, Db, DBTables, StdCtrls, DBCtrls, Mask, Buttons, ToolWin, ActnList, Menus, QRCtrls, QuickRpt; type Tffluxo = class(TForm) Panel1: TPanel; DBGrid2: TDBGrid; DBGrid3: TDBGrid; Panel2: TPanel; Panel3: TPanel; Panel4: TPanel; Label1: TLabel; Bevel1: TBevel; MaskEdit1: TMaskEdit; MaskEdit2: TMaskEdit; Label2: TLabel; Label4: TLabel; Bevel2: TBevel; Bevel3: TBevel; Bevel4: TBevel; Bevel5: TBevel; lsaldo: TLabel; LBALCAO: TLabel; Bevel6: TBevel; LMESA: TLabel; Label17: TLabel; Bevel7: TBevel; LSAIDA: TLabel; ActionList1: TActionList; somar: TAction; Panel5: TPanel; DBGrid1: TDBGrid; Panel6: TPanel; Bevel8: TBevel; Bevel9: TBevel; Label3: TLabel; Label5: TLabel; lentrega: TLabel; DBGrid4: TDBGrid; RgTipo: TRadioGroup; Action1: TAction; procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure MaskEdit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormCreate(Sender: TObject); procedure somarExecute(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure RgTipoClick(Sender: TObject); procedure Action1Execute(Sender: TObject); private { Private declarations } public { Public declarations } end; var ffluxo: Tffluxo; implementation uses udm, SqlExpr; {$R *.dfm} procedure Tffluxo.MaskEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = 13 then maskedit2.SetFocus; end; procedure Tffluxo.MaskEdit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = 27 then maskedit1.SetFocus; if key=13 then somarexecute(self); end; procedure Tffluxo.FormCreate(Sender: TObject); begin maskedit1.text := datetostr(now); maskedit2.text := datetostr(now); somarexecute(self); end; procedure Tffluxo.somarExecute(Sender: TObject); var st1, st2, cmd, cmdBalcao, tpag:string; tot1, tot2, tot3, tot4 :real; begin if (maskedit1.Text <> ' / / ') and (maskedit2.Text <> ' / / ') then begin st1:= maskedit1.Text; st2:= maskedit2.Text; case RgTipo.ItemIndex of 0: begin cmd := 'select (data) as ENTRADA, sum(total)as VALOR from DLV$tbvenda'+ ' where data between :Pst1 and :Pst2 group by data order by data'; cmdBalcao := 'select (data) as ENTRADA, sum(total)as VALOR from DLV$tbpedido1'+ ' where data between :Ps1 and :Ps2 group by data order by data'; // mesas with fdm.query1 do begin Close; commandtext := cmd; ParamByName('Pst1').AsString := st1; ParamByName('Pst2').AsString := st2; Open; end; // balcão with fdm.query2 do begin Close; commandtext := CmdBalcao; ParamByName('Ps1').AsString := st1; ParamByName('Ps2').AsString := st2; Open; end; end; 1: begin tpag := 'D'; cmd:='select (data) as ENTRADA, sum(total)as VALOR from DLV$tbvenda'+ ' where data between :Pst1 and :Pst2 and TIPO= :Ppag group by data order by data'; cmdBalcao:= 'select (data) as ENTRADA, sum(total)as VALOR from DLV$tbpedido1'+ ' where data between :Ps1 and :Ps2 and TIPORECEBIMENTO= :Ppag group by data order by data'; // mesas with fdm.query1 do begin Close; commandtext := cmd; ParamByName('Ppag').AsString := tpag; ParamByName('Pst1').AsString := st1; ParamByName('Pst2').AsString := st2; Open; end; // balcão with fdm.query2 do begin Close; commandtext := CmdBalcao; ParamByName('Ppag').AsString := tpag; ParamByName('Ps1').AsString := st1; ParamByName('Ps2').AsString := st2; Open; end; end; 2: begin tpag := 'C'; cmd:='select (data) as ENTRADA, sum(total)as VALOR from DLV$tbvenda'+ ' where data between :Pst1 and :Pst2 and Tipo= :Ppag group by data order by data'; cmdBalcao:= 'select (data) as ENTRADA, sum(total)as VALOR from DLV$tbpedido1'+ ' where data between :Ps1 and :Ps2 and tiporecebimento= :Ppag group by data order by data'; // mesas with fdm.query1 do begin Close; commandtext := cmd; ParamByName('Ppag').AsString := tpag; ParamByName('Pst1').AsString := st1; ParamByName('Pst2').AsString := st2; Open; end; // balcão with fdm.query2 do begin Close; commandtext := CmdBalcao; ParamByName('Ppag').AsString := tpag; ParamByName('Ps1').AsString := st1; ParamByName('Ps2').AsString := st2; Open; end; end; 3: begin tpag := 'T'; cmd:='select (data) as ENTRADA, sum(total)as VALOR from DLV$tbvenda'+ ' where data between :Pst1 and :Pst2 and Tipo= :Ppag group by data order by data'; cmdBalcao:= 'select (data) as ENTRADA, sum(total)as VALOR from DLV$tbpedido1'+ ' where data between :Ps1 and :Ps2 and tiporecebimento= :Ppag group by data order by data'; // mesas with fdm.query1 do begin Close; commandtext := cmd; ParamByName('Ppag').AsString := tpag; ParamByName('Pst1').AsString := st1; ParamByName('Pst2').AsString := st2; Open; end; // balcão with fdm.query2 do begin Close; commandtext := CmdBalcao; ParamByName('Ppag').AsString := tpag; ParamByName('Ps1').AsString := st1; ParamByName('Ps2').AsString := st2; Open; end; end; end; { // mesas with fdm.query1 do begin Close; commandtext := cmd; ParamByName('Ppag').AsString := tpag; ParamByName('Pst1').AsString := st1; ParamByName('Pst2').AsString := st2; Open; end; } fdm.tbquery1.open; fdm.tbquery1.refresh; (fdm.tbquery1.FieldByName('valor') as tfloatfield).displayformat := '###,##0.00'; { // balcão with fdm.query2 do begin Close; commandtext := CmdBalcao; ParamByName('Ppag').AsString := tpag; ParamByName('Ps1').AsString := st1; ParamByName('Ps2').AsString := st2; Open; end; } fdm.tbquery2.open; fdm.tbquery2.refresh; (fdm.tbquery2.FieldByName('valor') as tfloatfield).displayformat := '###,##0.00'; // entrega with fdm.query4 do begin Close; commandtext := 'select Data , sum(total)as VALOR from DLV$tbentrega'+ ' where entregue = :Pss and data between :Pst1 and :Pst2 group by data order by data'; ParamByName('Pss').AsString := 'S'; ParamByName('Pst1').AsString := st1; ParamByName('Pst2').AsString := st2; Open; end; fdm.tbquery4.open; fdm.tbquery4.refresh; (fdm.tbquery4.FieldByName('valor') as tfloatfield).displayformat := '###,##0.00'; // contas a pagar with fdm.query3 do begin Close; commandtext := 'select (datapagamento)as PAGO, sum(vrdesconto)as VALOR from DLV$tbpagar1'+ ' where datapagamento between :Pst1 and :Pst2 group by datapagamento order by datapagamento'; ParamByName('Pst1').AsString := st1; ParamByName('Pst2').AsString := st2; Open; end; fdm.tbquery3.open; fdm.tbquery3.refresh; (fdm.tbquery3.FieldByName('valor') as tfloatfield).displayformat := '###,##0.00'; //soma mesa fdm.query1.open; fdm.query1.First; while not fdm.query1.Eof do begin if fdm.query1['valor']<> null then tot1:=tot1 + fdm.query1.fieldbyname('valor').AsFloat; fdm.query1.Next; end; lmesa.Caption := 'TOTAL DAS MESAS R$ = ' + formatfloat('###,##0.00', tot1); fdm.query1.close; //soma balcão fdm.query2.open; fdm.query2.First; while not fdm.query2.Eof do begin if fdm.query2['valor']<> null then tot2:=tot2 + fdm.query2.fieldbyname('valor').AsFloat; fdm.query2.Next; end; lbalcao.Caption := 'TOTAL BALCÃO R$ = ' + formatfloat('###,##0.00', tot2); fdm.query2.close; //soma entrega fdm.query4.open; fdm.query4.First; while not fdm.query4.Eof do begin if fdm.query4['valor']<> null then tot4:=tot4 + fdm.query4.fieldbyname('valor').AsFloat; fdm.query4.Next; end; lentrega.Caption := 'TOTAL ENTREGA R$ = ' + formatfloat('###,##0.00', tot4); fdm.query4.close; //soma contas a pagar fdm.query3.open; fdm.query3.First; while not fdm.query3.Eof do begin if fdm.query3['valor']<> null then tot3:=tot3 + fdm.query3.fieldbyname('valor').AsFloat; fdm.query3.Next; end; lsaida.Caption := 'PAGO (SAÍDA) R$ = ' + formatfloat('###,##0.00', tot3); fdm.query1.close; // soma de entradas e saidas lsaldo.Caption := 'TOTAL ENTRADAS R$ ' + formatfloat('###,##0.00', (tot1 + tot2 + TOT4)) + ' - TOTAL SAÍDAS R$ ' + formatfloat('###,##0.00', tot3) + ' = SALDO R$ ' + formatfloat('###,##0.00', (tot1 + tot2 + TOT4 - tot3)); end; end; procedure Tffluxo.FormClose(Sender: TObject; var Action: TCloseAction); begin fdm.tbquery1.Close; fdm.tbquery2.Close; fdm.tbquery3.close; end; procedure Tffluxo.RgTipoClick(Sender: TObject); begin somarExecute(Self); end; procedure Tffluxo.Action1Execute(Sender: TObject); begin Close; end; end. ----------------------------------------------------------------------------------------------------------- Por favor, poderia me ajudar? Obrigado
  18. Ola amigos, Em minha aplicação, "estou" com o seguinte erro: Dynamic SQL error SQL error code=303 conversion error from string "19/04/2009" incompatible column/host variable data type Error code: 249 segue link com a img do erro, http://ube-167.pop.com.br/repositorio/9088/meusite/erro.JPG estou aprendendo delphi, e estou com esse erro, alguém poderia me ajudar? Obrigado!
  19. quando tento instalar uma pack de componentes, ele não encontra o ExplBtn.dcu, alguém sabe de qual é o componente?
  20. Olá amigos, estou precisando de uma ajuda, é o seguinte, vou dar suporte em um sistema para restaurante, já estou com os fontes mas sem os componentes, ele precisa de: TcxGrid TEvDiskInfo TXPMenu TcxStyleRepository TcxEditRepository TcxLookAndFeeController TcxGridPopupMenu TcxGridViewRepository Eles pertencem a qual "componente"? onde posso baixar? são devexpress? tem como baixar gratuito? Obrigado!
  21. Olá amigos, Vou dar manutenção em dois sistemas, mas, durante o compilação dar os seguintes erros: Sistema 1 Sistema 2 alguém poderia me ajudar? Obrigado!
  22. alguém sabe onde baixar o kylix tenho o serial, mas, acabei "perdento" o ide Obrigado!
  23. Obrigado Jhonas, Com sua informação ('Este componente faz parte do pacote Raize Components') consegui encontrar um endereço onde foi possivel fazer o download do pacote completo e gratuito (crackeado rsrsrs...), como sei que é errado, pirataria é fod..., por isso não irei disponibilizar o endereço, mas, foi necessario já que a aquisição de tal componente iria elevar o valor da manutenção do sistema.
  24. alguém poderia me ajuda com o seguinte erro: Onde posso baixar este componente? Obrigado!
×
×
  • Criar Novo...