Antonio Gomes

ok, eu temia vc dizer os eventos kkk logo, aquela parte de codigoverificacao, datacanc, nada vem no retorno... Valeu.

Se foi eu lhe peço desculpas. águas passadas.. esquece. ---------- De fato, se arrumar ali, resolve o problema :)) mas... Pois, o fonte tem flag, de diferente de zero nos testes... há alguns casos, que testam > 0, é ate plausivel, dado, que esses locais, um vetor não tera -1 como elemento. Ou nem retornar o ZZ, mas vazio, alguem botou aquele -1 ali, pensando em não ter o elemento. Se alguem botou pensando nao achar a UF, logo, a correção, deve ser onde está o ZZ, se for -1, manter vazio ao inves do ZZ. debata com a equipe.

Como posso chegar no DPS / NFS-e cancelado via portal, para que seja sincronizado com o sistema:? Explicando, nos meus testes, cancelei varias notas no site, porém, ao acionar a consulta: ACBrNFSe1.ConsultarNFSePorChave(ChaveNFSeNacional), em TNFSeConsultaNFSeResponse, não apareceu a informação da data de cancelamento, assim como ocorre nos provedores locais hoje. Qual comando poderia usar para receber a dataCanc maior que zero ? Grato.

pdf vc salva assim: if ChaveNFSeNacional <> '' then begin FuncNFSeX.ACBrNFSe1.ObterDANFSE(ChaveNFSeNacional); var ConsultaNFSe: TNFSeConsultaNFSeResponse; ConsultaNFSe := FuncNFSeX.ACBrNFSe1.WebService.ConsultaNFSe; if ConsultaNFSe <> nil then begin // pdf aqui ConsultaNFSe.ArquivoRetorno - passa para tstream, e salva no banco, essa funcao, se tiver parametrizada, salva no seu pc tambem TCaixasDeDialogo.Informacao(ConsultaNFSe.ArquivoRetorno); end; end; se tiver nfse gerada, vem o pdf

