Jump to content

GR7 AUTOMACÃO COMERCIAL ME

Usuários SAC
  • Content Count

    12
  • Joined

  • Last visited

Community Reputation

0 Neutral

About GR7 AUTOMACÃO COMERCIAL ME

  • Rank
    Novato

Contact Methods

  • Website URL
    http://www.gr7autocom.com.br

Profile Information

  • Sexo
    Indefinido
  • Localização
    Rua Deolinda, 134 - Ribeirão Preto-SP

Recent Profile Visitors

482 profile views
  1. 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.
  2. 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.
  3. 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
  4. Favor conferirem a espécie de documento da transação 240 junto ao manual do Bancoob, achamos que as opções para a transação 240 diferenciam da transação 400.
  5. 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;
  6. Consumidor final não tem tributação de Imposto. Não se deve informar nem ICMS e nem o percentual da alíquota. Apenas destaque no campo observação a lei da transparência informando no caso o valor do imposto, somente isso.
  7. 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.
  8. 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.
  9. 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');
  10. 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.
  11. 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
×
×
  • Create New...