vinizioWOW

Olá pessoal, Confirma se meu raciocínio está correto: Dest.indIEDest := inNaoContribuinte; // Quando for pessoa física Dest.indIEDest := inIsento // Quando for pessoa jurídica porém isento, exemplo autarquias públicas, entidades filantrópicas, etc. Dest.indIEDest := inContribuinte; // pessoa jurídica normal. Grato pela ajuda.

Boa tarde, Somente integração.

Bom dia, Temos uma aplicação Android que se conecta à um servidor DataSNAP+MySQL. Estamos tendo um problema quando é necessário reiniciar o servidor DataSNAP por algum motivo, tipo atualização, etc. Se o servidor for reiniciado e a aplicação Android já tiver se conectado a ele anteriormente, quando ela tenta se conectar novamente aparece a seguinte mensagem de erro: Connection Closed GraceFully. Aí tem que ficar fechando e abrindo a aplicação Android. Alguém sabe como resolver este problema? Grato pela atenção. Atenciosamente: Vinício.

Excelente oportunidade! Dispomos de aplicativo de Força de Vendas para Android desenvolvido em Delphi com integração por TXT. Aplicação já rodando em produção em diversos clientes e com excelentes resultados. Preços e condições especiais para parceiros programadores. Link da aplicação na Google Play: https://play.google.com/store/apps/details?id=com.logus.EficazMobile&hl=pt_BR Entre em contato conosco!

Boa tarde, somos da empresa Logus Informática. Temos aplicativo PAF-ECF homologado que pode tranquilamente atender sua demanda. Inclusive no que tange aos recursos da Farmácia popular. Favor enviar os dados para contato para que possamos conversar melhor. Grato. Wagner Quirino [email protected] Celular: 37 9946 2704 Skype: wagner.quirino

Bom dia pessoal, Estou homologando a geração de boletos de um cliente meu utilizando uma conta da Caixa Econômica, porém obtive as seguintes críticas por parte deles: 1 Informamos que não pudemos finalizar a homologação porque a massa de testes NÃO está completa e dois boletos NÃO foram lidos pela leitora. 2 Deverão ser, portanto, enviados novamente: DV geral 6 e 8 – DV do Campo livre 1 e 3 – não foram lidos DV geral 2 e 4 – DV do Campo livre 5 e 7 – não vieram na massa de testes 3 A homologação encontra-se pendente no ValidaBarras aguardando envio para finalização. Vejam abaixo o que se tratam os DV (geral e campo livre). 4 Aguardamos o envio. Anexei abaixo a imagem da linha digitável com a crítica, o arquivo de remessa e o pdf dos boletos respectivos. Alguém pode de dar uma luz? Grato pela atenção. Remessa de testes.rar