Sugestão: with AACBrBoleto do begin Banco.TipoCobranca := AACBrBoleto.GetTipoCobranca( ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_BAN').AsInteger {077}, ADataSetConfigServicoBanco.FieldByName('CARTEIRA_SER').AsString {112 - carteira da sua conta} ); Quando atribuir em TipoCobranca, acionará o SetTipoCobranca, que cria o objeto, que coloca o banco correto... .. demais configuracoes

voce deve colocar o numero do banco antes de pedir impressao, olha if Banco.Numero = 0 then // bota 77 aqui no TACBrBoleto raise Exception.Create( ACBrStr('Banco não definido, impossivel listar boleto') );

Pois é, depois que voce falou, eu fiz uma nota com o cnpj que estou testando, nela veio a tributação como se fosse 1-Operacao tributavel, ai fiquei naquela duvida, mei, ate onde sabia, pela prefeitura, não é tributavel, uma vez que é recolhido o issqn via boleto do simei...

não sei, melhor né, analisa voces o codigo fonte, so dei como sujestão, desde o dia que mandei fonte e voces ficaram chateados, parei de mandar.

Pois é Italo, alem dessa falha do ZZ, vi que está relacionado o erro, com aquele erro da mensagem seguinte que passei, do "Exportacao de servico", pelo fato da ordem ser inversa, logo, passa pedir dados do pais. A unit eu fiz gambia, pq precisava testar mais coisas. faltou a unit o que fiz, a direita na imagem

Pois é, eu pensei dar um de Katia cega, e colocar imunidade, para sair no site da nfse certo no pdf, mando imunidade, para reconhecer certo como "Não incidencia". Que alias, no MEI, tenho enviado o "Não incidencia", nem sei se tá certo também, pelo demo, manda operação 1, por isso não gerou aquele erro anterior, da exportação.

@Italo Giurizzato Junior Solucao: Inverter essas funcoes para isso: Tem como corrigir ? function tribISSQNToStr(const t: TtribISSQN): string; begin Result := EnumeradoToStr(t, ['1', '2', '3', '4'], [tiOperacaoTributavel, tiImunidade, tiExportacao, tiNaoIncidencia]); end; function StrTotribISSQN(out ok: boolean; const s: string): TtribISSQN; begin Result := StrToEnumerado(ok, s, ['1', '2', '3', '4'], [tiOperacaoTributavel, tiImunidade, tiExportacao, tiNaoIncidencia]); end;

Olá, pelo manual, o campo tribISSQN segue a ordem: Tributação do ISSQN sobre o serviço prestado: 1 - Operação tributável; 2 - Imunidade 3 - Exportação de serviço; 4 - Não Incidência; No aCBR unit ACBrNFSeXConversao function tribISSQNToStr(const t: TtribISSQN): string; begin result := EnumeradoToStr(t, ['1', '2', '3', '4'], [tiOperacaoTributavel, tiExportacao, tiNaoIncidencia, tiImunidade]); end; Com isso, ao gerar o xml, esta indo como exportacao, botei na nota, nao incidencia.

Bug encontrado: Ao dar loadfromfile no arquivo de DPS, o campo Servico.CodigoPais, vem com valor -1, ao inves de zero, fazendo com que coloque um ZZ no xml de envio. bug nessa funcao: function TNFSeW_PadraoNacional.GerarLocalPrestacao: TACBrXmlNode; begin Result := CreateElement('locPrest'); Result.AppendChild(AddNode(tcStr, '#1', 'cLocPrestacao', 7, 7, 0, NFSe.Servico.CodigoMunicipio, '')); if (NFSe.Servico.CodigoPais <> 0) and (NFSe.Servico.CodigoPais <> 1058) then Result.AppendChild(AddNode(tcStr, '#1', 'cPaisPrestacao', 2, 2, 0, CodIBGEPaisToSiglaISO2(NFSe.Servico.CodigoPais), '')); end; quando vem NFSe.Servico.CodigoPais = -1, CodIBGEPaisToSiglaISO2 retorna: 'ZZ' @Italo Giurizzato Junior Olha se pode ser corrigido com isso? unit PadraoNacional.LerXml; Linha 904 procedure TNFSeR_PadraoNacional.LerLocalPrestacao(const ANode: TACBrXmlNode); var AuxNode: TACBrXmlNode; begin AuxNode := ANode.Childrens.FindAnyNs('locPrest'); if AuxNode <> nil then begin with NFSe.Servico do begin CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('cLocPrestacao'), tcStr); CodigoPais := SiglaISO2ToCodIBGEPais(ObterConteudo(AuxNode.Childrens.FindAnyNs('cPaisPrestacao'), tcStr)); if CodigoPais < 0 then //// aqui CodigoPais := 0; // aqui end; end; end;

