i-master

4 Julho, 2013

Atualize já arrumado

4 Julho, 2013

1) Gera NFe (rapido e normal)

2) Imprime NFe (rapido e normal)

3) Envento email => da o ERRO conforme anexo Campo cOrgao não informado.

Obrigado

ScreenShot002.bmp

27 Junho, 2013

Ta tudo certo, acho que me "enganei". Peço desculpas, realmente é muita coisa ao mesmo tempo Delphi e JAVA ERP. Eu re-passei onde aconteceu DEBUG. Errei, em pesar que já tinha sido por um método anterior verificado se o diretório já existe. Vou implementar, a criação automatizada do diretório. E posto com as alterações.

Muito obrigado pelo seu tempo, e novamente me desculpe pelo engano.

27 Junho, 2013

Jairo, para eu ver preciso do contexto. Então posta a function. Debug??????

27 Junho, 2013

Bom dia,

Posta ai, as linhas. Assim fica difícil. Qual linguagem? Ja verificou se você não colocou em um laço, Debug.

27 Junho, 2013

Mas criava por o meu questionamento. Igual a NF-e "CRIAR PASTA MENSAL"

Obrigado

27 Junho, 2013

ACBrSPEDFiscal1

- Arquivo - <nome do arquivo TXT>

- Path - <onde deve ser informado o diretório para salvar o arquivo TXT >

Estou correto? Foi informado o <nome arquivo> e o seu <diretório para ser gravado>

O que não esta acontecendo, ele cria o arquivo mas não consegue gravar.

26 Junho, 2013

Não salva o arquivo, se não existir o Diretório.

Então tem que cria o diretório dai ele salva o TXT la dentro

Se vc informar um diretório que não existe ele não cria.

Debug:

Para nesta linha.

FConteudo.SaveToFile( NomeArquivo ) // SaveToFile nativo deixa arquivo como UTF-8

Obrigado

26 Junho, 2013

Boa noite,

Estou com este erro em anexo.

1) Se crio o diretório sem erro.

procedure TACBrTXTClass.WriteBuffer;
var
  FS : TFileStream ;
begin
  if NomeArquivo = '' then
     raise Exception.Create( ACBrStr('"NomeArquivo" não especificado') ) ;

  if (not FileExists( NomeArquivo )) then
     {$IFDEF UNICODE}
      WriteToTXT( NomeArquivo, FConteudo.Text, False, False )
     {$ELSE}
      FConteudo.SaveToFile( NomeArquivo ) // SaveToFile nativo deixa arquivo como UTF-8
     {$ENDIF}
  else
   begin
      FS := TFileStream.Create( NomeArquivo, fmOpenReadWrite or fmShareExclusive );
      try
         FS.Seek(0, soFromEnd);  // vai para EOF
         FConteudo.SaveToStream( FS );
      finally
         FS.Free ;
      end;
   end;

  if (FLinhasBuffer > 0) then
     FConteudo.Clear;
end;

ErroSpedDiretorio.bmp

ErroSpedDiretorio2.bmp

18 Junho, 2013

O anexo com a alteração necessária para o uso da function ifthen

Novamente, venho reiterar a minha estima ao colegas

ACBrSpedFiscal.pas

18 Junho, 2013

Boa noite

Eu sei disto, não deixa de ser uma alteração. Veja estamos eu como você, discutindo uma coisa simples. Pode fazer a gentileza de incluir o iif(x,y,z) veja isto e uma coisa de clippeiro, que fui. Peço esta gentileza.

Veja esta era a minha primeira resposta, mas tudo bem. Vamos nos reciclar e corre conforme manda o figurino. Pensando melhor, para que inchar com mais uma Função. Tenho muito respeito, e muito me ajudou o ACBr. Em anexo a inclusão do StrUtils no ACBrSpedFiscal.

Obrigado

18 Junho, 2013

Tudo bem. Veja fiz o que você sugeriu, veja o resultado.

if (Trim(FArquivo) = '') or (Trim(FPath) = '') then
    raise Exception.Create(ACBrStr(IfThen(Trim(FPath)='','Caminho não informado!','Nome do arquivo não informado!')));

[Pascal Error] ACBrSpedFiscal.pas(420): E2250 There is no overloaded version of 'IfThen' that can be called with these arguments

Obrigado

18 Junho, 2013

Boa tarde

Bem é uma função de uma só linha. Que uso normalmente. Se possível incorporar obrigado. Me desculpe se ofendi.

Obrigado.

18 Junho, 2013

ACBrSpedFiscal - Uso da nova função. Melhorar a resposta de erro ao usuário.

  if (Trim(FArquivo) = '') or (Trim(FPath) = '') then
    raise Exception.Create(ACBrStr(IIF(Trim(FPath)='','Caminho não informado!','Nome do arquivo não informado!')));

