Histórico da Página

01.

...

DATOS GENERALES

Linha

Protheus

TOTVS Backoffice (

Linha

Línea Protheus) -

Controle

Control de

lojas

tiendas (SIGALOJA)

Produto

Producto:

TOTVS Minorista Tiendas

Línea de producto:

Línea

Solucoes_totvs

Solucao	TOTVS Varejo Lojas

Linha de Produto:

Linhas_totvs

Linha

Segmento:

Segmentos_totvs

Segmento	Varejo

Minorista

Módulo:

Modulos_cross_segmentos

ModulosCrossSegmentos

Função

Función:

Venda Direta

Venta directa

País:

Brasil

02.

...

DESCRIPCIÓN

Esse ponto Este punto de entrada permite que seja criada uma regra para seleção se cree una regla para selección de NCC no en el módulo SIGAFAT (PE FTVD7026)

É executado antes da exibição da tela com as NCCs do Se ejecuta antes de la exhibición de la pantalla con las NCC del cliente.

Nota

title	MV_USACRED

O parâmetro MV_USACRED influencia esse ponto de entrada. Se estiver desabilitado El parámetro MV_USACRED influye en este punto de entrada. Si estuviera deshabilitado (igual a 'N'), o ponto el punto de entrada não será executado no se ejecutará.

03.

...

OTRAS INFORMACIONES

El parámetro

...

O parâmetro MV_LJNCCOR também possui influência sobre o ponto también tiene influencia sobre el punto de entrada, de acordo com as combinações abaixoacuerdo con las siguientes combinaciones:

SEExecuta o Ponto de Entrada na inclusão de orçamento e na finalização de orçamentoExecuta o Ponto de Entrada na inclusão de orçamento.
E, caso o parâmetro executa o Ponto de Entrada na finalização de orçamento também

SI	RESULTADO
MV_LJNCCOR=.F.	Ejecuta el Punto de entrada en la inclusión de presupuesto en la finalización de presupuesto.
MV_LJNCCOR=.T.	Ejecuta el Punto de entrada en la inclusión de presupuesto. Y, si el parámetro MV_LJMTSN = 1,	ejecuta el Punto de entrada en la finalización de presupuesto también.

Nota

title	MV_LJNCCOR

Caso parâmetro Si el parámetro MV_LJNCCOR=.T. , o sistema não traz as NCCs gravadas nas tabelas MDJ / MDK que foram selecionadas ao salvar o orçamento. Sendo assim, é necessário fazer esse tratamento no Ponto de Entrada também.

RETORNO:

Não existe retorno da função.

el sistema no trae las NCC grabadas en las tablas MDJ / MDK que se seleccionaron al grabar el presupuesto. De esta manera, es necesario realizar este tratamiento en el Punto de entrada también.

DEVOLUCIÓN:

No existe devolución de la función.

Debe completarse el Deve ser preenchido o array bidimensional Private aNccItens. Em cada dimensão deve conter seguintes informações En cada dimensión debe contener las siguientes informaciones:

[1] - .T. para que a NCC já venha selecionadala NCC venga seleccionada, .F. para que não venha não selecionadano venga seleccionada
[2] - Valor da de la NCC (E1_SALDO)
[3] - Número da de la NCC (E1_NUM)
[4] - Data de emissão da Fecha de emisión de la NCC (E1_EMISSAO)
[5] - Número do del registro no en el (SE1->(Recno())
[6] - Saldo do del título (E1_SALDO)
[7] - Símbolo Moeda Moneda ( exemplo ejemplo : SuperGetMV("MV_MOEDA1") )
[8] - Moeda Moneda ( E1_MOEDA )
[9] - Prefixo Prefijo ( E1_PREFIXO )
[10] -Parcela Cuota ( E1_PARCELA )
[11] -Tipo (E1_TIPO)
[12] -Filial Sucursal (E1_FILIAL)

...

EJEMPLO:

Bloco de código

language	delphi
theme	RDark
firstline	1
linenumbers	true

User Function FTVD7026()
Local lLjNCCOr  := SuperGetMv("MV_LJNCCOR", Nil, .F.)
Local cAliasQry := GetNextAlias()
Local cQuery    := ""
 
 
cQuery := "SELECT E1_FILIAL, E1_PREFIXO, E1_NUM, E1_PARCELA, E1_TIPO, E1_EMISSAO, E1_SALDO, E1_MOEDA, SE1.R_E_C_N_O_ AS RECNO"
 
If lLjNCCOr
    cQuery += "  , MDJ_NUMORC as SELMDJORC "
EndIf
 
cQuery += "  FROM " + RetSQLName("SE1") + " SE1 "
 
If lLjNCCOr
    cQuery += " LEFT JOIN " + RetSQLName("MDK") + " MDK ON  MDK.MDK_NUMREC = SE1.R_E_C_N_O_ AND MDK.D_E_L_E_T_ = ' ' "
    cQuery += " LEFT JOIN " + RetSQLName("MDJ") + " MDJ ON MDJ.MDJ_FILIAL = MDK.MDK_FILIAL AND MDJ.D_E_L_E_T_ = ' ' "
    cQuery += " AND MDJ.MDJ_NUMORC = MDK.MDK_NUMORC "
    cQuery += "  AND MDJ.MDJ_SITUA = 'OR' AND MDJ.MDJ_NUMORC = '" + M->LQ_NUM +  "' "
EndIf
 
cQuery += " WHERE "
If !SuperGetMV("MV_LJNCCFI",,.F.)
    cQuery += "   E1_FILIAL  = '"+xFilial("SE1")+"' AND "
EndIf
cQuery += "   E1_CLIENTE = '"+M->LQ_CLIENTE+"' AND "
If !SuperGetMV("MV_LJNCCLJ",,.F.)
    cQuery += "   E1_LOJA    = '"+M->LQ_LOJA+"' AND "
EndIf
cQuery += "   E1_STATUS  = 'A' AND " //A=Em AbertoPendiente
cQuery += "   E1_SALDO > 0 AND " //ComCon Saldosaldo em abertopendiente
cQuery += "   E1_TIPO IN ('NCC','RA ') AND "
cQuery += "   SE1.D_E_L_E_T_ = ' ' "
 
cQuery := ChangeQuery(cQuery)
dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery), cAliasQry,.F.,.F.)
 
While !(cAliasQry)->(EOF())
     
    aAdd(aNCCItens,{.F.,;
                    (cAliasQry)->E1_SALDO,;
                    (cAliasQry)->E1_NUM,;
                    STOD((cAliasQry)->E1_EMISSAO),;                    
					(cAliasQry)->RECNO,;
                    (cAliasQry)->E1_SALDO,;
                    SUPERGETMV("MV_MOEDA1"),;
                    (cAliasQry)->E1_MOEDA,;
                    (cAliasQry)->E1_PREFIXO,;
                    (cAliasQry)->E1_PARCELA,;
                    (cAliasQry)->E1_TIPO,;
                    (cAliasQry)->E1_FILIAL})
 
    (cAliasQry)->(DbSkip())
End  
 
(cAliasQry)->(DbCloseArea())
 
Return

04.

...

ASUNTOS RELACIONADOS

FAQ do Varejo: Venda Direta de Minorista: Venta directa (LOJA701 - SIGALOJACONTROL DE TIENDA)

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

01.

DATOS GENERALES

02.

DESCRIPCIÓN

03.

OTRAS INFORMACIONES

RETORNO:

DEVOLUCIÓN:

EJEMPLO:

04.

ASUNTOS RELACIONADOS