Histórico da Página

01. DADOS GERAIS

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

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

...