Ir para conteúdo
  • Cadastre-se

i-master

Membros
  • Total de ítens

    103
  • Registro em

  • Última visita

Tudo que i-master postou

  1. Em anexo o XML 41130104165297000368550010000306941000306949-nfe.xml
  2. 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
  3. 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.
  4. Jairo, para eu ver preciso do contexto. Então posta a function. Debug??????
  5. Bom dia, Posta ai, as linhas. Assim fica difícil. Qual linguagem? Ja verificou se você não colocou em um laço, Debug.
  6. Mas criava por o meu questionamento. Igual a NF-e "CRIAR PASTA MENSAL" Obrigado
  7. 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.
  8. 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
  9. i-master

    Cannot Create File

    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
  10. O anexo com a alteração necessária para o uso da function ifthen Novamente, venho reiterar a minha estima ao colegas ACBrSpedFiscal.pas
  11. 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
  12. 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
  13. Boa tarde Bem é uma função de uma só linha. Que uso normalmente. Se possível incorporar obrigado. Me desculpe se ofendi. Obrigado.
  14. 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
  15. 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
  16. 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
  17. 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
  18. 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
  19. 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
  20. 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
  21. 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
  22. i-master

    ACBrInstall - Erro BLP

    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
  23. 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,
  24. 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
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.