Gr@c@

Agora ficou perfeito! Fiz o teste em 3 impressoras: Matricial LX 810 Jato de tinta HP Deskjet 3320 Laser HP Laserjet p1005 Obrigada pela ajuda

O DANFE que uso é o NFeDanfeRV em RaveReport (versão original do Delphi 7). Não uso a versão Quick Report. Fiz o teste aqui e o resultado foi: - a mensagem AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL está saindo em cima das observações - onde tem letra courier new (exceto se for bold) sai ilegivel (exceto se imprimir em uma impressora matricial epson). - o Danfe da nfe continua saindo nítido na impressora Laserjet. Essa impressora não está em modo rascunho. Imprimo nela também nfs de serviço da prefeitura e também saem nítidas, só que também são pdf. - fiz teste com outros relatorios quick report usando fontes courier new e arial. Fonte arial sai nítida, fonte courier new só sai se estiver em negrito. Então o problema está na fonte courier new (inclusive no word esta fonte também não imprime bem). Acho q você não deve mexer no componente, porque a visualização do Dacte no monitor está melhor do que estava antes, inclusive o tamanho das letras. Então, acho que seria o caso de pedir para alguém testar em uma impressora jato de tinta e outras impressoras laser.

Boa tarde Italo Fiz o teste aqui, mas tá ocorrendo o seguinte: -onde tem label saiu letra bem pequena e bem apagada (ilegivel) -onde tem courier new como dados do destinatario,remetente,consignatario e redespacho o tamanho da letra está otimo, porém também saiu bem apagado (ilegivel) -onde tem o label por exemplo "DECLARO QUE RECEBI...." ou o conteudo das observações, a letra está perfeita e legivel. Desconfiei que fosse o toner da impressora, então imprimi uma NFe, mas ela saiu bem legivel inclusive com as bordas. Alguma idéia? Será que é a fonte courier new que fica apagada mesmo? Testei numa impressora matricial e ficou legivel, com bordas. Não tenho outra impressora laser ou jato de tinta para teste. Seria o caso de alguém testar pra nós. Mas a priori, onde você colocou courier new ficou pior.

Minha versão de QuickReport não tem o filtro para gerar pdf. 1. Qual versão mínima do QuickReport deverá ser usada? Existe essa versão free para download ou somente a paga? 2. Infelizmente, não domino o Rave Report. Existe alguém do ACBr que domine o Rave Report e que possa desenvolver o DACTe nesse componente? Assim poderíamos ver as pessoas interessadas e que possam custear o desenvolvimento do componente DACTe em Rave. (mas nesse caso, seria necessário que fosse em Rave original do Delphi 7 para que todos os usuários do ACBrCTe sejam beneficiados). 3. Existe um programinha free que converte qrp para pdf. Existe a possibilidade do componente gravar automaticamente o qrp na pasta configurada? Isso porque muitas vezes o ct-e será impresso sem visualização prévia. Com o qrp gravado na pasta, poderei disponibilizar o programa conversor para o usuário para que ele mesmo gere o pdf quando alguém solicitar. (pelo menos como quebra-galho...)

Como a maioria dos usuários do ACBr eu utilizo Delphi 7 com QuickReport 3.6.2 e não estou encontrando uma solução para o problema. Já pesquisei na net, encontrei algumas rotinas para converter qrp para bmp e jpg. Talvez essa possa ser uma solução (talvez lenta), mas o componente teria que salvar o relatorio em qrp primeiro.

Aproveitando o tópico. Também não consigo gerar o arquivo em pdf. Será devido à versão do Quick Report no Delphi 7? Como proceder?

Boa tarde Ítalo 1. ref fonte: o ideal seria size 8. Atualmente está com 6. Nenhuma das transportadoras que presto serviço aceitou o DACTe como está, porque estão comparando com o DACTe do SEFAZ que imprimiu com as bordas e com fontes maiores usando-se a mesma impressora HP Laserjet P1005. 2. Realmente, existe a configuração. No meu caso, eu uso uma configuração diferente da que vem padrão no componente. Usei a mesma configuração q uso na NFe e mesmo assim não imprimiu a borda. Acredito que seja por causa da espessura: bordas muito finas não imprimem nessas impressoras novas da HP (eu uso a Laserjet P1005). Nos meus relatorios em quick report eu sempre tenho q usar bordas um pouco mais grossas para que sejam impressas. As bordas no DACTe do SEFAZ imprimem normalmente.

Ambiente: Homologação Impressora : LaserJet Minha empresa está credenciada como emissora de CT-e voluntária e estou realizando os testes do CT-e. Percebi algumas coisas no DACTe: 1- a fonte usada é muito pequena (o cara tem que ser muito bom de vista pra ler e as transportadoras costumam ser muito exigentes com CTRC)---> mostrei um CTRC para um de meus clientes transportadora e eles recusaram porque realmente a letra é muito pequena. 2- as margens não estão sendo impressas em impressora laserjet. Isso ocorreu com o DANFE e foi resolvido depois que criou-se as configurações de borda no componente ACBrNFe. Mas mesmo assim, acredito que a borda externa do DACTe deveria ser um pouco mais grossa para atender a algumas impressoras chatas da HP. Bordas finas não imprimem, principalmente se o toner estiver fraco. 4- não está imprimindo para a impressora configurada e sim para a impressora que está padrão na LPT1 (pelo menos, não consegui aqui). Configurei uma impressora da rede como faço com a NFe e mandei imprimir, mas não imprimiu, jogou para a LPT1. 5- não está imprimindo modo paisagem 6- Acho que os valores monetários (base de calculo de icms e vlr do icms) deveriam ser alinhados à direita como os demais valores. Por favor, me corrijam se eu tiver feito algum procedimento incorreto, porque foi o meu primeiro CT-e autorizado.

ambiente: NFe 2 homologação CRT 2 Simples Nacional com excesso de sublimite da receita bruta Danfe NotaFiscalEletronica.rav Na situação acima, não deveria sair CSOSN e sim CST. Mas no DANFE (nos itens) está imprimindo CSOSN e saindo o codigo do CST. Exemplo CSOSN 070 Deveria ser CST 070

Obrigada.

Obrigada

Essa alteração também não está no SVN. E está ocorrendo o erro ao validar os arquivos das transportadoras. procedure TBloco_D.WriteRegistroD110(RegD100: TRegistroD100) ; var intFor: integer; begin if Assigned( RegD100.RegistroD110 ) then begin for intFor := 0 to RegD100.RegistroD110.Count - 1 do begin with RegD100.RegistroD110.Items[intFor] do begin Add( LFill('D110') + LFill(NUN_ITEM,3) + LFill(COD_ITEM ) + LFill(VL_SERV ) + LFill(VL_OUT ) ); end; /// Registros FILHOS WriteRegistroD120( RegD100.RegistroD110.Items[intFor] ); RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroD110Count := FRegistroD110Count + RegD100.RegistroD110.Count; end; end;

