SISBLU Software

Bom dia pessoal, é possível trazer o TELEFONE através da CONSULTA? ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].FONE;

Coloquei UTF8ToString para importar CONVERTIDO para minha tabela e deu certo. ClientDataSet1DESCRICAO.Value := UTF8ToString( aListaNCM[I].DescricaoNcm);

Não, estou com DELPHI 10.3.3 Windows 11

Bom dia, como posso importar a tabela com a descrição com acento correto?

Sim a mesma coisa pra mim. Eu implantei em meu sistema o https://cnpja.com/.. Fiz a rotina para BUSCAR primeiro no site CCC , se não encontra busca no CNPJA... ficou OTIMO, não tive mais problemas.. Muito bom. Fiz plano anual (Basic 2.500 consultas mês) cerca de R$ 324,00 por ano.... Fiz isso pq não sabia quanto ia consumir, mas para ter ideia no máximo 400 consultas mês, isso pq tenho cliente que usa muito. Então super indico, acabou meus problemas e suporte... Na próxima renovação farei a de (Basic 1000 consultas mês) cerca de R$ 216,00 por ano

Boa tarde, estou tentando importar arquivo do SICRED - 400 , mas creio que está fazendo a leitura correta. Não está pegando o valor correto, nem juros e data de pagamento... algumas faturas pega o valor recebido, outros não Segue arquivo 28355605.ret

Vou fazer isso... Italo, para o envio de JACAREI para outra CIDADE está ok de JACAREI PARA JACAREI está dando esse erro: O código de serviço prestado não permite retenção de ISSQN Porém no XML que é Autorizado pelo site da prefeitura tem o iss retido etc... XML Autorizado: Meu RPS

Sem em anexo XML_REF_NFSe 634.xml

function TUniMainModule.DigitoCidade( Codigo : String ) : String; var i, Valor, Soma: integer; Digito: string; const PESO = '1212120'; NAO_VALIDAR = '|2201919|2202251|2201988|2611533|3117836|3152131|4305871|5203939|5203962|'; begin if Length(Codigo) < 6 then begin Result := 'Tamanho Inválido'; exit; end; if pos('|' + copy(Codigo, 1, 6), NAO_VALIDAR) > 0 then begin Result := copy(NAO_VALIDAR,pos('|' + Codigo, NAO_VALIDAR)+1,7); exit; end; soma := 0; for i := 1 to 6 do begin valor := StrToInt(copy(Codigo, i, 1)) * StrToInt(copy(PESO, i, 1)); if valor > 9 then soma := soma + StrToInt(copy(IntToStr(valor), 1, 1)) + StrToInt(copy(IntToStr(valor), 2, 1)) else soma := soma + valor; end; digito := IntToStr((10 - (soma mod 10))); if ((soma mod 10) = 0) then digito := '0'; Result := copy(codigo,1,6) + Digito; end;

Bom dia Italo, eles disseram que retornam somente com 6 digitos... e não tem conversa, faz 2 semanas ja. Então o que decidi: consegui uma função que gera o digito verificador que falta, e deu certo. Porém como faço agora para que eu possa imprimir o xml? tenho que salvar um NOVO xml? A função que estou fazendo: DMAcbr.ACBrNFSeX1.NotasFiscais.Clear; DMAcbr.ACBrNFSeX1.NotasFiscais.LoadFromStream(DANFEStream); PrestadorXML:=DMAcbr.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Prestador.Endereco.CodigoMunicipio; TomadorXML:=DMAcbr.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Tomador.Endereco.CodigoMunicipio; tentei gravar no componente o codMunicipio, mas não deu certo DMAcbr.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Prestador.Endereco.CodigoMunicipio:=UniMainModule.DigitoCidade(PrestadorXML); DMAcbr.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Tomador.Endereco.CodigoMunicipio:=UniMainModule.DigitoCidade(TomadorXML); Deu certo, tanto que se eu faço um SHOWMESSAGE ele retorna com 7 digitos.... porém na hora da impressão da NOTA, ele não pega O que posso fazer?

Tanto o tomador quanto o Prestador está com cod municipio com 6 dígitos

Pessoal, verifiquei que quando eu CONSULTO a nota fiscal na prefeitura de Jacareí, o CODMUNICIPIO vem faltando 1 numero Correto seria: 3524402 Está vindo: <CodigoMunicipio>352440</CodigoMunicipio> isso quando clico em CONSULTAR para baixar o XML...Será alguma configuração no Componente???

Bom dia a todos, eu consegui imprimir a nota, porém a cidade EMITENTE e TOMADOR não imprime. O que preciso fazer? Na nota de SJC imprime normalmente o campo, mesmo que o XML da nota venha preenchido somente o campo: <CodigoMunicipio>352440</CodigoMunicipio> Em Jacareí é o mesmo campo que preenche, mas não imprime. verifiquei que quando eu carrego o XML no componente em SJC aparece: ShowMessage(DMAcbr.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Tomador.Endereco.CodigoMunicipio+'-'+DMAcbr.ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Tomador.Endereco.xMunicipio); Aparece CODMUNICIPIO e CIDADE e a o mesmo quando faço Jacareí aparece SOMENTE o CODMUNICIPIO.. sem a cidade Alguém pode me ajudar

Consegui arrumar... Era isso: if UniMainModule.IBQEmitentecMun.Text='3549904' = SÃO JOSE DOS CAMPOS FAZER: then DMAcbr.ACBrNFSeX1.Provider.ConfigGeral.QuebradeLinha := '&#xd;'; Pra Jacareí com essa opção não gerava assinatura corretamente Só não está imprimindo a CIDADE... tem alguma configuração no componente para imprimir a cidade? em SJC imprime ... Jacareí não imprime

https://servicos.receita.fazenda.gov.br/servicos/assinadoc/ValidadorAssinaturas.app/valida.aspx Quando passo pelo validador da receita diz que a assinatura não é válida