Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: SPDPIS05 - Altera o indicador de pagamento e indicador de frete


Abrangências:Microsiga Protheus 10
Versões:Microsiga Protheus 10
Compatível Países:Brasil
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)


Descrição:
SPDPIS05 - Efetua alteração no indicador de pagamento e indicador de frete.
Eventos
 
Programa Fonte
SPEDPISCOF.PRW
Sintaxe

SPDPIS05 - Altera o indicador de pagamento e indicador de frete ( [ aCmpAntSFT ] ) --> aRet

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

aCmpAntSFT

Array of Record

Array da Tabela SFT










Retorno
aRet
    (array_of_record)
  • aRet [01] =Indicação de pagamento aRet [02] =Indicador do tipo do frete
Observações
Posição do array (aCmpAntSFT)

01 - Doc. Fiscal
02 - Série NF
03 - Cliente/Fornecedor
04 - Código Loja
05 - Data Docto.
06 - Data Emissão
07 - Data Canc.
08 - Formuláio Próprio
09 - CFOP
Exemplos
#Include "Protheus.ch"#Include "TopConn.ch"User Function SPDPIS05()  	Local cAlias 	:= ParamixB[1]			local aCmpAntSFT 	:= ParamixB[2] 	Local cIndpagto 	:= ""		Local cIndfrt   	:= ""	Local aAreaPis05	:= {}	Local cTipomv	:= Iif(Left(aCmpAntSFT[9],1)$"1|2|3","E","S")		aAreaPis05	:=(cAlias)->(GetArea())	dbSelectArea(cAlias)	dbSetOrder(4)							If DbSeek(xFilial(cAlias)+cTipomv+aCmpAntSFT[3]+aCmpAntSFT[4]+aCmpAntSFT[2]+Alltrim(aCmpAntSFT[1]+aCmpAntSFT[9])) .And. Empty(aCmpAntSFT[7])		cIndpagto := "9"	cIndfrt   := "9"	    Endif	RestArea(aAreaPis05)     			Return{cIndpagto,cIndfrt}
Variáveis



Nome

Tipo

Escopo

Pode Alterar

descrição




Array of Record

Global

Não