ACBrUtil - Nova função

function IIF(_Condicao: Boolean; _True, _False: Variant): Variant;
{:: IIF - Condicional iif(x,y,z) ::Adolfo Jefferson 01/01/2009 18:54:12 ::}
begin
  if _Condicao then
    Result := _True
  else
    Result := _False;
end;

ACBrUtil.pas

ACBrSpedFiscal.pas

22 Maio, 2013

1) WINDOWS XP

Versão 2002

Service Pack 3

2) Delphi 2006

ACBrInstall.exe

Borland Delphi for Win32 compiler version 18.0

E:\Projetos\componentes\D2006\ACBr\Fontes\ACBrTCP\ACBrIBPTax.pas(341) Error: E2003 Undeclared identifier: 'FloatToString'

E:\Projetos\componentes\D2006\ACBr\Fontes\ACBrTCP\ACBrIBPTax.pas(342) Error: E2010 Incompatible types: 'string' and 'Integer'

E:\Projetos\componentes\D2006\ACBr\Fontes\ACBrTCP\ACBrIBPTax.pas(365) Error: E2003 Undeclared identifier: 'FloatToString'

E:\Projetos\componentes\D2006\ACBr\Fontes\ACBrTCP\ACBrIBPTax.pas(400) Error: E2003 Undeclared identifier: 'FloatToString'

E:\Projetos\componentes\D2006\ACBr\Fontes\ACBrTCP\ACBrIBPTax.pas(425) Error: E2003 Undeclared identifier: 'FloatToString'

E:\Projetos\componentes\D2006\ACBr\Fontes\ACBrTCP\ACBrIBPTax.pas(426) Error: E2010 Incompatible types: 'string' and 'Integer'

E:\Projetos\componentes\D2006\ACBr\Fontes\ACBrTCP\ACBrTCPReg.pas(45) Fatal: F2063 Could not compile used unit '..\..\Fontes\ACBrTCP\ACBrIBPTax.pas'

Compilation failure

log_Delphi_2006.txt

10 Abril, 2013

Veja na pasta

\ACBr\Exemplos\ACBrNFe2\Delphi

1) ACBrNFe_demo.exe = Criar e Enviar

2) ACBrNFeNotasFiscais.pas = TNotasFiscais.GerarNFe = LocNFeW.schema

Da uma estuda. Se você fizer o Botão "Validar XML Schema" pode incorporar no Unit1.pas -> ACBRNFe_dedo.bdsproj Envia dai a alteração. O projeto agradece...vero...

Espero ter ajudado

13 Março, 2013

Boa tarde

1) SO Windows 2003

2) Delphi 2006

Anexo:

1) LOG

2) Tela

25 Fevereiro, 2013

Boa tarde

Fiz alguma alterações:

- BLOCOS 0

TRegistro0206List = class(TObjectList)

function TRegistro0206List.LocalizaRegistro(pCOD_COMB: string): boolean; {:ANP - Localiza :AJ-13/9/2011 05:33:04:}

- BLOCO C

TRegistroC400List = class(TObjectList)

function LocalizaRegistro(pECF_FAB: string): boolean; {:Número de série de fabricação do ECF :AJ-31/8/2011 13:57:12:}

** Arquivo em anexo com as alterações. SVN UPDate hoje 25/02/2013

30 Novembro, 2012

Boa tarde

Resolvi :

1) O aplicativo cria um subdiretório

C:\Documents and Settings\i-master\Meus documentos\Borland Studio Projects\Bpl\4.0

Solução: Colocar todos os arquivos *.bpl e *.dcp para:

C:\Documents and Settings\i-master\Meus documentos\Borland Studio Projects\Bpl

30 Novembro, 2012

Boa tarde

1) Resolvi em partes, não da mais erro quando inicializa o Delphi 2006. (Library-Win32 Browsing path.JPG)

2) Agora da erro quando você entra no project.

Anexos

29 Novembro, 2012

Bom dia

1) Em anexo o Log pedido para analise

2) SO Windos XP

3) Tenho feio algumas alterações, nos fontes. Como procedo para incorporar os mesmos ao projeto. Aproveitando.

Obrigado

28 Novembro, 2012

Boa tarde

Problemas no uso do ACBrInstall.exe

1) Reinstalei o DELPHI 2006

2) Deletei a pasta ACBr

3) UpDate

E mesmo não encontra a pasta de trabalho. Em anexo as telas.

Agradeço por qualquer luz obrigado

29 Maio, 2012

Boa noite, Peterson de Cerqueira Matos

Muitissimo obrigado, pela luz....

Resolvido, fica aqui a minha colaboração.

************ SERVIÇOS **************************

Prod.indTot := itNaoSomaTotalNFe;

