Ponto-de-Entrada: FA050FOR - Verifica notas de Fornecedor
Abrangências: | Microsiga Protheus 10 |
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Espanhol , Inglês |
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:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
Array of Record |
Retorno
-
aRet(vetor)
- Vetor com os dados do Fornecedor e Loja.Ex. aRet[1,1] -> A2_COD aRet[1,2] -> A2_LOJA
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
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas