Histórico da Página
Idioma | Portugués (Brasil) |
Versiones | Microsiga Protheus 12 |
Sistemas operativos compatibles | Todos |
Compatible con las bases de datos | Todas |
Devolución | (cTRBSE2)->( DbSeek( xFilial("SE2") + cPrefixo + cNum + cParcela + cTipo ) ) |
Eventos de activación del punto de entrada | ExecBlock("F090POSTIT", .F., .F., { cAliasSE2 } ) |
Variables | cPrefixo+cNum+cParcela+cTipo |
Programa fuente | FINA090.PRX |
Descripción | El punto de entrada F090POSTIT marca el título deseado en el momento de la selección de títulos en la baja automática por Pagar. |
Observaciones | Está presente en la función F090POSTIT(). A partir de la versión 12 del Protheus es necesario el pasaje del parámetro PARAMIXB[1] que contiene la tabla temporal utilizada en la pantalla de marcación de títulos. |
Ejemplos | #include 'protheus.ch' User Function F090POSTIT() Local cTRBSE2 := PARAMIXB[1] |
01. DADOS GERAIS
...
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. Parâmetros
...
04. EXEMPLO DE UTILIZAÇÃO
...
| language | java |
|---|---|
| theme | Midnight |
| title | Exemplo F090FIL |
| linenumbers | true |
...
//SE2->E2_NUM |
...
|
...
cParcela |
...
:= |
...
"" |
...
//SE2->E2_PARCELA |
...
|
...
cTipo |
...
:= |
...
"" |
...
//SE2->E2_TIPO |
...
|
...
cFornece |
...
:= |
...
"" |
...
//SE2->E2_FORNECE |
...
|
...
cLoja |
...
:= |
...
"" |
...
//SE2->E2_LOJA |
...
|
...
lRetorno:= |
...
.T. |
...
|
...
aRetorno:= |
...
{} |
...
If |
...
MsgYesNo(" |
...
¿Desea marcar un título ?") |
...
|
...
() |
...
|
...
:= |
...
aRetorno[1] |
...
|
...
:= |
...
aRetorno[2] |
...
|
...
:= |
...
aRetorno[3] |
...
|
...
:= |
...
aRetorno[4] |
...
|
...
:= |
...
aRetorno[5] |
...
|
...
:= |
...
aRetorno[6] |
...
If lRetorno |
...
) // |
...
E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO |
...
|
...
,.T. |
...
) ) Return Static Function MonTela () Private cFornecedo := Space(TamSx3("E2_FORNECE")[1]) |
...
|
...
cLoja |
...
:= |
...
Space(TamSx3("E2_LOJA")[1]) |
...
|
...
cParcela |
...
:= |
...
Space(TamSx3("E2_PARCELA")[1]) |
...
|
...
cPref |
...
:= |
...
Space(TamSx3("E2_PREFIXO")[1]) |
...
|
...
cTipo |
...
:= |
...
Space(TamSx3("E2_TIPO")[1]) |
...
|
...
cTitulo |
...
:= |
...
Space(TamSx3("E2_NUM")[1]) |
...
SetPrvt("oSelTitulos","oSay1","oSay2","oSay3","oSay4","oSay5","oSay6","oPref","oTitulo","oParcela","oTipo") |
...
|
...
oSelTitulo |
...
:= |
...
MSDialog():New( |
...
174,685,354,877," |
...
Selección de |
...
títulos",,,.F.,,,,,,.T.,,,.T. |
...
) |
...
|
...
:= |
...
TSay():New( |
...
004,003,{||" |
...
Prefijo"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,024,008) |
...
|
...
:= |
...
TSay():New( |
...
015,003,{||" |
...
Título"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,024,008) |
...
|
...
:= |
...
TSay():New( |
...
027,003,{||" |
...
Cuota"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,024,008) |
...
|
...
:= |
...
TSay():New( |
...
038,003,{||"Tipo"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,024,008) |
...
|
...
:= |
...
TSay():New( |
...
061,003,{||" |
...
Tienda"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,024,008) |
...
|
...
:= |
...
TSay():New( |
...
050,003,{||" |
...
Proveedor"},oSelTitulos,,,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,030,008) |
...
|
...
:= |
...
TGet():New( |
...
004,035,{|u| |
...
If(PCount()>0,cPref:=u,cPref)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cPref",,) |
...
|
...
:= |
...
TGet():New( |
...
015,035,{|u| |
...
If(PCount()>0,cTitulo:=u,cTitulo)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cTitulo",,) |
...
|
...
:= |
...
TGet():New( |
...
027,035,{|u| |
...
If(PCount()>0,cParcela:=u,cParcela)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cParcela",,) |
...
|
...
:= |
...
TGet():New( |
...
038,035,{|u| |
...
If(PCount()>0,cTipo:=u,cTipo)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cTipo",,) |
...
|
...
:= |
...
TGet():New( |
...
061,035,{|u| |
...
If(PCount()>0,cLoja:=u,cLoja)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cLoja",,) |
...
|
...
:= |
...
TGet():New( |
...
050,035,{|u| |
...
If(PCount()>0, |
...
cFornecedor:=u, |
...
cFornecedor)},oSelTitulos,057,008,'',,CLR_HBLUE,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cFornecedor",,) |
...
|
...
:= |
...
TButton():New( |
...
075,001,"&Confirmar",oSelTitulos,{|| |
...
ConfTT(cPref, |
...
cTitulo, |
...
cParcela, |
...
cTipo, |
...
cFornecedo, |
...
cLoja)},043,012,,,,.T.,,"",,,,.F. |
...
) |
...
|
...
:= |
...
TButton():New( |
...
075,049,"&Sair",oSelTitulos,{|| |
...
CancTT()},043,012,,,,.T.,,"",,,,.F. |
...
) |
...
oSelTitulo:lEscClose |
...
:= |
...
.F. |
...
// |
...
No permite salir al pulsarse la tecla ESC. |
...
:= |
...
.T. |
...
|
...
Return |
...
Nil |
...
Static |
...
Function |
...
ConfTT(cTpPref, |
...
cTpTit, |
...
cTpParc, |
...
cTpTp, |
...
cTpFor, |
...
cTpLj) |
...
|
...
cTmpFor |
...
:= |
...
"" |
...
|
...
cTmpLoj |
...
:= |
...
"" |
...
|
...
cTmpPar |
...
:= |
...
"" |
...
|
...
cTmpPre |
...
:= |
...
"" |
...
|
...
cTmpTip |
...
:= |
...
"" |
...
|
...
cTmpTit |
...
:= |
...
"" |
...
|
...
cTmpV |
...
:= |
...
"" |
...
cTmpFor |
...
:= |
...
PADl(cTpFor |
...
,TamSx3("E2_FORNECE")[1] |
...
," |
...
") |
...
|
...
:= |
...
PADl(cTpLj |
...
,TamSx3("E2_LOJA")[1] |
...
," |
...
") |
...
|
...
:= |
...
PADl(cTpParc |
...
,TamSx3("E2_PARCELA")[1] |
...
," |
...
") |
...
|
...
:= |
...
PADl(cTpPref |
...
,TamSx3("E2_PREFIXO")[1] |
...
," |
...
") |
...
|
...
:= |
...
PADl(cTpTp |
...
,TamSx3("E2_TIPO")[1] |
...
," |
...
") |
...
|
...
:= |
...
PADl(cTpTit |
...
,TamSx3("E2_NUM")[1] |
...
," |
...
") |
...
|
...
:= |
...
cTmpPre+cTmpTit+cTmpPar+cTmpTip+cTmpFor+cTmpLoj |
...
IF |
...
Empty(AllTrim(cTmpV)) |
...
|
...
.F. |
...
aRetorno:= |
...
{} |
...
|
...
|
...
|
...
|
...
|
...
|
...
oSelTitulo:End() |
...
|
...
Nil |
...
Static |
...
Function |
...
CancTT() |
...
|
...
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] |
...
," |
...
") |
...
aRetorno:= |
...
{} |
...
|
...
|
...
|
...
|
...
|
...
|
...
oSelTitulo:End() |
...
|
...
Nil |
...
05. DEMAIS INFORMAÇÕES
Não há.
06. ASSUNTOS RELACIONADOS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas