Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: FA050FOR - Verifica notas de Fornecedor
Descrição: O ponto de entrada FA050FOR verifica o total de notas do fornecedor pela raiz do cnpj que vencem no mesmo mês. Programa Fonte FINA050.PRX Sintaxe FA050FOR - Verifica notas de Fornecedor ( [ ] ) --> aRet Parâmetros:
Retorno
Exemplos #INCLUDE "PROTHEUS.CH"User Function FA050FORLocal aArea := GetArea()Local uRet Local cQry := ""Local cAliasQryLocal _cCNPJ := Substr(Posicione("SA2",1,xFilial("SA2")+M->E2_FORNECE+M->E2_LOJA,"A2_CGC"),1,8)Local bBloco := {|| aAdd(uRet, {(cAliasQry)->A2_COD, (cAliasQry)->A2_LOJA}) }Local bCondi := {|| _cCNPJ == (cAliasQry)->CNPJRAIZ }If MSGYESNO("Ponto de Entrada FA050FOR, Clique em 'Sim' para Verificar as notas dentro do mês pela raiz do CNPJ ou 'Não' para verificar somente o Fornecedor digitado.","Atencao") cAliasQry := GetNextAlias() cQry := "SELECT A2_COD, A2_LOJA,SUBSTRING(A2_CGC,1,8) AS CNPJRAIZ FROM "+RetSqlName("SA2")+" A2 " cQry += "WHERE SUBSTRING(A2_CGC,1,8) = '"+_cCNPJ+"' AND A2.D_E_L_E_T_ <> '*'" cQry := ChangeQuery( cQry ) dbUseArea( .T., "TOPCONN", TcGenQry(,,cQry), cAliasQry, .F., .T. ) dbSelectArea(cAliasQry) dbGotop() uRet := {} dbEval(bBloco,bCondi) (cAliasQry)->( dbCloseArea() ) Else uRet := .F. EndifRestArea(aArea)Return uRet Variáveis
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas