dionatan

Realmente estava desatualizado... Porém agora esta dando erro em outra linha: Unit: ACBRCteUTIL.pas na mesma função function ValidaModalMSXML(XML: AnsiString; out Msg: AnsiString; const APathSchemas: string = ''): Boolean; onde ele testa: case Tipo of 1: begin Schema.add('http://www.portalfiscal.inf.br/cte' DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas), PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\', PathWithDelim(APathSchemas))+'cteModalAereo_v' + CTeModalAereo + '.xsd'); end; 2: begin Schema.add('http://www.portalfiscal.inf.br/cte' DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas), PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\', PathWithDelim(APathSchemas))+'cteModalAquaviario_v' + CTeModalAqua + '.xsd'); end; 3: begin Schema.add('http://www.portalfiscal.inf.br/cte' DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas), PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\', PathWithDelim(APathSchemas))+'cteModalDutoviario_v' + CTeModalDuto + '.xsd'); end; 4: begin Schema.add('http://www.portalfiscal.inf.br/cte' DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas), PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\', PathWithDelim(APathSchemas))+'cteModalFerroviario_v' + CTeModalFerro + '.xsd'); end; 5: begin Schema.add('http://www.portalfiscal.inf.br/cte' DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas), PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\', PathWithDelim(APathSchemas))+'cteModalRodoviario_v' + CTeModalRodo + '.xsd'); end; 6: begin Schema.add('http://www.portalfiscal.inf.br/cte' DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas), PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\', PathWithDelim(APathSchemas))+'cteMultiModal_v' + CTeMultiModal + '.xsd'); end; 7: begin Schema.add('http://www.portalfiscal.inf.br/cte' DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas), PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\', PathWithDelim(APathSchemas))+'evEPECCTe_v' + CTeEventoCTe + '.xsd'); end; 8: begin Schema.add('http://www.portalfiscal.inf.br/cte' DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas), PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\', PathWithDelim(APathSchemas))+'evCancCTe_v' + CTeEventoCTe + '.xsd'); end; 9: begin Schema.add('http://www.portalfiscal.inf.br/cte' DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas), PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\', PathWithDelim(APathSchemas))+'evMultimodal_v' + CTeEventoCTe + '.xsd'); end; 10: begin Schema.add('http://www.portalfiscal.inf.br/cte' DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas), PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\', PathWithDelim(APathSchemas))+'evCCeCTe_v' + CTeEventoCTe + '.xsd'); end; end; Nesse caso o tipo foi 10, mas quando ele da o add esta dando o erro: "The system cannot locate the object specified"

Italo mesmo assim deu erro: Veriiquei que na unit ACBRCTEUtil na função: function ValidaModalMSXML(XML: AnsiString; out Msg: AnsiString; const APathSchemas: string = ''): Boolean; Tem o seguinte comando: XML := SeparaDados( XML, 'infModal' ); So que na variável xml não possuo realmente: if pos( '<rodo>', XML) <> 0 then begin Tipo := 5; XML := SeparaDados( XML, 'rodo' ); XML := '<rodo xmlns="http://www.portalfiscal.inf.br/cte">' + XML + '</rodo>'; end; Resultando no erro: if Tipo = 0 then raise Exception.Create('Modal não encontrado no XML.'); Como eu poderia resolver esse problema: em anexo o conteúdo da variável XML arquivo.xml

