“insonegável” (ah não ser que os caras emitam pedidinhos por aí), aí eu
concordo.
_
De: delphi...@yahoogrup os.com.br
mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi...@yahoogrup
os.com.br mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Paulo Casagrande
Enviada em: sexta-feira, 26
vantagens.
Obrigado,
Paulo Casagrande
Publicado em 26/03/2010 - Grupo Projeto Cooperar NFe
http://br.groups.yahoo.com/group/projeto_cooperar_nfe/messages
2- Sem usar o PCN consigo gerar o XML?
Sim, Você pode gerar o xml sem utilizar o PCN.
O PCN traz as seguintes vantagens quanto a geração do xml,
segue abaixo algumas delas.
* Ajustar a TagNro quando tamanho menor que 3 caracteres.
* Normatizar o nome dos municípios conforme a tabela
Bom dia a todos...
A quem possa interessar.
Grupo Open Source para desenvolvimento dos arquivos XML(*) do projeto da
NFe em Delphi/pascal.
Os trabalhos estão bastante avançados e alguns membros já o utiliza em
produção.
http://br.groups. yahoo.com/ group/projeto_ cooperar_ nfe/
[]'s
Paulo
(*)
Bom dia a todos...
Alguém tem o código que valida a Inscrição Suframa? ou a formula?
Por favor poste aqui ou envie para projetocooperar@ zipmail.com. br
Obrigado
http://br.groups.yahoo.com/group/projeto_cooperar_nfe/
Olá Pessoal, bom dia.
Alguém saberia informar se existe um grupo de discussão sobre nota
fiscal
eletrônica com Delphi?
automacaototal- subscribe@ yahoogrupos. com.br
mailto:automacaototal-subscribe%40yahoogrupos.com.br
Joao
Boa tarde a todos...
- Já é do conhecimento de alguns aqui do DelphiBR a sobre existência do
do grupo (http://br.groups.yahoo.com/group/projeto_cooperar_nfe) aqui
mesmo no yahoo.
- O grupo tem por objetivo desenvolver um classe (em delphi) para a
gravação e leitura dos xml da NFe.
- Caso alguém
| Jancarlos Martins escreveu:
| Ja existe uma solucao open-source, desenvolvida em .Net que envia XML,
| valida e certifica, a unica coisa que tem q desenvolver é o xml.
Esse aqui pretende apenas desenvolver o xml ( www.projetocooperar.org/nfe )
Bom dia a todos...
Estou criando uma classe e tenho a necessidade de trabalhar com um
arquivo texto.
Até hoje eu fiz assim:
...
Texto: TstringList;
begin
Texto := TstringList.create;
Texto.add(' nonononononononon ' );
Texto.add(' nonononon ' );
Texto.add(' nonononononon ' );
A sua dica já foi meio caminho andado :)
Criei um *.RES com o brcc32.exe - OK
mas agora estou com dificuldade para carregar
do res para Stream para depois do Stream para TstringList :(
Dá Abstract Error na linha conforme abaixo...
{$R TEXTO.RES}
constructor TcNFeINU.Create;
var
Res:
RESOLVIDO
Res := TResourceStream. Create(Hinstance , 'TEXTO', 'TXTFILE'); // Até
aqui foi beleza
Res.SaveToStream( xyz); // Nessa linha da Abstract Error
Fmodelo.LoadFromStr eam(xyz);
res já é um stream, utilize-o ao invés do xyz.
Realmente é...
...eu devia ter testado antes de
Bom dia a todos...
Foi criado um grupo especifico para desenvolvimento de componentes, DLL
etc em Delphi.
Caso alguém queira participar deixo o endereço abaixo:
http://br.groups.yahoo.com/group/nfe_nota_fiscal_eletronica/
[]'s
Boa tarde a todos...
Para aqueles que utilizam o algoritmo para validação de IE (que eu
disponibilizei no link abaixo)
Informo que é necessário baixar a nova versão;
ela foi ajustada para validar a nova inscrição de PE
[]
Bom dia!
Talvez isso ajude...
http://cincobytes.net/como-utilizar-o-lockbox-para-gerar-ead-cat-52-delphi/
dangra2008 escreveu:
Alguém tem uma dica de como fazer essa assinatura digital? Entendi que
se deve usar o MD5 nos arquivos (exceto no que deve conter a assinatura
digital), mas tem
Você pode usar o MS Terminal Server :)
Bom dia pessoal,
Alguém pode ajudar com uma dúvida.
Tenho um sistema que funciona como client/server, até ai tudo bem
ele funciona perfeitamente na rede, mas tenho que usar esse sistema
em lojas separada. Ex:
Uma loja está a 100 km de distância da
A alguns anos atrás eu até entraria de cabeça em uma classe desta.
Mas hoje, a tendencia será a NFe. Será que compensa investir o tempo em
uma classe que está fadada a morrer? Pense nisso
[]Os Joel
A proposta é de uma classe para o calculo dos Impostos de uma NF.
Sobre a utilização desse
Você esta se referindo ao 3Q1POC?
http://www.janelanaweb.com/digitais/gomiero7.html
Vinicius,
Seu problema é mais administrativo do que efetivamente digital.
Existe um método muito eficiente que se chama regra dos porquês. À
primeira vista parece meio idiota, mas se vc adotá-lo em sua
Outro dia comentei sobre a idéia de fazer uma classe para calculo dos
imposto de um nota fiscal.
Disponibilize o espaço abaixo:
http://cincobytes.net/classenota/
Conto com a ajuda de todos...
Obrigado
Bom dia a todos...
Onde você quer fazer isso:
A) Toda a aplicação.
B) Apenas uns forms.
C) Apenas em alguns componentes.
Sugestão:
A maneira mais simples seria através do keyDown identifique se foi
teclado um TAB e retorne um 0 no lugar.
[]
Boa noite a todos.
Eu gostaria de bloquear a
veja em www.cincobytes.net com fazer
RM Jr (uol) escreveu:
Para a NF-Paulista o arquivo a ser gerado, ref. nf’s mod. 1-A, deve
estar no
formato “Text Encoding = UTF-8” (cf. portaria CAT-102/07).
Qual a direrença entre um arquivo TXT e esse UTF-8 ? (que também é TXT !)
Dival Zambon Junior
Paulo Casagrande escreveu:
veja em www.cincobytes.net com fazer
Para ser mais especifico
http://cincobytes.net/erro-ao-validar-arquivo-cat-102-converter-para-utf8-ansitoutf8/
RM Jr (uol) escreveu:
Para a NF-Paulista o arquivo a ser gerado, ref. nf’s mod. 1-A, deve
estar no
formato
Marcos
Infelizmente estive ausente nesse período;
espero que você tenha encontrado uma
solução para o seu problema não dependendo
exclusivamente com a minha ajuda. :)
Um abraço.
PS: Observei que é trabalho de escola,
assim sendo, pelo que eu sei, normalmente
os professores dão primeira a
Bom dia a todos...
Pretendo desenvolver uma classe para calculo dos impostos
de uma nota-fiscal e depois disponibilizar de maneira free
para quem quiser, vou disponibilizar um espaço
para download depois :)
Seria um TNota (mestre) para os totalizados e
TItens (detalhes) para os totais dos itens.
Ricardo Mendes escreveu:
Boa Tarde Paulo,
Boa tarde
Eu acho interessante ter uma classe meio que generica para
padronização de nota fiscal...
Detalhe é que se o seu sistema for utilizar impressão de nota, vc vai
ter que homologa-lo na receita do estado que tiver
A idéia inicial não
Ricardo César Cardoso escreveu:
Boa tarde Paulo!
Boa tarde!
Idéia legal a sua... e bastante útil, na verdade.
E espero que possa ajudar a muitas pessoas :)
Exemplos de como fazer acredito que vc encontre na própria página de
downloads ( arquivos ) do grupo.
Ok
Não conheço muito ( pra
Bom dia...
if pos('10. 5.50.',List[ i]) 0 then
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt)
else
s := copy(List[i] ,pos('192.168.',List[ i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos(' GET',s)+3, maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s :=
Bom dia...
Você pode fazer isso através de uma PROCEDURE selecionável do lado
servidor :)
Um abraço!
Olá pessoal, bom dia,
estou com um probleminha aqui. Suponha que tenho 1 tabela com os
campos: ID, NUMERO, NOME, SALARIO. Quero fazer a seguinte consulta:
no resultado tem que aparecer
Paulo, em primeiro lugar bom dia...
Cara de coração obrigado mesmo pela ajuda.
mas veja bem o íp eu quiz dizer que pode começar com alguer numero
entendeu e ai, como eu faria ?
191 200.. 20.. 45... entendeu ?
Bom dia novamente...
Observe que o Ip que você quer vem após 4 espaços em
Bom dia...
var
s:string;
i:integer;
begin
s:='';
while length(s)10 do
begin
i:=randon(0,9); Não me lembro se é assim que se usa
if pos(intToSt(i),s)=0 then
s:=s+intToSt(i)+ '-';
end;
end;
Um abraço!
Galera, para desenvolver um soft que preciso, tive que aprender a
Bom dia...
1) Fiz de cabeça!
2) Não testei!
3) Os ajuste é com você!
4) Okay ?
s := copy(linha[i],pos('10.5.50.',linha[i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos('GET',s)+3,maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint);
data := copy(s,
Claudio Marconi escreveu:
no cole o arquivo na mensagem, mande como anexo mesmo em formato txt.
em arquivo separado.
tendeu ?
Não!
Não colei nada apenas respondi a pergunta.
Se foi alguma coisa colada é por conta da configuração do Thunderbird :)
Bom dia...
1) Fiz de cabeça!
2)
var
list: TStringList;
i : integer;
// declara as outra variaveis
begin
list := TStringList.Create;
list.LoadFromFile( 'C:\meuarquivo.log');
for i := 0 to list.count - 1 do
begin
// executa a captura dos dados
// Grava no arquivo
end;
// Quando ele sair do loop, acabou o
wPrimLetra := 'A';
ShowMessage( IntToStr( Ord( wPrimLetra )) );
Caros,
Estou tentando retornar o código ASCII de uma letra:
wPrimLetra := 'A';
ShowMessage( IntToStr( Ord( pchar( wPrimLetra ))) );
Mas dá o seguinte erro:
[Error] UnitCadPlacas. pas(742): E2008 Incompatible types.
Bom dia a todos...
result := sCount-1; // é melhor
mas no seu código...
S.LoadfromFile( arquivo.txt)
TOTLINHAS := 0; Faltou isso aqui
for x=0 to s.Count -1 do Inc(TOTLINHAS)
Hrq48 iG escreveu:
Eu fiz assim:
S.LoadfromFile( arquivo.txt)
for x=0 to s.Count -1 do Inc(TOTLINHAS)
mas
Concordo com o seu post!
Seria impossível não concordar :)
Mas... se o local foi criado especificamente
para que pessoas formulem as suas perguntas qual
o problema dela ser básica?
Agora só falta umas dicas de como responder
com inteligência as perguntas formuladas!
Deixo uma frase para
Bom dia a todos...
Componentes que ajudam no processo da NFe achei foram:
TurboPower LockBox (Free, porem nao consigo carregar meu certificado
digital)
Dificuldades com o LockBox!?
Post o trecho do código que se refere
ao LockBox ou me envie por e-mail.
Quem sabe!? posso te ajudar :)
Boa tarde
As variáveis abaixo servem para configuração!
Ex:
ShortDateFormat := 'dd/MM/';
var CurrencyString: string;
var CurrencyFormat: Byte;
var NegCurrFormat: Byte;
var ThousandSeparator: Char;
var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
var
Boa tarde
Para qual ECF você esta desenvolvendo!?
Para a maioria dos casos o próprio software básico da ECF
gera o arquivo automaticamente após a redução Z,
e permite que o arquivo seja gerado novamente mesmo depois disso!
Instalei, mais não tenho nem ideia como eu uso isso dentro do meu
Bom dia a todos...
Se você esta com dificuldades para validar o arquivo gerado conforme o
layout do CAT-102,
com relação ao formato do arquivo UTF-8 o link abaixo aponta para duas
soluções.
http://cincobytes.net/erro-ao-validar-arquivo-cat-102-converter-para-utf8-ansitoutf8/
Um abraço!
Message -
From: Paulo Casagrande
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 21, 2008 8:57 AM
Subject: [delphi-br] Erro ao validar arquivo CAT102 conversão para UTF8
Bom dia a todos...
Se você esta com dificuldades para validar o arquivo gerado conforme o
layout
Qual Portaria? CAT-52, CAT-85 ou CAT-102 ?
Alguém já criou uma rotina em delphi para gerar uma chave privada de 1024
bits ?
Preciso disso para Nota Fiscal Paulista..
Grato,
Alcione Guimarães
e-mail: [EMAIL PROTECTED]
Cel: 11-9515-8707
SIP VOIP: 3301040
SKYPE: alcistemas
msn:
Bom dia a todos...
Obrigado pela ajuda, mas preciso que o retorno seja:
0123,45
e não
343.434.123.204,54
Obrigado!
bem eu fiz aqui :
procedure TForm1.Button1Click(Sender: TObject);
var cur : currency;
begin
cur:= 343434123204.54;
0123,45
e não
343.434.123.204,54
Utilize a sua própria rotina sem o StringReplace.
Acho que não dá... se não estou enganado o resultado depende do
DecimalSeparator,
assim sendo não tenho nenhuma garantia que DecimalSeparator é igual = ','
sem o StringReplace o resultado
Bom dia a todos...
A seguinte função recebe um currency e
retorna uma string conforme o tamanho indicado
e duas casas decimais separadas por vírgula
function FormatarCurr2D( Value: Currency; MaxLength: integer): string;
begin
Result := FormatCurr(StringOfChar('0', MaxLength - 4) + '0.00',
Clovis...
for i:= 1 to 100 do
se tiver algum código aqui
i aqui o i é igual a 100
for i:= 1 to 100 do
begin
se tiver algum código aqui
i aqui o i é igual a 1
end;
Não tá faltando um begin end no seu código não?
Ola pessoal.
Saudações
Algo inusitado acontece qdo uso a
45 matches
Mail list logo