Perguntas Adicionar campo "Vencimento" no Browse FINA330

Mais
7 anos 10 meses atrás #31691 por pedrobarreto
Bom dia,

Como faço para adicionar campo "Vencimento" no Browse FINA330 - Compensação CR?

Por favor Acessar ou Registrar para participar da conversa.

Mais
7 anos 10 meses atrás #31692 por lalberto
Pedro boa tarde, basta entrar no módulo configurador SIGACFG, seguir para base de dados, buscar a tabela SE1, buscar os campos E1_VENCTO e E1_VENCREA, editar e marcar Browse SIM.

Abraços.

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
7 anos 10 meses atrás - 7 anos 10 meses atrás #31693 por pedrobarreto
O campo no configurador já está habilitado para o vencimento, mas me refiro a tela abaixo em anexo, onde seleciono o titulo para ser compensado.

Estive olhando alguns pontos de entrada e não identifiquei nada que me permita adicionar o campo "Vencimento" no Browse, segue alguns pontos de entrada:
F330BOTON Cria novo botão
F330CMP Altera valores de títulos a receber
F330DTFIN Valida data
F330ESE5 Registro na SE5
F330EXCOMP Valida exclusão/estorno da compensação
F330FLTC Dispensa cancelamento
F330RIO Trata filtros de títulos em adiantamento
FA330CMP Confirma títulos
FA330EAC Exclui compensação a receber
FA330EXC Cancela faturas a receber
FA330FLT Filtra dados a serem exibidos
FA330LIB Habilita/desabilita botões
FA330ORD Altera ordem de exibição
FA330QRY Manipula query
FA330SE1 Grava dados
Fa330Vld Customiza validação

Se puderes me ajudar, fico muito agradecido...
Anexos:
Ultima edição: 7 anos 10 meses atrás por pedrobarreto.

Por favor Acessar ou Registrar para participar da conversa.

Mais
7 anos 10 meses atrás #31694 por lalberto
Brother acrescentar a coluna não encontrei nada, mas fiz um esquema para colocar na razão social do cliente, foi o máximo que consegui, espero que ajude.





#Include 'Protheus.ch'
User Function FI330ALT()
Local _aArea := GetArea()
Local _aTipo := PARAMIXB[1]
Local _nx
For _nx:=1 To Len(_aTipo) 
	If !'Vcto'$_aTipo[_nx][11]
		cPrefixo := _aTipo[_nx][1]
		cTitulo  := _aTipo[_nx][2]
		cParcela := _aTipo[_nx][3]
		cTipo    := _aTipo[_nx][4]
		
		SE1->(dbSetOrder(1), dbSeek(xFilial("SE1")+cPrefixo+cTitulo+cParcela+cTipo))
	
	 	_aTipo[_nx][11] := AllTrim(_aTipo[_nx][11]) + ' - Vcto: ' + DtoC(SE1->E1_VENCREA)
	Endif
Next _nx 
RestArea(_aArea)
Return _aTipo

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
7 anos 10 meses atrás #31697 por pedrobarreto
Adorei a ideia, vou implementar já que não se tem recurso para criar um novo campo.
Muitíssimo obrigado!!

Por favor Acessar ou Registrar para participar da conversa.

Mais
7 anos 10 meses atrás #31698 por admin
Blz Carinha, apareça sempre.

Abraços.

Por favor Acessar ou Registrar para participar da conversa.

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