Mota

Boa tarde! Estou em um processo de Homologação, e ao chegar no teste 99(Alteração dos Registros E2-E3) o homologador pediu que eu alterasse pelo banco, o número de fabricação do ECF. Ao gerar o arquivo, na interpretação do homologador, apenas o campo Modelo do ECF do registro E3 deve estar com "?". Mas estou indicando com "?" na frente do Campo Modelo do ECF em todos os registros onde este campo se encontra(R01,R02,R03,R04,R05,R06 e R07). Minha interptretação está incorreta? Estou fazendo o mesmo procedimento nos demais campos, por exemplo, ao alterar a descrição de um produto, estou sinalizando com "?" no campo Unidade dos Registros P2 e E2. Agradeço a quem puder me orientar.

Era isso mesmo! Não entendi pq antes ela estava imprimindo, e agora foi necessário ativar essa opção. Mas o importante é que deu certo. Mais uma vez obrigado!

Estou enviando o log e também o conteúdo da stringlist passada em: Self.RelatorioGerencial(Relatorio, 1, IndiceRelatorio); Obrigado pela atenção. ecf.log Rel.txt

Olá a todos! Não sei o que eu fiz para que de uma hora para outra, esses dois itens parassem de funcionar.Observem(imagem) que na impressão não sai quase nenhuma informação. Para imprimir, estou usando : ACBrECF.PafMF_RelIdentificacaoPafECF(AcbrECF.AAC.IdentPAF,0) //Identificação do PAF-ECF ACBrECF.ECF.PafMF_RelParametrosConfiguracao(ACBrECF.AAC.IdentPAF.Paf) //Parâmetros de Configuração Observei que este método alimenta uma StringList e depois o passa para o método Self.RelatorioGerencial(Relatorio, 1, IndiceRelatorio). Pensei que a StringList não estivesse sendo alimentada corretamente, mas não é isso, na StringList tem todas as informações do PAF-ECF. Alguém poderia me ajudar? Obrigado. ACbrECF e o ACbrPAF estão ligados ao AcbrAAC Arquivo.pdf

Se eu for homologar um PDV que vai emitir Cupons Fiscais de documentos originados de um SG de Terceiros. Isso significa dizer que o meu PDV realiza DAV e consequentemente devo atender ao Requisito VI?

Olá a todos! Aqui na minha cidade, alguns comerciantes usam dois softwares, o Sistema de Gestão (Retaguarda) e o PAF-ECF. Na grande maioria das vezes, esses sistemas são de Software Houses distintas, ou seja, o SG é desenvolvido por uma empresa e o PAF-ECF por outra. As Vendas são lançados no Sistema Retaguarda e logo após são enviadas ao PAF-ECF por algum meio(txt,xml etc) . No PAF-ECF, o usuário localiza a venda e apenas imprime o Cupom Fiscal. Gostaria de saber em qual "modalidade" se enquadra esse tipo de operação, seria DAV,Pré-Venda, as duas ou nenhuma? Obrigado e que Deus os Abençoe!

Bom Dia! Na impressão do DANFSe(FastReport, Delphi 7 e Provedor Ginfes) o município do tomador de serviço não está sendo preenchido, infelizmente não consegui identificar qual o motivo. Alguém poderia me auxiliar a encontrar o motivo? 11327-nfse.xml

Alguém poderia me ajudar? Como faço para pegar o retorno do método ConsultarLoteRps(quando o lote possui mais de um RPS e apenas um dos RPS não foi validadado)?

Boa Noite! Estou enviando Lote com mais de um RPS. Estou colocando de próposito um RPS preenchido de forma correta e outro preenchido de forma incorreta(aliquota errada, ISS inválido etc). Depois de executar o método ConsultarLoteRps, faço +ou- assim for i := 0 to (ACBrNFSe.NotasFiscais.Count - 1) do begin if (ACBrNFSe.NotasFiscais.Items.NFSe.Numero <> '') then // altera status do rps na posicao i para convertido else // altera status do rps na posicao i para processado com erro end; O código acima funciona perfeitamente se todos os RPS do Lote estiverem corretos ou se todos estiverem incorretos, mas se tiver um certo e outro errado, recebo um erro na segunda repetição do for. Depois do erro ele sai da estrutura de repetição e não consigo atualizar meus dados de maneira correta. Obrigado! 2901656-lista-nfse.xml 11-env-lot.xml 11-rec.xml 2901656-con-lot.xml 2901656-lista-nfse.xml 11-env-lot.xml 11-rec.xml 2901656-con-lot.xml