MEI, Padrao nacional, empresa de minas, para minas. Em uma emissão de empresa mei, via sistema, ocorre essa falha: "E0330-É obrigatório prestar informações de todos os campos relativos ao comércio exterior para as situações de exportação de serviços., X203-Não foi retornado nenhuma NFSe." Alguém que já tenha passado por isso, os paises e cidade estão tudo dentro do brasil. Não é servico no exterior, cidades de MG, pais 1058. Falha ocorre ao tentar transmitir a DPS. DPS gerada pelo sistema: <DPS xmlns="http://www.sped.fazenda.gov.br/nfse" versao="1.00"> <infDPS Id="DPS316990123382041700015000001000000000000001"> <tpAmb>1</tpAmb> <dhEmi>2023-09-05T00:00:00-03:00</dhEmi> <verAplic>Sis_2.23.8.30</verAplic> <serie>1</serie> <nDPS>1</nDPS> <dCompet>2023-09-04</dCompet> <tpEmit>1</tpEmit> <cLocEmi>3169901</cLocEmi> <prest> <CNPJ>000000000000</CNPJ> <IM>00000</IM> <xNome>empresa</xNome> <end> <endNac> <cMun>3169901</cMun> <CEP>36507000</CEP> </endNac> <xLgr>R. xxx</xLgr> <nro>00093</nro> <xBairro>bairro do prestador</xBairro> </end> <fone>00000000</fone> <email>[email protected]</email> <regTrib> <opSimpNac>2</opSimpNac> <regEspTrib/> </regTrib> </prest> <toma> <CNPJ>00000000000000</CNPJ> <xNome>cliente</xNome> <end> <endNac> <cMun>3156304</cMun> <CEP>36510000</CEP> </endNac> <xLgr>AV x</xLgr> <nro>10</nro> <xBairro>bairro</xBairro> </end> <fone>32000000000</fone> <email>[email protected]</email> </toma> <serv> <locPrest> <cLocPrestacao>3169901</cLocPrestacao> </locPrest> <cServ> <cTribNac>140201</cTribNac> <xDescServ>assistencia tecnica</xDescServ> <cNBS>115013000</cNBS> </cServ> </serv> <valores> <vServPrest> <vServ>390.60</vServ> </vServPrest> <trib> <tribMun> <tribISSQN>1</tribISSQN> <tpRetISSQN>1</tpRetISSQN> </tribMun> <totTrib> <indTotTrib>0</indTotTrib> </totTrib> </trib> </valores> </infDPS> </DPS> Grato por uma dica qualquer.

na conta ou no display name? tive um contratempo desse, a pessoa colocou o nome todo no email

posta como voce repassou os dados para o componente, nao tem falha nesse banco, uso ele.... Sugestão: Pastinha do ACBr: ...ACBr2wc\Fontes\ACBrBoleto Particularidades.html ou Particularidades.odt ou Particularidades.pdf Pode ajudar voce na empreitada

esta atribuindo coisa alem de numero nos parametros, olha o erro, olha se esta colocando espacos tambem, na conta, cedente.. A agencia e beneficiario sua, tá repetido o numero 3886, pode ser um indicio de algo anormal.

tem manual esse banco ?

tem manual ? Como funciona a carteira de cobrança desse banco? api/cnab?

Mano: Explore o componente... linha digitável DVBoleto := ACBrBoleto.Banco.CalcularDigitoVerificador(ACBrTitulo); CodigoBarras := ACBrBoleto.Banco.MontarCodigoBarras(ACBrTitulo); LinhaDigitavel := ACBrBoleto.Banco.MontarLinhaDigitavel(CodigoBarras, ACBrTitulo); NossoNumeroFormatado := ACBrBoleto.Banco.BancoClass.MontarCampoNossoNumero(ACBrTitulo);

dá uma lida em particularidades, de fato, tem que ser 01 mesmo, e sicoob está ok no projeto, nao tem erro, usando aqui. olha onde vc salva os componentes: ACBr2wc\Fontes\ACBrBoleto\Particularidades.pdf

não tem problema no banco caixa, voce deve ter enviado é as coisas errada, esse banco é nojentinho... igual BB sugiro, ler isso: Na sua pasta do componente: \ACBr2wc\Fontes\ACBrBoleto\Particularidades.pdf Posta como vc colocou os dados no componente.

Alem disso, tem a autenticação oauth, se não quiser fazer tudo isso. Nisso, seu aplicativo ficará como fica o thunderbird Exemplo: https://github.com/geoffsmith82/GmailAuthSMTP

posta seu codigo fonte no privado? ajudo vc...

Como voce coloca o nosso numero no componente? tem umas mandingas que precisam ser olhadas, como nao ser com DV na hora de gerar, não colocar ele com zeros formatado, pq o componente faz copy do que vc informa, coloca aqui como vc manda para dentro do objeto titulonalista.