powerlog

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: ---------

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.

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:

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

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

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)

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;

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

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

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.

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)?

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.

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.

Aproveitando, vcs pretendem fazer o curso de DPO ?

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.