Det.Add.Imposto.ISSQN.cSitTrib := ISSQNcSitTribNORMAL;

sds,

28 Maio, 2012

Boa noite

Estou com este problema despois desta alteração feita pela Receita... Será que alguem poderia me dar uma luz???

Obrigado

<?xml version="1.0" encoding="UTF-8" ?>

-

41

00002153

A Vista

0

55

1

2153

2012-05-28

18:20:13

1

4118204

1

7

2

1

0

2.0.0.0

-

04165297000104

POSTO E CHURRASCARIA DE BORTOLI CUPIM LTDA

O Cupim ESSO

-

ROD. BR 277

006

J SAMAMBAIA

4118204

PARANAGUA

PR

83203970

1058

BRASIL

4134236556

9022681467

4.088/00

4731800

3

-

99999999000191

NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL

-

RODOVIA DO XISTO BR 476 KM 150

00000

TOMAZ COELHO

4118204

PARANAGUA

PR

83707440

1058

BRASIL

4136432929

-

0000179

7891000100103

LUBRIFICACAO AUTOMOVEL

12345678

5933

und

1.0000

8.0000000000

8.00

7891000100103

und

1.0000

8.0000000000

1

-

0

90

3

0.00

4

0.00

-

999

-

99

0.00

-

99

0.00

-

99

0.00

(SERVICO)

-

0.00

8.00

0.00

8.00

-

8.00

0.16

-

0

-

Tick: 1313145 - Operador: 999

-

kQ5uVdr54JNsJtWEamVhd1cXdds=

rUSL0DNZTmIdZ3WT1c5++NQQX2Z5Btc5s8OlvbYSc8nN7LvfcBBZMZyTIljvgT9FZbrd2Gh+8kz6+iUpSlZXBafSlA1Oss4l33kicFmSqiOqmqYevrnWnHAtekKKa+dnUi4Lt3BTmZNGf49qEUGffQ1cFPcIGCCfV0z3Ur5OF+q/yMkDwfUfjD94O5ahjTXOB0mZ1N1Fv4nZ8bjR6IcTfyeeuNkMtBUEoq38cwfgpaWBhBM9IhZoN2OzQuE5KVdguwGHURci4vUzjcil1qmeFb7Id1oO7y84ERXcAcYqIHGV1nSH50hpEOlEYiFyRIGJ/GCNUTo1Q/72gnB9Iesy+A==

-

