adilsonpazzini

Pode ser também , se o Juliomar/ou outro Moderador aprovar eu posso fazer as alterações pra que seja incluída ... Adilson Pazzini

Sim . mais foi fechado . Isso que eu queria saber se da ou nao pra incluir essa Rotina ? Obrigado Juliomar pelo Retorno . Adilson Pazzini ;

Sr´s . existe a possibilidade de incluir um recurso , para que quando for imprimir as Descrições dos itens em conjunto com as Informações adicionais dos itens , poder fazer a quebra de linha pelo caracter ';' conforme era antigamente, pois hoje sem essa opção, o gerador mesmo faz a quebra de linha, não deixando que nos mesmos façamos esse controle. fico no aguardo . caso aprovem eu já posto as alterações em anexo . Desde ja agradeço . Adilson Pazzini .

Então . eles não commitaram minha atualização .por isso que nao ta la ainda . o Helio ficou de analisar , para pelo menos incluir a quebra de linha pelo caracter ';' ... q ja ajuda . isso quebrando na própria descrição . Function TfrlDANFeRLRetrato.ManterinfAdProd(inItem : Integer ) : String; var str: String; begin Result := ''; if FNFe.Det.Items[inItem ].infAdProd <> '' then begin Result := sQuebraLinha; str := StringReplace((FNFe.Det.Items[inItem].infAdProd), ';', #13#10, [rfReplaceAll, rfIgnoreCase]); Result := Result + str; end; end;

Desculpe a mudança de assunto . mais vc ta usando o ZEOS 7.3 , onde vc baixou essa versao . ela ja esta estavel ? Agradeço Adilson Pazzini

Cheguei ja enviar uma correção pra ajustar isso . mais acho que ainda nao tiveram tempo pra ver ... mais segue ai pra vc

Isso que entendi tambem e foi isso que o proprio sefaz mes respondeu , de que nao é obrigatorio para NFCe . somente para ECF é obrigatorio .. mais uma vez obrigado a todos Adilson .

Entao . isso que eles falaram . caso opte por utilizar o TEF ,vc deve preencher as tag´s com a informacao da Prestadora de cartao e o codigod e autorizacao . mais pra POS nao . dizendo que náo é obrigatorio . Estranho . essa consulta que fiz foi ontem mesmo . e ai ta dizendo que não é obrigatorio . mais beleza . agradeço sua informacao .

Mandei email la e eles me responderam : A obrigação de integração do programa emissor de documento fiscal com o sistema de pagamento por cartão de crédito ou débito (TEF) só existe para usuário de ECF. Para emissor de NFC-e existe, desde 01/04/2016, a obrigação de indicar se o pagamento por cartão foi efetuado com POS ou TEF. Se indicado o último, deverão ser preenchidas as informações de CNPJ da Credenciadora e código de autorização da operação. Se o contribuinte já utiliza o TEF com o ECF, quando passar a emitir NFC-e, deve avaliar o custo/benefício de cada opção, considerando o melhor controle das operações efetuadas, proporcionado pelo uso do TEF. atc. Fale conosco - Sefaz.ba

Bom dia pessoal, queria saber se no estado da Bahia o TEF é obrigatorio para vendas com NFC-e ? pois vi que para vendas com ECF é obrigatorio , mais para NFCe nao achei nada na legislação que obrigue a usar o TEF ... E vc entrando no perguntas e respostas da NFCe , vc tem la : 44. Contribuinte que passar a emitir NFC-e também está obrigado ao TEF? Contribuinte que emitir NFC-e não está obrigado a utilizar TEF, ou seja, a integrar o programa emissor com o sistema de autorização de pagamento por cartão de crédito ou débito. Se já for usuário de TEF é recomendável que continue a utilizar, pelos benefícios trazidos nos controles das vendas e tenho aqui uma lei que um cliente me enviou dizendo que é obrigado que é Dec.est.ba 14295/13 , que diz que é obrigatorio o uso de TEF par ECF , mais nao diz nada sobre NFCe . e ainda fala o seguinte : III - a partir de 1º de janeiro de 2014, todos os contribuintes aos quais a legislação exija o uso de equipamento emissor fiscal. § 9º Os contribuintes não obrigados a emissão dos comprovantes de pagamento via cartão integrado ao ECF, nos termos do § 8º deste artigo, poderão imprimir o comprovante de pagamento efetuado com cartão de crédito ou de débito automático em conta corrente em equipamento POS (Point of Sale) ou qualquer outro equipamento não integrado ao ECF, desde que conste, impresso no comprovante de pagamento emitido, o número de inscrição no CNPJ do estabelecimento usuário onde se encontre instalado o equipamento."; Entendo que nao é obrigatório o uso . caos nao seja ECF . mais ai se tiver algo mais atual por favor se puderem me ajudar agradeço .. Desde ja agradeço . Adilson Pazzini

Valeu Italo .

Alteracao de URLS ... Segue anexo alterado para Feira de Santana . as outras eu nao tenho certeza se foi alterado . me parece que foi . mais estou enviado so de la . ai ver com os outros se tem que alterar ou nao . WebISS.ini

Pra resolver o problema consegui usando o seguinte funcao - UTF8Encode . e agora parou de dar problema . So queria ver com vc´s se isso seria o correto ou nao ? lembrando que ainda estou no DELPHI7 ; AcbrNfe.NotasFiscais.LoadFromString(UTF8Encode(qry1.fieldbyname('XMLNFE').Value)); Sem mais, Adilson Pazzini

Estou usando o DELPHI 7 ainda . e agora quando o xml retorna com a rejeição - "Uso Denegado: Irregularidade fiscal do destinatário" , ao tentar carregar o XML dentro do componente , ele me retorna o erro de "List index of Bounds(0)" , entendo que nao foi carregado o item pra dentro da NFe .. vi que a funcao function TNotasFiscais.LoadFromString(AXMLString: String; AGerarNFe: Boolean = True): Boolean; , nao esta carregando o arquivo xml . Vi que dentro desse LoadFromString ao executar o procedimento XMLStr := ConverteXMLtoNativeString(AXMLString); , ele retorna Varzio . No browser aponta justamente para a palavra "DESTINATÁRIO" , nao sei se eu estou fazendo algo errado e ao gravar o arquivo Blob dentro do banco . esta gravando como Ansi . mais ta dando a entender que por isso que nao carrega . conforme imagens em anexo . Percebi que se eu entrar no Notepad e pedir pra alterar para o tipo de arquivo para UTF8 ., ele abre normalmente dai no browser e também consigo carregar ele no AcbrNFe. Para Gravar no banco de dados estou usando essa função procedure GRAVA_XML_BANCO(aQCAD:TZQuery;aID_NFS:Integer;aNFE:TACBRNFe); var aXML_ARQ:TStringStream; begin try aXML_ARQ := TStringStream.Create(''); //===> Rotina Incluida para Ver se campo nNF esta vazio ou não... if aNFE.Notasfiscais.Items[0].NFe.Ide.nNF = 0 then if trim(aNFE.Notasfiscais.Items[0].XML) <> '' then begin aXML_ARQ.WriteString(trim(aNFE.Notasfiscais.Items[0].XML)); aNFE.NotasFiscais.clear; aNFE.Notasfiscais.LoadFromStream(aXML_ARQ); end; aNFE.NotasFiscais.Items[0].GravarStream(aXML_ARQ); if aNFE.Notasfiscais.Items[0].NFe.Ide.nNF <> 0 then begin aQCAD.Close; aQCAD.SQL.CLEAR; aQCAD.SQL.ADD('UPDATE OR INSERT INTO FATNFSXML (ID_NFS,XMLNFE,DATA) VALUES (:ID_NFS,:XMLNFE,:DATA) MATCHING (ID_NFS)'); aQCAD.ParamByName('ID_NFS').asinteger := aID_NFS; aQCAD.ParamByName('XMLNFE').LoadFromStream(aXML_ARQ,ftBlob); aQCAD.ParamByName('DATA').AsDateTime := now; aQCAD.EXECSQL; end; finally FreeAndNil(aXML_ARQ); end; end; Para recuperar faço somente o comando AcbrNfe.NotasFiscais.clear ; AcbrNfe.NotasFiscais.LoadFromString(qry1.fieldbyname('XMLNFE').Value); Agora minha Duvida . é alguma coisa que estou fazendo de errado . ou tem algum problema no Acbr que não ta convertendo da forma correta o arquivo , pois esse problema so começou a dar de um mes pra ca após fazer uma atualização no acbr . Vou deixar tambem o arquivo xml copiado do banco pra dentro de um arquivo criado pelo NOTEPAD com extensao XML pra analise . se alguem puder me ajudar . . nf_51491_c_erro.xml

Segue funções que utilizo pra conversão de hora normal pra centesimal function HoraToCent(Hora :TTime):Real ; var HrVR : Real ; HrCent : Real ; begin HrVR := StrToFloat(Copy(TimeToSTR(HORA),1,2)+','+Copy(TimeToSTR(HORA),4,2)); HrCent := int(hrvr)+((HrVr-Int(HrVr))/60*100); result := hrcent ; end; function CentToHora(HrCente:Real):String ; var HrNormal : String ; begin HrNormal := FormatFloat('00.00',(int(HrCente)+((HrCente-Int(HrCente))*60/100))); HrNormal := copy(HrNormal,1,2)+':'+copy(HrNormal,4,2); result := HrNormal ; end;

Tudo bem quanto a isso , o problema q nessa versao que esta , o caracter ';' nao quebra mais a linha .. nao teria como so entao ativar o quebra quando o Caracter ';' tiver nos textos . conforme alterei a classe pra isso , pois sem isso nao vejo como quebrar a linha nao ser jogando entao nos mesmo no texto #10#13 ... Adilson Pazzini

Henrique , conforme solicitação , segue como era antes e como ficou agora .. Antes -> O de antes , tinha um Memo so pra ele . Depois -> Depois da alteracao . agora é juntado na propria descricao do veiculo .

Sera que a alteração poderá ser aceita pelo Acbr ? No aguardo . Adilson Pazzini

Seguinte . Italo . esse campo Transação, no manual diz se ("true - Se os RPS fazem parte de uma mesma transação. Padrão “true”) . E estou atribuindo sempre true tambem . Conforme manual o campos: SerieRPS = Série do RPS - Padrão “NF” . SeriePrestacao = Número do equipamento emissor do RPS ou série de prestação. Caso não utilize a série, preencha o campo com o valor ‘99’ que indica modelo único. Caso queira utilizar o campo série para indicar o número do equipamento emissor do RPS deve-se solicitar liberação da prefeitura..

Isso Evandro . tem que enviar um email pra eles , enviando os dados da empresa ,Como CNPJ, I.M , Razão social e outras informações . ai eles te pedem pra enviar 5 rps . e vc tambem tem que se cadastrar no site deles como desenvolvedor . la mesmo ja libera uma área de teste pra vc . https://itapetininga.sistemas4r.com.br/cadastro.aspx ai vc se cadastra como desenvolvedor .

Infelizmente Italo , nao tenho o retorno do cancelamento .

Ramalho .amanha eu vou dar um molhada no fonte pra ver o que precisa fazer , hj nao tive tempo de ver . amanha eu do um molhada e ai a gente vai conversando pra tentar ajustar isso , o que falei pro meu cliente , por enquanto é ir cancelando no site mesmo . ai ficou funcionando somente o envio e consulta . ai vou ver aqui e te aviso blz Italo . nem chega a montar . da o erro da falta do XML da NFe . mais posso tentar te enviar um modelo aqui pra vc ver . Vejo que pra cancelar Pra esse provedor , seria o numero da NFse , InscricaoMunicipal, CPNJ, Codigo de Veirificacao e o motivo do cancelamento . Adilson . 000000000002740-cancelamento-nfse-envio - Cópia.xml

Henrique, obrigado pelo retorno, quem seria ou poderia avaliar a alteração , para poder implantar no danfe para fortes ? Desde ja agradeço Adilson Pazzini .

To pegando na consulta do Lote . aquela que opcao de consultar o lote mesmo AcbrNFSE.ConsultarLoteRps(AProtocolo, AProtocolo); ai pego pelo retorno . AcbrNFSe.WebServices.ConsLote.RetornoNFSe.ListaNfse.CompNfse.Items[0].Nfse.Protocolo AcbrNFSe.WebServices.ConsLote.RetornoNFSe.ListaNfse.CompNfse.Items[0].Nfse.CodigoVerificacao AcbrNFSe.WebServices.ConsLote.RetornoNFSe.ListaNfse.CompNfse.Items[0].Nfse.Numero - // numero da NFSe Porem o XML da NFSe nao vem por aqui . e ate tava vendo o laytout do xml é muito diferente do padrao acbr .

Se nao me engano tentei com esse codigo ai tambem e nao deu certo . acusou a falta do xml da NFse no componente . acbrnfse.CancelarNFSe('2', QNFSEQry.fieldbyname('NUMNF').asstring, 'DADOS INCORRETOS') , deu o mesmo problema . acusa a falta do xml de retorno . tambem pelo que vi no layout . tem que ir o codigo de verificação . e entendo que se o xml da nfe nao tiver . ele nao tem como pegar . acho que vamos precisar dar manutencao nessas units pra rodar o cancelamento sem a necessidade do xml de nfe .