nebrio

Amigo, bom dia! Vamos por parte! - É só não mandar nada no conteúdo do IndiceACBr que resolve. (Só uso o indice no caso da CEF que tem leiaute diferente ara SIGCB e SICOB) Dicas: - Quanto ao arquivo de cedente, estranho, abra seu arquivo de cedente antes de enviar e veja se ele está sendo modificado - no Print que vc enviou notei que está na página 1/8.... você está enviando o comando LimparLista? Pode ser que você esteja imprimindo um boleto já existe com informações anteriores.

Os logos ficam na pasta do ACBrMonitorPLUS veja em BOLETO > Leiaute : Diretório dos Logos para onde o seu está apontado Quanto ao pdf não sei te dizer.....

Walney, boa tarde! passe os comandos um de cada vez e espere o retorno, exemplo: BOLETO.ConfigurarDados() >>> aguarde o arquivo de sai.txt ser gerado, leia ele e se retornou OK envie o próximo comando BOLETO.IncluitTitulos() >>> aguarde o arquivo de sai.txt ser gerado, leia ele e se retornou OK envie o próximo comando BOLETO.Imprimir comigo não funcionou enviando os comandos todos de uma vez

Pessoal, bom dia! Gostaria de saber o seguinte: Atualmente meus sistemas utilizam os comandos (CriarEnviarNFeSefaz, AdicionarNFeSefaz) esses comandos usam o o arquivo no padrão gerado pelo emissor gratuito, o ACbrMonitorPlus manterá esse padrão? ou devo produrar outras Alternativas? Obrigado!!!!

Amigo, bom dia! Primeiro me desculpe pela classe, acredite não somos todos assim!!! kkk Sou Contador e no Estado de São Paulo (acredito que na maioria dos demais também) o processo que você mencionou não é tratado como devolução e sim como recusa de mercadorias, portanto, não se pode usar CFOP de devolução como 1.202, 1.201, etc.... o CFOP correto é o 1.949 ou 2.949.... Anexo tem um material caso queira se informar mais sobre o assunto... T+ comentario_22-06-2016_10-54-32.pdf

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;