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 |
01. DATOS GENERALES
...
Línea de producto:
...
Microsiga Protheus®
...
Segmento:
...
Servicios
...
Módulo:
...
Financiero
...
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] |
La devolución de este punto de entrada será el registro marcado en la tabla de selección de títulos para la baja.
03. PARÁMETROS
...
Orden
...
Nombre
...
Tipo
...
1
...
ParamIxb[1] = cAliasSE2
...
Array
04. EJEMPLO DE UTILIZACIÓN
...
| language | java |
|---|---|
| theme | Midnight |
| title | Ejemplo 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 |
...
|
...
,.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. OTRAS INFORMACIONES
No hay.
06. ASUNTOS RELACIONADOS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas