i-master

Em anexo o XML 41130104165297000368550010000306941000306949-nfe.xml

Atualize já arrumado

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

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.

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

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

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

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.

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

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

O anexo com a alteração necessária para o uso da function ifthen Novamente, venho reiterar a minha estima ao colegas ACBrSpedFiscal.pas

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

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

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

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

1) WINDOWS XP Versão 2002 Service Pack 3 2) Delphi 2006 ACBrInstall.exe Borland Delphi for Win32 compiler version 18.0 Copyright © 1983,2005 Borland Software Corporation 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 log_Delphi_2006.txt

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

Boa tarde 1) SO Windows 2003 2) Delphi 2006 Anexo: 1) LOG 2) Tela ACbr-Instalador.bmp log_Delphi_2006.txt ACbr-Instalador.bmp log_Delphi_2006.txt

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 ACBrEFDBloco_0.pas ACBrEFDBloco_C.pas ACBrEFDBloco_0.pas ACBrEFDBloco_C.pas

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

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

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

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

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,

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 2012-05-28 18:20:13 1 4118204 1 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 0.00 0.00 4 0.00 0.00 0.00 - 999 - 99 0.00 0.00 0.00 - - 99 0.00 0.00 0.00 - - 99 0.00 0.00 0.00 (SERVICO) - - 0.00 0.00 0.00 0.00 8.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 8.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