vagner

Bom dia.

Use o FOpen(), FRead(), FSeek(), FWrite() e FClose() para arquivos grandes.

26 minutos atrás, marcioe disse:

Olá a Todos, 

Tenho uma tabela MYSQL que tem os itens de uma comanda ( Sistema de Restaurante / Bares)
Dai preciso saber o tempo que o item já está lançado.

Lembrando que tem que levar em conta a data e hora de lançamento, porque as vezes Vira a noite, tipo a pessoa chega as 23:50,    Dai faz o pedido
Dai vira o dia e já são por exemplo 00:00:23 
O campos para se levar em conta são
    `DATA_LANCAMENTO`     `HORA_LANCAMENTO`  


Preciso saber em minutos quanto tempo tem 

Segue as estrutura da tabela
 

CREATE TABLE `comandas_atendimento` (
	`ID` INT(11) NOT NULL AUTO_INCREMENT,
	`ID_COMANDA` INT(11) NULL DEFAULT NULL,
	`CODIGO_PRODUTO` INT(11) NULL DEFAULT NULL,
	`CONJUGADO` INT(11) NULL DEFAULT NULL,
	`QUANTIDADE` DECIMAL(18,3) NULL DEFAULT '1.000',
	`DATA_LANCAMENTO` DATE NULL DEFAULT '0000-00-00',
	`HORA_LANCAMENTO` CHAR(10) NULL DEFAULT NULL COLLATE 'utf8_general_ci',
	`CODIGO_USUARIO` INT(6) NOT NULL,
	`VALOR_UNITARIO` DECIMAL(18,3) NOT NULL DEFAULT '0.000',
	`DESCRICAO` CHAR(50) NOT NULL DEFAULT '\'\'' COLLATE 'utf8_general_ci',
	`IMPRESSO_COZINHA` CHAR(1) NULL DEFAULT 'N' COMMENT 'S=Sim, N=Não  Impresso Na Cozinha' COLLATE 'utf8_general_ci',
	`PREPARADO` CHAR(1) NOT NULL DEFAULT 'N' COMMENT 'Se o prato já está Preparado' COLLATE 'utf8_general_ci',
	`OBSERVACAO` CHAR(100) NULL DEFAULT '' COMMENT 'Observacao no Lancamento do Item' COLLATE 'utf8_general_ci',
	`TAMANHO` CHAR(20) NULL DEFAULT NULL COLLATE 'utf8_general_ci',
	`VALOR_SERVICO` DECIMAL(18,2) NULL DEFAULT '0.00' COMMENT 'Valor Total do Servico',
	`BORDA_ACOMPANHAMENTO` CHAR(200) NULL DEFAULT '' COMMENT 'Em Caso de Pizzaria Opcao de Borda, ou Acompanhamento' COLLATE 'utf8_general_ci',
	`DATA_INICIO_PRODUCAO` DATE NULL DEFAULT '0000-00-00',
	`HORA_INICIO_PRODUCAO` TIME NULL DEFAULT '00:00:00' COMMENT 'Hora de Inicio de producao',
	`DATA_FINAL_PRODUCAO` DATE NULL DEFAULT '0000-00-00',
	`HORA_FINAL_PRODUCAO` TIME NULL DEFAULT '00:00:00' COMMENT 'Hora de Inicio de producao',
	`LIBERADO_PRODUZIR` CHAR(1) NULL DEFAULT 'N' COMMENT 'Se Esta Liberado na Cozinha para Produzir' COLLATE 'utf8_general_ci',
	`REEMISSAO` CHAR(1) NULL DEFAULT 'N' COMMENT 'Se o Item Foi Reimpressao' COLLATE 'utf8_general_ci',
	`CODIGO_FORMA` INT(6) NULL DEFAULT '0' COMMENT 'Codigo da Forma de Abatimento',
	`ID_ABATIMENTO_ACRESCIMO` INT(11) NULL DEFAULT '0' COMMENT 'Numero do Id de Abatimento',
	`SETOR_ATENDIMENTO` CHAR(20) NULL DEFAULT '' COMMENT 'Nome do Setor Exemplo (Bar, Pista, varanda)' COLLATE 'utf8_general_ci',
	`STATUS_ITEM` CHAR(1) NULL DEFAULT 'A' COMMENT 'A=Ativo  E=Excluido' COLLATE 'utf8_general_ci',
	PRIMARY KEY (`ID`) USING BTREE,
	INDEX `IDX_COMANDA` (`ID_COMANDA`) USING BTREE
)
COMMENT='Tabela de comandas_atendimento de Registro do Sistema'
COLLATE='utf8_general_ci'
ENGINE=InnoDB
;

Agradeço a Todos

Olá Marcio,
SELECT TIMEDIFF('2024-01-25 00:05:00','2024-01-24 23:58:00');

Isso deve solucionar o que você precisa
 

Por favor coloque o erro para que os outros possam saber, eu tenho uma impressão que seria o "ASC"

Abraços

Vagner Wirts

*Ele não sabendo que era impossível, foi lá e fez

Olá Beto, pelo que sei o Hash é um array dimensional, e não multi-dimensional, não sei se serviria para você nesse caso

Abraços

Beto, blz ?

Seguinte , vc teria que pegar por partes do texto, no caso, primeiramente teria que trocar alguns caracteres, como por exemplo do ,{"codigo":"7898943452238","vTotal":6.49,"vUn":6.49,"qtde":1}  onde ":  teria que mudar para ",, para não lhe dar problema na conversão e depois pegar o que lhe interessa, como :
codigo, vtotal etc

Abraços

