PEGERNFS - Atuação nos Vetores de Integração na Geração de NF de Serviços

Descrição

Este Ponto de Entrada permite atuar nos vetores de integração (aCabPv e aItePv) na geração de NF de Serviços, na chamada da função FMX_GERNFS.

Observações

Exemplos

/* ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³ PEGERNFSº Autor ³ MIL º Data ³ 14/08/12 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ¹±± ±±ºDescricao ³ Ponto de Entrada para atuação nos vetores de integração º±± ±±ºDescricao ³ (aCabPv e aItePv) na geração de NF de Serviços, na chamada º±± ±±ºDescricao ³ da função FMX_GERNFS. º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ User Function PEGERNFS() Local lRet := .f.

MsgAlert("Ponto de Entrada PEGERNFS executado com sucesso!","Atenção") lRet := .t.

Return(lRet)

Preview
Veja também
Idioma	Português(Brasil)
Versões	Todas
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas
Updates
Parâmetros
Retorno	lógico. Se retornar .f. (falso) o sistema não integra
Eventos de chamada do Ponto de Entrada	*/ Function FMX_GERNFS(aVetCb,aVetIt,lMsg) // Local cNumPed Local nCntFor := 0 Local cNumIte := "00" Local lRet := .f. Local nQtdLib := 0 Local nPrcVen := 0 Local aIteTempPV := \{\} // Private aCabPV:= \{\} Private aItePV:= \{\} Private cSerie:= \{\} Private cNota := \{\} // Default aVetCb:= \{\} Default aVetIt:= \{\} Default lMsg := .f. // If len(aVetCb) > 0 aAdd(aCabPV,\{"C5_TIPO" ,"N" ,Nil\}) aAdd(aCabPV,\{"C5_CLIENTE",aVetCb[1] ,Nil\}) aAdd(aCabPV,\{"C5_LOJACLI",aVetCb[2] ,Nil\}) aAdd(aCabPV,\{"C5_VEND1" ,aVetCb[3] ,Nil\}) aAdd(aCabPV,\{"C5_CONDPAG",aVetCb[4] ,Nil\}) aAdd(aCabPV,\{"C5_COMIS1" ,0 ,Nil\}) aAdd(aCabPV,\{"C5_EMISSAO",ddatabase ,Nil\}) If !Empty(aVetCb[6]) aAdd(aCabPV,\{"C5_BANCO",aVetCb[6],Nil\}) EndIf If !Empty(aVetCb[5]) .and. SC5->(FieldPos("C5_NATUREZ")) > 0 aAdd(aCabPV,\{"C5_NATUREZ",aVetCb[5],Nil\}) EndIf EndIf // For nCntFor := 1 to Len(aVetIt) // DBSelectArea("SB1") DBSetOrder(1) DBSeek(xFilial("SB1")+aVetIt[nCntFor,1]) //Pega a classificacao fiscal de acordo com o estado do cliente //cCFiscal := FG_CLAFIS(SB1->B1_TS) // cNumIte := SOMA1(cNumIte) // aIteTempPV := \{\} // aAdd(aIteTempPV,\{"C6_ITEM" ,cNumIte ,nil\}) aAdd(aIteTempPV,\{"C6_PRODUTO",SB1->B1_COD ,nil\}) aAdd(aIteTempPV,\{"C6_QTDVEN" ,1 ,nil\}) aAdd(aIteTempPV,\{"C6_ENTREG" ,dDataBase ,nil\}) aAdd(aIteTempPV,\{"C6_UM" ,SB1->B1_UM ,nil\}) aAdd(aIteTempPV,\{"C6_TES" ,SB1->B1_TS ,nil\}) aAdd(aIteTempPV,\{"C6_LOCAL" ,SB1->B1_LOCPAD ,nil\}) aAdd(aIteTempPV,\{"C6_PRUNIT" ,aVetIt[nCntFor,2] ,nil\}) aAdd(aIteTempPV,\{"C6_PRCVEN" ,aVetIt[nCntFor,2] ,nil\}) aAdd(aIteTempPV,\{"C6_VALOR" ,aVetIt[nCntFor,2] ,nil\}) aAdd(aIteTempPV,\{"C6_VALDESC",0 ,nil\}) aAdd(aIteTempPV,\{"C6_COMIS1" ,0 ,nil\}) aAdd(aIteTempPV,\{"C6_CLI" ,aVetCb[1] ,nil\}) aAdd(aIteTempPV,\{"C6_LOJA" ,aVetCb[2] ,nil\}) aAdd(aItePv,aClone(aIteTempPV)) // // Next // PE para Alteração dos Vetores aCabPV e aItePV, antes da Geração do Pedido de Venda if ExistBlock("PEGERNFS") if !ExecBlock("PEGERNFS",.f.,.f.) Return(\{"",""\}) Endif Endif // Geração do pedido de Venda lMsErroAuto := .f. MSExecAuto(\{\|x,y,z\|Mata410(x,y,z)\},aCabPv,aItePv,3) // If lMsErroAuto MostraErro() Return \{"",""\} EndIf

Variáveis
Programa Fonte	OFIXFUNA.PRW

Árvore de páginas

PEGERNFS - Atuação nos Vetores de Integração na Geração de NF de Serviços