Olá Italo! Como poderia fazer para logo após executar o ConsultaLoteRPS, imprimir o DANFSe? Seria algo semelhante ao que acontece com o método enviar. Obrigado!

Bom dia! Sei que o componente possui a opção de consultar lote após o envio, inclusive pode ser informada a quantidade de vezes que será feita essa consulta, mas em determinados momentos, os provedores demoram muito para processar um lote, deixando essa consulta inviável. O que fazer nessa situação, ou seja, que "comprovante de serviço" o prestador deve entregar para o cliente? Quanto ao sistema, qual seria o método mais adequado para consultar esse lote posteriormente, seria o ConsultarLoteRPS? Obrigado.

Boa tarde! Caso alguém tenha a mesma dúvida, o erro 142, resolvi retirando o dígito verificador(é o dígito mesmo não é só o -). Quanto á dúvida de qual é o provedor, ainda continua, parece que não é mais o Ginfes, mas usam os padrões dele. Enviei um rps pelo ACBr e estou aguardando o Lote ser processado. Qualquer novidade posto.

Boa tarde! Alguém tá usando o ACBr para envio de NFSe para Fortaleza? Pesquisei muito mas não encontrei uma resposta satisfatória. Uns dizem que o provedor não é mais o Ginfes, outros dizem que é, mas que houve mudanças. Estou tentando enviar um RPS e recebo o erro(E142) citado acima. Já tentei contato com a prefeitura, porém sem sucesso. Alguém poderia me ajudar? Obrigado.

Olá pessoal! Há algum tempo, havia desenvolvido o envio de NFSe para cidade de Fortaleza, estou desenvolvendo novamente e gostaria de saber se houve alguma mudança no envio para este município. O provedor ainda é o Ginfes? Tentei enviar um RPS e estou recebendo o erro Inscrição municipal do Prestador não está vinculada ao CNPJ, mas no portal uso o mesmo CNPJ e IM para envio. Em anexo, o xml. Obrigado

Alguém sabe como evitar essa mensagem "Erro desconhecido", ao cancelar uma Nota?

Italo, a mensagem Erro desconhecido, ao cancelar ainda continua(no projeto de exemplo também acontece). Vale lembrar que mesmo com essa mensagem chata a NFE é Cancelada. Tenha alguma ideia do que possa ser? ps. Fiquei na dúvida se teria que abrir outro post ou poderia continuar nesse, caso esteja desobedecendo alguma regra, me desculpe.

Muiiiito Obrigado!!!! Agora o componente faz a pesquisa 2 vezes e na segunda da certíssimo... Espero um dia, poder ser útil. Deus lhe Pague.

Acho que são esses que vão em anexo. Não sei se ajuda, mas ao cancelar, também está retornando uma mensagem de erro, mas está cancelando normal. Obrigado. Ger.rar

