...
| Nome | Tipo | Descrição |
|---|---|---|
| cAliasNFE | Array of Record | Alias da tabela de cabeçalho da NF |
| cAliasFor | Array of Record | Alias da tabela de Fornecedor |
| cCodFil | Array of Record | Código da Filial |
| cCodFor | Array of Record | Código do Fornecedor |
| cCodLoj | Array of Record | Código da Loja |
| cEspDoc | Array of Record | Espécie do Documento |
| Nome | Tipo | Descrição |
|---|---|---|
| lResult | Lógico | .T. Gera - .F. Não gera |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function MT103GUIA() Local cAliasNFE := PARAMIXB[1] Local cAliasFor := PARAMIXB[2] Local cCodFil := PARAMIXB[3] Local cCodFor := PARAMIXB[4] Local cCodLoj := PARAMIXB[5] Local cEspDoc := PARAMIXB[6] Local lResult := .F. Local aAliAtu := GetArea() If AllTrim(cEspDoc) == "CTR" dbSelectArea(cAliasFor) dbSetOrder(1) If dbSeek(cCodFil+cCodFor+cCodLoj) .and. A2_OPTCRPR == "S" lResult := .T. Endif Endif RestArea(aAliAtu) Return lResult |
...
