adilsonpazzini

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

Estou tento problemas com alguns NCMs ao emitir NF e o complicado e que existe na tabela da IBPT porem agora consultando no site http://www4.receita.fazenda.gov.br/simulador/PesquisarNCM.jsp O mesmo código já não existe mais, e esta na tabela atualizada da IBPT , isso só esta ocorrendo no estado de SP por enquanto , alguém mais esta tendo este problema , Conforme exemplo abaixo : Um exemplo de NCM é o 3910

No firebird 3.0 Ja ta dando pra criar as próprias fuctions .

Tenho esse mesmo problema para o Provedor 4R .. vi aqui que tem outros 2 tópicos falando sobre isso . Ate tentei ajudar pra ver se conseguia resolver . mais além de não conseguir também não tive muito tempo ainda pra ver melhor sobre isso . mais segue ai os outros 2 tópicos que tratam sobre isso pra ver se te ajuda . esse problema só acontece quando se faz assinatura utilizando a biblioteca OpenSSL . com capicom funciona legal . http://www.projetoacbr.com.br/forum/topic/29820-betha-openssl-erro-falha-ao-assinar-o-documento/ http://www.projetoacbr.com.br/forum/topic/19010-erro-signature-failed/

Uso Lazarus . www.dmssistemas.com.br

Vc mesmo pode se inscrever . incluindo uma conta no gmail e pedindo pra se adicionar . Vc mesmo pode se inscrever . incluindo uma conta no gmail e pedindo pra se adicionar .

ref ao Trecho ... Foi mau Juliomar ... Ref ao Datamodule , sim eu uso dentro de um Datamodule

var F1: TextFile; vPath1: String; ResultTemp: Boolean; CAMINHO : String ; Ini : TIniFile ; varBD_ALIAS:string; varBD_PATH :String; varBD_HOST :String; varBD_USER :String; varBD_PASS :String; varBD_PORTA:String; begin varBD_ALIAS := 'DB'; ResultTemp := False; CONEX01.Show ; CONEX01.Repaint; //-----------> acertando alias <------------------------------ Caminho := IncludeTrailingPathDelimiter(ExtractFileDir(application.ExeName))+'ARQCONEXAO.INI'; if not(fileexists(CAMINHO)) then begin Showmessage('Arquivo inexistente => '+CAMINHO); APPLICATION.Terminate ; Abort ; end else begin Application.CreateForm(TSISINI,SISINI); if SISINI.LoadAlias > 1 then begin SISINI.ShowModal; if SISINI.ModalResult = MROK then varBD_ALIAS := SISINI.ALIAS_SELEC; end; freeAndNil(SISINI); end; //############################################################################# //###################> lendo paramentros do ARQUIVO INI <###################### //############################################################################# Ini := TIniFile.Create(Caminho); try varBD_PATH := Ini.ReadString( varBD_ALIAS, 'PATH', '' ); varBD_HOST := Ini.ReadString( varBD_ALIAS, 'HOST', '' ); varBD_USER := Ini.ReadString( varBD_ALIAS, 'USER', '' ); varBD_PORTA:= Ini.ReadString( varBD_ALIAS, 'PORTA', '' ); if trim(Ini.ReadString( varBD_ALIAS, 'PASSWORD', '')) <> '' then varBD_PASS := Decrypt(HextoAscii(Ini.ReadString( varBD_ALIAS, 'PASSWORD', ''))) else varBD_PASS := 'masterkey'; finally Ini.Free; end; try DM.DATABASE.Connected := False ; DM.DATABASE.HostName := varBD_HOST ; DM.DATABASE.Database := varBD_PATH ; DM.DATABASE.User := varBD_USER; DM.DATABASE.Password := varBD_PASS; if trim(textotonum(varBD_PORTA)) <> '' then DM.DATABASE.Port := strtoint(textotonum(varBD_PORTA)); DM.DATABASE.LoginPrompt := False; DM.DATABASE.Connected := true; ResultTemp := True; Except On E: Exception do begin ShowMessage('Não foi possível conectar ao Banco de Dados !!!'+E.Message); end; end; CONEX01.Close; Result := ResultTemp; end;