MIIISzCCBjOgAwIBAgIQbX2VveVf666PyWbNjCb2XDANBgkqhkiG9w0BAQsFADB4MQswCQYDVQQGEwJCUjETMBEGA1UEChMKSUNQLUJyYXNpbDE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRwwGgYDVQQDExNBQyBDZXJ0aXNpZ24gUkZCIEc0MB4XDTEyMDEwOTAwMDAwMFoXDTEzMDEwNzIzNTk1OVowge0xCzAJBgNVBAYTAkJSMRMwEQYDVQQKFApJQ1AtQnJhc2lsMQswCQYDVQQIEwJQUjESMBAGA1UEBxQJUGFyYW5hZ3VhMTYwNAYDVQQLFC1TZWNyZXRhcmlhIGRhIFJlY2VpdGEgRmVkZXJhbCBkbyBCcmFzaWwgLSBSRkIxFjAUBgNVBAsUDVJGQiBlLUNOUEogQTExIjAgBgNVBAsUGUF1dGVudGljYWRvIHBvciBBUiBBTk9SRUcxNDAyBgNVBAMTK1BPU1RPIE8gQ1VQSU0gUEFSQU5BR1VBIExUREE6MDQxNjUyOTcwMDAxMDQwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQDD+hrVqw1qQA4TTsNe9kwPe1q0OyQxSHthehL3izkAFOO8+qgqaSkBjcEzRayQOD9br3vqHLIXSAwuCTG+H9VmOWHT2RbMg09Eg4tG9Npq+Vk+6/rP4qaRUywdhdBFQ3PGREm5m1NwGP8ngxVzxS4HEatb7Q1HDGL2jmQabUXdnokUXTC2JVA+LsOLQ14tvYUckow4nJtWjbNJoNxFss4pvNEPz+knQ5SQbghKyaxBbPU/P+9/JuYvWOd4SOWjJ6e2AWy6IKHynwqQakv7D+/dsmZfkGA8P0hQD9FyJU5ExJ4i9VWYwYhd7NNcHlaVTGyzdCl2Wuxzst/e+Ctc5NK/AgMBAAGjggNZMIIDVTCBvgYDVR0RBIG2MIGzoD0GBWBMAQMEoDQEMjIxMDYxOTczODc0MzE2MTA5MDQwMDAwMDAwMDAwMDAwMDAwMDA1MDU5MzUyNXNzcFBSoCIGBWBMAQMCoBkEF0xVSVogQU5UT05JTyBERSBCT1JUT0xJoBkGBWBMAQMDoBAEDjA0MTY1Mjk3MDAwMTA0oBcGBWBMAQMHoA4EDDAwMDAwMDAwMDAwMIEacG9zdG9jdXBpbTZAYnJ0dXJiby5jb20uYnIwCQYDVR0TBAIwADAfBgNVHSMEGDAWgBQukerWbeWyWYLcOIUpdjQWVjzQPjAOBgNVHQ8BAf8EBAMCBeAwfwYDVR0gBHgwdjB0BgZgTAECAQwwajBoBggrBgEFBQcCARZcaHR0cDovL2ljcC1icmFzaWwuY2VydGlzaWduLmNvbS5ici9yZXBvc2l0b3Jpby9kcGMvQUNfQ2VydGlzaWduX1JGQi9EUENfQUNfQ2VydGlzaWduX1JGQi5wZGYwggEWBgNVHR8EggENMIIBCTBXoFWgU4ZRaHR0cDovL2ljcC1icmFzaWwuY2VydGlzaWduLmNvbS5ici9yZXBvc2l0b3Jpby9sY3IvQUNDZXJ0aXNpZ25SRkJHNC9MYXRlc3RDUkwuY3JsMFagVKBShlBodHRwOi8vaWNwLWJyYXNpbC5vdXRyYWxjci5jb20uYnIvcmVwb3NpdG9yaW8vbGNyL0FDQ2VydGlzaWduUkZCRzQvTGF0ZXN0Q1JMLmNybDBWoFSgUoZQaHR0cDovL3JlcG9zaXRvcmlvLmljcGJyYXNpbC5nb3YuYnIvbGNyL0NlcnRpc2lnbi9BQ0NlcnRpc2lnblJGQkc0L0xhdGVzdENSTC5jcmwwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMIGbBggrBgEFBQcBAQSBjjCBizBfBggrBgEFBQcwAoZTaHR0cDovL2ljcC1icmFzaWwuY2VydGlzaWduLmNvbS5ici9yZXBvc2l0b3Jpby9jZXJ0aWZpY2Fkb3MvQUNfQ2VydGlzaWduX1JGQl9HNC5wN2MwKAYIKwYBBQUHMAGGHGh0dHA6Ly9vY3NwLmNlcnRpc2lnbi5jb20uYnIwDQYJKoZIhvcNAQELBQADggIBAHpiBCGf7vyP9q5vV5G7kB68j6lCkwB3OIcQj8ZsQHj4EmBXcnYZCqfigzN137PfpEWwx5PJwpg4cQ8cd57E+4c7ThQGPpDhTK1I+3+bncXwJhY8Qv2htjFexeWQ9ic0YhdpwStZgM7eycSR/rHbNgJk7a6pSbP8JX6OKG97RhstkxdB0uNYa0NmkPxBpNQUKivmbKpABfVnzjofcC1mHPmU2TMRMVH5fcJ3JrVf2hkYniQ/3AdAfOO7Qg/VUCwdbtMG3HO2RrBcRo87tncXal4muR+iBAhGA9pFBwn8U02Ihg/IAlAIf/B2N1zEEIqh68deb9hCK4y5i0QsMEi6diUd8ClUli6daxOoI3fntxQ2CqPjxfaD19vVu7yMiTJta/Hz0X0zNRW7HQDevPv0WaljYimcNNJSweB/UPTWNZ0u/+h6iY1weixVIgVv8mfk2ONTcBejylbEtr2hfIq2zvHoVqVoQ2c3YRMt7J3/QyeiJfWIB38+Xu0YKugUHZZd5br/Q8iVfu7go60OGyGG7jbAjmXsQwFtZOR3IQ+y/jqBZotJbLAA5IgO/++qhQLTUSUbbxG+vMFcLP9i2UBgralxZP28pjBX8ull5dSlDjLcAASH1ynbay0AgwlMaqUXBbFECYu1G6v2a2RvzVSOHmsjAqz/ynJXHN5x8pt9cZNO

-

2

PR-v2_5_8

41120504165297000104550010000021531000021537

610

Total da NF difere do somatorio dos Valores compoe o valor Total da NF. (vNF informado: 8.00, vNF calculado: 16.00)

41120504165297000104550010000021531000021537-nfe.xml

23 Junho, 2011

ACBr_BoletoFC_Quick Instalar Delphi 2010 erro

205.. QRHTMLFilter1: TQRHTMLFilter;

[DCC Error] ACBrBoletoFCQuickFr.pas(205): E2003 Undeclared identifier: 'TQRHTMLFilter'

sds

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por i-master

Sobre nós...

Informação Importante