| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Ponto de Entrada A103CUST |
|
Versão: |
12.1.27 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
JAMERSON19
em 19/08/2021, 12:09 h
Local: PE Registro: 11/10/2019 Postagens: 6 |
Boa tarde!
Alguém tem o ponto de entrada A103CUST ?
Se sim, pode disponibilizar. Estou na dúvida de como deve ser feita a manipulação nesse ponto de entrada.
Desde já grato.
meu email: jamerson.souza@sweetfruits.com.br |
|
|
|
Mensagem do
EMERSON.EN
em 19/08/2021, 12:32 h
Local: SP Registro: 20/08/2010 Postagens: 670 |
User Function A103CUST()
Local aRet := PARAMIXB[1] //recebe os custos calculados pelo Protheus
// Conteudo do aRet
// aRet[1,1] -> Custo de entrada na Moeda 1
// aRet[1,2] -> Custo de entrada na Moeda 2
// aRet[1,3] -> Custo de entrada na Moeda 3
// aRet[1,4] -> Custo de entrada na Moeda 4
// aRet[1,5] -> Custo de entrada na Moeda 5
// Efetue os cálculos necessários e
// manipule o conteúdo do array aRet
Return aRet // devolve os custos para o Protheus |
|
|
|
Mensagem do
JAMERSON19
em 22/12/2021, 08:49 h
Local: PE Registro: 11/10/2019 Postagens: 6 |
Bom dia!
Obrigado Emerson!
Mas, alguém usa o ponto de entrada e tem um exemplo diferente do apresentado pela TOTVS ? Pois estou sem saber como utilizar esse ponto de entrada de fato.
Atenciosamente,
Jamerson Souza |
|
|
|
Mensagem do
MARIOZ
em 31/08/2022, 12:13 h
Local: RS Registro: 29/09/2005 Postagens: 11 |
#INCLUDE ‘RWMAKE.CH‘
User Function A103CUST()
Local _aArea := GetARea()
Local _aSf4Area := SF4->(GetArea())
Local aRet := PARAMIXB[1] //recebe os custos calculados pelo Protheus
// Conteudo do aRet
// aRet[1,1] -> Custo de entrada na Moeda 1
// aRet[1,2] -> Custo de entrada na Moeda 2
// aRet[1,3] -> Custo de entrada na Moeda 3
// aRet[1,4] -> Custo de entrada na Moeda 4
// aRet[1,5] -> Custo de entrada na Moeda 5
IF SF4->F4_BONIF == "S" // Bonificacoes, se tiver credito de impostos reduz e forca o custo negativo
IF aRet[1,1] == 0
IF SF4->F4_CREDICM == "S"
aRet[1,1] -= SD1->D1_VALICM
ENDIF
IF SF4->F4_CREDIPI == "S"
aRet[1,1] -= SD1->D1_VALIPI
ENDIF
IF SF4->F4_PISCRED == "1"
aRet[1,1] -= SD1->D1_VALIMP5
aRet[1,1] -= SD1->D1_VALIMP6
ENDIF
ENDIF
ENDIF
RestArea(_aSf4Area)
RestArea(_aArea)
Return aRet // devolve os custos para o Protheus |
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