Essas alteração ainda não estão no SVN. Mas sem ela, o arquivo não valida. Sempre que atualizo o SpedFiscal, tenho que refazer essas alterações. As transportadoras já são obrigadas a enviar o SPED Fiscal até dia 15/01/2011 **********************************************************************ACBrEFDBloco_D ********************************************************************** /// Registro D162 - IDENTIFICAÇÃO DOS DOCUMENTOS FISCAIS (COD. 08, 8B, 09, 10, 11, 26, 27) TRegistroD162 = class private fCOD_MOD: String; /// Código do documento fiscal FSER: String; /// Série do documento FNUM_DOC: String; /// Numero FDT_DOC: TDateTime; /// Data de emissão FVL_DOC: currency; /// Valor total do documento fiscal FVL_MERC: currency; /// Valor das mercadorias constantes no documento fiscal //FQTD_VOL: currency; /// Quantidade de volumes transportados FQTD_VOL: integer; /// Quantidade de volumes transportados FPESO_BRT: currency; /// Peso bruto FPESO_LIQ: currency; /// Peso liquido public property COD_MOD: String read FCOD_MOD write FCOD_MOD; property SER: String read FSER write FSER; property NUM_DOC: String read FNUM_DOC write FNUM_DOC; property DT_DOC: TDateTime read FDT_DOC write FDT_DOC; property VL_DOC: currency read FVL_DOC write FVL_DOC; property VL_MERC: currency read FVL_MERC write FVL_MERC ; //property QTD_VOL: currency read FQTD_VOL write FQTD_VOL; property QTD_VOL: integer read FQTD_VOL write FQTD_VOL; property PESO_BRT: currency read FPESO_BRT write FPESO_BRT; property PESO_LIQ: currency read FPESO_LIQ write FPESO_LIQ; end; ********************************************************************************************* ACBrEFDBloco_D_Class ********************************************************************************************* procedure TBloco_D.WriteRegistroD162(RegD160: TRegistroD160) ; var intFor: integer; begin if Assigned( RegD160.RegistroD162 ) then begin for intFor := 0 to RegD160.RegistroD162.Count - 1 do begin with RegD160.RegistroD162.Items[intFor] do begin Add( LFill('D162') + LFill( COD_MOD ) + LFill( SER ) + LFill( NUM_DOC ) + LFill( DT_DOC ) + LFill( VL_DOC,0,2 ) + LFill( VL_MERC,0,2 ) + //LFill( QTD_VOL,0 ) + LFill( QTD_VOL ) + LFill( PESO_BRT,0,2 ) + LFill( PESO_LIQ,0,2 ) ) ; end; RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroD162Count := FRegistroD162Count + RegD160.RegistroD162.Count; end; end;

Para solucionar o erro acima (a nivel provisório) foi necessário desconsiderar as NFs de Serviço canceladas. Mas essas notas devem fazer parte do Registro D100 Então no registroD100 deveria jogar vazio nos campos se a nota estiver cancelada: COD_PART := ''; DT_DOC := ''; DT_A_P := ''; TP_CT_e := ''; CHV_CTE_REF := ''; VL_DOC := ''; VL_DESC := ''; IND_FRT :=tfNenhum; VL_SERV := ''; VL_BC_ICMS := ''; VL_ICMS := ''; VL_NT := ''; COD_INF :=''; COD_CTA :=''; só que alguns campos são tipo currency ou data.

Em caso de NFs de serviço canceladas está dando erro: "Para documento fiscal cancelado (código da situação = 02 ou 03) ou NFe denegada (04) ou NFe inutilizada (05), somente os campos código da situação, indicador de operação, código do modelo e a "chave do documento" e os campos CHV_NFE e CHV_CTE para os registros que possuam os campos." Então no registroD100 deveria jogar vazio nesses campos, mas os campos marcados não tem como COD_PART := ''; >>>> DT_DOC := ''; >>>> DT_A_P := ''; TP_CT_e := ''; CHV_CTE_REF := ''; >>>> VL_DOC := ''; >>>> VL_DESC := ''; IND_FRT :=tfNenhum; >>>> VL_SERV := ''; >>>> VL_BC_ICMS := ''; >>>> VL_ICMS := ''; >>>> VL_NT := ''; COD_INF :=''; COD_CTA :='';

Sim onde está >>>>>> // é o que comentei onde está >>>>>> é o que alterei

