edulamy

Desconsiderar, estava guardando a chave da CT-e com um numero menor de caracteres.

Eder, você não esta enviando o xml como evento, a rotina de cancelamento não funciona mais na versão 2.0

Estou um problema na validação do Schema, abaixo o trecho de codigo: ACBrCTe1.EventoCTe.Evento.Clear; with ACBrCTe1.EventoCTe.Evento.Add do begin InfEvento.tpEvento := teCancelamento; InfEvento.chCTe := qEnviadasCHAVE_CTE.AsString; InfEvento.dhEvento := now; InfEvento.nSeqEvento := 1; //InfEvento.DescEvento := 'Cancelamento'; InfEvento.detEvento.xJust := Justificativa; InfEvento.detEvento.xCondUso := ''; infEvento.CNPJ := fproc.RemoveChar(DmConexao.tbl_empresaCGC.AsString); infEvento.cOrgao := FProc.UFparaCodigo(dmConexao.tbl_empresaCOD_UF.Asstring); infEvento.detEvento.nProt := qEnviadasPROTOCOLO_CTE.AsString; end;

este cupom fiscal possui uma chave, será que se enviar como NF-e dará problema, vi que na opção outros não tem como enviar a chave. Estou aguardando ele me enviar o XML gerado pelo sistema antigo, para saber como ele gera esta informação.

Boa tarde, Alguem poderia me auxiliar com esta questão, possuo um cliente que transporta produtos mas o tomador utiliza cupom fiscal ao invés de nota fiscal eletronica, como esta deve ser identificada no conhecimento eletronico?

Bom dia, Atualizei o componente para a versão 2.0 e esta apresentando erro no locRet, ja fiz as adequações para o funcionamento, porem este ainda esta apresentando erro. Ele esta dentro de with infCTeNorm.infDoc.infNF.Add do. O que pode estar errado ou esta informação não existe mais na versão 2.0? with infCTeNorm.infDoc.infNF.Add do begin nRoma := QryCtrcItemNUM_ROMANEIO.AsString; nPed := QryCtrcItemNUM_PEDIDO.AsString; serie := QryCtrcItemSERIE.AsString; nDoc := QryCtrcItemNOTA_FISCAL.AsString; dEmi := QryCtrcItemDATA.AsDateTime; vBC := RoundTo(QryCtrcItemVAL_BASE_ICMS.AsFloat, -2); vICMS := RoundTo(QryCtrcItemVAL_ICMS.AsFloat, -2); vBCST := RoundTo(QryCtrcItemVAL_BASE_ICMSST.AsFloat, -2); vST := RoundTo(QryCtrcItemVAL_ICMSST.AsFloat, -2); vProd := RoundTo(QryCtrcItemVLR_PRODUTO.AsFloat, -2); vNF := RoundTo(QryCtrcItemVAL_NF.AsFloat, -2); nCFOP := QryCtrcItemCFOP.AsInteger; nPeso := RoundTo(QryCtrcItemPESO.AsFloat, -2); PIN := QryCtrcItemPIN_SAFRAMA.AsString; // Local de Retirada if trim(QryPrincipalCNPJ_REMETENTE.AsString)<>'' then begin locRet.CNPJCPF := FProc.RemoveChar(QryPrincipalCNPJ_REMETENTE.AsString); locRet.xNome:=copy(QryPrincipalRAZAO_REMETENTE.AsString,1,60); locRet.xLgr:=QryPrincipalEND_REMETENTE.AsString; if (trim(QryPrincipalNumero.AsString)<>'') then locRet.nro:=QryPrincipalNumero.AsString else locRet.nro:='S/N'; locRet.xCpl:=QryPrincipalComplemento.AsString; locRet.xBairro:=QryPrincipalBairro.AsString; CodigoMunicipio:= FProc.ObterCodigoMunicipio(QryPrincipalMUN_REMETENTE.AsString, QryPrincipalUF_REMETENTE.AsString); locRet.cMun:=CodigoMunicipio; locRet.xMun:=QryPrincipalMUN_REMETENTE.AsString; locRet.UF:=QryPrincipalUF_REMETENTE.AsString; end; end;

Ok, ja estou me localizando, no caso é o bloco D100(este tem o identificador se é tomador ou prestador), D190... Obrigado!!!

Estou procurando na net e encontrei este documento, deve ser referente a isso que estou falando: http://www1.receita.fazenda.gov.br/sistemas/sped-fiscal/download/GUIA_PRATICO_DA_EFD-Versao2.0.12.pdf Existe no componente o objeto para geração deste arquivo? Tem a ver com o Sintegra?