Bom Dia, italojjr! Obrigado pela resposta. Já consegui enviar alguns RPS para o provedor GINFES,mas fiquei com uma dúvida e se possível gostaria que você me ajudasse a tirá-la. Ao enviar o Lote(no meu caso tem apenas um RPS) estou recebendo duas mensagens. A primeira mensagem com o número do lote,data e hora do recebimento,protocolo e o provedor (ver anexo) acho que este é o procedimento 5(descrito por você na resposta anterior). Ressaltando que neste momento a nota já consta na base de dados do provedor, pois acessei o site e verifiquei. A segunda mensagem retorna número do lote vazio e situação não recebido(ver anexo) acho que este é procedimento 7(descrito por você na resposta anterior). Então, para conseguir imprimir os Danfse, tenho que consultar o lote, para ele me trazer a xml e eu imprimir. O algorítimo do botão Enviar Lote é esse: procedure TfNotasFiscaisServicos.tbEnviarClick(Sender: TObject); var vAux, vNumLote, sProtocolo : String; begin if VerifyRecord(dmf.cdsNotf) then begin vAux := dmf.cdsNotf.FieldByName('NTF_NOTAFISCAL').AsString; vNumLote := dmf.cdsNotf.FieldByName('NTF_NUMERO').AsString; try ACBrNFSe1.NotasFiscais.Clear; GerarNFSe(vAux); ACBrNFSe1.Enviar(vNumLote); except on e : exception do begin sProtocolo := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo; dmf.cdsNotf.Edit; dmf.cdsNotf.FieldByName('NTF_PROTOCOLO').AsString := sProtocolo; dmf.cdsNotf.Post; if dmf.cdsNotf.ApplyUpdates(0) <> 0 then dmf.cdsNotf.CancelUpdates; ACBrNFSe1.NotasFiscais.Clear; end; end; ACBrNFSe1.NotasFiscais.Clear; end; end; A procedure GerarNFSe ficou assim: procedure TfNotasFiscaisServicos.GerarNFSe(NumNFSe: String); var ValorISS : Double; vNumLote: string; begin with dmf,cdsNotf do begin ValorISS := 0; dma.lResposta := True; if not(FieldByName('NTF_CHAVE').AsString=EmptyStr) then begin CaixaMensagem('Nota Fiscal já possui uma chave eletrônica. '+ 'Este processo invalidará o protocolo de autorização do fisco!!!',mtInformation); dma.sCampo := 'USU_IMPRIMIR_PENDENCIA'; AbreForm(TfSenha10,fSenha10, 'USU_SAIDAAPOIO'); end; if dma.lResposta then begin dma.cdsLoja.Locate('LOJ_CODIGO', FieldByName('LOJ_CODIGO').AsInteger,[]); ACBrNFSe1.NotasFiscais.Clear; vNumLote := dmf.cdsNotf.FieldByName('NTF_NUMERO').AsString; with ACBrNFSe1 do begin NotasFiscais.NumeroLote := vNumLote; with NotasFiscais.Add.NFSe do begin IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt(NumNFSe)); Competencia := '30/'+FieldByName('NTF_MESCOMPETENCIA').AsString; IdentificacaoRps.Serie := 'UNICA'; IdentificacaoRps.Tipo := trRPS; DataEmissao := Date; DataEmissaoRps := Date; NaturezaOperacao := noTributacaoNoMunicipio; RegimeEspecialTributacao := retMicroempresaMunicipal; if dma.cdsLoja.FieldByname('LOJ_CRT').AsString ='1' then OptanteSimplesNacional := snSim else OptanteSimplesNacional := snNao; IncentivadorCultural := snNao; case rgTipoAmb.ItemIndex of 0 : Producao := snSim; 1 : Producao := snNao; end; Status := srNormal; Servico.Valores.ValorServicos:= FieldByName('NTF_TOTAL').AsCurrency; Servico.Valores.IssRetido := stNormal; Servico.Valores.DescontoCondicionado := FieldByName('NTF_TOTALDESC').AsCurrency; Servico.Valores.BaseCalculo := FieldByName('NTF_VRBASECALC').AsCurrency ; Servico.Valores.Aliquota := FieldByName('NTF_PERCISS').AsCurrency/100; if Servico.Valores.IssRetido = stNormal then begin ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota; Servico.Valores.ValorIss := RoundTo5(ValorISS,-2); Servico.Valores.ValorIssRetido := 0.00; end else begin ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota; Servico.Valores.ValorIss := 0.00; Servico.Valores.ValorIssRetido := RoundTo5(ValorISS, -2); end; Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos - Servico.Valores.ValorPis - Servico.Valores.ValorCofins - Servico.Valores.ValorInss - Servico.Valores.ValorIr - Servico.Valores.ValorCsll - Servico.Valores.OutrasRetencoes - Servico.Valores.ValorIssRetido - Servico.Valores.DescontoIncondicionado - Servico.Valores.DescontoCondicionado; Servico.ItemListaServico := dma.cdsLoja.FieldByName('LOJ_CODSERVICOMUNICIPIO').AsString; Servico.CodigoTributacaoMunicipio := dma.cdsLoja.FieldByName('LOJ_CODATIVIDADE').AsString; Servico.Discriminacao := cdsItnf.FieldByName('PRO_DESCFISCAL').AsString; Servico.CodigoMunicipio := dma.cdsLoja.FieldByName('MUN_CODIGO').AsString; Servico.ExigibilidadeISS := exiExigivel; Prestador.Cnpj := edtEmitCNPJ.Text; Prestador.InscricaoMunicipal := edtEmitIM.Text; Prestador.cUF := StrToInt(ID_IF(FieldByName('CLI_UF').AsString)); Tomador.IdentificacaoTomador.CpfCnpj := LimpaMascara(FieldByName('CLI_CPF_CNPJ').AsString); Tomador.IdentificacaoTomador.InscricaoMunicipal := LimpaMascara(FieldByName('CLI_IM').AsString); Tomador.RazaoSocial := FieldByName('CLI_NOME').AsString; Tomador.Endereco.Endereco := FieldByName('CLI_ENDERECO').AsString; Tomador.Endereco.Numero := FieldByName('CLI_NUMERO').AsString; Tomador.Endereco.Complemento := FieldByName('CLI_COMPL_ENDERECO').AsString; Tomador.Endereco.Bairro := FieldByName('CLI_BAIRRO').AsString; Tomador.Endereco.CodigoMunicipio := FieldByName('MUN_CODCLI').AsString; Tomador.Endereco.UF := FieldByName('CLI_UF').AsString; Tomador.Endereco.CEP := LimpaMascara(FieldByName('CLI_CEP').AsString); //Provedor Equiplano é obrigatório o pais e IE if dma.cdsPais.Locate('PAI_CODIGO',FieldByName('PAI_CODIGO').AsInteger,[]) then Tomador.Endereco.xPais := UpperCase(dma.cdsPais.FieldByName('PAI_NOME').AsString) else Tomador.Endereco.xPais := 'BRASIL'; Tomador.IdentificacaoTomador.InscricaoEstadual := LimpaMascara(FieldByName('CLI_IDENTIDADE').AsString); Tomador.Contato.Telefone := LimpaMascara(FieldByName('CLI_FONE').AsString); Tomador.Contato.Email := FieldByName('CLI_EMAIL').AsString; end; end; end; end; end; Desde já, muito obrigado.

