Jump to content

powerlog

Membros Pro
  • Posts

    20
  • Joined

  • Last visited

Everything posted by powerlog

  1. O responsável pelo servidor desse cliente somos nós. É um servidor nos USA e está navegando normalmente em outras páginas. Porém em outro equipamento (temos 4 servidores nos USA) abre normalmente. O bloqueio ocorreu depois de colocarmos a nova versão do NFSeX que deve ter colocado o IP desse cliente em alguma block list. Vou tentar falar com a prefeitura de Campinas, mas já adianto que o atendimento deles leva dias, então fica a critério de vocês encerrarem ou não o chamado. Agradecemos a atenção
  2. Entrei aqui local e só apareceu isso. Acho que não entendi o que é para fazer ah, agora vi. Local ok e no servidor deu erro. Pior que não tem proxy nem nada. Já desativei o firewall e antivirus.
  3. Fiz conforme indicado e coloquei o caminho do certificado e a senha Erro(s): Código : X999 Mensagem: Erro de Conexão: Erro Interno: 10091 Erro HTTP: 500 URL: https://issdigital.campinas.sp.gov.br/WsNFe2/LoteRps.jws Network subsystem is unusable Erro Interno: 0 Erro HTTP: 0 URL: https://issdigital.campinas.sp.gov.br/WsNFe2/LoteRps.jws Network subsystem is unusable Correção: ---------
  4. Ambiente não possui proxy. Vou mudar para arquivo e senha, mas não é o padrão da nossa empresa.
  5. Mesmo aguardando os 30 segundos ele retornou TimeOut. Troquei para OpenSSL conforme indicado. Deu erro de "SelectionarCertificado" não suportado em TDFeOpenSSL
  6. NFSe ACBRx Campinas ISSDsf. Funciona na máquina de desenvolvimento, mas não funciona no servidor TS do cliente. Também já subi o TimeOut conforme foi indicado em outros tópicos aqui do forum. Método Executado: Enviar Lote Parâmetros de Envio Numero do Lote: 202203271716 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : X999 Mensagem: Erro de Conexão: Erro Interno: 12002 Erro HTTP: 0 URL: https://issdigital.campinas.sp.gov.br/WsNFe2/LoteRps.jws Erro: 12002 - TimeOut de Requisição Falha Enviando a Requisição. Erro: 12002 - TimeOut de Requisição Correção: ---------
  7. Podem excluir o tópico por favor. Deixei tudo fixo no código e comentei o conteúdo da função "LoadXML" para não ler arquivo envio / retorno.
  8. Estou quase desistindo a versão nova NFSEX e voltando para a antiga... O mês inteirinho mexendo com isso e não vai.. Se alguém conseguiu implantar o componente novo para CAMPINAS, me avise por favor. Comentei toda a parte do código que alterava as propriedades e deixei fixo no componente. Toda vez que eu colocava um breakpoint alterando as propriedades na mão, retornava aquele "LibCustom" na propriedade SSLLIB. Mesmo assim dá o erro:
  9. Update: Atualizei o Acbr (Versão 25065), reinstalei e agora optando por usar o CAPICOM Variáveis: gSSLCryptLib = 2 gSSLHttpLib = 1 gSSLLib = 2 gSSLXmlSignLib = 3 gSSLType = 0
  10. Update: troquei tudo para OpenSSL e agora está subindo um exception gSSLCryptLib = 1 gSSLHttpLib = 3 gSSLLib = 1 gSSLXmlSignLib = 4 gSSLType = 0 Essa tela abaixo sobe 2x dentro do Delphi. e depois
  11. Após migrar versão do NFSeAcbr para o NFSeAcbrX não consegui mais emitir nota. Erro: Enviar lote WS "Validar" não suportado em: TDFeSSLXmlSignClass Já testei todas as combinações de configurações nas propriedades de SSL. OBS: A propriedade SSLLib TSSLLib = (libNone, libOpenSSL, libCapicom, libCapicomDelphiSoap, libWinCrypt, libCustom); está retornando "libCustom" caso eu coloque os índices 1, 4 ou 5. Segue código (sendo que o LerCidades já foi executado algumas linhas acima) with nfseAcbr.Configuracoes.Geral do begin Salvar := true; ExibirErroSchema := (DelphiOpen or gSupervi); MontarPathSchema := false; SSLCryptLib := TSSLCryptLib(gcdSSLCryptLib); SSLHttpLib := TSSLHttpLib(gcdSSLHttpLib); SSLLib := libWinCrypt; //TSSLLib(gcdSSLLib); SSLXmlSignLib := TSSLXmlSignLib(gcdSSLXmlSignLib); end; with nfseAcbr.Configuracoes.WebServices do begin Ambiente := StrToTpAmb(okRet, 'taProducao'); Visualizar := (DelphiOpen or gSupervi); Salvar := true; UF := gRhEmpres.estado; end; with nfseAcbr.Configuracoes.Arquivos do begin NomeLongoNFSe := True; Salvar := true; SepararPorMes := false; AdicionarLiteral := true; EmissaoPathNFSe := true; SepararPorCNPJ := false; PathSchemas := xPathSch; PathGer := recRhParCna.pathxm; PathSalvar := recRhParCna.pathxm; PathCan := recRhParCna.pathxm; end; nfseAcbr.SSL.SSLType := TSSLType(gcdSSLType); Conteúdo das Variáveis: gSSLCryptLib = 3 gSSLHttpLib = 2 gSSLLib = 4 gSSLXmlSignLib = 0 gSSLType = 5 (já tinha testado com zero também)
  12. Era o Enter mesmo no campo motivo!!! Muito obrigada! Usei essa função básica e resolveu. function RetiraEnter(aText : string;fReplace:string=''): string; begin { Retirando as quebras de linha em campos blob } Result := StringReplace(aText, #$D#$A, fReplace, [rfReplaceAll]); { Retirando as quebras de linha em campos blob } Result := StringReplace(Result, #13#10, fReplace, [rfReplaceAll]); end;
  13. Pessoal, Após migração, erro ao tentar cancelar NFSe do profedor ISSDSF cidade de Campinas. A emissão funciona ok, componente é o mesmo, configurações as mesmas. Pelo exemplo Delphi 7 funciona ok, então copiei TODA a configuração (leitura de INI, copiei o próprio componente) e mesmo assim dá o erro de certificado. Até copiei o arquivo INI da pasta de exemplos e coloquei no diretório da aplicação (arquivo em anexo). Rotina: CANC_ConfigurarComponente; InfCancelamento := TInfCancelamento.Create; xOkCanc := false; try try with InfCancelamento do begin NumeroNFSe := IntToStr(recNFSeCampinas.NumeroNota); SerieNFSe := ''; ChaveNFSe := ''; CodCancelamento := '1'; MotCancelamento := recNFSeCampinas.MotCancelamento; NumeroLote := '1'; NumeroRps := 0; SerieRps := ''; ValorNFSe := 0; CodVerificacao := copy(recFtNotFis.txtver,1,8); email := ''; end; ACBrNFSeX_CANC.CancelarNFSe(InfCancelamento); xOkCanc := true; except on E: Exception do begin LogEspecifico('MAGCAM','ERR Cancelamento '+E.Message); end; end; finally InfCancelamento.Free; end; ChecarResposta(tmCancelarNFSe); xOkCanc := ACBrNFSeX_CANC.WebService.CancelaNFSe.Sucesso; Configuração do Componente: procedure TfmMtNotFis.CANC_ConfigurarComponente; var Ok: Boolean; PathMensal, SerieCert: String; IniFile: String; Ini: TIniFile; StreamMemo: TMemoryStream; begin ACBrNFSeX_CANC.LerCidades; IniFile := ExtractFilePath(application.ExeName)+'\conf'+LimpaMascara2(gRhEmpres.numide)+'.ini'; IniFile := BuscaTroca(IniFile,'\\','\'); Ini := TIniFile.Create(IniFile); SerieCert := Ini.ReadString( 'Certificado', 'NumSerie', ''); ACBrNFSeX_CANC.Configuracoes.Certificados.NumeroSerie := SerieCert; ACBrNFSeX_CANC.SSL.DescarregarCertificado; with ACBrNFSeX_CANC.Configuracoes.Geral do begin SSLLib := TSSLLib(Ini.ReadInteger('Certificado', 'SSLLib', 0)); SSLCryptLib := TSSLCryptLib(Ini.ReadInteger('Certificado', 'CryptLib', 0)); SSLHttpLib := TSSLHttpLib(Ini.ReadInteger('Certificado', 'HttpLib', 0)); SSLXmlSignLib := TSSLXmlSignLib(Ini.ReadInteger('Certificado', 'XmlSignLib', 0)); Salvar := Ini.ReadBool( 'Geral', 'Salvar', True); ExibirErroSchema := Ini.ReadBool( 'Geral', 'ExibirErroSchema', True); RetirarAcentos := Ini.ReadBool( 'Geral', 'RetirarAcentos', True); FormatoAlerta := Ini.ReadString( 'Geral', 'FormatoAlerta', 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'); FormaEmissao := TpcnTipoEmissao(Ini.ReadInteger('Geral', 'FormaEmissao', 0)); ConsultaLoteAposEnvio := Ini.ReadBool('Geral', 'ConsultaAposEnvio', False); ConsultaAposCancelar := Ini.ReadBool('Geral', 'ConsultaAposCancelar', False); MontarPathSchema := Ini.ReadBool('Geral', 'MontarPathSchemas', True); CNPJPrefeitura := Ini.ReadString('Emitente', 'CNPJPref', ''); Emitente.CNPJ := Ini.ReadString('Emitente', 'CNPJ', ''); Emitente.InscMun := Ini.ReadString('Emitente', 'IM', ''); Emitente.RazSocial := Ini.ReadString('Emitente', 'RazaoSocial', ''); Emitente.WSUser := ''; Emitente.WSSenha := ''; Emitente.WSFraseSecr := ''; Emitente.WSChaveAcesso := ''; Emitente.WSChaveAutoriz := ''; end; with ACBrNFSeX_CANC.Configuracoes.WebServices do begin Ambiente := StrToTpAmb(Ok,IntToStr(Ini.ReadInteger('WebService', 'Ambiente', 0)+1)); Visualizar := Ini.ReadBool( 'WebService', 'Visualizar', False); Salvar := Ini.ReadBool( 'WebService', 'SalvarSOAP', False); UF := Ini.ReadString('Emitente', 'UF', ''); AjustaAguardaConsultaRet := Ini.ReadBool( 'WebService', 'AjustarAut', False); AguardarConsultaRet := ifThen(StrToInt(Ini.ReadString( 'WebService', 'Aguardar', '0')) < 1000, StrToInt(Ini.ReadString( 'WebService', 'Aguardar', '0')) * 1000, StrToInt(Ini.ReadString( 'WebService', 'Aguardar', '0'))); Tentativas := StrToInt(Ini.ReadString( 'WebService', 'Tentativas', '5')); IntervaloTentativas := ifThen(StrToInt(Ini.ReadString( 'WebService', 'Intervalo', '0')) < 1000, StrToInt(Ini.ReadString( 'WebService', 'Intervalo', '0')) * 1000, StrToInt(Ini.ReadString( 'WebService', 'Intervalo', '0'))); TimeOut := Ini.ReadInteger('WebService', 'TimeOut', 5000); ProxyHost := Ini.ReadString('Proxy', 'Host', ''); ProxyPort := Ini.ReadString('Proxy', 'Porta', ''); ProxyUser := Ini.ReadString('Proxy', 'User', ''); ProxyPass := Ini.ReadString('Proxy', 'Pass', ''); end; ACBrNFSeX_CANC.SSL.SSLType := TSSLType(Ini.ReadInteger('WebService', 'SSLType', 0)); with ACBrNFSeX_CANC.Configuracoes.Arquivos do begin NomeLongoNFSe := True; Salvar := Ini.ReadBool( 'Arquivos', 'Salvar', False); SepararPorMes := Ini.ReadBool( 'Arquivos', 'PastaMensal', False); AdicionarLiteral := Ini.ReadBool( 'Arquivos', 'AddLiteral', False); EmissaoPathNFSe := Ini.ReadBool( 'Arquivos', 'EmissaoPathNFSe', False); SepararPorCNPJ := Ini.ReadBool( 'Arquivos', 'SepararPorCNPJ', False); PathSchemas := Ini.ReadString('Geral', 'PathSchemas', ''); PathGer := Ini.ReadString('Geral', 'PathSalvar', PathWithDelim(ExtractFilePath(Application.ExeName))+'Logs'); PathMensal := GetPathGer(0); PathSalvar := PathMensal; PathCan := PathMensal; end; // A propriedade CodigoMunicipio tem que ser a ultima a receber o seu valor // Pois ela se utiliza das demais configurações with ACBrNFSeX_CANC.Configuracoes.Geral do begin CodigoMunicipio := StrToIntDef(Ini.ReadString('Emitente', 'CodCidade', ''), 0); end; Ini.Free; end; Erro: Método Executado: CancelarNFSe Parâmetros de Envio Numero da NFSe: 4077 Série da NFSe : Parâmetros de Retorno Situação: Link : Sucesso : False Retorno do Pedido de Cancelamento: Situação : Data/Hora: 30/12/1899 Mensagem : Sucesso : Link : Erro(s): Código : 1405 Mensagem: Assinatura Digital InvalidaAssinatura Invalida. Correção: --------- Código : X203 Mensagem: Não foi retornado nenhuma NFSe. Correção: --------- Agradeço a atenção conf06973087000160.ini
  14. Oi Catia, Tomei como base de implantação esse questionário do Governo Digital https://limesurvey.sgd.nuvem.gov.br/index.php/798411?lang=pt-BR Baixei o Guia desenvolvido pelo Governo Federal: Guia de Boas Práticas - Lei Geral de Proteção de Dados (LGPD) — Português (Brasil) (www.gov.br) E também criei um Excel do Plano de Ação modelo 5W2H. A regra que utilizei para bater a pontuação com o governo foram: Backlog = 0; To Do = 20; Doing = 50; Done = 100. Espero ter ajudado LGPD-Plano_de_Acao_5W2H_Modelo.xlsx
  15. De qualquer forma, mesmo sem integração com o TEF, nós precisamos mandar um documento para o cliente informando o valor, vencimento e valor de multa / juros. No meu ponto de vista, em uma folha A4 seria a fatura na parte de cima e, em baixo onde hoje é o boleto, um resumo da cobrança à esquerda e o QRCode à direita.
  16. Vcs sabem me dizer se no boleto, teremos a opção de imprimir OU o código de barras OU o QRCode? Se sim, já existe algum tipo de documentação de como será configurado esse QRCode para atendar ao PIX Cobrança (com vencimento futuro, valor de juros e multa)?
  17. Pessoal, fiz o curso e fiz a prova. Agora tenho certificação Exin - PDPF ! Bem, de tudo que eu estudei até agora, vi que a parte de sistema corresponde a aprox. 30% de todo o trabalho. Os outros 70% são processos que precisam ser revistos na empresa. Muda a relação entre: software - cliente - cliente do cliente empresa - colaboradores empresa - fornecedores O impacto no desenvolvimento será levantado a partir dessa semana mas tem uma dica que posso compartilhar já: como a LGPD só vale para as pessoas naturais (ou seja, vivas) trocamos todos os nomes do banco de testes para nomes de brasileiros famosos já falecidos, para não correr o risco de "vazar" dados de alguém chamado "José da Silva" ou o banco ficar com dados do tipo AAAA / BBBB. A partir de hoje Tim Maia, Cássia Eller serão nomes comuns para testes, rs E se tem uma regra de ouro da LGPD é a seguinte: só colete os dados estritamente necessários e que vc possa explicar o porque de cada campo. Aqueles cadastros cheios de informações que nunca são usados, precisam ser revistos e campos eliminados. "Só colete os dados que consegue proteger". Os relatórios também serão todos revistos, para que o usuário tenha a opção de emitir o relatório apenas com o código do cliente / fornecedor / funcionário. E para atender o direito de portabilidade, os dados precisam ser baixados / exportados em um formato de fácil acesso do tipo XML, CSV sem que dependam de um programa específico para abertura. São apenas levantamentos iniciais, pois o assunto é bem extenso. Acabei de criar o blog da empresa onde pretendo disponibilizar informações sobre a LGPD por lá https://powerlog.com.br/blog Vamos aguardar também o @marcopoloviana e suas publicações sobre o assunto.
  18. Hoje mesmo fiz inscrição no curso LGPD + GDPR: Imersão em proteção de dados da Opice Blum Academy e pretendo compartilhar toda documentação pertinente ao TI com vcs. Mas seria bacana mesmo que os Admins criassem um fórum exclusivo de LGPD.
  19. Aproveitando, vcs pretendem fazer o curso de DPO ?
  20. Pessoal, Como está a implantação da LGPD no software de vocês? Ações imediatas que pensamos em tomar: Criptografar todos os campos sensíveis (ainda a definir quais são os campos sensíveis) Conferir a segurança física do banco de dados (acesso ao arquivo FDB) Emitir política de privacidade (texto a definir) no primeiro login do usuário E vocês, como está o andamento, quais ações pretendem tomar e se tem algum outro órgão além do SERPRO para buscar informações.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.