Marcos Gerene

Boa tarde Ítalo, Minha alteração corrige a necessidade do certificado desnecessária e eu fiz ao perceber isto para debugar o problema deste tópico que é igual o que eu postei anteriormente. Hoje eu continuo com esse problema, mas nestes dias estou resolvendo um problema urgente em um cliente meio grande e tive que parar, acredito que na sexta vou retomar os testes, talvez eu entre em contato com o suporte do SimplISS para ver se eles podem ajudar em algo. []'s

Bom dia ítalo, Este post é pouco antigo, já notei a correção a uns dias, mesmo assim, muito obrigado pela atenção []'s

Obrigado, []'s

Boa noite, Eu deixei o padrão do componente (não alterei), porém o SilmplISS não necessita de certificados, por isso fiz o post abaixo com uma proposta para não precisar preencher o número de série (eu tenho um certificado A1 instalado e hoje informo o número de série normalmente). http://www.projetoacbr.com.br/forum/topic/27492-melhoria-quando-não-preencher-o-certficado/ []'s

Boa tarde, Já havia tentado esses passos, atualizo os componentes diariamente. Obrigado pela atenção

Bom dia, Não obtive sucesso, debuguei hoje, até fiz algumas alterações no componente (e sugeri uma melhoria) mas ainda não encontrei a solução. Att, Marcos

Bom dia, O SimplISS não usa certificado, mas mesmo assim o componente obriga informar o mesmo, fiz duas pequenas mudanças para driblar esse problema aqui para mim, segue em anexo para análise. ACBrDFeCapicomDelphiSoap.pas ACBrDFeWebService.pas PS: Olhem com mais carinho a alteração no ACBrDFeWebService, não sei se não influenciaria mesmo para mais ninguém. Att, Marcos

Boa noite @Michele Ainda não, infelizmente. Att, Marcos

Fiz agora o procedimento todo e não obtive sucesso, estou com os fontes atualizados e recompilei os pacotes para garantir mas não obtive sucesso... NFSe.Configuracoes.Geral.CodigoMunicipio := FrmPrincipal.QryConfigCID_CODIGO_IBGE.AsInteger; NFSe.Configuracoes.Geral.UserWeb := FrmPrincipal.QryConfigCONF_CNPJ_EMPRESA.AsString; NFSe.Configuracoes.Geral.SenhaWeb := FrmPrincipal.QryConfigCONF_NFSE_SENHA.AsString; NFSe.Configuracoes.Geral.PathIniCidades := ExtractFilePath(Application.ExeName); NFSe.Configuracoes.Geral.PathIniProvedor := ExtractFilePath(Application.ExeName); NFSe.Configuracoes.Arquivos.PathSalvar := ExtractFilePath(Application.ExeName) + 'NFSe\XML'; NFSe.Configuracoes.Arquivos.Salvar := True; NFSe.Configuracoes.Arquivos.SalvarApenasNFSeProcessadas := False; NFSe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'SchemasNFSe\' + NFSe.Configuracoes.Geral.xProvedor; if not DirectoryExists(NFSe.Configuracoes.Arquivos.PathSchemas) then ShowMessage('Schemas não encontrado!'); NFSe.Configuracoes.Geral.Emitente.CNPJ := FrmPrincipal.QryConfigCONF_CNPJ_EMPRESA.AsString; NFSe.Configuracoes.Geral.Emitente.InscMun := FrmPrincipal.QryConfigCONF_INSCMUN.AsString; NFSe.Configuracoes.Geral.Emitente.RazSocial := FrmPrincipal.QryConfigCONF_RAZAO_EMPRESA.AsString; NFSe.Configuracoes.Geral.Emitente.WebUser := FrmPrincipal.QryConfigCONF_CNPJ_EMPRESA.AsString; NFSe.Configuracoes.Geral.Emitente.WebSenha := FrmPrincipal.QryConfigCONF_NFSE_SENHA.AsString; NFSe.Configuracoes.Geral.Emitente.WebFraseSecr := FrmPrincipal.QryConfigCONF_NFSE_FRASESCRETA.AsString;