A duvida é que eles não emitem NF, pois a propria CT-e e a "NF" deles e nela é apenas descontado o ICMS. Vou tentar me comunicar com o contador deles, pois sou de SP e ele em ES. Obrigado por enquanto. Por favor não encerrar o topico pois vou verificar as informações e repassar por aqui.

Recebi este comunicado: Olá CONTRIBUINTE do ICMS no ES. De acordo com o Art. 758-A do RICMS/ES e com a revogação da Portaria 05-R/2012 pela Portaria 06-R/2013, a partir de 01/01/2014 todos os contribuintes do ICMS no ES, exceto aqueles optantes pelo Simples Nacional, estão obrigados à Escrituração Fiscal Digital – EFD. A partir dessa obrigatoriedade ficam vedadas as escriturações fiscais em papel dos livros registros de Entradas, Saídas, Apuração do ICMS, Apuração IPI, Inventário e do CIAP. Em anexo o pdf original. Como devo proceder para gerar este arquivo, podem me dar uma luz? Obrigado! Comunicado - Obrigatoriedade EFD - 01-01-14.pdf

Isso, pois não tem o bloco D200 para incluir as informações referente ao CT-e, pois no Espirito Santo toda empresa que for tributada o ICMS é obrigada a fazer EFD, e como é uma transportadora, precisa informar o bloco D200 pois ela é a prestadora de serviço. O componente tem apenas o bloco D100 que é referente ao tomador de serviço.

Estou desenvolvendo uma rotina para geração do arquivo para o Sped EFD para prestação de serviço de transporte de cargas, referente ao ICMS, para Conhecimento de Transporte Eletrônico, procurei no exemplo e no componente mas este não possui o bloco D200. Alguém teria um exemplo de quais os blocos que devem ser enviados nos arquivos ou algum exemplo do arquivo gerado? @edulamy [email protected] REGISTRO D200: RESUMO DA ESCRITURAÇÃO DIÁRIA – PRESTAÇÃO DE SERVIÇOS DE TRANSPORTE - NOTA FISCAL DE SERVIÇO DE TRANSPORTE (CÓDIGO 07) E CONHECIMENTOS DE TRANSPORTE RODOVIÁRIO DE CARGAS (CÓDIGO 08), CONHECIMENTO DE TRANSPORTE DE CARGAS AVULSO (CÓDIGO 8B), AQUAVIÁRIO DE CARGAS (CÓDIGO 09), AÉREO (CÓDIGO 10), FERROVIÁRIO DE CARGAS (CÓDIGO 11), MULTIMODAL DE CARGAS (CÓDIGO 26), NOTA FISCAL DE TRANSPORTE FERROVIÁRIO DE CARGA (CÓDIGO 27) E CONHECIMENTO DE TRANSPORTE ELETRÔNICO – CT-e (CÓDIGO 57).

Mas o bloco D não possui item 200, como deve-se proceder? LeoSlander, você teria um exemplo de quais os blocos que devem ser enviados nos arquivos ou algum exemplo do arquivo gerado? @edulamy [email protected]

Bom dia a todos, Ontem participei de um curso para apresentação e explicação do eSocial ministrado por um consultor da Ford do Brasil, que participa do piloto do projeto junto com outras empresas de grande porte. O inicio do envio dos arquivos XML, inspirado na NFE, terá inicio em Jan/2014, no inicio a obrigatoriedade do envio das informações via eSocial será feito por faixas de faturamento da empresa, pois querem testar primeiro com grandes movimentações e com tudo homologado, iram iniciar com as pequenas, pode existir uma prorrogação neste prazo, mas é algo que eles não querem que aconteça. A SEFIP/GFIP será extinta em Jul/2014. O Manual atual de integração esta na versão 1.00, porem já esta pronta a versão 1.01 que esta sendo homologada antes de ser liberada para o usuario final, estão fazendo isso pois alguns dados estavam sendo obrigatorios e viram que no mundo real isso não ocorreria. Tendo mais algumas novidades vou contribuindo. http://www.esocial.gov.br/doc/Manual%20de%20Orientacao%20do%20eSocial%20_%20versao%201.0.pdf

No exemplo não ocorre o problema não sei dizer se o problema é a quantidade de registros, no exemplo eu utilizo apenas um registro e no meu sistema são mais de 2000.

Vou verificar. e posto o resultado.

Bom dia, Estou com problema na geração do arquivo, pois estou utilizando os registros 70/71, dentro da função LimpaRegistros existem dois comandos FRegistros70.Clear e FRegistros71.Clear, quando o sistema passa for essas funções causa access violation, comentei as duas e quando eu fecho o Form é a apresentada a seguinte mensagem de erro: Access violation at address 00000100. Read of address 00000100. Estou utilizando o comando Action := caFree; no OnClose do Form.

