Antonio Gomes

Ao fazer a consulta de nfse por rps: unit ACBrNFSeWebServices function TNFSeConsultarNfseRPS.Executar: Boolean; na linha 2730... NFSeRetorno.Leitor.Arquivo := FRetWS; NFSeRetorno.LerXml; // Incluido por Ricardo Miranda em 14/03/2013 FRetWS := NotaUtil.RetirarPrefixos(FRetWS); <<<<<<<<<<< Quando faz isso......... o codigo de baixo nao funciona, pois tem o prefixo ns3 // Alterado por Rodrigo Cantelli if FProvedor = proBetha then FRetCompNfse := SeparaDados(FRetWS, Prefixo3 + 'ComplNfse') else FRetCompNfse := SeparaDados(FRetWS, Prefixo3 + 'CompNfse'); <<<<<<<<<<<<< Aqui não funciona Solução, comentei a linha que retira o prefixo.

Amigos, Gostaria de saber se é possível o webservice da ginfes na funcao ConsultaNFSeporRps não ser com raise se não conseguir consultar. A excessao levantada, não leva em conta o retorno da mensagem ser diferente de E89, apenas L000, e quando empilha as mensagens para retornar, apenas é concatenado a variavel Result := (FMsg = ''); o conteudo retornado em FMsg := FMsg + NFSeRetorno.ListaNfse.MsgRetorno.Items.Mensagem + IfThen(FMsg = '', '', ' / '); ignorando o codigo da mensagem. como solucao, irei usar a funcao de consulta dentro de try except na forma: function TFTransmissaoNFS.ConsultarNfsePorRps(RPS, SerieRPS, TipoRPS, PrestadorCNPJ, PrestadorIM: string): Boolean; begin try // Essa consulta retorna um raise se nao existe a nota pelo rps Result := dmComercial.ACBrNFSe1.ConsultarNfsePorRps(RPS, SerieRPS, TipoRPS, PrestadorCNPJ, PrestadorIM); except on E: Exception do begin //Aviso(dmComercial.ACBrNFSe1.WebServices.ConsNfseRps.Msg); if Pos('NAO EXISTE NA BASE DE DADOS UMA NFS-E EMITIDA PARA O NUMERO DA RPS INFORMADA', AnsiUpperCase(E.Message)) > 0 then // Se nao existe Result := True; end; end; end; Se alguem estiver usando Ginfes e fizer uso dessa funcao para verificar se o rps foi transmitido e usa de outra forma, por favor responda.

também estou com esse problema. Perdi a chance de transmitir o DPEC e a consulta nao retorna o protocolo, dai transmiti tudo para SEF e as NFe estão todas autorizadas e pelo codigo fonte da impressao do danfe, quando é dpec nao verifica se a nota ja possui o protocolo de emissao, simplesmente levanta o raise de falta de "Protocolo de Registro no DPEC não informado". Pensei mexer no codigo fonte da impressao do Danfe.

os casos em que há destaque do icms ST será destacado na nota, e no caso do danfe paisagem pode aparecer para impressao: CST 010, 030 e 070. Essas CSTs, usam os campos do grupo prod-> VBCST e VST. Vale ressaltar: Eu as tinha aqui porque alterei no meu pc, porém sincronizei do SVN tudo. Se você puder fazer o commit, faço as alterações e envio pra voce. O CDS de eventos, está sem os campos também. sobre esse problema: Isso foi feito apenas para facilitar o desenvolvimento na IDE do FAST. Daria para declarar os campos por fora no TfrxDataset, na propriedade: FieldAliases, assim como está no frxIdentificacao, dê uma olhada. Abraço.

Só nao gostei de ter tirado da unit as tags do produto VBCST VST Pois quando é usado a CST com tributacao de icms e cobranca por ST, o danfe paisagem que pode ter as colunas, não acha os campos. Outra coisa, não faz leitura das tags de subst. tributária de acordo com a CST.

Fiz uma correção na impressão do danfe.fr3, fastreport, na qual quando tinha mais de 2 paginas a impressão do produto parava no final do papel e deixava um espaço em branco no final do mesmo (espaço reservado para informação complementar) Dei uma modificada também na impressão das duplicadas, pois na versão anterior ocupava espaco demais se tiver mais de 12 parcelas, com isso os produtos tinham um espaço ainda menor. Alterei também o modo de impressão da informação complementar, passei a impressão para modo manual após finalizar a impressão do produto, pois a banda anterior era a razão de ficar o espaço em branco. DANFE_QUEBRA_PRODUTO.rar

Boa tarde: Ao receber o xml de NFS-e, o campo compentencia vem representado como ano+mes, pode ser alterado no codigo fonte ? //Retorna: 200109 (Ano+Mes) vCompetencia := Leitor.rCampo(tcStr, Prefixo + 'Competencia'); if vCompetencia <> '' then NFSe.InfNfse.Competencia := copy(vCompetencia, 5, 2) + '/' + copy(vCompetencia, 1, 4) else NFSe.InfNfse.Competencia := '';

solucao porca que achei, ao inves de destruir, comentar ou setar para nil o componente "RIO" (THttprio).

Bom dia a todos, Alguem tem passado por isso ao terminar de pedir a consulta do webservice da Ginfes NFSe, ao destruir o componente THTTPRio ? Rio.Free; << nessa linha

Como posso enviar um codigo fonte que precisei arrumar?