-
Fórum
-
Protheus/Microsiga/Totvs
-
AdvPL (Advanced Protheus Language)
-
Pontos de Entrada
-
fina060 - MarkBrowse
Perguntas
fina060 - MarkBrowse
Menos
Mais
-
Postagens: 297
-
Obrigados Recebidos: 21
-
-
7 anos 7 meses atrás #32077
por admin
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.
Menos
Mais
-
Postagens: 42
-
Obrigados Recebidos: 0
-
-
7 anos 7 meses atrás #32078
por pbarreto
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..
Por favor Acessar ou Registrar para participar da conversa.
Menos
Mais
-
Postagens: 297
-
Obrigados Recebidos: 21
-
-
7 anos 7 meses atrás - 7 anos 7 meses atrás #32081
por admin
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: 7 anos 7 meses atrás por
admin.
Por favor Acessar ou Registrar para participar da conversa.
Menos
Mais
-
Postagens: 42
-
Obrigados Recebidos: 0
-
-
7 anos 7 meses atrás #32084
por pbarreto
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!!
NOTA 1000 pela sua persistência!!!
Por favor Acessar ou Registrar para participar da conversa.
Menos
Mais
-
Postagens: 297
-
Obrigados Recebidos: 21
-
-
7 anos 7 meses atrás #32088
por admin
Blz Pedrão, precisando só chamar a gente.
Abraços
Por favor Acessar ou Registrar para participar da conversa.
Menos
Mais
-
Postagens: 42
-
Obrigados Recebidos: 0
-
-
7 anos 6 meses atrás #32129
por pbarreto
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.
-
Fórum
-
Protheus/Microsiga/Totvs
-
AdvPL (Advanced Protheus Language)
-
Pontos de Entrada
-
fina060 - MarkBrowse
Tempo para a criação da página:0.127 segundos