Obrigada, realmente, o problema é esse mesmo. Segue o que alterei no componente (ACBrEFDBloco_D_Class) procedure TBloco_D.WriteRegistroD110(RegD100: TRegistroD100) ; var intFor: integer; begin if Assigned( RegD100.RegistroD110 ) then begin for intFor := 0 to RegD100.RegistroD110.Count - 1 do begin with RegD100.RegistroD110.Items[intFor] do begin Add( LFill('D110') + >>>>> LFill(NUN_ITEM,3) + <<<<<<< LFill(COD_ITEM ) + LFill(VL_SERV ) + LFill(VL_OUT ) ); end; /// Registros FILHOS WriteRegistroD120( RegD100.RegistroD110.Items[intFor] ); RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroD110Count := FRegistroD110Count + RegD100.RegistroD110.Count; end; end;

Estou com problemas na geração do bloco D110 de transportadoras que emitem NF de serviço serie A (quando transportam carga dentro da propria cidade, a prefeitura não aceita CTRC nem CT-e, e sim somente NF modelo 07 (serie A) ou NFS) Está gerando o registro D110 assim |D110|31121899|P0000000393|04121900|| quando deveria ficar assim |D110|001|P0000000393|04121900|| mas a estrutura do registro é: REG NUM_ITEM -> inteiro ---> estou enviando 1 COD_ITEM -> string ---> estou enviando P0000000393 VL_SERV -> currency VL_OUT -> currency já debuguei meu programa e dei display nos dados antes de enviar para o registro e estou enviando 1 no NUM_ITEM. Mas ele está jogando uma data nula (31121899) Não encontrei o erro no componente. No ACBrEFDBloco_D está assim /// Registro D110 - COMPLEMENTO DOS BILHETES (CÓDIGO 13, CÓDIGO 14 E CÓDIGO 16) mas aqui deveria ser /// Registro D110 - ITENS DO DOCUMENTO - NOTA FISCAL DE SERVICOS DE TRANSPORTE (CODIGO 07) TRegistroD110 = class private >>>>>>>>>>>>>>>estão fora de ordem fCOD_ITEM: string; fMUN_ITEM: integer; fVL_SERV: currency; fVL_OUT: currency;

[post RESOLVIDO] Isaque, está funcionando correto. Foi mineirada minha. Esqueci do Build no pacote. Obrigada.

ACBrEFDBloco_D --------------- public property COD_MOD: String read FCOD_MOD write FCOD_MOD; property SER: String read FSER write FSER; property NUM_DOC: String read FNUM_DOC write FNUM_DOC; property DT_DOC: TDateTime read FDT_DOC write FDT_DOC; property VL_DOC: currency read FVL_DOC write FVL_DOC; property VL_MERC: currency read FVL_MERC write FVL_MERC; >>>>>>>>>>// property QTD_VOL: currency read FQTD_VOL write FQTD_VOL; >>>>>>>>>> property QTD_VOL: integer read FQTD_VOL write FQTD_VOL; property PESO_BRT: currency read FPESO_BRT write FPESO_BRT; property PESO_LIQ: currency read FPESO_LIQ write FPESO_LIQ; end; TRegistroD162 = class private fCOD_MOD: String; /// Código do documento fiscal FSER: String; /// Série do documento FNUM_DOC: String; /// Numero FDT_DOC: TDateTime; /// Data de emissão FVL_DOC: currency; /// Valor total do documento fiscal FVL_MERC: currency; /// Valor das mercadorias constantes no documento fiscal >>>>>>>>>// FQTD_VOL: currency; /// Quantidade de volumes transportados >>>>>>>>> FQTD_VOL: integer; /// Quantidade de volumes transportados FPESO_BRT: currency; /// Peso bruto FPESO_LIQ: currency; /// Peso liquido ACBrEFDBloco_D_Class procedure TBloco_D.WriteRegistroD162(RegD160: TRegistroD160) ; var intFor: integer; begin if Assigned( RegD160.RegistroD162 ) then begin for intFor := 0 to RegD160.RegistroD162.Count - 1 do begin with RegD160.RegistroD162.Items[intFor] do begin Add( LFill('D162') + LFill( COD_MOD ) + LFill( SER ) + LFill( NUM_DOC ) + LFill( DT_DOC ) + LFill( VL_DOC,0,2 ) + LFill( VL_MERC,0,2 ) + >>>>>>>>>// LFill( QTD_VOL,0 ) + >>>>>>>>> LFill( QTD_VOL ) + LFill( PESO_BRT,0,2 ) + LFill( PESO_LIQ,0,2 ) ) ; end; RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroD162Count := FRegistroD162Count + RegD160.RegistroD162.Count; end; end;

