adilsonpazzini

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 .

Ramalho . aproveitando o gancho novamente , conseguiu usar o processo de cancelamento ? aqui nao estou conseguindo . devido ao xml da NFSe nao vir , ele acusa falta do xml de nfse pra cancelar a nfse . vc ta tendo o mesmo problema ai ? Adilson Pazzini .

Hj se vc analisar o fonte do Retrato . vai ver que o campo infAdProd esta sendo impresso na DESCRICAO do produto . antes nao . mais pra comparar pode analisar o Paisagem , que ainda continua da forma antiga . ta saindo em outro campo que nao é DESCRICAO . A diferença da alteração que fiz , foi que agora quando tem o ';' ele quebra a linha na hora de imprimir . so pra entender , vc precisa de um PDF impresso sem a alteracao e outro com a alteracao que eu fiz . seria isso ?

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; Ajustei o fonte assim . agora voltou a quebrar quando tem ';' , So precisa ver se o pessoal do acbr aceita a alteracao . mais ainda assim . acho que esteticamente a antiga forma era melhor .qndo tinha um campo somente pra imprimir os dados adicionais do item . Adilson PAZZINI ; ACBrNFeDANFeRLRetrato.pas

Acabei de atualizar . e vi que estou com esse mesmo problema tambem. so pra avisar . vou tentar ver o que pode ser alterado . Obrigado .

Valeu Ramalho . eu fiz desse jeito mesmo , so que percebi , que nao vem o XML da NFe mesmo , como vc ta fazendo pra recuperar o xml da NFe , por esse comando de Consulta de Lote . Adilson Pazzini

Aproveitando o Gancho , vc conseguiu efetuar a consulta da NFSe por RPS ? ... TENTEI mais nao deu certo .

Segue o link explicando um pouco mais como funciona a licença comercial limitada, ou seja como usar o Delphi Starter para construir aplicações comerciais: https://www.embarcadero.com/br/products/delphi/starter-faq pelo que vi é 1.000 $ ... ou seja em torno de uns 4.000 R$ de faturamento anual . se for isso . ninguém pode usar ..

Alguem sabe como rodar esse comando , e se funciona para o provedor ISSDSF p\ cidade de sorocaba , pois estou conseguindo enviar pelo AcbrNFSe1.Enviar(NumLote,false); e sei que foi o RPS , porem ao tentar consultar pelo Comando AcrbNFSe1.ConsultarNFSeporRPS ... nao vem retorno nenhum . alguem sabe como posso obter o xml apos o retorno . a unica coisa que vem pelo Enviar e o numero do Protocolo . Estou usando no modo Capicom com A3 . Desde ja agradeço. Adilson Pazzini .

http://forum.lazarus.freepascal.org/index.php/topic,33792.msg219590/topicseen.html?PHPSESSID=0f7e5mccv7im5j280hue4n5bb7#new https://www.embarcadero.com/br/products/delphi/starter/promotional-download Aparentemente parece estar de graça . rs Adilson .

Vou ter que desenvolver um aplicativo pra isso tambem . desativando um e ativando outro e trocando esse ncm nos produtos . Os caras gostam de dar serviço pra gente . rs Adilson PAzzini