PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
ponto de entrada no orçamento
Versão:
12
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário MIRIAMFX2 MIRIAMFX2 em 03/01/2019, 07:54 h
Local: MG  Registro: 15/03/2018  Postagens: 5
Bom dia, estou tentando fazer um fonte que carregue o valor do desconto no orçamento, criei um campo na SCJ, SCJ->CJ_XDESCONTO, nele digito o valor total do desconto no orçamento, esse valor deve ser rateado para todos os itens do orçamento, então estou usando o ponto de entrada A415LIOK(), na falta de outro melhor rs, ele dispara quando finalizo a atualização naquela linha da grid do orçamento, o problema esta quando atualizo o orçamento ou transito pelas linhas, ele executa o ponto de entrada então acho que não da pra fazer por ele. Alguém tem alguma ideia?

User Function A415LIOK()
    
    Local aArea := GetArea()
    Local aAreaCJ := SCJ->(GetArea())
    Local aAreaCK := SCK->(GetArea())
    Local lRet := .T.
    Local nItem := 0
    Local nDesc := 0

    SET DELETED OFF

    If CJ_XVLDESC <> 0
       
               nItem := LASTREC()
               nDesc := (CJ_XVLDESC/nItem)
               dbGoTop()                        
                    While !eof()
                        CK_VALDESC := nDesc
                        dbskip()
                    Enddo
    Endif
           
    Restarea(aAreaCK)
    RestArea(aAreaCJ)
    RestArea(aArea)
   
Return lRet

Mensagem do Enviar e-mail Abrir o Perfil do usuário DON.JUNIOR DON.JUNIOR em 05/01/2019, 01:11 h
Local: RJ  Registro: 24/01/2016  Postagens: 119
Não conheço o módulo, mas pelo seu "problema"o mais indicado é trabalhar osdados antes de montar o aCols... teria que analisar melhor, mas uma pergunta no início da rotina para o usuário digitar o valor do desconto, aí você conta a quantidade de linhas e faz o rateio proporcionalmente, quando a tela abrir já virá com os valores preenchidos.

Também pode fazer no final, mas aí terá que abrir uma telinha para digitação do desconto e exibir os novos valores, quando o usuário confirmar na sua tela grava no banco.


Att.
Don Junior

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário MIRIAMFX2 MIRIAMFX2 em 08/01/2019, 16:38 h
Local: MG  Registro: 15/03/2018  Postagens: 5
Então mas no inicio seria inviável por que a pessoa pode digitar mais ou menos itens. Esse fonte passa por todas as linhas assim que uma linha é finalizada, no entanto queria que desconsidera-se as linhas em branco.

Mensagem do Enviar e-mail Abrir o Perfil do usuário DON.JUNIOR DON.JUNIOR em 08/01/2019, 21:06 h
Local: RJ  Registro: 24/01/2016  Postagens: 119
Então faz no final... Aí vc já vai ter o total de linhas e valor de cada linha caso queira ratear proporcional ao valor da linha. Veja se essa rotina possui um PE após confirmação tipo 415Tok, 415fim ou 415sai. Agora estou no celular, não tenho como ajudar mais.

Att.
Don Junior

Mensagem do Enviar e-mail Abrir o Perfil do usuário JUNIORPLAC JUNIORPLAC em 10/01/2019, 15:32 h
Local: BA  Registro: 19/02/2015  Postagens: 31
Você é analista, consultor, trabalha com Protheus, Sistemas de informação ou Banco de Dados? Se SIM! Veja nosso portai de troca de conhecimento, PROTHEUS E SQL, conteúdo bom e de GRAÇAAAAAAAAAAAAA!

Canal Protheus e SQL - Conteúdo GRATUITO

TODAS AS NOSSAS REDES DE TROCA DE CONHECIMENTO

Protheus e SQL O dia a dia de quem faz arte com Protheus

Facebook
https://www.facebook.com/protheusesql

Grupo no Facebook
https://www.facebook.com/groups/protheusesql

YouTube
https://www.youtube.com/channel/UCfICFLzDCOqzayF4i6N4yjA

Instagram
https://www.instagram.com/protheusesql

LinkedIn
https://www.linkedin.com/company/protheusesql

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal