Painel de líderes

Declare a unit ACBrImage que o método foi migrado para ela.

Bom dia, Estamos neste momento com o tema SPED acontecendo no Papo Pro ACBr, recomendo que depois acompanhe também a gravação para pegar desde o inicio. https://discord.gg/H9eFx2SJ?event=936698385329692682 At.

Feito. Não tenho conta no hotmail para testar. Caso alguém que tenha feito os passos note algo a melhorar nas instruções, por favor nos avise.

Bom dia No arquivo ACBrBoletoW_Sicredi_API.pas na procedure GerarPagador , no campo CEP está sendo feito conversão de string para integer, causando rejeição nos CEP que inicia com "0", exemplo "03059030" "Mensagem=ORA-20001: ECCRL0113 : CEP inválido. (Não cadastrado no Sistema da Carteira de Cobrança!)." mudei de aJson.Add('cep').Value.AsInteger := StrToInt(OnlyNumber(Titulos.Sacado.CEP)) para aJson.Add('cep').Value.AsString := OnlyNumber(Titulos.Sacado.CEP); venho utilizando diariamente e esta funcionando. Sem mais problemas unit alterada em anexo. @Aggille Sistemas de Gestão @Victor H. Gonzales - Panda ACBrBoletoW_Sicredi_API.pas

Ok, perfeito, funcionou... rsrsr Obrigado

Para fins de estatística, estou com o mesmo problema em um usuário. Abri um chamado pra tentar descobrir se era problema com as notas, mas pelo visto deve ser algo da Sefaz mesmo. Se responderem coloco aqui.

Depois de alguns dias, consegui o que precisava, no tipo de campo 100 vem informado o tipo de cartão. Então vou conseguir saber se é Debito, Crédito ou outro. Com isso vou conseguir o que preciso. Obrigado pela ajuda Att João Victor

Por falta de atenção, marquei incorretamente a solução. Me desculpe, terei mais atenção

Conforme já expliquei sou novo nas Lib ACBr mas estou gostando muito, portanto gostaria de postar aqui a forma que fiz para N Titulos usando as Classes. O codigo abaixo se alguém achar bom, por favor pode otimizar. Parabéns a equipe ACBr. Dim Boleto As New ACBrLib.Boleto.ACBrBoleto Dim Titulo As New ACBrLib.Boleto.Titulo Dim Titulos As New List(Of ACBrLib.Boleto.Titulo) Dim N As Int32 = 1 Boleto.LimparLista() Call DataRowObject(drConta, Boleto.Config.Banco, "Banco.") 'DataColumn.name=Prefixo+Property.Name, caso seja necessário Call DataRowObject(drConta, Boleto.Config.Cedente, "Conta.") Call DataRowObject(drConta, Boleto.Config.Cedente, "Cedente.") For Each dr As DataRow In tbCompromisso.Rows Titulo = New ACBrLib.Boleto.Titulo Titulo.NossoNumero = N.ToString("0000000000") Call DataRowObject(dr, Titulo, "Titulo.") Call DataRowObject(dr, Titulo.Sacado, "Sacado.") Call DataRowObject(dr, Titulo.Sacado.Avalista, "Sacado.Avalista.") Titulos.Add(Titulo) Next Boleto.IncluirTitulos(Titulos.ToArray()) Boleto.Imprimir() 'Função para popular os Types Private Shared Sub DataRowObject(dr As DataRow, sender As Object, Optional ByVal Prefixo As String = "") 'ler propriedades - obter valor em datarow.column - atribuir valor a propriedade Dim T As Type = sender.GetType() Dim value As Object, Col As String, obj As Object For Each P In T.GetProperties(BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.NonPublic) Select Case True Case dr.Table.Columns(Prefixo & P.Name) IsNot Nothing Col = Prefixo & P.Name Case dr.Table.Columns(P.Name) IsNot Nothing Col = P.Name Case Else : Continue For End Select If String.IsNullOrEmpty(dr(Col).ToString) Then Continue For value = P.GetValue(sender) Select Case P.PropertyType() Case GetType(Integer) Integer.TryParse(dr(Col), value) Case GetType(Boolean) value = CBool(Integer.TryParse(dr(Col), value)) Case GetType(String) value = dr(Col).ToString Case GetType(System.Decimal), GetType(System.Double) Decimal.TryParse(dr(Col), NumberStyles.Number, NumberFormatInfo, value) Case GetType(System.DateTime) DateTime.TryParseExact(dr(Col), {"dd/MM/yyyy"}, Nothing, DateTimeStyles.AssumeLocal, value) Case Else Select Case True Case P.PropertyType.BaseType Is (GetType(System.Enum)) Integer.TryParse(dr(Col), value) Case P.PropertyType.FullName.Contains("System.DateTime") 'este case é devido não saber ainda como pegar classe Nullable-datetime DateTime.TryParseExact(dr(Col), {"dd/MM/yyyy"}, Nothing, DateTimeStyles.AssumeLocal, value) Case P.PropertyType.FullName.Contains("System.Decimal") 'este case é devido não saber ainda como pegar classe Nullable-datetime Decimal.TryParse(dr(Col), NumberStyles.Number, NumberFormatInfo, value) Case Else value = New Generic.List(Of String) From {dr(Col).ToString} Continue For End Select End Select P.SetValue(sender, value) Next End Sub A liguagem utilizada VB.NET VS 2019

