Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

PontoPunto-de-Entrada: COMCOL2 - CUSTOMIZAÇÃO PERSONALIZACIÓN PARA PROCESSAR SOMENTE PROCESAR SOLAMENTE DOCUMENTOS DO DEL TIPO TRANSFERÊNCIA TRANSFERENCIA ENTRE FILIAISSUCURSALES.

VersõesVersiones:
Compatível Compatible Países:	Todos
Sistemas Operacionaisoperativos:	Todos
Compatível às Bases de DadosCompatible con las bases de datos:	Todos
Nível Nivel de Acessoacceso:	(Acesso Acceso Clientes)
Idiomas:	Todos

DescriçãoDescripción:

LocalizaçãoUbicación: Function COLNFeAut - FunçãoFunción responsávelresponsable por validar aslas tabelastablas SE4/SF4 para geraçãogeneración automática de doslos documentos dodel TOTVS ColaboraçãoColaboración. EmEn que PontoPunto: En Nala funçãofunción COLNFeAut antes de entrar noen el laçolazo para carregarcargar oslos itensítems dodel documento importado, devese serdebe usadoutilizar para verificar sesi somentesolamente serãose processadosprocesarán oslos documentos dodel tipo transferênciade transferencia entre filiaissucursales, para permitir oel processamentoprocesamiento automático de doslos documentos importados, somentesolamente quandocuando forsea transferênciatransferencia entre filiaissucursales.

Programa Fontefuente:

COMXCOL.PRW

ParametrosParámetros:

NomeNombre	Tipo	DescriçãoDescripción	DefaultEstándar	ObrigatórioObligatorio	ReferênciaReferencia
PARAMIXB[1]	Array of Records	Array contendo o cabeçalho do que contiene el encabezado del documento importado.
PARAMIXB[2]	Array of Records	Array contendo os itens do que contiene los ítems del documento importado.

Retorno:

Lógico
RETORNADEVUELVE SESI OEL DOCUMENTO QUE ESTASE SENDOESTÁ PROCESSADOPROCESANDO ÉES DODEL TIPO TRANSFERÊNCIATRANSFERENCIA ENTRE FILIAISSUCURSALES.

Programa Fontefuente:

COMXCOL.PRW

ExemploEjemplo:

User Function COMCOL2() 
Local aAreaSM0 := SM0->(GetArea())
Local aAreaSA2 := SA2->(GetArea())
Local aCabec   := PARAMIXB[1]  //CabecalhoEncabezado de doslos principaisprincipales campos de dala tabelatabla SF1 (CabecalhoEncabezado dodel documento de entrada)
Local aItens   := PARAMIXB[2]	//ItensÍtems de doslos principaisprincipales campos dade la tabelatabla SD1 (ItensÍtems dodel documento de entrada)
Local nPosFor  := aScan(aCabec,{|x| AllTrim(x[1]) == "F1_FORNECE"})
Local nPosLoj  := aScan(aCabec,{|x| AllTrim(x[1]) == "F1_LOJA"})
Local lRet	:= .F.

SA2->(DbSetOrder(1))
SA2->(dbSeek(xFilial("SA2")+aCabec[nPosFor,2]+aCabec[nPosLoj,2]))
If UsaFilTrf()
	lRet := (!Empty(SA2->A2_FILTRF))
Else
	SM0->(DbSetOrder(1))
	SM0->(MsSeek(cEmpAnt))
	Do While !SM0->(Eof()) .And. SM0->M0_CODIGO == cEmpAnt
		If (SM0->M0_CGC == AllTrim(SA2->A2_CGC))
			lRet := .T.
			Exit
		EndIf
		SM0->(DbSkip())
	EndDo
EndIf

RestArea(aAreaSM0)
RestArea(aAreaSA2)
Return lRet

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave