Dempsey

Sim... Pode, pode-se adicionar várias NF-es em uma mesma devolução... Utilizar o código abaixo ... Ide.finNFe := fnDevolucao; qryNotasDevolvidas.Close; qryNotasDevolvidas.Open; qryNotasDevolvidas.First; while not(qryNotasDevolvidas.Eof) do begin with Ide.NFref.Add do refNFe := qryNotasDevolvidasDSC_NFE_CHAVE_ACESSO.AsString; qryNotasDevolvidas.Next; end; ...

Gostaria de saber ser as alterações feitas serão homologadas

Oi Juliana... Alterações foram homologadas pelo Banco Em anexo estou enviando a unit alterada, as correções feitas e o Layout do Banco... Deixei os códigos que inseri no mesmo padrão das outras unit's... Todas as linhas alteradas estão comentadas com o meu nome //DEMPSEY... ACBrBancoBancoob.pas Correcoes_Integracao.txt SICOOB - Layouts_para_troca_de_informações.rar ACBrBancoBancoob.pas Correcoes_Integracao.txt SICOOB - Layouts_para_troca_de_informações.rar

Sim... Fiz as alterações necessárias aqui e enviei para o banco, assim que for HOMOLOGADO pelo banco envio a unit... As alterações são estas: * Contador de registro, coluna 18 do Trailler do LOTE, está calculando errado, tem somar todas as linhas do arquivo MENOS 2 (-2), isso porque a 1ª linha e a última não contam. * Contador de registro, coluna 18 do Trailler do ARQUIVO, está calculando errado, tem somar todas as linhas do arquivo, i nclusive a 1ª linha e a última. * Valor total dos titulos não foi informado, coluna 30 no trailler do lote * No segmento S não sai as instruções de Protesto e Multa * No segmento R não sai as observações do sacado, coluna 100 a 179 * No segmento R tem q informar o valor da multa na coluna 66 (ver opção % ou R$) * No segmento R tipo de Desconto é "0" na coluna 42 * No segmento Q não está saindo a Inscrição do Sacado, coluna 154 * No segmento R não sai as observações do sacado, coluna 100 a 179 * No segmento P informar o tipo de Juros Mora ( 1, 2 ou 3), coluna 118 * No segmento P criar opções para informar quem fazerá EMISSÃO e DISTRIBUIÇÃO, coluna 61 e 62

Contador de registro, coluna 18 do Trailler do LOTE, está calculando errado no TACBrBancoob.GerarRegistroTrailler240(ARemessa: TStringList): String; A partir da linha 930 está asim: function TACBrBancoob.GerarRegistroTrailler240( ARemessa: TStringList): String; begin {REGISTRO TRAILER DO LOTE} Result:= IntToStrZero(ACBrBanco.Numero, 3) + //Código do banco '0001' + //Número do lote '5' + //Tipo do registro: Registro trailer do lote Space(9) + //Uso exclusivo FEBRABAN/CNAB IntToStrZero((3 * ARemessa.Count-1), 6) + //Quantidade de Registro da Remessa ... Deveria ser assim: function TACBrBancoob.GerarRegistroTrailler240( ARemessa: TStringList): String; var wQTDTitulos: Integer; begin wQTDTitulos := ARemessa.Count - 1; {REGISTRO TRAILER DO LOTE} Result:= IntToStrZero(ACBrBanco.Numero, 3) + //Código do banco '0001' + //Número do lote '5' + //Tipo do registro: Registro trailer do lote Space(9) + //Uso exclusivo FEBRABAN/CNAB IntToStrZero((4 * wQTDTitulos + 2), 6) + //Quantidade de Registro da Remessa ... Deixei em verde o que foi INSERIDO ou ALTERADO

Vdd ... Desatenção minha... alterei o servidor para o SVC-AN e funcionou... Aterei estas duas linhas: ACBrNFe.Configuracoes.Geral.FormaEmissao := teSVCAN; Ide.tpEmis := teSVCAN;

Esta retornando rejeição "The Resource Cannot Be Found" quando envio um NFe por Contigência SCAN.... Meu código esta abaixo e o xml está anexado... Alguém??? Obrigado desde jah ACBrNFe.NotasFiscais.Clear; with ACBrNFe.NotasFiscais.Add.NFe do begin ... ACBrNFe.Configuracoes.Geral.FormaEmissao := teSCAN; Ide.serie := 900; Ide.tpEmis := teSCAN; Ide.dhCont := Now; Ide.xJust := 'SERVIDOR DA SEFAZ DE MINAS GERAIS ESTÁ EM MANUTENÇÃO'; ... end; 31150415395232000163559000000000213137530920-nfe.xml 31150415395232000163559000000000213137530920-nfe.xml

SISCON, verificou se a NFe referenciada (52150320005614000173550010000000321000000321) se encontra da base de dados da Sefaz?

Também estava com este problema... Código funcionou perfeito pra mim também... Obrigado windsoft

Desculpe.... É que pra deixar de melhor compreensão aqui no fórum, eu peguei o meu código e tive que fazer uma alterações nele e acabei colocando o comentário errado, eh um CANCELAMENTO mesmo... Estou anexando o código de novo... Com alguns comentários... Não estou conseguindo anexar... "O servidor se comportou de maneira inesperada durante o envio" Editei o post com as correções... abraços