Boa Tarde! Vasculhei muito o Fórum e tirei muitas dúvidas, mas ainda fiquei com algumas, se alguém puder me ajudar ficarei grato. Ao gerar um RPS para o provedor (no meu caso é GINFES), este provedor já ira converter o RPS em uma NFSE(semelhante ao processo da NFE de Venda) ou irá me retornar apenas um protocolo, para futuramente pesquisar se o RPS foi Convertido? Supondo que o provedor não converta o RPS em NFSE no momento do envio, o recebimento do Protocolo significa que o RPS não possui nenhum erro e está aguardando apenas ser convertido ou o provedor ainda fará algum tipo de validação? Ainda supondo que o provedor não converta o RPS em NFSE no momento do envio, o que deve ser impresso e entregue ao Tomador do Serviço? Qual a Diferença de entre Imprimir RPS e Imprimir DANFSe? Quais os passos que vcs estão fazendo para emitir NFE? Os descritos abaixo estão corretos? 1-Gerar e enviar Lote(Receberei um Protocolo) ; 2-Depois de determinado tempo, pesquiso a situação do lote (usando o Protocolo). Se estiver tudo OK, Imprimo a NFSE.

Boa Tarde! Estou com dificuldades em usar o demo para NFS-e. O Primeiro erro que aparece ao tentar compilar é esse: TQRLabel not found, se eu for na unit NFSeDANFSeQRRetratoCampinas e retirar do uses qrFramelines, grimgctrl o demo compila, mas ao clicar no botão imprimir DanFse e depois escolher uma xml (essa xml ficou salva no pc, ao usar a opção consultar NFSe por período) aparece a seguinte mensagem: Erro reading QRNSE.page.continuous:Property Continuous does not exist. Já estou com os fontes do ACBr atualizados e uso Delphi 7 e Quick Report 5 e o Provedor Ginfes (Fortaleza- Ce) Desde já Muito Obrigado...

Bom Dia! É minha primeira vez aqui no Fórum, então se esse não for o local adequado para essa pergunta, favor me desculpem. É o seguinte: Quero saber como fazer o controle de páginas desse teclado na minha própria aplicação, por exemplo, quero que uma tecla em uma determinada tela tenha uma função e em outra tela tenha outra função. Usei o programa Grava Plus para fazer o leiaute, mas não estou conseguindo fazer o controle no ACBrDis. Quero mais ou menos assim: Tecla 1 -> Na primeira página é o F1 e na segunda página é a letra A. Tecla 2 -> Na primeira página é o F2 e na segunda página é a letra B. Obrigado