Está dando o erro MSG_TIPO_CAMPO O Tipo de campo é numérico (sem decimais) Eu estou enviando inteiro = 504 mas o componente está jogando 504,00 TRegistroD162 = class private fCOD_MOD: String; /// Código do documento fiscal FSER: String; /// Série do documento FNUM_DOC: String; /// Numero FDT_DOC: TDateTime; /// Data de emissão FVL_DOC: currency; /// Valor total do documento fiscal FVL_MERC: currency; /// Valor das mercadorias constantes no documento fiscal >>>>>> FQTD_VOL: currency; /// Quantidade de volumes transportados FPESO_BRT: currency; /// Peso bruto FPESO_LIQ: currency; /// Peso liquido

Não estou conseguindo gerar corretamente o registro D162, porque dá erro de data no formato 'ddmmyyyy'. Acontece que a data está correta mas não está indo para a montagem do registro. Add( LFill('D162') + LFill( COD_MOD ) + LFill( SER ) + LFill( NUM_DOC ) + >>>>>>>>>>>>>>>>>aqui deveria ter LFill(DT_DOC) + LFill( VL_DOC,0,2 ) + LFill( VL_MERC,0,2 ) + LFill( QTD_VOL,0 ) + LFill( PESO_BRT,0,2 ) + LFill( PESO_LIQ,0,2 ) ) ;

O ACBR SPED Fiscal não está aceitando a versão 103 para movimento a partir de 01/01/2011 e o arquivo não está validando. Gerei o SPED de vários clientes de Janeiro de 2010 a Dezembro de 2010. Mas a partir de 2011, nada feito. /// Versão do Leiaute do arquivo - TRegistro0000 TACBrVersaoLeiaute = (vlVersao100, // Código 001 - Versão 100 Ato COTEPE 01/01/2008 vlVersao101, // Código 002 - Versão 101 Ato COTEPE 01/01/2009 vlVersao102, // Código 003 - Versão 102 Ato COTEPE 01/01/2010 vlVersao103 // Código 004 - Versão 103 Ato COTEPE 01/01/2011 ); onde mais teria que ser alterado? Não estou encontrando o relacionamento do vlversao102 Graça

Realmente existe esse impasse no Paraná sim. Pra resolver isso, você terá que ter 2 aplicativos: um na versão 1 e outro na versão 2.

Conforme comunicado abaixo, gostaria de saber se essa opção será desenvolvida no componente ACBrNFe ou se alguém poderia me ajudar a desenvolver uma rotina para fazê-lo. O problema é que já começaram as multas ref a NF-e sem placa e sem data de saida quando o transportador é o emitente da NFe e a operação é interestadual. Todos os meus clientes credenciados como emissores de NFe já receberam o email do SEFAZ/MG. ABRE ASPAS Prezado(a)(s), Informo que foi liberado o “Registro de Saída da NF-e”, ou seja, a funcionalidade para que o contribuinte possa informar a Data de Saída da NF-e. Esse registro poderá ser feito via WebService, como os demais serviços da NF-e, ou via SIARE. Para oficializar essa liberação foi publicado Comunicado SRE até que seja alterado o RICMS/02. Foi disponibilizado na opção “Downloads” do Portal NF-e da SEF/MG o Manual do Registro de Saída da NF-e. FECHA ASPAS