Dangelo2010

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);

Bom dia, Estou com um pequeno problema não consigo enviar impressão para a Impressora Bematech 4000 TH Não Fiscal USB pois o cliente disse que não quer usar porta serial pois ja e usado em outros equipamento e nao quer comprar nenhuma placa serial para ser usado, alquem teria alguma dica.

Bom dia Eu Coloquei um pequeno teste para não gerar os registros C, D e M no meu sistema, mais os registros C, D e M são gerados com uma unica linha dessa forma |C001|0| mais o "0" já vem fixo significa que ele contem dados no bloco. Séria possível colocar um teste já direto nós fontes. procedure TBloco_C.WriteRegistroC001 ; begin if Assigned(FRegistroC001) then begin with FRegistroC001 do begin Add( LFill( 'C001' ) + LFill( Integer(IND_MOV), 0 ) ) ; if IND_MOV = imComDados then begin WriteRegistroC010(FRegistroC001) ; end; end; RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1; end; end;

Está mim nando esse erro em anexo. Já deletei os arquivos e atualizei novamente, mais, quando vou baixar novamente aparece esse pequeno erro.