-
Total de ítens
12 -
Registro em
-
Última visita
Sobre GR7 AUTOMACÃO COMERCIAL ME
Contact Methods
-
Website URL
http://www.gr7autocom.com.br
Últimos Visitantes
1.222 visualizações
GR7 AUTOMACÃO COMERCIAL ME's Achievements
-
GR7 AUTOMACÃO COMERCIAL ME started following Notícias do ACBr
-
Erro ao utilizar o ACBrMonitorPlus para emissão de CTE
um tópico no fórum postou GR7 AUTOMACÃO COMERCIAL ME ACBrMonitor PLUS
Fizemos a atualização do monitor ACBrMonitorPlus da versão antiga para a nova versão 1.1.0.27 e estamos tendo uma mensagem ao enviar um arquivo TXT para emissão co CTE pelo monitor. A mensagem é : ERRO: TDFeSSLXmlSignClass.Assinar, não implementado. Como é o monitor que faz todo o trabalho e n´s apenas geramos o TXT gostaríamos de saber como resolver este problema. -
Problemas ao imprimir CTE em PDF, erro por falha da ACBr
um tópico no fórum postou GR7 AUTOMACÃO COMERCIAL ME ACBrCTe
Boa tarde, estamos tendo um problema em Impressão do CTe em PDF, pelo qual já foi detectado por um de seus moderadores, com relação ao QUICKREPORT. Acontece que com o FORTESREPORT também está ocorrendo. Estamos passando o assunto para que corrijam e atualizem o SVN para eu nas próximas atualizações não tenhamos problemas para gerar o pdf por código: ACBrCTeDACTeRL1.PathPDF := _dirpdfgerado; ACBrCte1.Conhecimentos.Clear; ACBrCte1.Conhecimentos.LoadFromFile( _xmlprocessado ); ACBrCte1.Conhecimentos.ImprimirPDF; Surge o seguinte erro conforme a imagem em anexo mostra. Este caso também foi detectado no QUICKREPORT conforme a outra imagem mostra o moderador indicando a solução que dá certo. Para resolver o problema é como o moderador disse basta entrar nos fontes do DACTE, conforme a outra imagem mostra e também ignorar todas as mensagens sobre a propriedade ExplictWidth. Salvar e daí o DACTE é impresso no formato DANFE sem dar erros, mas se entrar no fonte novamente surge outra mensagem que não sabemos de onde vem que que mesmo salvando varias vezes ela continua. Peço a gentileza que quando detectarem um problema desse tipo em um relatório do tipo QUICKREPORT, favor verificarem nas outras plataformas também como FORTESREPORT, FASTREPORT, etc. Assim evitaram problemas futuros em seus fontes. Edmar. GR7 Automação. -
Ok Celso, segue em anexo o fonte do banco SICOOB já corridigo e as imagens de onde foram feitas as correções. Inclusive a correção fixando o CodigoMora para 1 conforme imagem anexa onde no arquivo remessa estava sainda em branco na posição, sendo que o correto é sair 1 indicando o CodigoMora de taxa diária conforme o padrão do banco. ACBrBancoBancoob.pas Erro encontrado na Definição da Espécie de Documento para gerar arquivo remessa: Aqui está correto. ================ procedure TACBrBancoob.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList); {Pegando Especie} if trim(EspecieDoc) = 'DM' then aEspecie:= '01' else if trim(EspecieDoc) = 'NP' then aEspecie:= '02' else if trim(EspecieDoc) = 'NS' then aEspecie:= '03' else if trim(EspecieDoc) = 'CS' then aEspecie:= '04' else if trim(EspecieDoc) = 'ND' then aEspecie:= '11' else if trim(EspecieDoc) = 'DS' then aEspecie:= '12' else aEspecie := EspecieDoc; Aqui esta errado. ================ function TACBrBancoob.GerarRegistroTransacao240( ACBrTitulo: TACBrTitulo): String; {Pegando especie do titulo} if EspecieDoc = 'DM' then AEspecieTitulo := '02'; Aqui corrigimos. ============== function TACBrBancoob.GerarRegistroTransacao240( ACBrTitulo: TACBrTitulo): String; {Pegando especie do titulo} if EspecieDoc = 'DM' then AEspecieTitulo := '02'; else if EspecieDoc = 'DM' then AEspecieTitulo := '03' then else AEspecieTitulo := EspecieDoc; ============================================================== ATENÇÃO.: O ACBrBancoBancoob.pas em anexo, já está corrigido. ACBrBancoBancoob.pas
-
Encontramos um erro na Unit ACBrBancoBancoob.pas
um tópico no fórum postou GR7 AUTOMACÃO COMERCIAL ME ACBrBoleto
Um de nossos clientes ao ter a necessidade de utilizar outro tipo de documento, ao gerar a remessa na transação 240 do Bancoob detectamos que as opções de Espécie de Documento constante na procedure da transação 400 não aparece por completo na procedure da transação 240 conforme mostra a rotina abaixo, dando erro ao gerar arquivo remessa com outra espécie de documento. ACBrBancoBancoob.pas Erro encontrado na Definição da Espécie de Documento para gerar arquivo remessa: Aqui está correto. ================ procedure TACBrBancoob.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList); {Pegando Especie} if trim(EspecieDoc) = 'DM' then aEspecie:= '01' else if trim(EspecieDoc) = 'NP' then aEspecie:= '02' else if trim(EspecieDoc) = 'NS' then aEspecie:= '03' else if trim(EspecieDoc) = 'CS' then aEspecie:= '04' else if trim(EspecieDoc) = 'ND' then aEspecie:= '11' else if trim(EspecieDoc) = 'DS' then aEspecie:= '12' else aEspecie := EspecieDoc; Aqui esta errado. ================ function TACBrBancoob.GerarRegistroTransacao240( ACBrTitulo: TACBrTitulo): String; {Pegando especie do titulo} if EspecieDoc = 'DM' then AEspecieTitulo := '02'; está faltando as outras opções conforme mostra no procedimento da transação 400 relacionadas aqui em baixo. ==================================================================== else if trim(EspecieDoc) = 'DM' then aEspecie:= '01' else if trim(EspecieDoc) = 'NS' then aEspecie:= '03' else if trim(EspecieDoc) = 'CS' then aEspecie:= '04' else if trim(EspecieDoc) = 'ND' then aEspecie:= '11' else if trim(EspecieDoc) = 'DS' then aEspecie:= '12' else aEspecie := EspecieDoc; -
Não estamos baixando mais os xmls pelo ACBrNfe.Download
um tópico no fórum postou GR7 AUTOMACÃO COMERCIAL ME ACBrNFe
ACBrNFe1.Configuracoes.Geral.Salvar := True; ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal; ACBrNFe1.Configuracoes.WebServices.Visualizar := False; ACBrNFe1.Configuracoes.WebServices.UF := 'SP'; ACBrNFe1.DownloadNFe.Download.tpAmb := taProducao; ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao; ACBrNFe1.DownloadNFe.Download.Chaves.Clear; ACBrNFe1.DownloadNFe.Download.CNPJ := vCNPJ; ACBrNFe1.DownloadNFe.Download.Chaves.Add.chNfe := vChave; ACBrNFe1.WebServices.DownloadNFe.Executar; Antes fazíamos normalmente utilizando a rotina acima descrita, mas agora não faz e não está retornando nenhum erro e nenhuma crítica. Alguém pode nos informar o que pode estar acontecendo? Temos vários cliente que utilizam este método para carregar os xmls. -
Cancelamento de Cupom emitido pelo SAT
GR7 AUTOMACÃO COMERCIAL ME replied to GR7 AUTOMACÃO COMERCIAL ME's tópico in ACBrSAT
obrigado mas não encontrei lá. Tem orientações do layout do cancelamento do cupom fiscal mas não informa a forma que o SPED estabelece. -
Ainda estamos tendo problemas em utilizar o ACBr para Consultar Nfes destinadas a um CNPJ. Sempre retorna que não foi encontrado nenhum processo. Observamos que outras pessoas também estão com o mesmo problema e já faz algum tempo. como temos conhecimento que outras empresas conseguem ter esse acesso de um modo rápido e que não compromete o tempo de atendimento do webservice, gostaríamos de saber se já adequaram a rotina exemplo para não precisar mais de informar a chave também e somente o CNPJ. Segue abaixo a rotina que estamos utilizando para a consulta sem sucesso. Contador := '0'; repeat if ACBrNFe1.ConsultaNFeDest(CNPJ ,StrToIndicadorNFe(ok,indNFe) ,StrToIndicadorEmissor(ok,IndEmi),UltNSu ) Then begin {lIndCont := (ACBrNFe1.WebServices.ConsNFeDest.RetornoWS, 'indCont'); if (ACBrNFe1.WebServices.ConsNFeDest.RetornoWS, 'cStat') = '138' then begin **** Aqui processo o retorno mas pelo ACBR não está havendo retorno...... end;} ggProcesso.Progress := ggProcesso.Progress + 1; if ggProcesso.Progress >= ggProcesso.MaxValue then begin lblProcesso.Font.Color := clRed; lblProcesso.Caption := 'PROCESSADO' end else begin lblProcesso.Font.Color := clBlue; lblProcesso.Caption := 'PROCESSANDO' end; Contador := ACBrNFe1.WebServices.ConsNFeDest.ultNSU; lMsg := ACBrNFe1.WebServices.ConsNFeDest.Msg; edNsu.Text := Contador; // pega o ultimo número do contador do webservice end; until (Contador = '0');
-
Alguém sabe se no cancelamento de uma venda feita pelo SAT, para atender o SPED deverá ser informado somente a chave da venda ou além da chave da venda, também informar a chave do cancelamento. Edmar.
-
Mostrar Erro No Cancelamento
um tópico no fórum postou GR7 AUTOMACÃO COMERCIAL ME NFe/NFCe - Nota Fiscal Eletrônica
Boa tarde como faço para pegar o erro no cancelamento de uma NFe usando try ... except alterei o diretório dos schemas pra provocar o erro sem o try ele mostra o erro quando executa o comando EnviarEventoNFe ... diretório de Schemas não encontrado e mostra o caminho exemplo try ACBrNFe1.EnviarEventoNFe(1); ... execpt queria que mostrasse o erro que mencionei acima, mais não sei qual o comando usar end; obrigado