Exemplo simples populando um DataSet com o arquivo de retorno: CDSRetorno.Close; CDSRetorno.CreateDataSet; CDSRetorno.Open; CDSRetorno.EmptyDataSet; ACBrBoleto1.ListadeBoletos.Clear; ACBrBoleto1.DirArqRetorno := ExtractFilePath(ArquivoRetorno); ACBrBoleto1.NomeArqRetorno := ExtractFileName(ArquivoRetorno); try ACBrBoleto1.LerRetorno; for i := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do begin if ACBrBoleto1.ListadeBoletos.Objects[i].ValorRecebido > 0 then begin CDSRetorno.Insert; CDSRetorno.FieldByName('NossoNumero').AsString := ACBrBoleto1.ListadeBoletos.Objects[i].NossoNumero; CDSRetorno.FieldByName('NumeroDocumento').AsString := RetiraBrancos(ACBrBoleto1.ListadeBoletos.Objects[i].NumeroDocumento); CDSRetorno.FieldByName('DataVencimento').AsDateTime := ACBrBoleto1.ListadeBoletos.Objects[i].Vencimento; CDSRetorno.FieldByName('DataBaixa').AsDateTime := ACBrBoleto1.ListadeBoletos.Objects[i].DataCredito; CDSRetorno.FieldByName('ValorDocumento').AsFloat := ACBrBoleto1.ListadeBoletos.Objects[i].ValorDocumento; CDSRetorno.FieldByName('ValorBaixa').AsFloat := ACBrBoleto1.ListadeBoletos.Objects[i].ValorRecebido; CDSRetorno.Post; end; end; Result := True; except on e : Exception do begin MessageDlg('Erro ao carregar arquivo de retorno. Contate o Suporte!'+#13+E.Message,mtWarning,[mbOk],0); Result := False; end; end;

Bom dia pessoal, Uma pequena contribuição para o ACBr, que foi solicitada por um cliente nosso que utiliza a geração de boletos por uma conta cooperativa do Sicoob e agora estou repassando para quem tiver interesse. Modifiquei o layout de impressão para ficar semelhante a um que é disponibilizado pelo aplicativo Cedente do Sicoob que é impresso em meia folha (A5). Fast Report 4.75 - Delphi 7 ACBrBoletoFCFR. Solicito aos moderadores que deem uma olhada e se possível adicionem aos fontes. Grato pela atenção. BoletoA5.rar

Boa tarde, Ítalo, deu tudo certo cara. Ainda não testei o retorno pelo componente de dentro da minha aplicação mas pelo XML de retorno deu pra ver que o evento foi registrado com sucesso. Qualquer coisa te reporto. Muito obrigado pela atenção. Atenciosamente:

Bom dia, Ítalo, notei que você atualizou os fontes do componente. Agora ele gera os valores das tag's tudo corretamente, exceto a tag cOrgao, ainda está informando o código da UF de Origem, no meu caso 31 - MG, sendo que deveria-se informar o código da UF do SVC que atende o estado de origem, no meu caso 35 - SP. Segue anexo o XML de evento para apreciação. Grato pela atenção. Atenciosamente: 887045655-ped-evento.xml

Boa noite, Tomei a iniciativa de alterar a procedure TWebServicesBase.DoCTeEnvEvento da unit ACBrCTeWebServices. Gerou o XML de Evento com todos os dados, exceto a tag cOrgao. Ao invéz de preencher com os códigos 35 ou 43 como descrito no manual, ele está preenchendo com o código da UF de origem, no meu caso 31 - MG. Com isso o webservice retorna rejeição. Agradeço a atenção e aguardo comentários do que podemos fazer... EventoCTe := TEventoCTe.Create; EventoCTe.idLote := TCTeEnvEvento(Self).idLote; for i := 0 to TCTeEnvEvento(Self).FEvento.Evento.Count-1 do begin with EventoCTe.Evento.Add do begin infEvento.tpAmb := TpcnTipoAmbiente(FConfiguracoes.WebServices.AmbienteCodigo-1); infEvento.CNPJ := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.CNPJ; infEvento.chCTe := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.chCTe; infEvento.dhEvento := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.dhEvento; infEvento.tpEvento := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.tpEvento; infEvento.nSeqEvento := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.nSeqEvento; case InfEvento.tpEvento of teCancelamento: begin infEvento.detEvento.nProt := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.nProt; infEvento.detEvento.xJust := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.xJust; end; teEncerramento: begin (* infEvento.detEvento.nProt := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.nProt; infEvento.detEvento.dtEnc := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.dtEnc; infEvento.detEvento.cUF := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.cUF; infEvento.detEvento.cMun := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.cMun; *) end; teEPEC: begin //InfEvento.versaoEvento := '1.04'; // InfEvento.TipoEvento := ''; infEvento.detEvento.descEvento := 'EPEC'; InfEvento.cOrgao := 35;//TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.cOrgao; infEvento.detEvento.nProt := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.nProt; infEvento.detEvento.xJust := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.xJust; InfEvento.detEvento.vICMS := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.vICMS; InfEvento.detEvento.vTPrest := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.vTPrest; InfEvento.detEvento.vCarga := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.vCarga; InfEvento.detEvento.toma := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.toma; InfEvento.detEvento.UF := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.UF; InfEvento.detEvento.CNPJCPF := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.CNPJCPF; InfEvento.detEvento.IE := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.IE; InfEvento.detEvento.modal := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.modal; InfEvento.detEvento.UFIni := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.UFIni; InfEvento.detEvento.UFFim := TCTeEnvEvento(Self).FEvento.Evento[i].InfEvento.detEvento.UFFim; end; end; end; end; EventoCTe.GerarXML;

Boa noite, Ainda não Ítalo. Acabei de atualizar os fontes e agora ele tá dando erro de validação acusando que a propriedade xJust está vazia, mas este erro é conseqüência de não estar gerando o arquivo com os dados passados e sim que ele ta gerando o arquivo com dados padrões do componente. O erro acontece na procedure TWebServicesBase.DoCTeEnvEvento da unit ACBrCTeWebServices. Grato pela atenção.

Bom dia Ítalo, Obrigado pela paciência... Sim, debuguei a rotina e todos os valores estão sendo passados, assim como consta no primeiro post do tópico. Resumindo faço a seguinte rotina: ACBrCTe1.Configuracoes.Geral.Salvar := True; ACBrCTe1.Configuracoes.Arquivos.Salvar := True; ACBrCTe1.Configuracoes.Geral.FormaEmissao := teDPEC; ACBrCTe1.Configuracoes.WebServices.UF := 'MG'; // Minha UF de origem ACBrCTe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,'2'); ... ... with ACBrCTe1.Conhecimentos.Add.CTe do // Gera Xml do CT-e para obter a chave de acesso begin ... Ide.cUF := 'MG'; // Minha UF de origem Ide.tpEmis := teDPEC; ... end; ACBrCTe1.Conhecimentos.SaveToFile(); ACBrCTe1.Conhecimentos.Valida; ... ... ACBrCTe1.EventoCTe.Evento.Clear; with ACBrCTe1.EventoCTe.Evento.Add do begin InfEvento.tpAmb := taHomologacao; if RetornaSVCNacional(StrToInt(Sistema.CT_Codigo_UF)) = teSVCSP then InfEvento.cOrgao := 35 // 35 - SVC São Paulo else InfEvento.cOrgao := 43; // 43 - SVC Rio Grande do Sul} InfEvento.CNPJ := Sistema.CNPJUsr; InfEvento.chCTe := Copy(ACBrCTe1.Conhecimentos.Items[0].CTe.infCTe.ID,4, 44); InfEvento.dhEvento := Now; InfEvento.tpEvento := teEPEC; InfEvento.nSeqEvento := 1; InfEvento.detEvento.xJust := 'Sefaz de origem inoperante.'; InfEvento.detEvento.vICMS := VlrICMS; InfEvento.detEvento.vTPrest := ACBrCTe1.Conhecimentos.Items[0].CTe.vPrest.vTPrest; InfEvento.detEvento.vCarga := ACBrCTe1.Conhecimentos.Items[0].CTe.infCarga.vCarga; InfEvento.detEvento.toma := ACBrCTe1.Conhecimentos.Items[0].CTe.Ide.Toma03.Toma; if ACBrCTe1.Conhecimentos.Items[0].CTe.Ide.Toma03.Toma = tmRemetente then begin InfEvento.detEvento.UF := ACBrCTe1.Conhecimentos.Items[0].CTe.Rem.enderReme.UF; InfEvento.detEvento.CNPJCPF := ACBrCTe1.Conhecimentos.Items[0].CTe.Rem.CNPJCPF; InfEvento.detEvento.IE := ACBrCTe1.Conhecimentos.Items[0].CTe.Rem.IE; end else if ... begin ... end; InfEvento.detEvento.modal := ACBrCTe1.Conhecimentos.Items[0].CTe.Ide.modal; InfEvento.detEvento.UFIni := ACBrCTe1.Conhecimentos.Items[0].CTe.Ide.UFIni; InfEvento.detEvento.UFFim := ACBrCTe1.Conhecimentos.Items[0].CTe.Ide.UFFim; end; ACBrCTe1.EventoCTe.GerarXML; if ACBrCTe1.EnviarEventoCTe(idLote) then // trata retorno... else // Trata Retorno... Grato pela Atenção.

Boa tarde Ítalo, Com relação á propriedade cOrgao, falha nossa... hehehe. Com relação as demais propriedades elas estão sendo passadas conforme o exemplo do primeiro post deste tópico, inclusive eu as pego diretamente do componente através do bloco "ACBrCTe1.Conhecimentos.Items[n].CTe..." entretanto o arquivo XML de evento de está sendo gerado com informações padrões do componente quando ele da um create no evento. Atenciosamente:

Boa tarde, Italo, a atualização do componente deu certinho. Porém agora ao enviar o evento, ele somente me retorna "Rejeição: 226 - Código da UF do Emitente diverge da UF autorizadora", independente da UF que coloco. Segue anexo os XMLs do CT-e e do evento. Grato pela atenção. 31130802421499000136570010000000434000000435-cte.xml 292803999-ped-evento.xml

Bom dia, Alguém pode me dar uma luz com a questão acima? Eu estou tentando gerar o XML do CT-e para pegar a chave de acesso, porém pelo fato de eu estar informando a propriedade tpEmiss como teDPEC, que é o correto, ao salvar ele já está gerando o evento do EPEC, automaticamente pela rotina: TWebServicesBase.DoCTeEnvEvento; //ACBrCTeWebServices.pas Com isso está dando erro na validação dos dados, pois as propriedades da rotina do EPEC não estão sendo preenchidas. Como contornar o problema? Qual a forma certa de gerar o EPEC? 1 - Gerar o XML do CT-e | Gerar e enviar o EPEC | posteriormente enviar o XML do CT-e. 2 - Gerar o XML do CT-e e deixar o componente enviar o EPEC automaticamente | posteriormente enviar o XML do CT-e. Grato a todos...

Boa tarde pessoal, Segue resumo da minha rotina de envio de evento EPEC: ACBrCTe1.Configuracoes.Geral.Salvar := True; ACBrCTe1.Configuracoes.Arquivos.Salvar := True; ACBrCTe1.Configuracoes.Geral.FormaEmissao := teDPEC; ACBrCTe1.Configuracoes.WebServices.UF := 'MG'; // Minha UF de origem ACBrCTe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok,'2'); ... ... with ACBrCTe1.Conhecimentos.Add.CTe do // Gera Xml do CT-e para obter a chave de acesso begin ... Ide.cUF := 'MG'; // Minha UF de origem Ide.tpEmis := teDPEC; ... end; ACBrCTe1.Conhecimentos.SaveToFile(); ACBrCTe1.Conhecimentos.Valida; ... ... ACBrCTe1.EventoCTe.Evento.Clear; with ACBrCTe1.EventoCTe.Evento.Add do begin InfEvento.cOrgao := 31; // aqui é a UF do estado de origem ou a UF do SVCSP/SVCRS? InfEvento.CNPJ := Sistema.CNPJUsr; InfEvento.chCTe := Copy(ACBrCTe1.Conhecimentos.Items[0].CTe.infCTe.ID,4, 44); InfEvento.dhEvento := Now; InfEvento.tpEvento := teEPEC; InfEvento.nSeqEvento := 1; InfEvento.detEvento.xJust := 'Sefaz de origem inoperante.'; InfEvento.detEvento.vICMS := 10.00; InfEvento.detEvento.vTPrest := 100.00; InfEvento.detEvento.vCarga := 1000.00; InfEvento.detEvento.toma := Tomador; InfEvento.detEvento.UF := UFTomador; InfEvento.detEvento.CNPJCPF := CNPJTomador; InfEvento.detEvento.IE := IETomador; InfEvento.detEvento.modal := Modal; InfEvento.detEvento.UFIni := UFIni; InfEvento.detEvento.UFFim := UFFim; end; ACBrCTe1.EventoCTe.GerarXML; if ACBrCTe1.EnviarEventoCTe(idLote) then // trata retorno... else // Trata Retorno... Ao enviar o evento, sempre retorna mensagem que a tag xJust está vazia. Gostaria de confirmar se a sequencia acima está correta e se alguém sabe me falar o porquê de retornar erro da tag xJust sendo que a mesma foi informada. Agradeço a atenção.

Olá boa noite, Alguém tem alguma novidade sobre o erro de retorno abaixo para o estado de Minas Gerais? Erro: Falha na validação dos dados do Envio de Evento '' violates pattern constraint of '[!-ÿ]{1}[ -ÿ]{0,}[!-ÿ]{1}|[!-ÿ]{1}'. The element '{http://www.portalfis...nf.br/cte}xJust' with value '' failed to parse. Atenciosamente:

E no caso da série? Existe a necessidade ou obrigatoriedade de mudar o numero de série? Ou ela também pode continuar seguindo a numeração? Atenciosamente: Vinício Rocha Logus Informática Formiga - MG.

Bom dia, Li a Nota Técnica 2012/003 mas ainda assim me surgiu as seguintes dúvidas: 1 - No caso de se transmitir e autorizar um CT-e no ambiente SVCSP, como no meu caso que sou de MG, quando o ambiente normal voltar, eu ainda tenho que transmitir o CT-e para o ambiente de origem? Devo gerar outro CT-e com as mesmas informações, ou usar o mesmo? Ou não é necessário retransmitir visto que os dois ambientes sincronizam suas bases de dados? 2 - Como ficaria a questão do sequencial de numeração dos CT-e's nos dois ambientes? Grato pela atenção de todos. Vinício Rocha Logus Informática Formiga - MG.

Boa tarde aos amigos do fórum. Hoje um cliente meu veio com uma dúvida simples mas que eu não tinha notado. Não sai o número do telefone do emitente no DACTE. É possível inserir essa informação?