Perguntas fina060 - MarkBrowse

Mais
6 anos 11 meses atrás #32077 por admin
Respondido por admin no tópico fina060 - MarkBrowse
Testa Agora
#include 'totvs.ch'
#Include "Protheus.Ch"
#Include "TopConn.Ch"
#Include "TbiConn.Ch"
#include "RWMAKE.CH"

User Function FA060VLD()


Local cMarca := ParamIxb[1]
Local cAlias := ParamIxb[2]
Local lRet := .T.
Local cCust_b := " "


IF (cAlias)->E1_TIPO == 'CH '

if MSGYESNO( "Bordero de Custoria (SIM) ou Depósito(NA0)?", "Tipo de Bordero" )
cCust_b := "C"
Else
cCust_b := "D"
Endif

Endif
If RecLock("SE1",.F.)
SE1->E1_YTPBORD := cCust_b
SE1->(MSUnlock())
Endif
Return lRet

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 11 meses atrás #32078 por pbarreto
Respondido por pbarreto no tópico fina060 - MarkBrowse
Jurei que daria certo, mas me lembrei que já havia feito assim...segue em anexo o resultado.

Fico muito grato...

Caso você lembre de alguma outra solução..
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 11 meses atrás - 6 anos 11 meses atrás #32081 por admin
Respondido por admin no tópico fina060 - MarkBrowse
Testa Novamente.
#include 'totvs.ch'
#Include "Protheus.Ch"
#Include "TopConn.Ch"
#Include "TbiConn.Ch"
#include "RWMAKE.CH"

User Function FA060VLD()
Local cMarca := ParamIxb[1]
Local cAlias := ParamIxb[2]
Local lRet := .T.
Local cCust_b := " "


IF (cAlias)->E1_TIPO == 'CH '

if MSGYESNO( "Bordero de Custoria (SIM) ou Depósito(NA0)?", "Tipo de Bordero" )
cCust_b := "C"
Else
cCust_b := "D"
Endif

Endif
If SE1->(dbSetOrder(1), dbSeek((cAlias)->(E1_FILIAL+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO)))
If RecLock("SE1",.F.)
SE1->E1_YTPBORD := cCust_b
SE1->(MSUnlock())
Endif
Endif
Return lRet
Ultima edição: 6 anos 11 meses atrás por admin.

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 11 meses atrás #32084 por pbarreto
Respondido por pbarreto no tópico fina060 - MarkBrowse
Meu amigo, 6:00 da manhã de hoje, já estava testando, um simples posicionamento no titulo que se vai gravar foi o suficiente...lições aprendidas...muitíssimo obrigado!! :silly:

NOTA 1000 pela sua persistência!!!

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 11 meses atrás #32088 por admin
Respondido por admin no tópico fina060 - MarkBrowse
Blz Pedrão, precisando só chamar a gente.

Abraços

:woohoo:

Por favor Acessar ou Registrar para participar da conversa.

Mais
6 anos 10 meses atrás #32129 por pbarreto
Respondido por pbarreto no tópico fina060 - MarkBrowse
Meu amigo, vou precisar sim...

A usuária não quer mais selecionar titulo a titulo, mas deseja que uma vez ela selecione "C" - Custodia ou "D" - Depósito, todos os titulos selecionados, sejam gravados com o mesmo tipo.

Não sei se posso usar o mesmo ponto de entrada, mas vou ter que parar para dar uma olhada.

Caso você tenha uma ideia...

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.121 segundos
Joomla templates by a4joomla