LJ7061 - Definir campos a serem copiados na rotina de

cópia de orçamento

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