Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro


02. CONCEITO

...

O ponto de entrada

...

F090POSTIT posiciona o título desejado no momento da seleção de títulos na baixa automática a Pagar.

O retorno deste ponto de entrada será o registro posicionado na tabela de seleção de títulos para a baixa.

03.

...

Observações

...

Está presente na função F090POSTIT()

...

Exemplos

#INCLUDE "PROTHEUS.CH"

User Function F090POSTIT()

...

 Parâmetros

OrdemNomeTipo
1ParamIxb[1] = cAliasSE2 Array

04. EXEMPLO DE UTILIZAÇÃO


Bloco de código
languagejava
themeMidnight
titleExemplo F090FIL
linenumberstrue
User Function F090POSTIT()
	Local cPrefixo := "" // SE2->E2_PREFIXO

...


	Local cNum := "

...

" //SE2->E2_NUM

...


	Local cParcela := "" //SE2->E2_PARCELA

...


	Local cTipo := "

...

" //SE2->E2_TIPO

...


	Local cFornece := "

...

" //SE2->E2_FORNECE

...


	Local cLoja := "

...

" //SE2->E2_LOJA

...



	Private lRetorno:= .T.
	Private aRetorno:= {}

	If MsgYesNo("Deseja posicionar titulo ?"

...

 // monta tela de chave de pesquisa

...

)
		MonTela ()
		cPrefixo := aRetorno[1]
		cNum := aRetorno[2]
		cParcela := aRetorno[3]
		cTipo := aRetorno[4]
		cFornece := aRetorno[5]
		cLoja := aRetorno[6]

		IF(lRetorno)
			DbSelectArea("SE2")

...


			DbSetOrder(1) // E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+

...

E1_FORNECE+

...

 /* Recebe as informações digitadas na tela pelas variaveis. */

...

E1_LOJA
			DbSeek(xFilial("SE2")+cPrefixo+cNum+cParcela+cTipo+cFornece+cLoja

...

 Endif

Return

,.T.)
		EndIF
	Endif

Return

