Você está aqui: Início Fórum Protheus/Microsiga/Totvs Módulos do Protheus Módulo Estoque/Custos Restringir zeros a esquerda em campo
  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. Módulos do Protheus
  7. Módulo Estoque/Custos
  9. Restringir zeros a esquerda em campo

Perguntas Restringir zeros a esquerda em campo

Mais
10 anos 3 meses atrás #24056 por edvaldo3p
Respondido por edvaldo3p no tópico Restringir zeros a esquerda em campo
Bom dia Anderson
Entendi, muito obrigado meu caro!!!
Abraço, ate a próxima.

Vlww!!

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24077 por edvaldo3p
Respondido por edvaldo3p no tópico Restringir zeros a esquerda em campo
Anderson, so mais duas duvidas.

1 - No caso um "0" ele aceita, tem como eu barrar e "um 0" ?

2 - Há como eu tirar a segunda mensagem de alerta da Totvs?

Obrigado pela atenção.

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24079 por AndersonBR
Respondido por AndersonBR no tópico Restringir zeros a esquerda em campo
Edvaldo, vamos lá:
1 - No caso um "0" ele aceita, tem como eu barrar e "um 0" ?
Tem sim: Nessa linha -> If AllTrim(cSer) <> Alltrim(M->F1_SERIE) -> Mude para -> If AllTrim(cSer) <> Alltrim(M->F1_SERIE) .and. AllTrim(cSer) <> "0"

Acho que isso deve resolver. (teste se não certo me avisa, pois não testei ok)

2 - Há como eu tirar a segunda mensagem de alerta da Totvs?
-Sinceramente, nunca tentei, mas acredito que não dei uma olhada aqui no fonte padrão da TOTVS e a mensagem está nele e olhando rapidamente não achei nada para inibi-la, sei que é meio chato as duas mensagens, mas na pior das hipóteses tira a do meu fonte o usuário logo saca o que ta errado.
-Caso eu descubra alguma coisa te aviso, mas de imediato não sei mesmo.

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24086 por edvaldo3p
Respondido por edvaldo3p no tópico Restringir zeros a esquerda em campo
Boa Tarde Anderson

Não deu certo, ele passou o "0", e nesta mudança deixou passar também "00" ou "000", rs

Quando a mensagem de alerta, entao vou manter dessa forma mesmo, com a mensagem de alerta do código fica mais bem "apresentavel" para o usuário..rs

Obrigado pela prestatividade.
Vlw...

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24087 por AndersonBR
Respondido por AndersonBR no tópico Restringir zeros a esquerda em campo
Rs...Boa Tarde... é não ia dar para acertar de primeira...rsrsrs

Agora eu testei, pega aí:
User Function COMV001SK()
	Local cABC := "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
	Local cABC2 := "abcdeeghijklmnopqrstuvwxyz"
	Local I := 0
	Local cSer := M->F1_SERIE
	Local lCont := .F.
	
	If Alltrim(M->F1_SERIE) $ "0/00/000"
		Alert("Problema na serie. Serie invalida!")
		Return lCont
	EndIf
	
	For I := 0 to Len(M->F1_SERIE)
		cSer := SubStr(M->F1_SERIE, I, 1)
		
		If (cSer $ cABC) .or. (cSer $ cABC2)
			cSer := Alltrim(M->F1_SERIE)
			lCont := .T.
			Exit
		EndIf
	Next
	
	If !lCont
		cSer := Str(Val(M->F1_SERIE))
		If AllTrim(cSer) <> Alltrim(M->F1_SERIE)
			Alert("Problema na serie. Verifique zero a esquerda!")
		Else
			lCont := .T.
		EndIf
	EndIf
Return lCont

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24092 por edvaldo3p
Respondido por edvaldo3p no tópico Restringir zeros a esquerda em campo
Anderson, você matou a xarada!!!
Mais uma vez muito obrigado pela ajuda!

Ate a proxima.
vlww

Por favor Acessar ou Registrar para participar da conversa.

  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. Módulos do Protheus
  7. Módulo Estoque/Custos
  9. Restringir zeros a esquerda em campo
Tempo para a criação da página:0.083 segundos
Joomla templates by a4joomla