DT PE OMS341SEF - Gravação na tabela de cheques

01. DADOS GERAIS

Produto:	TOTVS OMS
Linha de Produto:	Linha Protheus
Segmento:	Logística
Módulo:	SIGAOMS - Gestão de Distribuição
Função:	OMSA341 - Retorno Financeiro
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

02. DESCRIÇÃO

Este Ponto de Entrada permite gravar os campos específicos do cliente.

Sintaxe
OMS341SEF - Gravação na Tabela de Cheques ( [ aColsSef ] )

03. LOCALIZAÇÃO

Localizado após a gravação na tabela de Cheques (SEF), para títulos do tipo CH.

04. PARÂMETROS

Nome	Tipo	Descrição
aColsSef	Array of Record	Array contendo os dados dos cheques

05. RETORNO

Não se aplica.

06. VERSÕES

Protheus 10, Protheus 11 e Protheus 12.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

User Function OMS341SEF()
Local Area:=GetArea()
Local AreaSEF:=SEF→(GetArea())
Local AreaSE1:=SE1→(GetArea())
Local nPosPref := Ascan(aHeader2,{|x| Alltrim(x[2]) == "E1_PREFIXO"} )
Local nPosBco := Ascan(aHeader2,{|x| Alltrim(x[2]) == "E1_BCOCHQ"} )
Local nPosAge := Ascan(aHeader2,{|x| Alltrim(x[2]) == "E1_AGECHQ"} )
Local nPosCta := Ascan(aHeader2,{|x| Alltrim(x[2]) == "E1_CTACHQ"} )
Local nPosNum := Ascan(aHeader2,{|x| Alltrim(x[2]) == "E1_NUM"} )
Local nPosEmit := Ascan(aHeader2,{|x| Alltrim(x[2]) == "EF_EMITENT"} )
Local nPosCPF := Ascan(aHeader2,{|x| Alltrim(x[2]) == "EF_CPFCNPJ"} )
Local nPosHIST := Ascan(aHeader2,{|x| Alltrim(x[2]) == "EF_HIST"} )
Local nPosTel := Ascan(aHeader2,{|x| Alltrim(x[2]) == "EF_TEL"} )
//a matriz acols contém os vetores dos cheques digitados pelos operadores,
//os campos personalizados estão nos vetores.If ValType(aCols)=='A' For nx:=1 to len(acols)
If !(acols[nx][len(acols[nx])])
cPref := acols[nx][nposPref]
cBco := acols[nx][nposBco]
cAge := acols[nx][nPosAge]
cCta := acols[nx][nPosCta]
cNum := acols[nx][nPosNum]
cEmit := acols[nx][nPosEmit]
cCPF := acols[nx][nPosCPF]
cHIST := acols[nx][nPosHIST]
cTel := acols[nx][nPosTel]
DbSelectArea("SEF")
DbSetOrder(1)
If DbSeek(Xfilial("SEF")+cBCo+cAge+cCta+cNum) RecLock("SEF",.F.)
If !Empty(cEmit) SEF->EF_EMITENT :=cEmit Endif
IF ALLTRIM(cCpf)<>ALLTRIM(SEF→ EF_CPFCNPJ) SEF→ EF_CPFCNPJ :=cCpf SEF→ EF_TERCEIR :=.T.
Endif If
!Empty(cHist) SEF→ EF_HIST:=cHist
Endif If
!Empty(cTel) SEF→ EF_TEL :=cTel Endif MsUnlock() DbSelectArea("SE1") DbSetOrder(1)
If DbSeek(xFilial("SE1")+SEF→ (EF_PREFIXO+EF_TITULO+EF_PARCELA+EF_TIPO)) RecLock("SE1",.F.)
If !Empty(cEmit) SE1→ E1_EMITCHQ:=cEmit Endif MsUnlock()
Endif
Endif
Endif
NextEnd
IfRestArea(AreaSef)
RestArea(AreaSe1)
RestArea(Area)
Return