Para fica registrado aqui, o @Paikan esta usando a versão do nuget da Lib, por isso so vinha a versão demo da Lib, toda vez que compila é copiado a versão demo para a pasta bin, se colocar a versão final no deployment ou dentro da pasta bin e executar o exe direto de lá funciona normal.

Obrigado Renato, vou fazer a leitura para ter uma melhor visão. desde já grato

Vou mudar para Chave de Autorização, já liguei até na C-Lig "provedor de internet" para liberar todas as portas e nada. Estou usando o demo exemplo, antes de migrar meu sistema, pois ele está no NFSe e não no NFSeX. Nossa só dor de cabeça.

O problema é o 1600, note que está acusando como inválido. Na dúvida, verifica no manual, mas provavelmente é só não manda-lo. O Elton informou ontem, em caso semelhante no discord, que a partir de 01/01/2022, não se informa mais o registro 1600. Mensagem discord

a unica alteração que houve foi zerar a contagem de registro do 1601 recente no mais as outras são de dezembro você mesmo pode ver no log do svn

Bom dia! Não sei se ainda está assim mas esta foi uma resposta da Secretaria da Fazenda - Governo do Estado de São Paulo. Fonte: https://tdn.totvs.com/display/public/ConSeg/CF-e+Sat+-+Ultrapassar+o+Sublimite+do+Simples+Nacional+-+Informar+o+Regime+Simples+ou+Normal Fonte: https://portal.fazenda.sp.gov.br/servicos/sat Tópico movido para a área PRO para que o SLA de respostas seja considerado.

Conseguir resolver esse problema, removendo os caracteres especiais nos campos que contem descrição.

Correto, obrigado pela observação. Aristarco

O certificado está tudo OK. Pelo que puder ver, o problema foi na Sefaz, pois, mais de um cliente reportou o mesmo problema e depois voltou ao normal. Muito estranho!!! Tudo normalizado agora.

Bom dia pessoal, Afim de manter as resoluções e orientações acessíveis a toda a comunidade, uma vez que desta forma teremos apoio dos demais colegas, pedimos que toda troca de informação seja realizada por meio das postagens no fórum e em caso de informações sensíveis, pode ser enviada uma mensagem privada (MP) At.

Boa tarde a todos, Para quem utiliza o componente ACBrCTe e estava com dificuldades de gerar o Hash de Entrega, poderá se utiliza de uma das duas funções que acabam de ser disponibilizadas na unit ACBrDFeUtil. São elas: function CalcularHashDados(const ADados: TStream; AChave: String): string; Devemos utilizar a função acima quando a imagem esta armazenada no banco de dados, neste caso o conteúdo da mesma é passado como Stream no primeiro parâmetro da função, já o segundo é a chave do CT-e. A função retorna uma string com 28 caracteres que devemos atribuir ao campo: infEvento.detEvento.hashEntrega Exemplo: infEvento.detEvento.hashEntrega := CalcularHashDados(xStreamImagem, xChaveCTe); e function CalcularHashArquivo(const APathArquivo: String; AChave: String): string; Devemos utilizar a função acima quando a imagem esta salva em disco, neste caso o primeiro parâmetro da função é o path com o nome do arquivo (imagem) e o segundo é a chave do CT-e. A função retorna a string com 28 caracteres que devemos atribuir ao campo: infEvento.detEvento.hashEntrega Exemplo: infEvento.detEvento.hashEntrega := CalcularHashArquivo(xPathImagem, xChaveCTe);

Boa tarde Sergio. O problema é exatamente o mesmo. A solução com certeza não é, pois a versão já esta no 0.7. Quando coloco a DLL que estava junto com o driver instalado, da o problema deste tópico de access violation. Quando coloco as DLLs do pacote do ACBR da pasta DIMEP, retorna "Porta serial () não está pronta". Já pesquisei pra caramba, sem sucesso. não sei mais o que fazer.... testamos em windows 10 e agora estamos testando em windows 7 32 bits. Coloquei tambem as duas DLLs que acompanham a dll sat da pasta DIMEP do acbr. Obrigado Sergio pela atenção. Conseguimos fazer funcionar. agora estou com problema de "XML mal formado (ICMS)", mas o mesmo XML valida no SAT da TANCA... vou pesquisar sobre. abraços