Boa tarde Ítalo, Este? http://www.projetoacbr.com.br/forum/announcement/17-acbrnfse/

Bom dia a todos, Ao executar a função ConsultarNFSeporRps recebo uma exception em branco do componente já a um tempo, hoje resolvi salvar os arquivos do webservice e tentar ver qual a exceção real e vi esta mensagem: Segue em abaixo o xml de envio e de retorno do webservice, se for necessária mais alguma informação estou a disposição.. 1114E-con-nfse-rps-soap.xml 1114E-comp-nfse-soap.xml PS: Apenas removi a senha do -rps por segurança, já que o SimplISS não pede certificado.

Bom dia, Adicione aos seus Uses a classe pnfsConversao. []'s

Boa tarde, Hoje quando não está preenchida a propriedade PathIniCidades do ACBrNFSe ao definir o município o componente "se vira", porém ao tentar consultar aparece a mensagem de que o não pode encontrar o Cidades.ini (como podem ver nos prints abaixo). Fiz uma pequena alteração que sanou o problema e acho que não terá impactos negativos para outros usuários, segue para análise e posterior commit. ACBrNFSeConfiguracoes.pas []'s O Problema: No SetCodigoMunicipio: Correção

Boa tarde, G5 é um software da contimatic para escritórios de contabilidade. Ele tem um layout próprio chamado MimeSPED que basicamente é o layout padrão do Sefaz acrescido com algumas informações para gerar o SPED Fiscal e Contribuições. Existem outros softwares além deste que importam o layout padrão de forma modificada e foi justamente por isso que criaram os eventos do ACBrSPED lá atrás. Origem de tudo (foi até saudoso ver este tópico, rs): Porém agora surgiu a necessidade de ter também o evento de OnWrite no registro C460, então implementei e subi as units para quem também precisasse. []'s

Bom dia, No layout do G5 os arquivos do SAT devem ser informados no registro C400 e filhos (junto com as ECFs), porém com alguns dados a mais do que o layout padrão Para esse tipo de situação foi criado os métodos BeforeWrite, OnWrite e AfterWrite em alguns registros do ACBrSPEDFiscal, porém o registro C460 que precisa adicionar 3 campos não tem o método OnWrite implementado. Fiz a implementação. Seguem as units para análise e posterior commit (caso aceitas). ACBrEFDBloco_C_Class.pas ACBrEFDBloco_C_Events.pas

Boa tarde, Tentei corrigir esse problema, mas infelizmente sou um pouco (muito) cru em OO em Delphi e principalmente nos padrões que segue o ACBr. De qualquer forma consegui fazer com que o erro parasse de acontecer no SimplISS e em outros provedores seria só setar a opção SetInternetOptionClient para 0 ou 1 conforme a necessidade dentro de suas respectivas INIs. O erro específico cessou, porém ao tentar transmitir recebo um erro em branco, mas não consigo identificar o que é. Caso alguém queira tentar me ajudar ou fazer em conjunto segue as Units alteradas e o .ini com o novo parâmetro, o erro acima já foi corrigido, o sistema só vai entrar naquela validação que ocasiona o problema se o SetInternetOptionClient for 1. ACBrDFe.pas ACBrDFeCapicomDelphiSoap.pas ACBrDFeConfiguracoes.pas ACBrDFeSSL.pas ACBrNFSeConfiguracoes.pas SimplISS.INI Att, Marcos

Bom dia, Em um pesquisa rápida no Bing... https://www.bing.com/search?q=qual+cst+usar+pis%2Fcofins&form=EDGNTC&qs=PF&cvid=b7f9fc2bf4004450bc5cbaaf6e4d65b4&pq=qual%20cst%20usar%20pis%2Fcofins Achei esse blog... http://www.joseadriano.com.br/forum/topics/tabela-cst-piscofins-x-cfop Com essa tabela... http://api.ning.com/files/3LkIyBn0MwjqDiufcUkkbyg2RbmUcWlGhHoyTBUf-sZmArHeLCSniLTdVW0-CHppRMK9ChEArfOCyblbdHgWz5qVMR37iR3p/TabelaCSTxCFOPPISCOFINS.xlsx Neste caso a tabela é uma relação com o CFOP, o que faria um pouco mais de sentido para tratar operações como devolução, simples remessa, etc.. De qualquer forma, nunca usei nada desse tipo, meus clientes seguem um "padrão", geralmente usam 01/50, consulte um contador antes, é mais seguro... OBS: Acredito que seu tópico se enquadraria melhor aqui: http://www.projetoacbr.com.br/forum/forum/5-legislação-fiscal-e-tributária/ Espero ter ajudado, Marcos