//--- Monta uma tela para escolha do título a ser posicionado.
Static Function MonTela ()
	Private cFornecedo := Space(TamSx3("E2_FORNECE")[1])
	Private cLoja := Space(TamSx3("E2_LOJA")[1])
	Private cParcela := Space(TamSx3("E2_PARCELA")[1])
	Private cPref := Space(TamSx3("E2_PREFIXO")[1])
	Private cTipo := Space(TamSx3("E2_TIPO")[1])
	Private cTitulo := Space(TamSx3("E2_NUM")[1])

	SetPrvt("oSelTitulos","oSay1","oSay2","oSay3","oSay4","oSay5","oSay6","oPref","oTitulo","oParcela","oTipo")
	SetPrvt("oFornecedor","oLoja","oBtnConfirmar","oBtnSair")

	oSelTitulo := MSDialog():New( 174,685,354,877,"Seleção de Titulos",,,.F.,,,,,,.T.,,,.T. )
	oSay1 := TSay():New( 004,003,{||"Prefixo"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,024,008)
	oSay2 := TSay():New( 015,003,{||"Titulo"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,024,008)
	oSay3 := TSay():New( 027,003,{||"Parcela"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,024,008)
	oSay4 := TSay():New( 038,003,{||"Tipo"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,024,008)
	oSay5 := TSay():New( 061,003,{||"Loja"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,024,008)
	oSay6 := TSay():New( 050,003,{||"Fornecedor"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,030,008)
	
	oPref := TGet():New( 004,035,{|u| If(PCount()>0,cPref:=u,cPref)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cPref",,)
	oTitulo := TGet():New( 015,035,{|u| If(PCount()>0,cTitulo:=u,cTitulo)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cTitulo",,)
	oParcela := TGet():New( 027,035,{|u| If(PCount()>0,cParcela:=u,cParcela)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cParcela",,)
	oTipo := TGet():New( 038,035,{|u| If(PCount()>0,cTipo:=u,cTipo)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cTipo",,)
	oLoja := TGet():New( 061,035,{|u| If(PCount()>0,cLoja:=u,cLoja)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cLoja",,)
	oFornecedo := TGet():New( 050,035,{|u| If(PCount()>0,cFornecedo:=u,cFornecedo)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cFornecedor",,)

	oBtnConfir := TButton():New( 075,001,"&Confirmar",oSelTitulos,{|| ConfTT(cPref, cTitulo, cParcela, cTipo, cFornecedo, cLoja)},043,012,,,,.T.,,"",,,,.F. )
	oBtnSair := TButton():New( 075,049,"&Sair",oSelTitulos,{|| CancTT()},043,012,,,,.T.,,"",,,,.F. )

	oSelTitulo:lEscClose := .F. //Nao permite sair ao se pressionar a tecla ESC.
	oSelTitulo:lCentered := .T.
	oSelTitulo:Activate(,,,.T.)

Return Nil

Static Function ConfTT(cTpPref, cTpTit, cTpParc, cTpTp, cTpFor, cTpLj)
	Local cTmpFor := ""
	Local cTmpLoj := ""
	Local cTmpPar := ""
	Local cTmpPre := ""
	Local cTmpTip := ""
	Local cTmpTit := ""
	Local cTmpV := ""

	cTmpFor := PADl(cTpFor ,TamSx3("E2_FORNECE")[1] ," ")
	cTmpLoj := PADl(cTpLj ,TamSx3("E2_LOJA")[1] ," ")
	cTmpPar := PADl(cTpParc ,TamSx3("E2_PARCELA")[1] ," ")
	cTmpPre := PADl(cTpPref ,TamSx3("E2_PREFIXO")[1] ," ")
	cTmpTip := PADl(cTpTp ,TamSx3("E2_TIPO")[1] ," ")
	cTmpTit := PADl(cTpTit ,TamSx3("E2_NUM")[1] ," ")
	cTmpV := cTmpPre+cTmpTit+cTmpPar+cTmpTip+cTmpFor+cTmpLoj

	IF Empty(AllTrim(cTmpV))
		lRetorno:= .F.
	EndIF

	aRetorno:= {}
	aadd(aRetorno,cTmpPre)
	aadd(aRetorno,cTmpTit)
	aadd(aRetorno,cTmpPar)
	aadd(aRetorno,cTmpTip)
	aadd(aRetorno,cTmpFor)
	aadd(aRetorno,cTmpLoj)

	oSelTitulo:End()
Return Nil

Static Function CancTT()
	Local cTmpFor := PADl(cTpFor ,TamSx3("E2_FORNECE")[1] ," ")
	Local cTmpLoj := PADl(cTpLj ,TamSx3("E2_LOJA")[1] ," ")
	Local cTmpPar := PADl(cTpParc ,TamSx3("E2_PARCELA")[1] ," ")
	Local cTmpPre := PADl(cTpPref ,TamSx3("E2_PREFIXO")[1] ," ")
	Local cTmpTip := PADl(cTpTp ,TamSx3("E2_TIPO")[1] ," ")
	Local cTmpTit := PADl(cTpTit ,TamSx3("E2_NUM")[1] ," ")

	aRetorno:= {}
	aadd(aRetorno,cTmpPre)
	aadd(aRetorno,cTmpTit)
	aadd(aRetorno,cTmpPar)
	aadd(aRetorno,cTmpTip)
	aadd(aRetorno,cTmpFor)
	aadd(aRetorno,cTmpLoj)

	oSelTitulo:End()
Return Nil


05. DEMAIS INFORMAÇÕES

      Não há.


06. ASSUNTOS RELACIONADOS

     Não há.

...

Idioma

...

Português(Brasil)

...

Versões

...

Microsiga_Protheus11

...

Sistemas Operacionais Suportados

...

Todos

...

Compatível com as Bases de Dados

...

Todas

...

Retorno

...

DbSeek(xFilial("SE2")+cPrefixo+cNum+cParcela+cTipo+cFornece+cLoja)

...

Eventos de chamada do Ponto de Entrada

...

ExecBlock("F090POSTIT", .F., .F. )

...

Variáveis

...

cPrefixo+cNum+cParcela+cTipo+cFornece+cLoja

...

Programa Fonte

...