Marcio Anderson

Boa tarde, Estou tentando criar um padrão para que consiga retirar as informações colocadas nessa máscara padrão, que fica inserida em um banco de dados postgresql. Com base nesse texto, utilizo substrings + replace para recolher apenas os itens de material + número de série. O problema é que o jumento operador modifica a máscara e coloca itens curinga dentro da mesma. Então, preciso que esses itens saiam para que a máscara retorne ao seu padrão para dar prosseguimento a coleta de dados. No exemplo abaixo, preciso que esse 1 saia (que poderia ser 2, 3, a, b, c, etc), para que a máscara retorne ao padrão. **RETIRADA DE EQUIPAMENTOS: #SIM ( X ) #NÃO ( ) MATERIAL1: MATERIAL A #Nº DE SÉRIE: NUMERO DE SERIE EQTO COMPLETO (X) SIM ( )NãO #ITEM FALTANTE: MATERIAL: MATERIAL B #Nº DE SÉRIE: NUMERO DE SERIE EQTO COMPLETO ( ) SIM ( )NãO #ITEM FALTANTE: MATERIAL: MATERIAL C #Nº DE SÉRIE: NUMERO DE SERIE EQTO COMPLETO ( ) SIM ( )NãO #ITEM FALTANTE: MATERIAL: #Nº DE SÉRIE: . EQTO COMPLETO ( ) SIM ( )NãO #ITEM FALTANTE: EMISSOR: Segue a query (vejam que ela pega esse trecho da máscara acima - **RETIRADA DE EQUIPAMENTOS: #SIM ( X ) #NÃO ( ) MATERIAL: MATERIAL A) ... EMISSOR:: CASE WHEN (STRPOS(SPEC_CHAR2(descricao),'EMISSOR:')-STRPOS(SPEC_CHAR2(descricao),') MATERIAL:')-11) <0 THEN NULL ELSE TRIM(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE( REPLACE(TRIM(SUBSTR(SPEC_CHAR2(descricao),STRPOS(SPEC_CHAR2(descricao),') MATERIAL:')+11,STRPOS(SPEC_CHAR2(descricao),'EMISSOR:')-STRPOS(SPEC_CHAR2(descricao),') MATERIAL:')-11)),' ',' ') ,'MATERIAL: #No DE SERIE: . EQTO COMPLETO ( ) SIM ( )não #ITEM FALTANTE:','') ,'MATERIAL: #No DE SERIE: EQTO COMPLETO ( ) SIM ( )não #ITEM FALTANTE:','') ,'MATERIAL: ','§ ') ,'#No DE SERIE:','S/N:') ,'EQTO COMPLETO','COMPLETO?') ,'#ITEM FALTANTE:','FALTOU:') ) END AS equipamentos SPEC_CHAR2 é uma fórmula idem a TRANSLATE, mas que já realiza a substituição de acentos, cedilhas, etc, pela mesma letra sem esse item.

Olá. Tenho um código que faço via VBA que é o seguinte: Function JANVLX(DtI As Variant, DtF As Variant) As Variant Dim TEMPO, ciclo As Double TEMPO = Round((DtF - DtI) * 24 * 60, 0) T = TimeSerial(Hour(DtI), Minute(DtI), 0) ciclo = 0 For a = 1 To TEMPO If T < "08:00:00" Or T > "20:00:00" Then ciclo = ciclo Else ciclo = ciclo + 1 End If If T = "23:59:00" Then a = a + 2 T = TimeSerial(0, 0, 0) End If T = T + TimeSerial(0, 1, 0) Next a JANVLX = ciclo Exit Function End Function Esse código calcula o tempo entre dois campos de um mesmo registro: hora_entrada e hora_saida O tempo entre os dois não poderá contar entre 20:00hrs e 8:00hrs do dia seguinte (o mesmo acumulando-se várias datas do intervalo). Exemplo: de 12/03/2011 19:00 até 13/03/2011 09:00 só deve contar 2:00hrs, pois entre 12/03/2011 20:00 e 13/03/2011 08:00 ficará zerado. Sei que é possível gerar isso via código SQL, mas não estou conseguindo... :unsure: (case, while, if..) e não sei se é melhor criar a função ou se é melhor alocar dentro do select. Quero chamar o campo resultante de "tempo". Vocês podem me ajudar!? Desde já, agradeço!