[DUVIDA]

obrigado!!

[DUVIDA]

instalei o fast report que uso. mais e como vou rodar o exemplo vc diz mudar o componente para fast mas o exemplo da nota de servico qual componente que substitui esse 

ha sim coloca entao o danf fast report.. ok ..obrigado

[DUVIDA]

5 horas atrás, BigWings disse:

Essa propriedade existia no trunk antigo, não no atual, então veja se está realmente abrindo o demo do Trunk2.

tava pasta errada... mas agora o atualizado deu esse erro

 

 

[LER ARQUIVO TXT]

mas eu fiz assim  nao entendi como usaria esse 

for i := 0 to Arquivo_List.count -1 do

[LER ARQUIVO TXT]

obrigado pelas dicas tem me ajuda muito so estou com duvida 

Split(';' , 'B;12024;389141;2029465;ALG;9;20151214;20160915;2500' , Arquivo_COO) ; // Delimeter pode ser '|' ou outro utilizado no seu arquivo

nesse aqui para colocar no lugar para ir lento as linhas do arquivo txt 

esse que vc me passou nao achei no codigo que esta acima 

Arquivo_List.Strings

eu fiz assim mas ele esta pegando toda a linha

 

  try
   While not Eof(f) do BEGIN
      Readln(f, Linha);

  Split(';' , Linha , Arquivo_COO) ;

 ShowMessage(Arquivo_COO.Strings[0]);

nao esta separando pelos ;

seria

A

b

perdao deu certinho sim. rss muito obrigado!""!!!!

fiz assim deu certo sim.. valeu mesmo!!! exemplo

  try
   While not Eof(f) do BEGIN
      Readln(f, Linha);

  Split(';' , Linha , Arquivo_COO) ; // Delimeter pode ser '|' ou outro utilizado no seu arquivo
    ShowMessage(Arquivo_COO.Strings[0]);

  Data_Doc         := Arquivo_COO.Strings[0]  ;
  ECF_Modelo       := Arquivo_COO.Strings[1] ;
  ECF_Numero_Serie := Arquivo_COO.Strings[2] ;
  ECF_Numero       := Arquivo_COO.Strings[3] ;
  Numero_Pdv       := Arquivo_COO.Strings[4] ;
  COO              := Arquivo_COO.Strings[5] ;
  Valor            := Arquivo_COO.Strings[6] ;

   END;
  finally
     Arquivo_COO.Free ;
     CloseFile(f);
  end;
 

[DUVIDA]

eu tirei o NREGuia  isso seria o que 

20 horas atrás, dreamsoft_PR disse:

aonde que eu mudo o provedor 

eu tentei abrir o exemplo deu erro 

eu baixei nova versao mais o erro continua quando vou abrir o demo porque

[Erro Ao instalar o Trunk2 no DELPHI9]

e aonde que acha essa versao 

[DUVIDA]

achei ja tudo obrigado estou baixando e vou testar , mas no componente da eu colocar dirieto tambem ne a cidade e provedor ou é melhor usar o  INI?

tentei instalar deu esse rro

C:\Componentes\ACBR3\Fontes\ACBrDFe\ACBrGNRE\GNRE\Fast\ACBrGNREGuiaFRDM.pas(362) Error: E2003 Undeclared identifier: 'Transparency'
C:\Componentes\ACBR3\Fontes\ACBrDFe\ACBrGNRE\GNRE\Fast\ACBrGNREGuiaFRDM.pas(371) Error: E2003 Undeclared identifier: 'PdfA'
C:\Componentes\ACBR3\Fontes\ACBrDFe\ACBrGNRE\GNRE\Fast\ACBrGNREGuiaFR.pas(2070) Fatal: F2063 Could not compile used unit 'ACBrGNREGuiaFRDM.pas'

[DUVIDA]

• estou usando svn://svn.code.sf.net/p/acbr/code

13 horas atrás, Italo Jurisato Junior disse:

Boa noite,

A NFS-e não vai ter alteração nenhuma com a relação a nova versão da NF-e.

Onde você encontra os arquivos INI, XSD (Schemas), programa exemplo, etc.

Você baixou os fontes ACBr e instalou os componentes no Delphi usando o ACBrInstall_Trunk2?

Se sim, com o Windows Explorer de uma olhada nas seguintes pastas:

...\Exemplos\ACBrDFe\ACBrNFSe\ArqINI

...\Exemplos\ACBrDFe\ACBrNFSe\Schemas

