Rodrigo Cardilo

Bom dia Amigos, Comigo deu o seguinte erro: E:\Sistemas\Componentes\Rio\ACBr\Fontes\ACBrBoleto\ACBrBancoBradesco.pas(396) Error: E2003 Undeclared identifier: 'Mensagem' E:\Sistemas\Componentes\Rio\ACBr\Fontes\ACBrBoleto\ACBrBoleto.pas(3945) Fatal: F2063 Could not compile used unit 'ACBrBancoBradesco.pas' Na linha 396 do arquivo ACBrBancoBradesco.pas tem agora um Sacado.Mensagem que não existia antes. Acredito que falta implementar mais alguma coisa no tipo TACBRSacado.

@BigWings Fiz a alteração no fonte. Segue arquivos para avaliação. Grato desde já,ACBrBancoItau.pasACBrBoleto.pas

Olá amigos, No banco Itaú existe uma particularidade sobre descontos. Acontece que é permitido cadastrar além do desconto normal até uma data específica, cadastrar outros 2 descontos com mais 2 datas. Essa informação consta no manual de cobrança CNAB400, nota 16. Já percebi que o ACBR não tem essa opção. Gostaria de saber se é possível eu desenvolver e compartilhar. Como faço para mandar os fontes para serem analisados? Grato desde já, @Juliana Tamizou

@Juliomar Marchetti e @BigWings. Os dois me ajudaram e muito. Eu tinha que fazer um sql gigante para simplesmente saber quais apartamentos estavam disponíveis. Ficou praticamente instantâneo agora. Muito obrigado pela ajuda de ambos..

@Juliomar Marchetti, coloquei um banco em anexo. Nele tem exatamente o exemplo que postei no começo desse post. Grato BDTESTE.rar

@Juliomar Marchetti alterei aqui e deu certo, porém o problema inicial ainda persiste. No meu exemplo acima eu tenho dois apartamentos e quando faço essa consulta entre 12/09/2020 a 18/09/2020 precisaria que só me retornasse o apartamento disponível em todos esses dias, o que não acontece com o 101 já que ele não tem disponibilidade nos dias 12, 13, 14 e 15. Mesmo assim obrigado pela ajuda.

Amigo @BigWings. Consegui uma solução mudando a propriedade UpdateOptions - AutoCommitUpdates para True na tabela. Seria a decisão correta?

Boa tarde, Tenho uma aplicação e estou usando Firedac a pouco tempo. Me deparei com um problema que acredito que seja apenas algum parâmetro ou propriedade do mesmo. Quando incluo um registro em uma tabela eu termino com o Post e o ApplyUpdates(-1). Até aí tudo certo. Porém quando tento alterar imediatamente o mesmo registro ele me mostra a alteração mas quando eu fecho e abro a tabela essa alteração não aparece. Existe algum parâmetro ou propriedade que posso utilizar para funcionar? Grato desde já,

Amigo @Juliomar Marchetti Entendi sua lógica porém o final do código não consegui entender. Vou colocar abaixo a procedure que tentei gerar usando seu exemplo... Coloquei interrogação no trecho onde eu travei. Grato desde já, CREATE PROCEDURE SP_DATES( DTINI DATE, DTFIM DATE) RETURNS( CODAP INTEGER) AS begin FOR WITH RECURSIVE DATES (DT) AS ( SELECT :DTINI FROM RDB$DATABASE UNION ALL SELECT DT + 1 FROM DATES WHERE DT < :DTFIM ) SELECT * FROM DATES LEFT JOIN UN10150 R ON DATES.DT = R.DATA ??????????????????? select CODAPTO from WHERE SITUACAO = 0 INTO :CODAP DO suspend; end

Oi @Juliana Tamizou ainda não. Me ajudaram com o código abaixo em outro post mas não consegui adaptar à minha tabela. WITH RECURSIVE DATES (DT) AS ( SELECT CURRENT_DATE FROM RDB$DATABASE UNION ALL SELECT DT + 1 FROM DATES WHERE DT < CURRENT_DATE + 31 ) SELECT DT FROM DATES Se alguém souber fico agradecido Obrigado

Bom dia, Alguém sabe como uso o recurso abaixo numa Stored Procedure ou View? WITH RECURSIVE DATES (DT) AS ( SELECT CURRENT_DATE FROM RDB$DATABASE UNION ALL SELECT DT + 1 FROM DATES WHERE DT < CURRENT_DATE + 31 ) SELECT * FROM DATES

Bom dia amigos, Preciso fazer uma consulta numa tabela do meu banco de dados com as seguintes características: Tabela de apartamentos disponíveis na data (DISPONIVEL = SITUACAO = 0) CODAPTO DATA SITUACAO 101 16/09/2020 0 101 17/09/2020 0 101 18/09/2020 0 101 19/09/2020 0 101 20/09/2020 0 101 21/09/2020 0 101 22/09/2020 0 102 11/09/2020 0 102 12/09/2020 0 102 13/09/2020 0 102 14/09/2020 0 102 15/09/2020 0 102 16/09/2020 0 102 17/09/2020 0 102 18/09/2020 0 102 19/09/2020 0 102 20/09/2020 0 Preciso de um select para saber quais apartamentos estão disponíveis (SITUACAO = 0) no período de 12/09/2020 a 18/09/2020. Já tentei usando between e outro código porém eles me retornam os aptos 101 e 102 e no caso só estaria disponível o apartamento 102. select CODAPTO from APTO_DIPOSNIVEL WHERE DATA >= '09/12/2020' AND data <= '09/20/2020' AND SITUACAO = 0 select CODAPTO from UN10150 WHERE DATA BETWEEN '09/12/2020' AND '09/20/2020' AND SITUACAO = 0 Se alguém puder me ajudar fico agradecido.

@Daniel Simoes, vou testar.. Mas acho que resolve. Obrigado meu amigo

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)