Histórico da Página

...

Producto

Solucoes_espanhol

Solucao	TOTVS Backoffice

Línea de producto:

Linhas_totvs_espanhol

Linha	Línea Protheus

Segmento:

Segmentos_totvs_espanhol

Segmento	Backoffice

Módulo:

SIGAFIN - Financiero.

Función:

Rutina	Nombre Técnico
CONSCCARG.PRW	Consulta de Cuenta corriente en la AFIP Orden de pago.
FECREDAMB.PRW	Parametriza el TOTVS Services para el webservice WSFECRED.
FINA847.PRW	Browser Orden de pago Mod. II.
FINA850.PRW	Orden de pago Mod. II.
FINA850A.PRW	Complemento Orden de pago Mod. II.
FINA850I.PRW	Complemento Orden de pago Mod. II.
FINA855.PRW	Nueva orden previa de pago.
FINRETARG.PRW	Cálculo de retenciones Mod. II - Estructura.
FINRETGAN.PRW	Cálculo de retención de ganancias.
FINRETIBB.PRW	Cálculo de retención de IIBB.
FINRETIVA.PRW	Cálculo de retención de IVA.
FINRETMUN.PRW	Cálculo de retención de Municipalidades.
FINRETSLI.PRW	Cálculo de retención SLI.
FINRETSUS.PRW	Cálculo de retención de SUSS.
TRFFECRED.PRW	Función que realiza la transferencia de la aceptación en la rutina de Orden previa de pago AFIP.
TRFOPARG.PRW	Transferencia de aceptación en la rutina Orden de pago.
TRFOPCRED.PRW	Transferencia de aceptación en la rutina Orden de pago.

País:

Argentina.

Ticket:

17959588.

Requisito/Story/Issue (informe el requisito vinculado):

DMICNS-18275.

...

Descripción:

FA855CPOS()

Ubicación:

Financiero

Eventos:

-

Programa Fuente:

FINA855.PRW

Función:

FINA855()

Respuesta:

Nombre

Tipo

Descripción

Obligatorio

aRet

Array

Campos a incluir en grid de pestaña de Orden Previa.

El arreglo (aRet) en el cual se agregan los campos es a dos posiciones:

En la primera posición se incluye un arreglo con el campo y las propiedades que va a tener en el grid de la pestaña de “Orden Previa”.

Importante: Para que el campo sea grabado, en la posición 6 del arreglo (X3_VALID) adicional a las validaciones de usuario, se debe grabar en el contenido del nuevo campo en la tabla temporal (FA855SE2), como se muestra en el ejemplo

UpdDescNat

UpdCampo(cCampo), en caso de no grabarlo, no será actualizado en la

SE2

FJL.

En la segunda posición se informa el nombre del campo de la tabla FJL en el cual será grabado el valor.

Sí

Ejemplo:

#Include 'Protheus.ch'

...

@Type User Function
@Author Microsiga Protheus
@Since 18/10/2023
@Version P12.1.2310
@Param
@Return aRet: Campos que serán agregados en la solapa.
/*/

User Function FA855CPOS
Local _aArea := GetArea()
Local aRet := {}

// X3_TITULO, X3_CAMPO, X3_PICTURE, X3_TAMANHO, X3_DECIMAL, X3_VALID, "", X3_TIPO, "", "Campo en FJL"})
Aadd(aRet,{{RetTitle("E2_XDESNAT"), "E2_XDESNAT", PesqPict("SE2","E2_XDESNAT"), TamSX3("E2_XDESNAT")[1], TamSX3("E2_XDESNAT")[2],'teste123u_UpdCampo("E2_XDESNAT")', "", "C", "", ""}, {"E2FJL_XDESNATXDESNA"}}) //E2_NATUREZ

RestArea( _aArea )
Return(aRet)

Informações

Es importante que el campo E2_XDESNAT exista creado en la tabla SE2, de igual forma el campo FJL_XDESNA en la tabla FJL.

Al momento de incluir la Preorden de pago la información será cargada inicialmente del campo del primer bloque del arreglo (E2_XDESNAT ), después, al realizar las acciones de modificar, visualizar, borrar, esta información será consultada del campo FJL_XDESNA.

/*/{Protheus.doc} UpdDesNat
Actualiza valor en tabla tamporal FA855SE2.

...

If FA855SE2->(DbSeek(xFilial("SE2")+cFornece+cLoja+GdFieldGet("E2_PREFIXO")+GdFieldGet("E2_NUM")+GdFieldGet("E2_PARCELA")+GdFieldGet("E2_TIPO")))
cDesNat := Posicione("SED",1,xFilial("SE1")+FA855SE2->E2_NATUREZ,"ED_DESCRIC")
RecLock("FA855SE2",.F.)
FA855SE2->E2_XDESNAT := cDesNat//GdFieldGet(cCampo)
FA855SE2->(MsUnlock())
lRet := .T.
EndIf

oBrwTit:Refresh()

Return lRet

/*/{Protheus.doc} UpdCampo
Actualiza valor en tabla tamporal FA855SE2.

@Type User Function
@Author Microsiga Protheus
@Since 18/10/2023
@Version P12.1.2310
@Param cCampo: Nombre del campo.
@Return lRet: (.T.) Indica que se actualizó el valor y que la validación fue correcta.
/*/

User Function UpdCampo(cCampo)
Local lRet := .F.
GdFieldPut(cCampo, M->&(cCampo))

//Validación de usuario para el campo FJL_TESTE
If FA855SE2->(DbSeek(xFilial("SE2")+cFornece+cLoja+GdFieldGet("E2_PREFIXO")+GdFieldGet("E2_NUM")+GdFieldGet("E2_PARCELA")+GdFieldGet("E2_TIPO")))
RecLock("FA855SE2",.F.)
FA855SE2->&(cCampo) := GdFieldGet(cCampo)
FA855SE2->(MsUnlock())
lRet := .T.
EndIf
oBrwTit:Refresh()

Return lRet

05. ASUNTOS RELACIONADOS

3320927_DMICNS-3677_DT_Punto_de_Entrada_FA855CPOS_PreOrden_ARG

Templatedocumentos

...

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave

05. ASUNTOS RELACIONADOS