...\Exemplos\ACBrDFe\ACBrNFSe\Delphi

e qual caminho certo no trunk2 para colocar no programa que baixa 

[DUVIDA]

aonde que eu mudo o provedor 

eu tentei abrir o exemplo deu erro 

[DUVIDA]

vcs falaram "Não se faz necessário copiar para a maquina do seu cliente todos os arquivos INI e todos os Schemas, basta os arquivos: Cidades.INI e o INI do provedor e a pasta Schemas do respectivo provedor que atende a cidade do Emitente."

 

aonde fica essas pastas podem me ajudar por favor

e essa parte

[3118007]
Nome=Congonhas
UF=MG
Provedor=Betha

 

 

aonde que acho isso 

esses arquivos ini por favor preciso de ajuda

[DUVIDA]

ola pessoal podem me ajudar aonde que vejo quais cidades o componente acbr ja pode gerar nota de serviço e por aonde comeco para entender essa parte 

e outra duvida a nota de serviço vai mudar alguma coisa igual da nota 4.0 de venda ?

[LER ARQUIVO TXT]

Em 2017-4-11 at 14:24, marcelo_sp disse:

procedure Cria_Arquivo ;
    var Arquivo  : TStrings ;
  begin
  Arquivo  :=TStringList.create ;
  try

  Arquivo.Clear ;

  Arquivo.add('A;12024;389141;FULANO ;RUA TESTE;S/N;CIDADE TESTE;(77)9999-9999;');
  Arquivo.add('B;12024;389141;2113060;MSL;3;20160610;20160910;2500;');

  Arquivo.SaveToFile('c:\Meu_Arquivo.txt');

  finally
    Arquivo.Free ;
  end;
  end;

ol

 

Em 2017-4-11 at 11:58, marcelo_sp disse:

Use este procedimento para leitura :

procedure Split(const Delimiter: Char; Value: string; const Strings: TStrings) ;
begin
Assert(Assigned(Strings)) ;
Strings.Clear ;
Strings.Delimiter       := Delimiter ;
Strings.StrictDelimiter := True ;
Strings.DelimitedText   := Value ;
end;

 

Exemplo de Uso :

  procedure Cadastra_COOs ;
    var Arquivo_COO      : TStrings ;
        Data_Doc         : String ;
        ECF_Modelo       : String ;
        ECF_Numero_Serie : String ;
        ECF_Numero       : String ;
        Numero_Pdv       : String ;
        COO              : String ;
        Valor            : String ;
  begin
  Arquivo_COO:=TStringList.create ;
  Arquivo_COO.Clear ;
  try
  Split(';' , 'B;12024;389141;2029465;ALG;9;20151214;20160915;2500' , Arquivo_COO) ; // Delimeter pode ser '|' ou outro utilizado no seu arquivo

  Data_Doc         := Arquivo_COO.Strings[0]  ;
  ECF_Modelo       := Arquivo_COO.Strings[1] ;
  ECF_Numero_Serie := Arquivo_COO.Strings[2] ;
  ECF_Numero       := Arquivo_COO.Strings[3] ;
  Numero_Pdv       := Arquivo_COO.Strings[4] ;
  COO              := Arquivo_COO.Strings[5] ;
  Valor            := Arquivo_COO.Strings[6] ;

  with Qry_Avulsa_Temp do
       begin
       close ;
       sql.clear ;
       sql.text := 'insert into #'+ FrmPrincipal.SysInfo.ComputerName + 'COOS_Vinculados' + ' ( CodigoReferenciaNF ,'   +
                                                                                               'Data_Doc ,'             +
                                                                                               'ECF_Modelo  ,'          +
                                                                                               'ECF_Numero_Serie  ,'    +
                                                                                               'ECF_Numero  ,'          +
                                                                                               'Numero_Pdv ,'           +
                                                                                               'COO ,'                  +
                                                                                               'Valor )'                +
                                                                                               'values('                +
                                                                                               ':CodigoReferenciaNF ,'  +
                                                                                               ':Data_Doc ,'            +
                                                                                               ':ECF_Modelo , '         +
                                                                                               ':ECF_Numero_Serie ,'    +
                                                                                               ':ECF_Numero ,'          +
                                                                                               ':Numero_Pdv ,'          +
                                                                                               ':COO ,'                 +
                                                                                               ':Valor )' ;
       ParamByName('CodigoReferenciaNF').asinteger   := CodigoReferenciaNF ;
       ParamByName('Data_Doc').AsDate                := StrToDate(Data_Doc) ;
       ParamByName('ECF_Modelo').asstring            := ECF_Modelo ;
       ParamByName('ECF_Numero_Serie').asstring      := ECF_Numero_Serie ;
       ParamByName('ECF_Numero').asstring            := ECF_Numero ;
       ParamByName('Numero_Pdv').asstring            := Numero_Pdv ;
       ParamByName('COO').asstring                   := COO ;
       ParamByName('Valor').AsFloat                  := StrToFloat(Valor) ;
       ExecSQL ;
       end;
  finally
    Arquivo_COO.Free ;
  end;
  end;

