Painel de líderes

Bom dia Pessoal, não sei se é válido o que vou comentar, mas para nós parou de funcionar alguns clientes de Hotmail e Gmail. Parou de funcionar os que configuraram "Autenticação em 2 etapas". Aí para estes casos lá na conta do Gmail e do Hotmail tem uma opção para criar senha de App, aí o próprio gmail e hotmail cria uma senha nova para ser usada em outros aplicativos de terceiros, que é o nosso caso. Aí configurando no componente do AcBr essa senha gerada funcionou tudo perfeitamente, voltou a funcionar normal. Ou seja, com a senha da conta não funcionava, aí gerando uma senha de app funcionou.

Segue anexo a implementação realizada incluindo o método "ConsultarUltimaSessaoFiscal" quando versão do Layout definida for 0.08 Não foi possível realizar o teste pois atualmente a DLL do Emulador não dispõe do método e meu equipamento físico deve ter tomado chá de sumiço pois não consigo encontra-lo . Especificação https://portal.fazenda.sp.gov.br/servicos/sat/Downloads/Especificacao_SAT_v_ER_2_22_04.pdf Equipamentos que já implementam o método http://www.jetway.com.br/wp-content/uploads/2019/11/Manual_Desenvolvedor_AF_SAT_Jetway_JS-1000.pdf https://www.tanca.com.br/assets/conteudo/drivers/TS-1000/Manual_Desenvolvedor_SAT_Tanca_TS-1000.pdf http://sistemas.sweda.com.br/downloads/SAT/Manual_Programacao_SAT_SWEDA_v03.pdf https://elgindevelopercommunity.github.io/group__g2.html#gad4ef75ca65ff26c6608d4f14cacf7193 Tem um tópico relacionado onde havia sido implementado porem não tem o fonte disponível. Fortes ESCPOS.zip ACBrSAT.zip

Boa tarde @valterpatrick, acredito que vc esteja se referindo ao gmail, correto? Na verdade é bem simples, clique no icone das iniciais do seu nome no gmail, depois clique em Gerir sua Conta Google. Depois clique na aba Segurança, do lado direito vai ter uma caixa "Como fazer Login no google" e logo abaixo "Senhas de App", note na imagem abaixo que a "Verificação em duas etapas " está selecionada, caso contrário não vaite a opção de "Senhas de App". Quando você clicar em "Senhas do APP", ele pedirá para você selecionar um APP e vai te dar várias opções como "Youtube/Email/Agenda", você deverá escolher a opção "Outros", dará um nome para o Aplicativo, pode ser qualquer nome e depois clique em "Gerar", ele gerará uma senha aleatória, basta você anotar essa senha e usá-la como senha no sistema em vez de usar a senha do Gmail padrão. Espero ter ajudado. Sucessos !!!!!

Ola Pedro, boa tarde. Muito legal, essa função vai ajudar bastante e alivar o suporte. A implementação que eu havia feito não estava 100%. tinha problemas quando a dll não tinha essa função, dava um erro de access violation. por isso eu solicitei que não fosse utilizado.

Obrigado Amigo.

O componente traz os XML que a sefaz disponibiliza para o serviço de distribuição. Seguindo a sugestão do Panda, levante informações de xmls que se encaixem nos termos da Sefaz, mas não estão sendo baixados e abra um chamado com eles para identificarem o motivo, assim como a iniciativa do post a seguir.

Boa tarde Patrick, Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2335

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

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

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, verificamos que o AcBr quando passa em branco na propriedade "Mensage" está procedendo de forma correta e não incluindo o Registro Mensagem (Tipo 2) o problema estava em nossa aplicação que estava passando um conteúdo concatenado com um (Enter): '' + chr(13)+ '' aí ocasionava o problema de criar o registro Tipo 2 indevido. Sendo assim tudo correto, podem fechar o tópico.

Tive dificuldades também depois que atualizou o componente. Depois de ler os tópicos acima consegui ajustar a minha aplicação. Obrigado a todos! Segue a dica: Além de deixar ACBrETQ.Avanco := 600; foi preciso declarar os parâmetros na procedure ACBrETQ.Imprimir. ACBrETQ.BackFeed := bfOn; ACBrETQ.Imprimir(1, 600);