Rodrigo Cardilo

Oi amigos, Tenho a seguinte situação. Um servidor Windows Server onde tenho 3 usuários que fazem acesso via RDP. Esse acesso pode acontecer ao mesmo tempo. Até aí tudo bem. Porém eu queria bloquear o usuário que está logado a abrir o programa (executável) mais de uma vez. A rotina para verificar se o programa está aberto eu já conheço, porém a mesma olha o processo ou aplicativo aberto no windows e não somente daquele usuário logado. Alguém conhece alguma solução? Segue abaixo a rotina que eu já uso, que funciona muito bem. function ListProcess(Executavel: WideString): Boolean; export; stdcall; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); Result := False; while Integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(Executavel)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(Executavel))) then begin Result := True; end; ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; Grato desde já

Em alguns tamanhos de fonte deu certo em outros não.. Mas já resolveu meu problema. Obrigado pela dica @Daniel Simoes

Caros amigos, Estou imprimindo etiquetas pelo ACBRETq como o exemplo abaixo. Existe alguma forma de eu centralizar o texto de acordo com o tamanho dele? ImprimirTexto(orNormal, '4', 1, 2, 1, 1, 'SHEILA MEDEIROS CONFECCOES - EIRELI', 0, False); ImprimirTexto(orNormal, '4', 1, 1, 3, 1, 'TELEFONE: (32) 3287-1183', 0, False); ImprimirTexto(orNormal, '4', 1, 2, 5, 1, 'NOME: CONFECCOES DO ZE LTDA.', 0, False); ImprimirTexto(orNormal, '4', 1, 2, 8, 1, 'CIDADE: SAO PAULO-SP', 0, False); ImprimirTexto(orNormal, '5', 1, 1, 11, 1, 'NF N: 11220', 0, False); ImprimirTexto(orNormal, '5', 1, 1, 14, 1, 'VOLUMES: 3', 0, False); ImprimirTexto(orNormal, '4', 1, 2, 18, 1, 'TNT CARGAS E ENCOMENDAS', 0, False); ImprimirTexto(orNormal, '3', 2, 1, 18, 30, '337', 0, False); a linha do telefone, nf e volumes nunca muda de tamanho mas as demais terão alterações de acordo com o cadastro. Alguém já passou por isso e tem alguma luz? Grato desde já

Verdade Daniel, agora entendi. Achei esse modelo que anexei. Esse tipo seria com o GAP "Universal"?

Na primeira tentativa que fiz elas estavam erradas. Mas já corrigi isso e o problema continua. Acho estranho pois já usei esse modelo de etiqueta em outra impressora dessa e não tive problema

Entendi Daniel, No caso onde consigo consultar o tipo de etiqueta para explicar isso para meu cliente? Mandei anexo o modelo da etiqueta que estou utilizando. Grato desde ja.

Bom dia amigos, Instalei uma Argox OS 214 no windows 10 usando o driver deles. Quando faço teste tanto na pagina de teste da impressora quanto no ACBREtq ela imprime porém não para de cuspir etiqueta em branco até que as duas luzes começam a piscar juntas. Já calibrei e resetei a mesma mas não consegui solucionar o problema. Alguém já passou por isso também? Grato desde já,

@Juliomar Marchetti obrigado. já me clareou muito. Não conheci a ferramenta Rest debugger que auxilia muito. Então comecei a fazer testes . Preenchi conforme as telas abaixo e me retorna o seguinte erro: REST request failed: Socket Error #10054. Connection reset by peer. Daí não sei se o problema está no preenchimento ou no próprio servidor. Tem algo mais que devo preencher?

Bom dia amigos, Estou iniciando no estudo de REST e JSON e nunca desenvolvi nada parecido. Já assisti vários vídeos e já entendi a lógica. Vou começar a desenvolver uma aplicação delphi que recebe e envia informações de uma API desenvolvida por terceiros. Me foi passado as seguintes instruções: Autenticação na API O acesso a api requer um token, obtido pela url https://adm.exemplo.com por requisição do tipo post com os seguintes parâmetros: grant_type: password username: ABABABABABABABABABA password: XXXXXXXXX O retorno será um Json contendo o token com validade de 6 horas. Daí eles me passaram algumas url's da seguinte forma: Urls disponíveis Todos acesso deve ser acompanhado do token do tipo bearer obtido previamente e enviado no header da requisição. GET api/v1/app/hoteis/hotel : retorna os hotéis cadastrados. GET api/v1/app/hoteis/tipoquarto : retorna os tipos de quartos cadastrados. GET api/v1/app/hoteis/quarto : retorna os quartos cadastrados. GET api/v1/app/hoteis/reservasituacao : retorna as possíveis situações que podem ser utilizadas no cadastro de reservas. GET api/v1/app/hoteis/servico : retorna os serviços cadastrados. Minha dúvida é: Como eu faço a autenticação pra pegar token? Como usar esse token nas requisições? Vi que existe um componente muito bom chamado RestDataWare mas não vi nenhum exemplo nele utilizando esses parâmetros. Grato desde já

Oi @Italo Jurisato Junior. No meu está ok. Já tinha feito isso a dias. O problema é com nosso amigo @osmarbentojr

Ela também existe no MDF-e conforme imagem anexo.

O amigo deve estar confundido a propriedade. Ela existe (fontes atualizados hoje)

Bom dia. Verifique essa propriedade no componente. Tem que estar setada para fgtsempre.

Rapaz, depois do primeiro erro não consegue continuar? Não tenho experiência no Lazarus pra te ajudar.

Não precisa ser usuário do SAC para fazer isso. o acbrInstall está disponível para todos. Quando vc baixa usando o svn ele vem junto.

Amigo, Substitua na pasta Acbr\Fontes\ACBrDFe\ACBrNFe. O ideal é apagar a pasta Acbr/Lib e rodar o ACBrInstall_Trunk2.exe novamente e compilar tudo. Aqui deu certinho.

Fiz várias inutilizações agora a pouco sem problema. Segue código DM1.ACBrNFe1.WebServices.Inutiliza(DM1.TB99100CNPJ.Value, EdtJust.Text, StrToInt(ComboAno.Text), 65, StrToInt(ComboSerie.Text), StrToInt(EdtNumero.Text), StrToInt(EdtNumero.Text)); if DM1.ACBrNFe1.WebServices.Inutilizacao.cStat = 102 then // insira seu codigo aqui

@Italo Jurisato Junior, essa unit já está no trunk?

@Italo Jurisato Junior e @Juliana Tamizou concordo com vocês porém o SEFAZ MG me retornou que não há problemas algum no sistema deles, apenas lentidão. Fiz as alterações citadas e testei nos outros componentes e não prejudicou em nada. Não vi outra solução e o interessante é que outros sistemas comerciais em MG estão funcionando normalmente (ou seja, a contigência realmente já terminou). Qual sugestão vocês teriam para nós? Segue abaixo resposta do SEFAZ. Ref. a mensagem: 442.344 - DOCUMENTOS ELETRÔNICOS > NFC-e > CONTINGÊNCIA Senhor(a), bom dia! Esclarecemos que a transmissão da NFC-e já está disponível, mas o tempo de resposta para a autorização das notas está maior que o desejado, entre 1 e 2s, o que ainda pode impactar na transmissão em modo normal e nos serviços relacionados a consultas de NFC-e. Recomendamos, até que o tempo de processamento seja normalizado, que o sistema do contribuinte seja parametrizado para um tempo de resposta um pouco maior, a partir de 2 segundos, evitando assim o reenvio e a ocorrência de erros de duplicidade. A STI está atuando com prioridade na solução dos referidos problemas para viabilizar uma solução o quanto antes. Os contribuintes que estiverem com problemas para autorizar as notas em modo normal, poderão continuar utilizando a contingência off-line. Alertamos para o fato de que o sistema recepcionará as NFC-e emitidas em contingência off-line neste período mesmo após o prazo previsto na legislação.

Bom dia amigo, Segue post com a correção.

Bom dia amigos, Fiz as alterações acima e deu certo. Segue anexo alterações caso algum moderador possa atualizar nos fontes. Obrigado pela colaboração de todos pcnLeitor.pas

Boa tarde Rodrigo, Como você conseguiu registrar? Estou fazendo da seguinte forma e não obtenho retorno: ArqXml := Path + ChaveNFcE + '-nfe.XML'; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(ArqXml); ACBrNFe1.Enviar(0, ImpressoraOK, False, False); Alguém mais conseguiu?

Amigos, já resolvi. Não atualizei a pasta Schemas. Grato

Boa tarde amigos, Atualizei o meu sistema no cliente essa semana e quando tento gerar o xml do cte de SP para MG dá o erro em anexo. Interessante que o xml está preenchido correto. O valor do CT-e é R$ 0,01 mesmo (instruções da contabilidade) e até junho funcionava perfeitamente. <ICMSUFFim> <vBCUFFim>0.01</vBCUFFim> <pFCPUFFim>2.00</pFCPUFFim> <pICMSUFFim>18.00</pICMSUFFim> <pICMSInter>12.00</pICMSInter> <pICMSInterPart>100.00</pICMSInterPart> <vFCPUFFim>0.00</vFCPUFFim> <vICMSUFFim>0.00</vICMSUFFim> <vICMSUFIni>0.00</vICMSUFIni> </ICMSUFFim> Alguém consegue ajudar? Grato

Observe a URL: cte.fazenda.mg e teria que aparecer cte.fazenda.sp