Consegui aqui... Meu código ficou do jeito que postei acima com as devidas melhorias... Se ainda não teve solução ClaudioCosta, creio que servirá pra vc também... Abraços... Obrigado Ítalo

procedure TfrmTransporteManifesto.sbtCancelarMDFeClick(Sender: TObject); var lRetorno: string; lNumeroLote: Integer; begin if ACBrMDFe.Configuracoes.Certificados.NumeroSerie = '' then SerieCertificado := ACBrMDFe.Configuracoes.Certificados.SelecionarCertificado; //numero do lote de envio (somente um exemplo, pode-se utilizar seu proprio controle) lNumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); //Carregar o xml do manifesto ACBrMDFe.Manifestos.Clear; ACBrMDFe.EventoMDFe.Evento.Clear; //Carreto um XML qualquer - Depois envio a Chave e o protocolo do MDFe que desejo CANCELAR if not ACBrMDFe.Manifestos.LoadFromFile(lPastaXml + 'MDFeXML\' + qryMestreDSC_MDFE_CHAVE_ACESSO.AsString + '-MDFe.xml') then raise Exception.Create('Não foi possível carregar o XML do manifesto correspondente!'); qryEmpresa.Locate('COD_EMPRESA', qryMestreFKY_EMPRESA.AsInteger, []); if Assigned(ACBrMDFe.Manifestos.Items[0]) then begin with ACBrMDFe.EventoMDFe.Evento.Add do begin infEvento.chMDFe := '31150315395232000163580010000000061000000012'; //Informo aqui a Chave de Acesso da MDFe a ser CANCELADA infEvento.CNPJ := qryEmpresaDSC_CPF_CNPJ.AsString; //Informo aqui o CNPJ da empresa Emitente infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.nSeqEvento := 1; infEvento.detEvento.xJust := 'Teste de cancelamento de mdfe'; //Informo aqui a Justificativa do CANCELAMENTO infEvento.detEvento.nProt := '931150000006128'; //Informo aqui o protocolo da MDFe e ser CANCELADA end; ACBrMDFe.EnviarEventoMDFe(lNumeroLote); lRetorno := '[[[ Cancelamento da MDFe ]]]' + chr(13); lRetorno := lRetorno + UTF8Encode(ACBrMDFe.WebServices.EnvEvento.RetWS); ShowMessage(lRetorno); //Cancelada end; end;

Eu utilizo o Delphi 2010 e não tenho problemas nas atualizações do Acbr, que faço quase toda semana....

Olá Ítalo, Como eh feito no emissor gratuito que a Sefaz disponibiliza, gostaria de ter uma opção para Cancelar ou Encerrar uma MDF-e através apenas do Protocolo e da Chave de Acesso... Teria como pelo ACBrMDFe???

Olá Pedro... O seu código pra devolução está igual ao meu, e não estou tendo problema.... Verifique a tag da versão da NFe está no 3.1: ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; E veja se o caminho do Schemas está com com caminho dos schemas da NFe 3.1 e se estes schemas está atualizados ACBrNFe1.Configuracoes.Geral.PathSchemas := gPastaXml + 'NFeSchemas\V310';​

Opa... blz.... Teste com este Danfe que anexei NotaFiscalEletronica.rar

Se for NFCe bastaria mudar ModeloDF=moNFE para ModeloDF=moNFCE ? Sim Essa chave pode ser substituida pelo numero da nota ? Não... Vc tem que enviar a chave de acesso da nota de entrada devolvida Qual grupo você informou o Tipo=NFe ? with ACBrNFe.NotasFiscais.Add.NFe do begin ... Ide.tpNF := tnSaida; .. end;

Opa... Eu utilizo o AcbrNFe pra puxar a IE. var lCnpj: String; begin ACBrNFe1.Configuracoes.WebServices.UF := 'MG'; ACBrNFe1.WebServices.ConsultaCadastro.UF := 'MG'; ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := '14.757.209/0001-09'; ACBrNFe1.WebServices.ConsultaCadastro.Executar; lCnpj := ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].IE; ... end;

Sim.. Funcionou 100%

Bom dia Italo Jurisato Junior, Anexei no post anterior um txt anexo, com a alteração que fiz e gostaria de saber se precisa e se vão atualizar os fontes.... Grato pela atenção... Obrigado pela dica Carlos Tre , estava obvio mesmo, e espero que te ajude ai juniorguillen...

Adicionei todos os eventos ao pcnEventoNFe.getDescEvento e funcionou... Estava ocorrendo erro no evento teRegistroCTe que não estava encontrando... Anexo.txt

Estou com o mesmo problema... conseguiu a solução Junior???

Olá... Vocês irão atualizar os fontes com esta sugestão do tipo 'Outros' do ViniciusPacchioni ???

Alterado a posição e o problema foi corrigido... bom q fico experto da próxima agora... Tive um problema q corrigi seguindo as dicas do arquivo "Property_Does Not Exist.txt"... Imprimiu corretamente agora... inclusive com o Quick não aconteceu os erros da acentuação e a relação de documentos apareceram também.. Fico muito agradecido e aproveito para deixar aqui os meus mais profundos agradecimentos ao trabalho de vocês, e que em breve terei condições de ajudar financeiramente o excelente trabalho que fazem... Obrigado Ítalo e Juliomar

Utilizo o Delphi 2010 e instalei a versão 5.04.2 do QuickReport...