- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- LP (TAMANHO DO CAMPO VALORES) CT5_VLR01
×
Linguagem de Programação ADVPL
Perguntas LP (TAMANHO DO CAMPO VALORES) CT5_VLR01
- vcosta
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
11 anos 4 semanas atrás #17992
por vcosta
LP (TAMANHO DO CAMPO VALORES) CT5_VLR01 foi criado por vcosta
Estou tentando colocar esta regra no campo valores de Lançamento expressão.
NÃO CABE NO CAMPO
é possivel aumentar este campo ou qual seria a alternativa?
LP 650 n.fiscal de entrada
SF4->F4_DUPLIC=="S".AND.!SD1->D1_TES $ "444",(SD1->D1_TOTAL-SD1->D1_VALIRR-SD1->D1_VALISS-SD1->D1_VALINS-SD1->D1_VALPIS-SD1->D1_VALCOF-SD1->D1_VALCSL)+SD1->D1_DESPESA+SD1->D1_VALFRE+SD1->D1_VALIPI,0)
Grato a quem puder socorrer.
Vatler
NÃO CABE NO CAMPO
é possivel aumentar este campo ou qual seria a alternativa?
LP 650 n.fiscal de entrada
SF4->F4_DUPLIC=="S".AND.!SD1->D1_TES $ "444",(SD1->D1_TOTAL-SD1->D1_VALIRR-SD1->D1_VALISS-SD1->D1_VALINS-SD1->D1_VALPIS-SD1->D1_VALCOF-SD1->D1_VALCSL)+SD1->D1_DESPESA+SD1->D1_VALFRE+SD1->D1_VALIPI,0)
Grato a quem puder socorrer.
Vatler
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 4 semanas atrás #17993
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico LP (TAMANHO DO CAMPO VALORES) CT5_VLR01
Valter nestes casos vc deverá criar uma função no seu projeto, segue exemplo:
User Function LPATI650()
Local nValor := 0.00
Local aArea := GetArea()
If SF4->F4_DUPLIC=="S".AND.!SD1->D1_TES $ "444"
nValor := Round((SD1->D1_TOTAL-SD1->D1_VALIRR-SD1->D1_VALISS-SD1->D1_VALINS-SD1->D1_VALPIS-SD1->D1_VALCOF-SD1->D1_VALCSL)+(SD1->D1_DESPESA+SD1->D1_VALFRE+SD1->D1_VALIPI),2)
Endif
RestArea(aArea)
Return nValor
e Na chamada no cadastro vc coloca
U_LPATI650()
User Function LPATI650()
Local nValor := 0.00
Local aArea := GetArea()
If SF4->F4_DUPLIC=="S".AND.!SD1->D1_TES $ "444"
nValor := Round((SD1->D1_TOTAL-SD1->D1_VALIRR-SD1->D1_VALISS-SD1->D1_VALINS-SD1->D1_VALPIS-SD1->D1_VALCOF-SD1->D1_VALCSL)+(SD1->D1_DESPESA+SD1->D1_VALFRE+SD1->D1_VALIPI),2)
Endif
RestArea(aArea)
Return nValor
e Na chamada no cadastro vc coloca
U_LPATI650()
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- vcosta
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- LP (TAMANHO DO CAMPO VALORES) CT5_VLR01
Tempo para a criação da página:0.083 segundos