Italo conforme NT 2013/006 pagina 88 5.4 Evento Carta de Correção Função: evento com objetivo de corrigir as informações do CT-e O evento será utilizado pelo contribuinte e o alcance das alterações permitidas é definido no art. 58-B do CONVENIO SINIEF 06/89, que transcrevemos a seguir: “Art. 58-B Fica permitida a utilização de carta de correção, para regularização de erro ocorrido na emissão de documentos fiscais relativos à prestação de serviço de transporte, desde que o erro não esteja relacionado com: I - as variáveis que determinam o valor do imposto tais como: base de cálculo, alíquota, diferença de preço, quantidade, valor da prestação; II - a correção de dados cadastrais que implique mudança do emitente, tomador, remetente ou do destinatário; III - a data de emissão ou de saída.” O registro de uma nova Carta de Correção substitui a Carta de Correção anterior, assim a nova Carta de Correção deve conter todas as correções a serem consideradas. Autor do Evento: O autor do evento é o emissor do CT-e. A mensagem XML do evento será assinada com o certificado digital que tenha o CNPJ base do Emissor do CT-e. Código do Tipo de Evento: 110110 (Este Evento exige CT-e autorizado) Leiaute Mensagem do evento Carta de Correção Fiquei com duvida na implementação, pois estou enviando apenas assim: ACBrCTe.EventoCTe.Evento.Clear; ACBrCTe.EventoCTe.idLote := StrToInt(idLote); with ACBrCTe.EventoCTe.Evento.Add do begin infEvento.chCTe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.detEvento.xJust := Correcao; end; ACBrCTe.EnviarEventoCTe(StrToInt(idLote)); Porem me da erro dizendo que não foi informado o MODAL.. Bom fui olhar a implementação no componente no procedimento procedure TWebServicesBase.DoCTeEnvEvento da unit WebServices contem o seguinte: teCCe: begin for j := 0 to TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.Count-1 do begin with EventoCTe.Evento.InfEvento.detEvento.infCorrecao.Add do begin grupoAlterado := TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.grupoAlterado; campoAlterado := TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.campoAlterado; valorAlterado := TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.valorAlterado; nroItemAlterado := TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.nroItemAlterado; nroItemAlterado := TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.nroItemAlterado; end; end; end; Pergunta: como seria a implementação destes grupos e valores do "infCorrecao" ? Desculpe, não entendi muito bem..... Att Dionatan

Boa Tarde Juliomar... Eu não consigo o debug pois nao possuo a impressora, como e uma padaria esta la no cliente.... e dificilmente vou conseguir retirar de la? Pior que ja é a 10 vez que envio email para o pessoal da ELGIN e ninguém me reponde..... E um descaso total..... Definitivamente não indico ELGIN... Pior que o escritório esta pressionando para a entrega do arquivo....

Pessoal alguem ja começou a implementação? Ja tem algo pronto??? Att

Ele abre o sistema e a tela normalmente... O erro ocoorre quando e executado: FrmPrincipal.ACBrECF1.PafMF_MFD_Cotepe1704(DateEdit1.Date, DateEdit2.Date, FrmPrincipal.DirectoryEdit1.Text + '\Arquivo.txt')

Pior que esta dando erro no meu sistetema e no ecfteste o mesmo erro.... ja coloquei as dll na system32 e nada.... sera que tenho que resgistrar alguma dll?

Também estou passando pela mesma dificuldade.. peguei as dll da pasta ACBR\DLLs\ECF\elgin atualizadas... e esta dando o mesmo erro ... pior que nao obtive sucesso com o pessoal da ELGIN ja encaminhei email e nada... Alguem conseguiu resolver? Att acbrlog.txt

Ok ...... e como voces estao fazendo para baixar estes XML? ou nao estao baixando mais?

Bom dia Pessoal, eu tinha aquele exemplo do ACBR de Recuperação do XML, porém nas atualizações que vi nao tem mais.... Pergunto isso pois aquele exemplo era bom para recuperar os arquivos das nfe ... Porem de uns dias pra ca simplesmente nao baixa mais os arquivos... queria saber se alguem usa aquele exemplo ou se substitui por outro componente ?

Italo PESO BRUTO (Kg) PESO BASE CÁLC. (Kg) como eu faco para aparecer no CTE? Hoje eu preencho assim: with infCarga.InfQ.Add do begin cUnid := uKg; tpMed := 'Kg'; qCarga := CurrencyEdit12.Value; end; with infCarga.InfQ.Add do begin cUnid := uUnidade; tpMed := 'UN'; qCarga := CurrencyEdit13.Value; end; with infCarga.InfQ.Add do begin cUnid := uM3; tpMed := 'M3'; qCarga := CurrencyEdit21.Value; end;

Pessoal instalei o sistema em um cliente que possui uma impressora Bematech MP 4000 porem quando mando imprimir um relatório gerencial esta dando erro sempre de ack... Segue o log do acbr... Tenho em vários clientes mas esta dando erro somente neste.. Att acbrlog.txt

