Re: [delphi-br] Delphi 2010 ta doido?
se não deu certo ainda tente mudar os pChar para pAnsichar ou ao
contrario lembro que tive que fazer um monte de teste para consegui que
as funções da BEMAFI32.DLL funcionassem corretamente.
Att.:
Clairton E. Müller
Em 25/08/2010 19:28, Iran Lima escreveu:
>
>
>
> Mudei tudo pra ANSI e não resolveu ainda
>
> function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao: AnsiString;
> Aliquota: AnsiString; TipoQuantidade: AnsiString; Quantidade: AnsiString;
> CasasDecimais: Integer; ValorUnitario: AnsiString; TipoDesconto:
> AnsiString;
> Desconto: AnsiString): Integer; StdCall; External 'BEMAFI32.DLL';
>
> De: delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> [mailto:delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Clairton
> Enviada em: terça-feira, 24 de agosto de 2010 18:54
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: Re: [delphi-br] Delphi 2010 ta doido?
>
> a Declaração das funçoes tbm tem que estar com o Ansi...
>
> function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao:
> AnsiString; Aliquota: AnsiString; TipoQuantidade: AnsiString;
> Quantidade: AnsiString; CasasDecimais: Integer; ValorUnitario:
> AnsiString; TipoDesconto: AnsiString; Desconto: AnsiString): Integer;
> StdCall; External 'BEMAFI32.DLL';
>
> Att.:
>
> Clairton Eloisio Müller
>
> Em 24/08/2010 18:46, Iran Lima escreveu:
> >
> > Já tentei com pansichar
> >
> > E nada.
> >
> > -Mensagem original-
> > De: delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>
> > [mailto:delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br>
> > <mailto:delphi-br%40yahoogrupos.com.br>] Em
> > nome de Roni Rodrigo
> > Enviada em: terça-feira, 24 de agosto de 2010 18:27
> > Para: delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br>
> <mailto:delphi-br%40yahoogrupos.com.br>
> > Assunto: Re: [delphi-br] Delphi 2010 ta doido?
> >
> > tenta converter em pansichar...
> > ex:
> > Bematech_FI_VendeItem(PAnsiChar(codigo), PAnsiChar(descricao),
> > PAnsiChar(aliquota)...
> >
> > Em 24/08/2010 17:01, Iran Lima escreveu:
> > > Gente to com um problema ao passar parâmetros strings no Delphi 2010 ,
> > >
> > > Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica
> > nome
> > > "a" sem extensão.
> > >
> > > Outro Exemplo ao chamar o método da Bemafi32.dll
> > >
> > > Bematech_FI_VendeItem( 'codigo', descricao, aliquota,
> > >
> > > sTipoQtde, FormatFloat('0', quantidade), iDecimal,
> > >
> > > FormatFloat('0.00',valorUnitario),
> > >
> > > sTipoDesconto, FormatFloat('0.00',0) );
> > >
> > > so vai a primeira letra de cada parâmetro
> > >
> > > 2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da
> > > impressora), no
> > > Debug passa tudo blz mas a impressora recebe errado
> > >
> > > O que pode ser isso???
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> >
>
> --
>
> *"Inovação é o combustível do crescimento".*
>
> *Clairton Eloísio Müller*
> Depto. Desenvolvimento
> E-mail: clair...@dessis.com.br <mailto:clairton%40dessis.com.br>
> <mailto:clairton%40dessis.com.br>
> <mailto:clair...@dessis.com.br <mailto:clairton%40dessis.com.br>
> <mailto:clairton%40dessis.com.br> >
> Site: http://www.dessis.com.br
>
> *Dessis Sistemas de Gestão Empresarial*
>
> Rua José Marangoni, 380 - Vila Nova Cx. Postal 417
>
> CEP: 89259-500 - Jaraguá do Sul - SC
>
> Fone/Fax: (0xx 47)3371-7842/3371-2640/3371-7144
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
--
*"Inovação é o combustível do crescimento".*
*Clairton Eloísio Müller*
Depto. Desenvolvimento
E-mail: clair...@dessis.com.br <mailto:clair...@dessis.com.br>
Site: http://www.dessis.com.br
*Dessis Sistemas de Gestão Empresarial*
Rua José Marangoni, 380 - Vila Nova Cx. Postal 417
CEP: 89259-500 - Jaraguá do Sul - SC
Fone/Fax: (0xx 47)3371-7842/3371-2640/3371-7144
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2010 ta doido?
a Declaração das funçoes tbm tem que estar com o Ansi...
function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao:
AnsiString; Aliquota: AnsiString; TipoQuantidade: AnsiString;
Quantidade: AnsiString; CasasDecimais: Integer; ValorUnitario:
AnsiString; TipoDesconto: AnsiString; Desconto: AnsiString): Integer;
StdCall; External 'BEMAFI32.DLL';
Att.:
Clairton Eloisio Müller
Em 24/08/2010 18:46, Iran Lima escreveu:
>
> Já tentei com pansichar
>
> E nada.
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> [mailto:delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Roni Rodrigo
> Enviada em: terça-feira, 24 de agosto de 2010 18:27
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: Re: [delphi-br] Delphi 2010 ta doido?
>
> tenta converter em pansichar...
> ex:
> Bematech_FI_VendeItem(PAnsiChar(codigo), PAnsiChar(descricao),
> PAnsiChar(aliquota)...
>
> Em 24/08/2010 17:01, Iran Lima escreveu:
> > Gente to com um problema ao passar parâmetros strings no Delphi 2010 ,
> >
> > Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica
> nome
> > "a" sem extensão.
> >
> > Outro Exemplo ao chamar o método da Bemafi32.dll
> >
> > Bematech_FI_VendeItem( 'codigo', descricao, aliquota,
> >
> > sTipoQtde, FormatFloat('0', quantidade), iDecimal,
> >
> > FormatFloat('0.00',valorUnitario),
> >
> > sTipoDesconto, FormatFloat('0.00',0) );
> >
> > so vai a primeira letra de cada parâmetro
> >
> > 2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da
> > impressora), no
> > Debug passa tudo blz mas a impressora recebe errado
> >
> > O que pode ser isso???
> >
> > [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
--
*"Inovação é o combustível do crescimento".*
*Clairton Eloísio Müller*
Depto. Desenvolvimento
E-mail: clair...@dessis.com.br <mailto:clair...@dessis.com.br>
Site: http://www.dessis.com.br
*Dessis Sistemas de Gestão Empresarial*
Rua José Marangoni, 380 - Vila Nova Cx. Postal 417
CEP: 89259-500 - Jaraguá do Sul - SC
Fone/Fax: (0xx 47)3371-7842/3371-2640/3371-7144
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Inutilização da Numeração NFe
coloca o XML nesse validador do sefaz... pode ser que ele te retorne o erro com
maior detalhe
http://www.sefaz.rs.gov.br/NFE/NFE-VAL.aspx
- Original Message -
From: Berdam
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 23, 2010 10:46 AM
Subject: Res: [delphi-br] Re: Inutilização da Numeração NFe
na verdade estou utilizando a dll da TDS, mas veja bem, abaixo vc me passou o
cancelamento da NFE, na verdade oque está dando problema para mim é a
inutilização da NFe, ou seja ela
não possui nem a chave de acesso ainda.
--
Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados - Unoesc Xanxerê
http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
--
De: JNP - NetSite
Para: Delphi
Enviadas: Terça-feira, 23 de Fevereiro de 2010 10:33:21
Assunto: [delphi-br] Re: Inutilização da Numeração NFe
Olá Uberdam, vc está utilizando o ACBr??? se sim abaixo está a lista de
comandos...
ACBrNFe.WebServices .Cancelamento. NFeChave: =Chave a ser cancelada;
ACBrNFe.WebServices .Cancelamento. Protocolo: =Protocolo de autorização de
uso
a ser cancelado;
ACBrNFe.WebServices .Cancelamento. Justificativa: =Justificativa (mais de 15
e
menos de 250 caracteres);
ACBrNFe.WebServices .Cancelamento. Executar;
{ Homologado o Cancelamento }
if ACBrNFe.WebServices .Cancelamento. cStat = 101 then begin
{ Autorizado o cancelamento. .. }
end;
[]s, José Nilton Pace (JNP Software)...
__
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [Off Topic] Oferta de Emprego
Em brancoPessoal, Desculpem o OFF, mas estamos com oferta de emprego na área de Análise / Desenvolvimento (Delphi / DataSnap). Buscamos profissionais com experiência e que tenham interesse em mudar de cidade (Jaraguá do Sul - SC). Interessados, podem entrar em contato em private. Atenciosamente, CLAIRTON ELOISIO MÜLLER Depto. Desenvolvimento | E-mail: clair...@dessis.com.br DESSIS SISTEMAS DE GESTÃO EMPRESARIAL Rua José Marangoni, 380 | Bairro Vila Nova | CEP 89259-500 | Jaraguá do Sul-SC Fone 55 (47) 3371-7842 | Site: http://www.dessis.com.br "Antes de imprimir pense em seu compromisso com o Meio Ambiente. Isso também é Responsabilidade Social!" [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Exceção: Grid index out of range
- Original Message -
From: Anderson - Desenvolvimento
To: n...@yahoogrupos.com.br
Sent: Thursday, February 19, 2009 2:52 PM
Subject: [NDDV] [ OFF TOPIC ] Exceção: Grid index out of range
Estou com um problema numa tela onde envolve o processamento dos registros
(ClientDataSet + DataSource + DBGrid).
Aleatoriamente gera a seguinte exceção:
Código:
Exception message: Grid index out of range
Exception class: EInvalidGridOperation
Exception address: 201AB54A
--
Stack list, generated 18/2/2009 18:59:05
[201AB545]{vcl100.bpl } Grids.
[201ACE32]{vcl100.bpl } Grids.TCustomGrid.MoveColRow
[207FCF44]{vcldb100.bpl} Dbgrids.TCustomDBGrid.UpdateActive
[207FD0CA]{vcldb100.bpl} Dbgrids.TCustomDBGrid.UpdateRowCount
[20143736]{vcl100.bpl } Controls.TWinControl.WndProc
[01CD4913]{JvDBD10R.bpl} JvExDBGrids.JvExDBGrids.TJvExDBGrid.WndProc
[20142E60]{vcl100.bpl } Controls.TWinControl.MainWndProc
[20040DE4]{rtl100.bpl } Classes.TDataModule.WriteHeight
[20143833]{vcl100.bpl } Controls.TWinControl.DefaultHandler
[20143736]{vcl100.bpl } Controls.TWinControl.WndProc
[01CD4A4D]{JvDBD10R.bpl} JvExDBGrids.JvExDBGrids.TJvExDBGrid.WndProc
[20142E60]{vcl100.bpl } Controls.TWinControl.MainWndProc
[20040DE4]{rtl100.bpl } Classes.TDataModule.WriteHeight
[201AFA84]{vcl100.bpl } Grids.TCustomGrid.UpdateScrollPos
[201AFB51]{vcl100.bpl } Grids.TCustomGrid.UpdateScrollPos
[201AFC5E]{vcl100.bpl } Grids.TCustomGrid.UpdateScrollRange
[201B17C1]{vcl100.bpl } Grids.TCustomGrid.WMSize
[20143736]{vcl100.bpl } Controls.TWinControl.WndProc
[01CD4913]{JvDBD10R.bpl} JvExDBGrids.JvExDBGrids.TJvExDBGrid.WndProc
[20142E60]{vcl100.bpl } Controls.TWinControl.MainWndProc
[20040DE4]{rtl100.bpl } Classes.TDataModule.WriteHeight
[20143833]{vcl100.bpl } Controls.TWinControl.DefaultHandler
[20143736]{vcl100.bpl } Controls.TWinControl.WndProc
[01CD4A4D]{JvDBD10R.bpl} JvExDBGrids.JvExDBGrids.TJvExDBGrid.WndProc
[20142E60]{vcl100.bpl } Controls.TWinControl.MainWndProc
[20040DE4]{rtl100.bpl } Classes.TDataModule.WriteHeight
[207FD220]{vcldb100.bpl} Dbgrids.TCustomDBGrid.UpdateScrollBar
--
Alguém sabe me dizer o porquê isso ocorre?
Obrigado...
[As partes desta mensagem que não continham texto foram removidas]