Isaque, trata-se do CFOP e não do CNPJ... Na função LFill, ele aceita 3 atributos, o último é se o valor pode ser nulo, neste caso eu simplesmente disse que podia... function TACBrTXTClass.LFill(Value: Int64; Size: Integer; Nulo: Boolean; Caracter: Char): String; begin /// Se o parametro Nulo = true e Value = 0, será retornado '|' if (Nulo) and (Value = 0) then begin Result := FDelimitador; Exit; end; Result := LFill(IntToStr(Value), Size, False, Caracter); end;

Bom dia, Hoje ao gerar o registro 1900 do Sped Contribuições (Pis/Cofins), quando coloco o CFOP com valor 0 o componente preenche o campo com 0000, porém o validador acusa que o CFOP 0000 não existe, então apago o valor 0000 deixando em branco || "pipe pipe" e o arquivo valida normalmente. Fiz uma alteração na função "WriteRegistro1900". Add( LFill( '1900' ) + LFill( CNPJ ) + LFill( COD_MOD ) + LFill( SER ) + LFill( SUB_SER ) + LFill( CodSitFToStr(COD_SIT) ) + LFill( VL_TOT_REC,0,2 ) + LFill( QUANT_DOC,0 ) + LFill( CstPisToStr(CST_PIS) ) + LFill( CstCofinsToStr(CST_COFINS) ) + LFill( CFOP, 4, True ) + //Antes: LFill( CFOP, 4 ) + LFill( INF_COMPL ) + LFill( COD_CTA ) ) ; Fazendo com que quando passe o valor 0 para o CFOP fique em branco ao invés de 0000. Segue a unit modificada caso a alteração seja aceita: ACBrEPCBloco_1_Class.pas Att, Marcos

Bom dia, Funcionou hoje sem motivo aparente... obrigado a todos

Bom dia a todos, Estou com um probleminha ao tentar cancelar o ultimo cupom SAT recebo este erro (Chave de acesso inválida). Porém eu simplesmente mandei cancelar o ultimo cupom... O arquivo do loadfromfile existe e a aplicação roda passando parâmetros pra uma cópia do Demo. FrmSat.bInicializar.Click; FrmSat.ACBrSAT1.CFe.LoadFromFile(ExtractFilePath(Application.exename)+'\CFesEnviados\AD'+ Query.FieldByName('COM_SAT_ARQUIVO').AsString); FrmSat.ACBrSAT1.CFe2CFeCanc; FrmSat.mCancelamentoEnviar.Lines.Text := Frmsat.ACBrSAT1.CFeCanc.GerarXML( True ) ; // True = Gera apenas as TAGs da aplicação FrmSat.edChaveCancelamento.Text := FrmSat.ACBrSAT1.CFe.infCFe.ID; FrmSat.miEnviarCancelamento.Click; Arquivo Original (venda que estou tentando cancelar): AD35151211111111111111591234567890000721565457.xml CFe_ 3515 1211 1111 1111 1111 5912 3456 7890 0007 2156 5457.pdf PS: O tempo não passou pois estou tentando cancelar logo após emitir (1 minuto de diferença). ------------- Testando com o Demo: Log: -- 12:34:04:052 - numeroSessao: 225996 - Comando: CancelarUltimaVenda( CFe35151211111111111111591234567890000737004395, <CFeCanc><infCFe chCanc="CFe35151211111111111111591234567890000737004395"><ide><CNPJ>10199421000147</CNPJ><signAC>euJdt2l8w/ct+EKSarMFjoR03mHqLr8QKY+pXCdIUmHxmqvxVvdDSufQXZoGrE80upzPTJ7d0OoS/rbpHJjKnDaaGD8wSLXBpMXeOSO07FNegZZiUV/lt5VNCVyHDSbpwAWt2vZPF0QHM4fZgHVtPIzxF9Jb2bv1o5aO4rDpSEYW1WPIvMAhnXOthQ7CIyIbtmF16d+MrJObXjhjMm9zzSjNhrQGmxwsujPS8L9Tl95VgZswmZ/g9lExZ1kjSUND/hUpQ8VbBsxD43mwJDNIcz+ztFS8Ntse172mk3/otNArTvO6Bqvqb6aA9aljZ62meG9N0NapiZpyrjV5aQxexw==</signAC><numeroCaixa>001</numeroCaixa></ide><emit></emit><dest></dest><total></total></infCFe></CFeCanc> ) NumeroSessao: 225996 - Resposta:225996|07007|1270|Erro de validação do conteúdo.|| XML Cancelamento: <CFeCanc><infCFe chCanc="CFe35151211111111111111591234567890000737004395"><ide><CNPJ>10199421000147</CNPJ><signAC>euJdt2l8w/ct+EKSarMFjoR03mHqLr8QKY+pXCdIUmHxmqvxVvdDSufQXZoGrE80upzPTJ7d0OoS/rbpHJjKnDaaGD8wSLXBpMXeOSO07FNegZZiUV/lt5VNCVyHDSbpwAWt2vZPF0QHM4fZgHVtPIzxF9Jb2bv1o5aO4rDpSEYW1WPIvMAhnXOthQ7CIyIbtmF16d+MrJObXjhjMm9zzSjNhrQGmxwsujPS8L9Tl95VgZswmZ/g9lExZ1kjSUND/hUpQ8VbBsxD43mwJDNIcz+ztFS8Ntse172mk3/otNArTvO6Bqvqb6aA9aljZ62meG9N0NapiZpyrjV5aQxexw==</signAC><numeroCaixa>001</numeroCaixa></ide><emit></emit><dest></dest><total></total></infCFe></CFeCanc> Obrigado, Marcos

Boa tarde, Em outro post teve um usuário que havia postado uma solução para este problema além de uma DLLs em C#, porém o post se encaminhou para uma discussão (no bom sentido) sobre as DLLs em C# e foi "ignorado" a correção feita para o componente já existente, eu até fiz uma pergunta se a correção tinha sido aceita mas não obtive resposta. O Post: Minha pergunta: Hoje pesquisando um pouco sobre o fonte para entender melhor o GNRe acabei lembrando desse detalhe e como tinha um pouco mais de tempo resolvi debugar para ver aonde o erro ocorria e vi que o mesmo ocorre na ACBrDFeCapicomDelphiSoap no evento before post e é um erro "forçado" (pois parte de uma validação que gera um exception). Notei que o amigo do post que citei fazia uma alteração nessa unit assim: // MESTRE SISTEMAS if SetCertContext and not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, SizeOf(CERT_CONTEXT)) then raise EACBrDFeException.Create('Erro ao ajustar INTERNET_OPTION_CLIENT_CERT_CONTEXT: ' + IntToStr(GetLastError)); // MESTRE SISTEMAS Joguei as informações e units que foram liberados no post anterior no lugar do que eu tinha aqui para testar, mas não consegui chegar até o ponto que força esse exception. Algum dos moderadores poderia me dizer se essas alterações foram analisadas? O que foi sugerido pode ser aproveitado? Att, Marcos

Hoje meu cliente emitiu notas normalmente como se nada tivesse acontecido.. estou até agora sem entender o porque

Bom dia Juliano Rosa, Meu cliente também é da Bahia, sei que ontem (01/12) passou a valer a NT 2015/002, mas não sei se a mesma influenciaria nesse erro e sei também que se você mudar a data de emissão para 30/11 emite a nota normalmente. O problema é que o erro não é claro para eu corrigir no sistema então desde ontem o cliente está emitindo nota como 30/11 e não faço ideia do que seja o problema nas minhas notas. Infelizmente estamos no mesmo barco, ainda estou perdido rs Att, Marcos