Perguntas Não alterar TES/CFOP - Pedido Venda

Pessoal, Bom dia!

Alguém sabe alguma forma de não deixar o vendedor alterar a TES/CFOP do Pedido Venda depois de incluído o pedido?


Atc,
Henry

Boa tarde Henry,

adicione no modo edição dos campos C6_TES e C6_CF:

IIF(INCLUI,.T.,.F.) //só vai liberar a edição quando é inclusão.


Att
Thales

Oi Thales, Obrigado!

Funcionou em partes, agora estou com o seguinte problema. Caso o vendedor escolha outro produto, na mesma linha a TES/CFOP estão sendo apagados. Já olhei os gatilhos, mas não achei nada...

Alguma idéia?


Atc,
Henry

Boa noite Henry,

Altere o modo edição dos campos para IIF(INCLUI,.T.,U_BlqTesCf())

User Function BlqTesCf

Local lRet := .F.
Local nCont := 0

DbSelectArea("SC6")
DbSetOrder(1)
DbSeek(xFilial("SC5")+M->C5_NUM)
While !EOF() .AND. SC6->C6_FILIAL == xFilial("SC5") .AND. SC6->C6_NUM == M->C5_NUM
nCont++
If M->C6_ITEM == SC6->C6_ITEM
If SC6->C6_PRODUTO <> M->C6_PRODUTO
lRet := .T. //não bloqueia
EndIf
EndIf
DbSkip()
EndDo

If N > nCont //se a linha atual é maior que a quantidade de linhas antiga do pedido
lRet := .T. //não bloqueia
EndIf

Return lRet


O que eu fiz, foi que ele verifique se o produto atual é o mesmo que está gravado no pedido e se é um item novo.
A princípio tem que funcionar assim.


Att
Thales