adilsonpazzini

Fiz o Procedimento e agora deu certo . minhas Datas estavam indo sem Horário . agora coloquei horário . e deu certo também . obrigado a todos .

Estou com o Mesmo problema . so que no SEFAZ da BAHIA , So vem assim o Erro . ERRO - 791 e Cstat 502 . Segue XML . 29161116700196000671550010000007911000007914-nfe.xml

Beleza Elton . e que estava acostumado a fazer isso no ReportBuilder . e queria saber se dava pra fazer isso no Fortes . mais vc tem razao . o trafego sera menor . valeu Adilson

Alguem sabe se no fortes Report , tem como ao setar a propriedade VISIBLE de uma RlBand do Tipo BtDetail como false , o porque não traz a soma nas Bandas de Summary . estou tentando gerar um relatório do tipo Sintético, sem imprimir os detalhes , ai somente imprimindo os totais , mais qndo faço isso . ele traz zerado . alguem sabe se tem alguma forma alternativa pra fazer isso , pelo proprio Fortes ? Sem mais, Desde ja agradeço . Adilson Pazzini

Valeu Helio pela força ... e pelo Commit..quebrou maior galhao . Adilson Pazzini

Desculpe foi Retrato . amanha posto a Paisagem .. Adilson Pazzini

Testado no Lazarus 1.6 fpc 3 ... tudo certo . segue print da alteracao . Agora esta quebrando certinho . Obrigado pela Força Helio .

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