Árvore de páginas

Descrição

Este ponto de entrada está localizado na rotina Consulta Garantia Mútua. Tem como finalidade a impressão da carta de decorrência de garantia mútua. O relatório deve ser desenvolvido de acordo com as necessidades do cliente, sendo a autoria deste realizada pelo próprio cliente (personalização).

Observações

Exemplos

#include "Protheus.ch"

User Function OC490IMP()

Local aCabImp := ParamIXB1
Local aDetImp := ParamIXB2

MsgInfo(Ponto de Entrada para impressão da carta de decorrência).

Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

aCabImp - Array contendo informações do cabeçalho do pedido
aDetImp - Array contendo informações dos itens do pedido.

Retorno

Eventos de chamada do Ponto de Entrada

aCabImp06 := Round( aCabImp07 * ( nPerDecor / 100 ) , 2) // Valor da Decorrencia

For nPos := 1 to Len(aDetImp)
aDetImpnPos,04 := Left(AllTrim(aDetImpnPos,04),Len(AllTrim(aDetImpnPos,04))-1)
aDetImpnPos,05 := Left(AllTrim(aDetImpnPos,05),Len(AllTrim(aDetImpnPos,05))-1)
aDetImpnPos,06 := Left(AllTrim(aDetImpnPos,06),Len(AllTrim(aDetImpnPos,06))-1)
Next nPos

dbSelectArea("VDF")
cFilAnt := cBkpFilAnt

ExecBlock("OC490IMP",.f.,.f.,{aCabImp,aDetImp})

Return

Variáveis

Programa Fonte

OFIOC490.PRW

  • Sem rótulos