Dangelo2010

Tente esse link acho que deve te ajudar. http://www.bematech.com.br/fale-conosco.html

Consequi mais cadê o resto ou seja cadê o ICMS Simples Nacional? CstIcms: array[0..97] of String = ( '000','010','020','030','040','041','050','051','060','070','090', '100','110','120','130','140','141','150','151','160','170','190', '200','210','220','230','240','241','250','251','260','270','290', '300','310','320','330','340','341','350','351','360','370','390', '400','410','420','430','440','441','450','451','460','470','490', '500','510','520','530','540','541','550','551','560','570','590', '600','610','620','630','640','641','650','651','660','670','690', '700','710','720','730','740','741','750','751','760','770','790', '101','102','103','201','202','203','300','400','500','900');

Isaque, qual o novo link?

Var _Caminho : String; _LendoArquivo : TMemo; With RegistroJ800.New Do Begin // 3 _LendoArquivo := TMemo.Create(Nil); _LendoArquivo.Parent := FormGerador; _Caminho := 'C:\' + FormatFloat('000', ModuloPesquisa.IBQRegistroJ800SEQUENCIA.AsInteger) + '.rtf'; Try TBlobField(ModuloPesquisa.IBQRegistroJ800.FieldByName('ARQUIVO')).SaveToFile(_Caminho); _LendoArquivo.Lines.LoadFromFile(_Caminho); ARQ_RTF := _LendoArquivo.Text; DeleteFile(_Caminho); Finally _LendoArquivo.Free; End; End; Abraço!

Var _Caminho : String; _LendoArquivo : TMemo; With RegistroJ800.New Do Begin // 3 _LendoArquivo := TMemo.Create(Nil); _LendoArquivo.Parent := FormGerador; _Caminho := 'C:\' + FormatFloat('000', ModuloPesquisa.IBQRegistroJ800SEQUENCIA.AsInteger) + '.rtf'; Try TBlobField(ModuloPesquisa.IBQRegistroJ800.FieldByName('ARQUIVO')).SaveToFile(_Caminho); _LendoArquivo.Lines.LoadFromFile(_Caminho); ARQ_RTF := _LendoArquivo.Text; DeleteFile(_Caminho); Finally _LendoArquivo.Free; End; End; Abraço!

Ok

Ok

Acrescentar Registro M160 - Ajustes FCont Recuperados.

Incluir Campo IND_RECUPERACAO.

OUTRO PROBLEMA MAIOR E O TAMANHO DE ESPAÇO QUE A DESCRIÇÃO NO DANFE VAI TOMAR.

E AINDA TEM MAIS IMAGINA CADASTRAR ESSE PRODUTO NA IMPORTACAO DO XML AUTOMATICAMENTE?! VAI SER MUITO LOUCO KKKKKK

O Dangelo2010 apenas precisa de alguns esclarecimentos adicionais: 1) cdsItens é o dataset usado pelo componente apenas para imprimir o danfe, não tendo nenhuma relação com o tamanho obrigatório dos campos do XML (apenas precisa comportá-los); 2) quando vc procurou a linha que voce citou, talvez não tenha visto a definição do campo que tanto lhe preocupa: FieldDefs.Add('DESCRICAO',ftWideString,2000). Isto quer dizer que naquele campo da impressao cabem os 120 caracteres possiveis da descrição do produto no XML (xprod) e mais 1880 para as informações complementares. Diante disso pergunto: voce conseguiu fazer um teste em que esse espaço não é suficiente? Mas tem que ser um teste realista, com informações que alguem realmente possa chegar a precisar colocar nesse campo do danfe e não algo do tipo colocar 2100 caracteres aleatorios. R: O PROBLEMA NAO E O ESPACO E SIM A DESCRIÇÃO DO PRODUTO, QUE NO CASO VAI FICAR TUDO JUNTO, IMAGINA SO A BAGUNCA QUE NAO VAI VIRAR. --> "COCA-COLA 2LT LOTE: 123 DATA VENC. 01/01/2015 Nº CONTROLE 3132113131". NO MEU CASO E DE TODOS AGORA SOMOS OBRIGADO A USAR A DESCRIÇÃO COMO DADOS ADICIONAIS DO PRODUTO COMO LOTE, ARMAMENTO, COMBUSTIVEL, ETC.

Sim no meu caso ja estava buscando e jogando nas observações, mais o porque de colocar na descrição se temos somente 120 caracteres, fica meio sem nexo isso ai, o bom seria colocar um teste para ver onde fica pois está uma furada isso ai colocar tudo na descrição e como fica para quem usa lote + armamento ao mesmo tempo? rsrsrs bom acho que o ACBR devia pensar um pouco nisso.

gostaria de saber porque esta sendo usado desta forma no componente. cdsItens.FieldByName('DESCRICAO').AsString := xProd + sDetalhamentoEspecifico; pois os detalhamentos não teria que sair na observação do produto? porque esta saindo junto com a descrição? tem uma lei especifica para isso?

Compilei os pacotes blz mais depois derrepente voltou a dar o mesmo erro.

Ok muito obrigado!

Sobre as alterações eu ja tinha visto, sobre a maneira de como usar blz, mais e o erro do property?

Estou com erro na hora de chamar para validar a nota fiscal. ACBrNFeDANFeRL1.TamanhoFonte_RazaoSocial: Property TamanhoFonte_RazaoSocial does not exit

Até ai tudo bem, agora sobre as medidas aqui na caixa foram e muito questionadas, praticamente 90 % da rejeição foram por causa disso e ainda mais que querem que sai o digito verificador na linha digitavel.

Juliana, eu não disse que o CNPJ não estava mais truncando so disse que o componente gera o boleto normalmente se qualquer bug. Já foi conversado com o banco as exigências são claras e não deixaram passar com esse boleto, tem que ser feitas as correções.

Bom dia. Qual componente para impressão vc está usando? 1 - Está sendo impresso normalmente nos boletos emitidos por nós. R: Estou usando o ACBR-Fortes Report. Sim está sendo impresso normal mais na homologação da caixa economica federal foi bloqueado por que está errado, e nao estou usando PDF para impressão, e na primeira impressão mesmo vc ja vê os erros. 2 - Também tem um local próprio para este campo. R: não achei o campo, até mesmo abri a impressão do Fortes Report e não foi achado onde ele recebe os dados. 3 - Se você visualizar como PDF e depois mandar imprimir vai dar uma pequena variação, mas nada que impeça a leitura do código, o mesmo vale para os itens 4,5 e 6. R: Nada está impedindo a leitura so esta fora do alinhamento e a caixa não aceito, ou seja o padrão de tamanha está errado. Att.

A impressão do Boleto Bancário da Caixa não seque as exigências. 1 - CNPJ do cendente está truncado no digito verificador. 2 - Sacador/Avalista nao tem campo para preenchimento. 3 - Altura de 95 a 108 mm da Via Ficha de Compensação. ** CÓDIGO DE BARRAS ** 4 - 12 mm da margem inferior da Ficha de Compensação até o centro do Códig de Barras. 5 - 13 mm de altura por 103 de comprimento. 6 - Representação numérica do código de barras com o Layout FEBRABAN com Fonte de 3,5 a 4,0 mm. Essas são as mudanças pessoal. Obrigado!

Já fiz tudo isso Ex 1: AssignFile(F, Lpt1); Ex 2: AssignFile(F, \\MAQUINA\IMPRESSORA); achei ate que poderia ser algum erro na maquina mais o proprio exe da bematech funciona perfeitamente, somente o meu que não funciona.

Então mais como eu iria fazer nessa função pode mim ajudar. AssignFile(F, 'COM1'); AssignFile(F, ?);

Ate ai Regis, eu ja deixei pronto só que realmente não imprimi mesmo. Estou usando assim AssignFile(F, 'COM1'); Rewrite(F); Writeln(F,#27#15 + ' Comprovante de teste. '); Writeln(F,' '); CloseFile(F);