Veja esse Topico la no forum do lazarus ref a dll https://groups.google.com/forum/#!topic/lazarus-br/0ik5HwTTzOs ref a utf8 https://groups.google.com/forum/#!topic/lazarus-br/AZMXv-uEfYE Talvez um desses te ajude .

Resolvido Manual abrasf 2.2 Código de identificação do regime especial de tributação 1 – Microempresa municipal 2 – Estimativa 3 – Sociedade de profissionais 4 – Cooperativa 5 – Microempresário Individual (MEI) 6 – Microempresário e Empresa de Pequeno Porte (ME EPP) Quando a empresa prestadora do serviço for optante pelo simples nacional informe "05" MEI ou "06" ME/EPP. No caso informei 06 e agora ta passando . Obrigado .

Estou tentando enviar um RPS para o Provedor 4R para empresa do tipo SIMPLES NACIONAL . e estou tento o seguinte retorno : Para Empresas diferente de Simples nacional . estou enviando normal . estou setando as seguintes propriedades NaturezaOperacao := no1; RegimeEspecialTributacao := retMicroempresaMunicipal; OptanteSimplesNacional := iif(QNFSECab.fieldbyname('REGIME_TRIBUTARIO').AsString='S',snSim,snNao); //==S=Simples / R-Lucro real / P-Presumido E mesmo preenchido dessas forma me retorna a Rejeição em anexo . se alguém puder me ajudar agradeço . Adilson Pazzini .

Também uso Lazarus já a uns 2 anos . Realmente, se não insistir, não vai conseguir usar mesmo , mais hj temos vários fóruns . que o pessoal sempre ajuda . pra mim funciona bem .

Ítalo . Em modo CAPICOM testado as alterações e tudo OK .. ate agora esta funcionando tudo certinho . ref ao problema em assinar o RPS no modo OpenSSL esta com problemas. eu tentei mapear aqui. nao sei como resolver . mais vou te passar o que eu vi . veja se tem algum que possa me ajudar a resolver esse problema de erro de assinatura no Openssl . UNIT AcbrDFEOpenSSL Primeiro , qndo chama essa funcao abaixo : function TDFeOpenSSL.Assinar(const ConteudoXML, docElement, infElement: String; SignatureNode: String; SelectionNamespaces: String; IdSignature: String): String; ai executa o comando abaixo : XmlAss := XmlSecSign(AXml, AnsiString(SignatureNode), AnsiString(SelectionNamespaces)); Que direciona para a Function abaixo : function TDFeOpenSSL.XmlSecSign(const ConteudoXML: AnsiString; SignatureNode, SelectionNamespaces: AnsiString): AnsiString; Onde nessa linha abaixo aconte o erro : Falha ao Assinar o Documento { sign the template } if (xmlSecDSigCtxSign(FdsigCtx, node) < 0) then raise EACBrDFeException.Create(cErrDSigSign); //**** o erro acontece aqui gerado por essa Raise . ai acaba que nao assina o rps . pois consultando o xml nao esta gravando a assinatura .

OK . VALEU . vou atualizar e testar e posto aqui qualquer problema obrigado .

Italo , Bom dia , vi que hj saiu algumas aualizações ref a algumas bibliotecas do Capicom e Openssl e tambem daqueles aquivos que vc havia me enviado para testes, essa atualizacao que aconteceu hj . ja estao com aquelas suas alteracoes ? sem mais, Adilson Pazzini

Ja sim , esta atualizado e funcionando o arquivo INI . So que pra funcionar mesmo a parte de conexao . vai precisar dos arquivos que o Italo deixou ai num post anterior , pois sem eles nao vai conseguir funcionar o envioRPSSincrono para Capicom