adilsonpazzini

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

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 .