ola pode me tirar so outra duvida como faço para ir para 2º ,3º 4º linha do arquivo 

[FTP BAIXANDO DIRETORIO]

4 minutos atrás, Michel Ouriques disse:

Bom dia

tente isso

if (IdFTp1.Size('arquivo.extensao') <> - 1) then //Existe

 

muito obrigado deu certo

[FTP BAIXANDO DIRETORIO]

preciso saber por exemplo se tem determinado arquivo no ftp como faco achei esse comando mais pesquisei na net e nada

 

IdFTp1.ExtListItem

 

como se fosse o file existe do delphi 

[FTP BAIXANDO DIRETORIO]

eu fiz esse

 

var
I:integer;
begin

//idFTP1.Get('arquivo.sql', 'D:\arquivo.sql', true, false);

IdFTP1.List(Listbox1.Items,'*.sql',false);

for i:=0 to ListBox1.Items.Count-1 do
    begin

        //baixa arquivo do ftp
        IdFTp1.Get(ListBox1.Items.Strings, 'D:\ftp\'+ListBox1.Items.Strings, true);

end;

 

so que queria saber como mandar esse list so procurar em determinada pasta dentro do FTP

 

 

[FTP BAIXANDO DIRETORIO]

ola podem me ajudar ja envio arquivo , no componente idFTP1 minha duvida agora e como baixar o diretório que tem no ftp por exemplo todos arquivos *.ret

[CRIANTO SORTEIO]

ja consegui obrigado rss

antes vou fazer um   ClientDataSet2.RecordCount

 

depois jogo numa variavel quanto que tem registro e numero que parar jogo no recno

 for i := 1 to 5 do
  begin
    int := 1 + Random(100);   //aqui a qtd de registro 
    ShowMessage('int = '+IntToStr(int));
  end;

surgiu um ponto , o cliente que quando dispara o programa mostra esse loop aparecendo a lista como se fosse aquelas maquinas de cassino rodando ate parar , como colocar esse dely no loop?

ou seria possivel mostrar a forma do random rodando ate parar em um 

[CRIANTO SORTEIO]

foi umas das coisas que fiz no Google. mas  mostra como gerar números , estou precisando de que por exemplo trago 100 clientes só que cada um tem um código e tenho que sortear entre esses clientes o numero não gerar aleatoriamente essa é duvida. obrigado

na verdade teria que tipo sortear uma posição do registro que vai esta aberto, porque os numero dos clientes varia muito pode ser um que seja o 1 e outro 5000 o outro 30, nao daria pra fazer de 0 ate 50000 porque nao tera toda essa sequencia de clientes o codigo do cliente vai variar muito, entao acho que o legal seria sorterar a posicao do ponteiro listar um count de quanto tem e sortear o ponteiro 

qual comando que uso para trazer o numero da posição de um registro 

[CRIANTO SORTEIO]

ola pessoal, alguém ja fez ou tem ideia de como fazer um código  para gerar um sorteio  

a situação e seguinte  vou trazer exemplo 100 registro da tela e entre eles vou sortear 

 

obrigado

[FTP ACESSAR]

alguem pode me dar uma luz

[FTP ACESSAR]

vc tem alguem exemplo usando esse

[FTP ACESSAR]

humm certo.. vou ver mais vc tem exemplo como falei eu tentei usar esse id tem campo que da incompatível 

[FTP ACESSAR]

Ola pessoal do forum algum pode me dar um dica de como vou acessar um FTP via delphi para mandar um arquivo e depois baixar , procurei na net mais o que achei tem campo que nao reconhece os componentes IDndy

[LER ARQUIVO TXT]

obrigado pelas dicas, so tenho outra duvida vcs sabem como acessar via FTP usando o delphi para salvar e depois baixar um arqquivo procurei na net achei usanod id so que tem campos que nao reconhece.. estou usando  o delphi xe10