Histórico da Página
LJ7061 - Definir campos a serem copiados na rotina de
copiacópia de orçamento
Descrição: | Disponibilizar P.E na rotina de copia de orçamento, para permitir a seleção dos campos a serem inibidos na cópia tanto do cabeçalho, quanto dos itens, disponíveis para copia de orçamentos. | ||||||
Eventos: | O ponto de entrada é executado no momento da cópia do orçamento, antes da gravação dos dados. | ||||||
Programa Fonte: | LOJA701.PRW | ||||||
Parâmetros: |
|
|
| |||||||
Retorno: |
|
|
|
Exemplo::
#Include 'TotvsProtheus.ch'
/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±³Funcao ³ LJ7106 ³ Autor ³ Vendas Cliente ³ Data ³ 22/06/02 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ Exemplo de inibição de campos dos itens da venda assistida ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Uso ³ Automação Comercial ³±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/
User Function LJ7106()
Local aCpoCab Local aCpoCab := paramixbParamixb[101] // Campos do cabeçalho a serem inibidos na copia do Orçamento
Local aCpoItens Orçamento
Local aCpoItens := paramixbParamixb[2] 02] // Campos dos itens a serem inibidos na copia do Orçamento
Local aRetorno Local aRetorno := {}:= {} // Retorno dos campos a serem desconsiderados na cópia do orçamento
Local aDelCpos := {"LR_DESC","LR_VALDESC"} // Campos que serão removidos do array retornado pela rotina LOJA701
Local nS := 0 // Controle do For
Local nPosDel := 0 // Controle da posição a ser deletada
Local nDel := 0 // Controle de deleção de campos
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Incluindo campos específicos a serem inibidos no momento da cópia do orçamento//
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
aAdd aAdd(aCpoCab , "LQ_ZZCAMPO") //Incluindo campos de Campos do cabeçalho a serem inibidos na copia cópia do orçamento
aAddaAdd(aCpoItens , "LR_ZZCAMPO") //Incluindo campos Campos de itens a serem inibidos na copia do orçamento
aRetorno := {aCpoCab, aCpoItens }
Return aRetorno
cópia do orçamento
////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Neste exemplo, os campos LR_DESC E LR_VALDESC, inseridos //
//anteriormente pela rotina LOJA701, serão removidos //
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
For nS := 1 To Len(aDelCpos)
nPosDel := aScan(aCpoItens,{ |x| AllTrim(x) == aDelCpos[nS] })
If nPosDel > 0
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Deletando a posição do campo que será considerado para a cópia do orçamento//
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
aDel(aCpoItens,nPosDel)
nDel++//Quantidade de campos deletados
EndIf
Next nS
///////////////////////////////////////////////////////////////////////
//Refazendo o tamanho do array antes do retorno para a rotina LOJA701//
///////////////////////////////////////////////////////////////////////
aSize(aCpoItens,Len(aCpoItens) - nDel)
aRetorno := {aCpoCab, aCpoItens }
Return aRetorno