Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:Finalização da venda
Localização:FRTA271 - Atendimento
Eventos:Usado na Finalização da Venda
Programa Fonte:FRTA271G.PRW
Função:FR271GEncerra
Parâmetros:

1 - nTotDedIcms - valor Total Dedução Icms - numérico

2 - aItens - array com os itens da venda :

PosiçãoDescriçãoTipo
1Numero do ItemCaracter
2Código do ProdutoCaracter
3Código de Barras do produtoCaracter
4DescriçãoCaracter
5QuantidadeNumérico
6Valor UnitárioNumérico
7Valor do ItemNumérico
8Valor DescontoNumérico
9AlíquotaCaracter
10Valor de IPINumérico
11Item Deletado ?Lógico
12Valor SolidárioNumérico
13Dedução ICMSNumérico
14Número Item ImpressoraCaracter
15Item PBM ?Lógico
16Imposto Incluído no valor do item ?Lógico

3 - cCliente - código do Cliente - caracter

4 - cLojaCli - loja do cliente - caracter

5 - aPgtos - array contendo as formas de pagamento usadas ( posições abaixo são as mais importantes, existem outras)

PosiçãoDescriçãoTipo
1DataData
2ValorNumérico
3Forma de Pagamento (FI,CC,CD, etc)Caracter

 

6 - cItemCond - condição de pagamento (tabela SE4) - caracter

Retorno:
NomeTipoDescriçãoObrigatório
aRetPE[1]lógicoProssegue com a execução ?SIM
aRetPE[2]numéricoatualiza o valor total da vendaNÃO

 

Exemplos:

 

#include "protheus.ch"

User Function FRTFINVEN()
Local nTotDedIcms := PARAMIXB[1]
Local aItens := PARAMIXB[2]
Local cCliente := PARAMIXB[3]
Local cLojaCli := PARAMIXB[4]
Local aPgtos := PARAMIXB[5]
Local cItemCond := PARAMIXB[6]

Local aRetPE := {.T.,0}
Local lContinua := .T.
Local nNewValor := 0

//Tratamento do PE segundo desejado........

aRetPE[1] := lContinua
aRetPE[2] := nNewValor

Return aRetPE