|
Bem Vindo, Visitante
|
Todos os Fórums
Compras
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Iniciador Padrão C7_DTPRF |
|
Versão: |
12.1.25 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
JUNSA
em 14/06/2021, 10:03 h
Local: MG Registro: 14/06/2021 Postagens: 9 |
Bom dia Galera!
Ao realizar um pedido de compra na rotina MATA121 ao preencher os itens temos o campo DATA_ENTREGA que é lançado manual ou na data base do sistema.
Tem pedidos que tem vários itens a serem lançados , seria como se ao inserir um segundo item puxar a data do primeiro item ?
Motivo : tem pedido que tem 100 itens por exemplo, todos serão entregues na mesma data. teria como puxar essa data para os demais para não ter que repeti-la em cada item do pedido? |
|
|
Mensagem do
DIUMAS
em 14/06/2021, 10:35 h
Local: GO Registro: 27/05/2013 Postagens: 8 |
Você pode criar via cfg um gatilho para o preenchimento automatico desse campo a partir do preenchimento da Qtde por exemplo e inserir a regra: IIF(N>1,ACOLS[1,GDFIELDPOS("C7_DATPRF",AHEADER)],"") |
|
|
Mensagem do
JUNSA
em 05/07/2021, 14:38 h
Local: MG Registro: 14/06/2021 Postagens: 9 |
boa tarde
agradeço a ajuda
Foi criado o gatilho conforme dito a partir da quantidade porem não funcionou
apresenta o seguinte erro : type mismatch on -
e também no primeiro o sistema não permite inserir data no campo, após a criação do gatilho.
|
|
|
Mensagem do
AMST
em 06/07/2021, 11:58 h
Local: PE Registro: 13/04/2021 Postagens: 2 |
Boa tarde!
Você deve criar um campo no cabeçalho do Pedido de Compra e ele será copiado para todos os itens. Altere, de acordo com o campo que você deseja criar, e compile esse Ponto de Entrada MT120TEL:
//Bibliotecas
#Include "Protheus.ch"
/*--------------------------------------------------------------------------------------------------------------*
| P.E.: MT120TEL |
| Desc: Ponto de Entrada para adicionar campos no cabeçalho do pedido de compra |
| Link: http://tdn.totvs.com/display/public/mp/MT120TEL |
*--------------------------------------------------------------------------------------------------------------*/
User Function MT120TEL()
Local aArea := GetArea()
Local oDlg := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local nOpcx := PARAMIXB[4]
Local nRecPC := PARAMIXB[5]
Local lEdit := IIF(nOpcx == 3 .Or. nOpcx == 4 .Or. nOpcx == 9, .T., .F.) //Somente será editável, na Inclusão, Alteração e Cópia
Local oXObsAux
Public cXObsAux := ""
//Define o conteúdo para os campos
SC7->(DbGoTo(nRecPC))
If nOpcx == 3
cXObsAux := CriaVar("C7_OBS",.F.)
Else
cXObsAux := SC7->C7_OBS
EndIf
//Criando na janela o campo OBS
@ 062, aPosGet[1,08] - 012 SAY Alltrim(RetTitle("C7_OBS")) OF oDlg PIXEL SIZE 050,006
@ 061, aPosGet[1,09] - 006 MSGET oXObsAux VAR cXObsAux SIZE 100, 006 OF oDlg COLORS 0, 16777215 PIXEL
oXObsAux:bHelp := {|| ShowHelpCpo( "C7_OBS", {GetHlpSoluc("C7_OBS")[1]}, 5 )}
//Se não houver edição, desabilita os gets
If !lEdit
oXObsAux:lActive := .F.
EndIf
RestArea(aArea)
Return
/*--------------------------------------------------------------------------------------------------------------*
| P.E.: MTA120G2 |
| Desc: Ponto de Entrada para gravar informações no pedido de compra a cada item (usado junto com MT120TEL) |
| Link: http://tdn.totvs.com/pages/releaseview.action?pageId=6085572 |
*--------------------------------------------------------------------------------------------------------------*/
User Function MTA120G2()
Local aArea := GetArea()
//Atualiza a descrição, com a variável pública criada no ponto de entrada MT120TEL
SC7->C7_OBS := cXObsAux
RestArea(aArea)
Return
|
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|