Bahhh eu também queria saber como funciona ... tenho vários clientes me solicitando isso.... So para complementar peguei este layout no site do BB... Doc8118DBT627.pdf

Altere o BAUND da impressora... SerialParams=BAUD=115200 HANDSHAKE=RTS/CTS HARDFLOW

Bom dia, Pelo que sei a CAT52 foi feito apenas para o estado de São Paulo... O Correto você deveria de usar o ACBrECF1.PafMF_MFD_Cotepe1704... Outra coisa você tem todas as dll do fabricante atualizadas para a geração destes arquivos? Geralmente as DLLs estão desatualizadas, pelo menos foi estes problemas que tive em certos clientes... Espero ter ajudado.... Obs: Verificou o modelo da impressora se a versão e aceita para a geração do arquivo? Att Dionatan

Sim sim segue o link: http://bit.ly/10oartG ou http://www.desenvolvedoresdaruma.com.br/home/index.php dae e so clicar no link: DarumaFramework.dll 32 Bits (Utilize a DarumaFramework.dll 32 Bits para comunicação de alto nível com o ECF no Windows) Estava com problema com a Bematech tambem e atualizei as DLL e funciounou 100% http://partners.bematech.com.br/suporte-recursos/downloads/

Beleza Regis entrei em contato com o pessoal da DARUMA que por sua vez mostrou uma eficiência de dar inveja (sem propagandas)... As DLL que estao na pasta DLLs estão desatualizadas... o Suporte la me passou os links das novas dll e funcionou 100% valeu... Att

Boa Tarde... Pessoal fui Gerar o arquivo da NFG atraves do procedimento: ACBrECF1.PafMF_MFD_Cotepe1704 ate ai beleza... gerou o arquivo tranquilo.. porem ao validar da erro na linha 2 dizendo que o campo Inscrição Estadual possui valor não numerico.. abri o arquivo e la realmente possuia uma contra barra "\" na inscrição.... Para poder transmitir o arquivo retirei aquela barra e coloquei no final do campo um caracter em branco.... dae validou e consegui transmitir... tem como retirar essa contra barra para nao dar mais esse problema? Obs: Uso Daruma FS 700... aTT

Cara mas nao estou encontrando essa propriedade do componente ACBrECF.ModeloECF

ecfFiscNET try ACBrECF1.Modelo := TACBrECFModelo(cbxModelo.ItemIndex); except cbxModelo.ItemIndex := Integer(ACBrECF1.Modelo); raise; end;

Exatamente Regis .. Modelo da Impressora URANO URANO/1FIT LOGGER Versão: 03.03.04

Não entendi o que meu amigo Isaque quiz dizer que tenho que tratat dentro do meu sisema.... Pois eu so coloco a tag e o componente mesmo formata com ---------------------------------- ou ===================== O modelo e FiscNet para Impressora Urano... Pois se coloco o modelo urano não funciona Imprimi um relatorio Gerencial na Urano com a formatação Simples que tem 48 colunas porem o componente insere 57 caracteres de = e 57 caracteres de - ou seja 48 linha de cima e 9 na linha de baixo.... Att

Bom dia, Estou emitindo um Relatorio Gerencial com formatação: Arq.Add('<linha_simples>'); Texto Arq.Add('</linha_simples>'); Arq.Add('<linha_dupla>'); Texto Arq.Add('</linha_dupla>'); Bom ate ai tudo bem porem na impressora Urano o numero de colunas e menor acarretando uma quebra de linha... Teria como efetuar uma correção neste procedimento.... Pois nas impressoras Daruma, Bematech esta correto pois temos 48 colunas... Att

Bom dia pessoal estou usando o ACBRECF com uma impressora urano.... Porem quando vou fazer uma sangria. suprimento ou registrar qualquer item esta dando o erro: Erro: 8089 - ErroCMDDataInvalida Data solicitada inexistente. {129;8089;NomeErro="ErroCMDDataInvalida" Circunstancia="Data solicitada inexistente.";85} O que poderia ser? Como posso ajustar? Att - + - + - + - + - + - + - + - + - + - + - + -

Obrigado Daniel.....