Era esse um dos problemas... obrigado!! pode encerrar o topico

Ok, obrigado, vou verificar, mas acredito que não deveriam estar com valor negativo.

Boa tarde, Esta ocorrendo o seguinte problema, no meu sistema eu gero o conteudo XML e armazeno no banco dados para posterior envio. Após dar um loadofstream do conteudo armazenado para o componente acbrnfe é mantido o primeiro item da NF e os demais são ignorados e tambem os valores referentes aos totais de produtos, transportadora, NF, Base ICMS, etc. No caso é uma NF de importação (entrada). O cliente esta com a mercadoria para retirar na alfandega e não consigo fazer a emissao da NF-e. o que pode estar acontecendo? Segue os XML gerados pelo sistema Original - Gerado pelo componente e guardado no BD Modificado - Gerado pelo sistema tambem, porem não sei se o problema esta na assinatura ou na validação, assina o xml porem modifica o conteudo do arquivo. não sei mais o que fazer. XML Original.xml XML Modificado.xml

nao entendi, onde vejo isso?

Estou como mesmo problema, se alguem conseguiu resolver por favor me passe a solução.

Desculpa sou meio leigo no componente, poderia dar um exemplo?

Daniel, obrigado pela rapida resposta. Mas meu problema não é o avanço, pois o usuario faz isso pelo botão feed para retirar a etiqueta, o problema é que quando ele vai imprimir uma nova ele começa de onde parou a etiqeuta depois do feed e ai acaba perdendo uma etiqueta, existe algum comando para fazer o return da etiqueta para a posição de impressão?

Estou usando este comando para fazer a impressão da etiqueta em uma Argox: with ACBrETQ1 do begin Modelo := etqPpla; Porta := 'LPT1'; LimparMemoria := true ; Ativar; {ImprimirTexto(orNormal, 2, 1, 1, 201, 30, 'Nome: '+RemoveAcento(dmMain.qPacienteNOME_PACIENTE.asstring)); ImprimirTexto(orNormal, 2, 1, 1, 151, 30, 'RG: '+RemoveAcento(dmMain.qPacienteRG_NUMERO.asstring)+' CPF: '+FormatMaskText('999.999.999-99;0;_', dmMain.qPacienteCPF.asstring)); ImprimirTexto(orNormal, 2, 1, 1, 101, 30, 'Unidade: '+DBEdit4.Text); ImprimirTexto(orNormal, 2, 1, 1, 50, 30, 'Especialidade: '+cxDBLookupComboBox1.Text); ImprimirTexto(orNormal, 1, 1, 1, 10, 30, DBEdit1.Text+' '+cxDBMaskEdit1.Text);} ImprimirTexto(orNormal, 2, 1, 1, 401, 30, 'Data : '+DBEdit1.Text+' Hora: '+cxDBMaskEdit1.Text); ImprimirTexto(orNormal, 2, 1, 1, 351, 30, 'Nome : '+sNome); ImprimirTexto(orNormal, 2, 1, 1, 301, 30, 'RG : '+sRG); ImprimirTexto(orNormal, 2, 1, 1, 251, 30, sMae); ImprimirTexto(orNormal, 2, 1, 1, 201, 30, 'End. : '+copy(sEndereco,1,44)); ImprimirTexto(orNormal, 2, 1, 1, 151, 30, 'CEP : '+sCEP); ImprimirTexto(orNormal, 2, 1, 1, 101, 30, 'Orig.: '+cxDBLookupComboBox3.Text+' - '+RemoveAcento(DBEdit2.Text)); ImprimirTexto(orNormal, 2, 1, 1, 51, 30, 'Enc. : '+cxDBLookupComboBox2.Text+' - '+RemoveAcento(DBEdit4.Text)); ImprimirTexto(orNormal, 2, 1, 1, 1, 30, 'Esp. : '+cxDBLookupComboBox4.Text+' - '+RemoveAcento(cxDBLookupComboBox1.Text)); //ImprimirBarras(orNormal, 'F', '2', '2', 32, 0, '7896003701685', 90); Imprimir(StrToInt64Def(RemoveChar(cQt),1), StrToInt('0')); Desativar; end; A duvida é a seguinte: Como faço para a etiqueta voltar ao lugar correto para a proxima impressão, porque ela respeita a impressão, mas quando o usuario termina de fazer a impressão da etiqueta ele destaca a etiqueta, só que para ele voltar a etiqueta no lugar correto da proxima impressão ou ele perde uma etiqueta ou tem que fazer manualmente, o que é necessario abrir a impressora, soltar o ribbon, etc. O que posso fazer para corrigir isso?