PS: A troca pode ser feita através do StrTran(cTexto,Antigo,Novo)
Ex.: cTexto := StrTran(cTexto,[":],[",])

Edu, acho que assim daria
aArr := {}
nPos := At("(",cTex)
aAdd(aArr,Left(cTex,nPos-1))

cTex := StrTran(cTex,aArr[1]+"(","")

nPos := At(")",cTex)
aAdd(aArr,Left(cTex,nPos-1))
cTex := StrTran(cTex,aArr[2]+")","")
aAdd(aArr,cTex)

Ficando um array de 3 elementos

Fiz de cabeça pode ocorrer algum erro hehehe
Abraços
 

 

Vagner pelo que entendi ele vai executar as 23:30h certo? 

Não resolvi pq se a tabela tiver o status setado como '1' só vai processar as 23:30h

Teria que ser um SELECT que só me retorna quando tem algum registro ou se passa o timeout

 

Motta, não conheço a fundo o SQL, mas se não me engano você pode colocar no start a hora que vai começar o funcionamento e depois existem outros parâmetros onde você pode ficar monitorando como no caso do timer, mas creio que isso vá fazer também dar um consumo no banco, porém de qualquer maneira ele teria que ficar olhando o banco para ver através de uma function que você poderia fazer dentro do próprio banco junto ao schedule, não conheço muito o trigger porém se você setar para esse campo será que não daria ? qualquer mudança rodaria uma function ou um select. É somente uma ideia

Motta, blz ?
Creio que o Schedule possa resolver o seu problema

https://docs.microsoft.com/pt-br/sql/ssms/agent/create-a-schedule?view=sql-server-ver15

-- creates a schedule named RunOnce.   
-- The schedule runs one time, at 23:30 on the day that the schedule is created.  
USE msdb ;  
GO  

EXEC dbo.sp_add_schedule  
    @schedule_name = N'RunOnce',  
    @freq_type = 1,  
    @active_start_time = 233000 ;  

GO

Não perdendo a brincadeira, Rochinha, além da PINGA, limão açúcar e gelo

Abraços

João essa função é da windows, não sei se foi modificada, provavelmente por isso está travando, melhor você atualizar o seu sistema do que tentar modificar isso pelo sistema, o windows 10 é muito chato em relação as coisas.

Abraços,

Vagner Wirts

cGet := Space(500)

Define dialog oDlg.

@ 01,01 get oGet var cGet Memo Pixe....

Activate dialog oDlg

Melhor maneira, envie em pdf com senha por exemplo os 3 primeiros dígitos do CNPJ do cliente.

Abraços

Necessitamos de programadores XHarbour/Fivewin para trabalhar em São Caetano do Sul, interessador, favor enviar e-mail com pretensão salarial (regime autônomo/micro-empresa e ou clt).

e-mail : vwirts@terra.com.br

Necessitamos de programadores XHarbour/Fivewin para trabalhar em São Caetano do Sul, interessador, favor enviar e-mail com pretensão salarial (regime autônomo/micro-empresa, necessitamos de nota fiscal de serviço).

e-mail : vwirts@terra.com.br

Com certeza irá encontrar, pois a string de pesquisa é menor ou igual a string onde está indexado, para que não encontre, coloque espaços no final da string

cNome := Left(cNome+Space(50),50)

Bom dia Valdir,

Set()

oCbc[5]:Set(mCFP)

Meus sentimentos pelo falecimento do Elias, realmente Edu, fomos eu Gilmer e Elias quem encabeçamos o primeiro encontro. Que descanse em paz.

Olá, cGetDir ou cGeDir32, não me recordo ao certo.

Bom dia,
O interessante é colocar o nome do usuário na tela que está sendo preenchida, e gravar esse nome, aí ele que precisa se entender na empresa, já que o seu sistema, não precisa controlar o que ele escreve, um dicionário, acho que ficaria muito complicado e demorado para a checagem, mas daria para ser feito também

Bom dia Srs.

Bom ainda não obtive retorno da Bematech (complicado o suporte deles), mas entrando na receita verifiquei que a mesma têm atualizações do aparelho, então aconselho a entrarem e verificarem se há a necessidade de fazerem atualização nos seus aparelhos, eu fiz na do meu cliente, e parou um monte de erros que vinha como "Erro Desconhecido" (ou algo assim).

http://www.fazenda.sp.gov.br/sat/

Abraços,

Blz, uma coisa a menos então para se preocupar, só que o contribuinte, necessita do certificado digital para pode acessar ou ter um usuário e senha, não vi nada como na nota fiscal eletrônica.

Abraços

Olá Empresoft, creio que infelizmente não dê para recuperar pelo site não.

Abraços

Sim fica, inclusive agora precisa ser posto qndo é tipo 03 ou 04 em cMP o cAdmC, é que a administradora do cartão Anexo 3 

http://www.fazenda.sp.gov.br/sat/downloads/Arquivo/Especificacao_SAT_v_ER_2_4_20.pdf

Kapi, vc le o que eu escrevi ? Com um único pagamento vai, o SAT aceita, com mais de um pagamento, não importa se é dinheiro, cartão ou dinheiro, vale refeição, qualquer coisa que seja mais de um pagamento não passa, consegui hoje falar com o pessoal da bematech, e abriram um chamado, pois nem eles conseguiram ver o problema no meu xml, vão analisar, mas provavelmente o aparelho sat, que faz a comparação antes de enviar para a fazenda, deve estar com problemas e devem soltar uma nova atualização. de qualquer modo, eu reporto assim que me falarem o que pode ser.

Obrigado,