nebrio

Muito Obrigado, Juliana!

Pessoal, boa tarde! Gostaria de saber se o MonitorPLUS tem a possibilidade de após incluir os titulos na lista (BOLETO.IncluirTitulo(<arquivo>) ele nos retornar o NossoNumero dos titulos? Muito Obrigado!!!!

Tente verificar na aba WebServices a opção "Salvar Arquivos Enviados/Recebidos p/WebServices" se está marcada? Se sim veja o diretório logo abaixo.

Boa tarde! Vocês está com os schemas atualizados?

Kiko e Regys, bom dia ! Sobre o problema acima vejam: //ACBrNFe1.NotasFiscais.Items[0].GravarTXT(ChangeFileExt(ACBrNFe1.NotasFiscais.Items[0].NomeArq,'.txt'),Cmd.Params(1)); ACBrNFe1.NotasFiscais.Items[0].GravarTXT(Cmd.Params(1),ExtractFilePath(ACBrNFe1.NotasFiscais.Items[0].NomeArq)); A linha comentada é a oficial dos fontes do ACBrMonitorPLUS e a outra é a forma que eu consegui resolver pelo menos meu problema, caso seja útil para vocês ta aí a ideia da correção que usei. Testado na versão 0.3.05.2 Obrigado!!!!

Daniel e Juliomar Instalei a versão recomendada pelo Daniel do Lazarus 1.6 32bits e funcionou Muito obrigado

Pessoal, bom dia! Quando tento executar o AcbrMonitorPlus pelo Lazarus dá apenas essa mensagem: Warning: other unit files search path (aka unit path) of "ACBr_MDFe_DAMDFeRL 0.0" contains "C:\ACBR\Fontes\ACBrDFe\ACBrMDFe\DAMDFE", which belongs to package "ACBr_MDFe" mas quando vai tentar abrir o executável dá esse erro: Eror reading mResposta.MouseTextActions: Unknown property: "MouseTextActions". Uso lazarus 1.4.4 e os fontes do ACbr baixei hoje. Abraços....

Bom dia! Regys e Kiko muito obrigado.... Vou ficar no aguardo!!!!

Alguém sabe a partir de qual versão do MonitorPLus essa função está corrigida? Estou com a 0.1.12.9 e está dando o mesmo problema. NFE.NFetoTXT("D:\XML\35160202692813000115550010000070741438248896-nfe.xml","D:\XML\NotaFiscal.txt") ERRO: Erro ao salvar. Unable to open file "D:\XML\NotaFiscal.txt\D:\XML\35160202692813000115550010000070741438248896-nfe.txt" NFE.NFetoTXT("D:\XML\35160202692813000115550010000070741438248896-nfe.xml","D:\XML\NotaFiscal.txt") ERRO: Erro ao salvar. Unable to open file "D:\XML\NotaFiscal.txt\D:\XML\35160202692813000115550010000070741438248896-nfe.txt" Obrigado!

Obrigado Julio. Tinha procurado por multi empresas e aparecia algumas coisas no resultado que não me ajudavam. Mas quando pesquisei pelo NFe.LerIni já encontrei o que precisava... Muito obrigado!

Pessoal, boa tarde! Procurei no fórum mas não encontrei algo realmente explicando o assunto: Minha dúvida é o seguinte, no meu sistema (que é multi empresa) dá para usar o AcbrMonitorPlus? Preciso apenas informar o Certificado de cada empresa quando usar pelo método NFE.SetCertificado ou preciso passar mais parametros para usar dessa forma e os dados do cadastro que podem ser configurados diretamente no Monitor como ficam? Muito obrigadO!!!

Valeu Pessoal, Muito obrigado pelas informações. Estou negociando com a empresa de usarmos o MonitorPLUS (nosso projeto é em C#) e com certeza ganhariamos tempo de desenvolvimento. Se quiserem podem fechar o tópico. Obrigado.

Juliomar AcbrMonitorPlus só para usuários do SAC né? Só uma dúvida se puder, nesse caso, não tem mais atualizações do ACBrmonitor?

Não tenho o AcbrMonitor PLus só o comum. Obriado juliana.

Pessoal, uso o ACBrMonitor 0.9.14. Passo os comando abaixo e ele retorna OK. BOLETO.ConfigurarDados(C:\ACBrMonitor\Cedente.ini) BOLETO.LimparLista BOLETO.IncluirTitulos(C:\ACBrMonitor\Titulos.ini,I) OK: Porém, não imprimi o boleto. se eu passar o comando Imprimir ele retorna que a Lista está vazia BOLETO.Imprimir ERRO: Lista de Boletos está vazia Anexo estão os arquivos se alguém puder me ajudar agradeço. Não sei se postei no local correto se não for me desculpem Cedente.ini Titulos.ini

Pessoal, Estou tentando testar o Zeus NFe, mas qualquer coisa que tento fazer estoura um erro "Tipo inválido especificado". Não diz muito mais que isso.... mas o erro está estourando aqui: var cspParameters = new CspParameters(chavePrivada.CspKeyContainerInfo.ProviderType, chavePrivada.CspKeyContainerInfo.ProviderName, chavePrivada.CspKeyContainerInfo.KeyContainerName, null, senhaSegura); var rsaCsp = new RSACryptoServiceProvider(cspParameters); Se puderem me ajudar...... acho que é alguma coisa com passar essa variável null sei lá.... estou testando com certificado A1. Obrigado a todos,

Prezado, Se a empresa possuir inscrição Estadual de Substituto Tributário no Estado de Minas você informa sua inscrição de substituto tributário no referido Estado e você pode fazer uma apuração mensal, sem isso deve ser feito nota a nota. Lembre-se que com a inscrição do Estado você deverá entregar também as obrigações acessórias como GIAS/SINTEGRA...dependendo do Estado da inscrição de Substituto que você tiver.

Amigo Na tela acima, quando dá o erro de synapse.dpk, antes de clicar em Próximo, você deve clicar em Download.....para baixar os arquivos, senão a pasta está vazia, sem nenhum arquivo lá....

Putz.....cabeça de bagre mesmo...muito obrigado.....

Pessoal, estou tentando enviar evento de carta de correção e estou obtendo um ERRO: Nenhum evento adicionado ao Lote, procurei e nao achei nada alguém tem ideia do que pode ser? Abaixo o código que estou usando...(copie do syte do Regys...) Delphi 7 procedure TfrmCartaCorrecao.ToolButton9Click(Sender: TObject); var Lote : Integer; arq : String; begin pnlInfo.Visible := True; pnlTexto.Caption := 'Iniciando Envio da Carta de Correção...'; Application.ProcessMessages; arq := ExtractFilePath(Application.ExeName)+'Arquivos\NotasFiscais\Saidas\Normal\'+Trim(frmNFSaida.qryNFCHAVE.Value)+'-nfe.xml'; Lote := StrToInt(FormatDateTime('ddmmyyhhmm',now)); // preenchimento dos dados da carta de correção frmNFSaida.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := dm.cdsParamEmpresaNF_CERTIFICADO.Value; frmNFSaida.ACBrNFe1.EventoNFe.Evento.Clear; pnlTexto.Caption := 'Adicionando Correções...'; Application.ProcessMessages; frmNFSaida.ACBrNFe1.EventoNFe.idLote := Lote; qryItemCC.First; while not qryItemCC.Eof do begin with frmNFSaida.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.dhEvento := Now; infEvento.tpEvento := teCCe; InfEvento.cOrgao := StrToInt(Copy(frmNFSaida.qryNFCHAVE.Value,1,2)); // InfEvento.DescEvento := 'Carta de Correção'; InfEvento.versaoEvento := '1.0.00'; // InfEvento.tpEvento := 110110; InfEvento.tpAmb := taHomologacao; // infEvento.nSeqEvento := qryCartaCODCARTA.Value; InfEvento.detEvento.xCorrecao := 'Campo a Ser Corrigido: '+qryItemCCCAMPO.Value+' - Ref. '+qryItemCCREFERENCIA.Value+' - De: '+qryItemCCDE.Value+' - Para: '+qryItemCCPARA.Value+#13; end; qryItemCC.Next; end; // While ItemCC pnlTexto.Caption := 'Enviando...'; Application.ProcessMessages; // envio da carta de correção if ACBrNFe.EnviarEventoNFe(Lote) then begin with ACBrNFe.WebServices.EnvEvento do begin if not(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136]) then begin raise EDatabaseError.CreateFmt( 'Ocorreu o seguinte erro ao enviar a carta de correção:' + sLineBreak + 'Código:%d' + sLineBreak + 'Motivo: %s', [ EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo ]); pnlInfo.Visible := False; pnlTexto.Caption := '';; Application.ProcessMessages; end; // Se não ocorrer Erros Grava a Carta de Correção if (dm.trs.Active = False) then dm.trs.StartTransaction; with qryAlterar do begin Close; ParamByName('DATA_EVENTO').AsDate := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; ParamByName('PROTOCOLO').AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; ParamByName('SITUACAO').AsString := IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat)+' - '+EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; ParamByName('CHAVENFE').AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe; ParamByName('ORGAO').AsString := IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.cOrgao); ParamByName('LOTE').AsInteger := Lote; ExecSQL; end; dm.trs.CommitRetaining; qryCarta.Close; qryCarta.Open; pnlInfo.Visible := False; pnlTexto.Caption := '';; Application.ProcessMessages; MessageDlg('Evento de Carta de Correção Enviado com Sucesso!',mtInformation,[mbOk],0); end; end else begin with ACBrNFe.WebServices.EnvEvento do begin raise Exception.Create( 'Ocorreram erros ao enviar a Carta de Correção:' + sLineBreak + 'Lote: ' + IntToStr(EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + IntToStr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + IntToStr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo ); pnlInfo.Visible := False; pnlTexto.Caption := '';; Application.ProcessMessages; end; end; end;

Fernando, Qual o tipo de empresa? NOrmal? Simples Nacional? QUal a tributação do Pis e Cofins para a nota em questão? Não é simplesmente preencher os campos, os campos devem ser preenchidos conforme a tributação da empresa e da operação.... Existem normas técnicas que normatizam as posições e COMO os campos da NFe devem ser preenchidos.....veja o caso do tipo da sua empresa, provavelmente existe uma nota técnica explicando a situação...e o componente acompanha a legislação....

Guilherme Post o código que você usa para gerar o arquivo de remessa assim poderemos ajudar melhor.... Porém tem vários post principalmente sobre o Banco do Brasil no fórum... veja esse por exemplo

Obrigado Juliana...não sabia disso...vou testar...assim posso até tirar a configuração do sistema e deixar isso automático...

Pessoal, Estava testando o sistema para retorno do banco HSBC, não sei que parte o sistema trata a data, pois, o HSBC está me retornando uma data 00/00/00 e depois dá erro na Função StringToDateTimeDef. Para resolver provisoriamente alterei a função na Unit deixando-a como abaixo: {----------------------------------------------------------------------------- Converte uma <DateTimeString> para TDateTime, semelhante ao StrToDateTimeDef, mas verifica se o seprador da Data é compativo com o S.O., efetuando a conversão se necessário. Se não for possivel converter, retorna <DefaultValue> ---------------------------------------------------------------------------- } Function StringToDateTimeDef( const DateTimeString : String ; const DefaultValue : TDateTime; const Format : String = '' ) : TDateTime ; begin try if (DateTimeString = '00/00/00') or (DateTimeString = '00/00/0000') then Result := StringToDateTime( DateToStr(now), Format ) else Result := StringToDateTime( DateTimeString, Format ) except Result := DefaultValue ; end ; end ; Temporariamente resolvi meu problema, mas gostaria de saber como vocês tratam isso ou o HSBC de vocês não retorna nada do tipo.? Obrigado a todos,

Pessoal, boa tarde! Estou com o seguinte problema, em meu sistema tenho o CNAB informado na conta bancária pela qual eu puxo o retorno do banco, porém, no banco hsbc esse meu cliente possui dois arquivos de retorno e um é padrão 400 e outro 240. Alguém sabe se pelo arquivo eu consigo ler algo que possa ajudar eu identificar qual o modelo do arquivo? Sei lá...tentar identificar o padrão cnab antes de informar o componente qual o cnab a ser usado por ele? Atenciosamente,